| b.liu | e958203 | 2025-04-17 19:18:16 +0800 | [diff] [blame^] | 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 | } | ||||