OpenWrt – Rev 1

Subversion Repositories:
Rev:
#!/usr/bin/env perl

use strict;
use Getopt::Long;

my $output;
my $version;

Getopt::Long::Configure('pass_through');
Getopt::Long::GetOptions(
        'output=s' => \$output,
        'version'  => \$version
);

if ($version)
{
        printf "OpenWrt help2man 1.40.10\n";
        exit 0;
}
elsif ($output)
{
        open O, "> $output" || die "Unable to open $output: $!\n";
        print O "Dummy man page.\n";
        close O;
}
else
{
        print O "Dummy man page.\n";
}