#!/usr/athena/bin/perl

my $srcdir=$ARGV[0];
my $topdir='/afs/sipb/service/httpd/src';
if (not -d $srcdir ) { 
  die "$srcdir (arg 1) is not a directory"
}

if ( -d "${srcdir}/modules/mappers" ) {
    system("cp $topdir/mod_hesiod.c $srcdir/modules/mappers");
    my $m4 = "${srcdir}/modules/mappers/config9.m4";
    my @inlines = `cat $m4`;
    my @outlines = ();
    while ($_ = shift(@inlines)) {
      if (/userdir/) {
	s/yes/no/;
      }
      push(@outlines,$_);
      if ($_ =~ /APACHE_MODPATH_INIT/) {
	push(@outlines,"APACHE_MODULE(hesiod,hesiod mapping, , , yes)\n");
      }
    }
    open(FILE,">${m4}") || die "can't write to $m4 : $!";
    print FILE @outlines;
    close FILE;
    chdir($srcdir);
    system('autoconf');
} else {
  die "Can't find $srcdir/modules/mappers"
}

chdir($topdir);
system("patch $srcdir/server/request.c request.c.patch");