#!/usr/athena/bin/perl

# $Header: /afs/sipb/service/rtfm-new/src/mail-server/RCS/fix-pl.pl,v 1.2 1995/03/25 06:58:42 ghudson Exp arolfe $

do "mservconfig.pl" || die "mservconfig.pl didn't return true";

if (@ARGV != 2) {
    die "Usage: $0 infile outfile\n";
}

$outfile = pop @ARGV;

open(STDOUT, ">$outfile") || die "Opening $outfile: $!.\n";

while (<>) {
    s/XXMSERVROOTXX/$mservroot/;
    print;
}

close(STDOUT) || die "Closing $outfile: $!.\n";

exit 0;