OpenWrt – Blame information for rev 2

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 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 }