scripts/manpages.pl

   1 #!/usr/bin/env perl
   2
   3 # Generates the silc manpages from yodl sources.
   4
   5 use strict;
   6
   7 my ($yodl2man, $i, $command);
   8 my (@yodl, @men);
   9
  10 $yodl2man = qx/which yodl2man/;
  11 chomp($yodl2man);
  12
  13 if ($yodl2man eq "" || $yodl2man =~ m/found/) {
  14   print "Yodl is needed to to generate manpages.\n";
  15   print "Skipping them...\n";
  16   exit;
  17 }
  18
  19 @yodl = ('silc.yo', 'silcd.yo', 'silcd.conf.yo', 'silc.conf.yo');
  20 @men  = ('silc.1', 'silcd.8', 'silcd.conf.5', 'silc.conf.5');
  21
  22 for ($i=0; $i<scalar(@yodl); $i++) {
  23   if (-e $yodl[$i]) {
  24     $command = "$yodl2man -o $men[$i] $yodl[$i]";
  25     system("$command");
  26   }
  27 }