#!/usr/bin/env perl
   
   # Generates the silc manpages from yodl sources.
   
   use strict;
   
   my ($yodl2man, $i, $command);
   my (@yodl, @men);
   
  $yodl2man = qx/which yodl2man/;
  chomp($yodl2man);
  
  if ($yodl2man eq "" || $yodl2man =~ m/found/) {
    print "Yodl is needed to to generate manpages.\n";
    print "Skipping them...\n";
    exit;
  }
  
  @yodl = ('silc.yo', 'silcd.yo', 'silcd.conf.yo', 'silc.conf.yo');
  @men  = ('silc.1', 'silcd.8', 'silcd.conf.5', 'silc.conf.5');
  
  for ($i=0; $i<scalar(@yodl); $i++) {
    if (-e $yodl[$i]) {
      $command = "$yodl2man -o $men[$i] $yodl[$i]"; 
      system("$command");
    }
  }