home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Source Code 1992 March
/
Source_Code_CD-ROM_Walnut_Creek_March_1992.iso
/
usenet
/
altsrcs
/
1
/
1580
/
config.perl
< prev
next >
Wrap
Text File
|
1990-12-28
|
1KB
|
36 lines
#! /usr/local/bin/perl
#
# Modify the next three lines to suit your configuration
$NEWBASEDIR = '/usr/tpers'; # absolute pathname of directory
# containing ACS source
$NEWHOSTNAME = 'smersh'; # hostname of your system
$NEWDOMAIN = '.kgb.comm'; # domain name of your system
#
# END OF CONFIGURABLE VARIABLES
#
$OLDBASEDIR = '/usr/personals';
$OLDHOSTNAME = 'alembic';
$OLDDOMAIN = '.ACS.COM';
@FILELIST = ( 'anon-ping.c', 'anon-post.c','anon-reply.c','addalias',
'rmbyaddr','rmbyalias','fixit','listr2a',
'nextalias','unspool','crontab','aliases','Intro',
'Intro2','Intro-short','dupalias' ) ;
foreach $filename (@FILELIST) {
open(IN, "<$filename") || ((warn "Can't open $filename\n"), next);
@lines = <IN>;
for ( $line = 0; $line <= $#lines; $line++ ) {
$lines[$line] =~ s|$OLDBASEDIR|$NEWBASEDIR|go;
$lines[$line] =~ s|$OLDHOSTNAME|$NEWHOSTNAME|go;
$lines[$line] =~ s|$OLDDOMAIN|$NEWDOMAIN|go;
}
rename($filename,"$filename.bak");
open(OUT,">$filename") || ((warn "Can't open $filename\n"), next);
print OUT @lines;
close(OUT);
close(IN);
print STDERR "$filename reconfigured\n";
}
exit;