File: manifier

package info (click to toggle)
siege 4.1.6-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 2,676 kB
  • sloc: ansic: 13,015; sh: 9,149; makefile: 160; php: 142; perl: 11
file content (14 lines) | stat: -rwxr-xr-x 405 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl
use Pod::Man;
my $input   = $ARGV[0] or barf();
my $output  = $ARGV[1] or barf();
my $name    = $ARGV[2] or barf();
my $section = $ARGV[3] or barf();

my $parser = Pod::Man->new (release => $VERSION, center => $name, section => $section, release => 'JoeDog');
$parser->parse_from_file ($input, $output);

sub barf() {
  print "usage: $0 <file.pod> <file.1> <section[num]>\n";
  exit(1);
}