config.pl

   1 #! /usr/bin/env perl
   2
   3 use strict;
   4
   5 my $perlpath = shift;
   6 my $bindir = shift;
   7 my $mandir = shift;
   8 my $sysconfdir = shift;
   9 my $version = shift;
  10
  11 # read in yasql
  12 open(YIN, "yasql.in") or die("Could not open yasql.in! $!");
  13 # open yasql for writing
  14 open(YOUT, ">yasql") or die("Could not open yasql for writing! $!");
  15 flock(YOUT, 2) or die("Could not flock yasql! $!");
  16
  17 for(my $i = 0; <YIN>; $i++) {
  18   if($i == 0) {
  19     print YOUT "#!" . $perlpath . "\n";
  20   } elsif(/^\$sysconfdir = /) {
  21     print YOUT "\$sysconfdir = \"" . $sysconfdir . "\";\n";
  22   } elsif(/^  \$VERSION = /) {
  23     print YOUT "  \$VERSION = \"" . $version . "\";\n";
  24   } else {
  25     print YOUT;
  26   }
  27 }
  28
  29 close(YOUT);
  30 close(YIN);
  31
  32 eval {
  33   require Pod::Man;
  34   my $pod = Pod::Man->new(section=>1);
  35   $pod->parse_from_file ('yasql', 'yasql.1');
  36 };
  37 if($@) {
  38   warn "Generating man page failed, install Pod::Man to fix this"
  39 }
  40
  41 print "Configuration successful\n";
  42