genman

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 my @scripts = qw(clivefeed clivescan clivepass);
   7
   8 generate($_) foreach @scripts;
   9
  10
  11 sub generate {
  12     my ($script) = @_;
  13
  14     print "processing $script...\n";
  15     open(my $fh, "<", $script) or die "error: $script: $!";
  16
  17     my $re = qr|VERSION = "(.*?)"|;
  18     my $release;
  19
  20     while ( <$fh> ) {
  21         if ( $_ =~ /$re/ ) {
  22             $release = $1;
  23             last;
  24         }
  25     }
  26
  27     close($fh);
  28
  29     print STDERR "error: release string not found\n" and return
  30         unless $release;
  31
  32     system(qq/pod2man -c "$script Manual" -n $script /
  33          . qq/-s 1 -r $release $script > $script.1/);
  34
  35     #system("gzip $script.1");
  36 }