tools/missing-macros/src/bin/help2man

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use Getopt::Long;
   5
   6 my $output;
   7 my $version;
   8
   9 Getopt::Long::Configure('pass_through');
  10 Getopt::Long::GetOptions(
  11         'output=s' => \$output,
  12         'version'  => \$version
  13 );
  14
  15 if ($version)
  16 {
  17         printf "OpenWrt help2man 1.40.10\n";
  18         exit 0;
  19 }
  20 elsif ($output)
  21 {
  22         open O, "> $output" || die "Unable to open $output: $!\n";
  23         print O "Dummy man page.\n";
  24         close O;
  25 }
  26 else
  27 {
  28         print O "Dummy man page.\n";
  29 }