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 >
Text File  |  1990-12-28  |  1KB  |  36 lines

  1. #! /usr/local/bin/perl
  2. #
  3. # Modify the next three lines to suit your configuration
  4. $NEWBASEDIR = '/usr/tpers';        # absolute pathname of directory
  5.                     # containing ACS source
  6. $NEWHOSTNAME = 'smersh';        # hostname of your system
  7. $NEWDOMAIN = '.kgb.comm';        # domain name of your system
  8. #
  9. # END OF CONFIGURABLE VARIABLES
  10. #
  11. $OLDBASEDIR = '/usr/personals';
  12. $OLDHOSTNAME = 'alembic';
  13. $OLDDOMAIN = '.ACS.COM';
  14. @FILELIST = ( 'anon-ping.c', 'anon-post.c','anon-reply.c','addalias',
  15.         'rmbyaddr','rmbyalias','fixit','listr2a',
  16.         'nextalias','unspool','crontab','aliases','Intro',
  17.         'Intro2','Intro-short','dupalias' ) ;
  18.  
  19.  
  20. foreach $filename (@FILELIST) {
  21.     open(IN, "<$filename") || ((warn "Can't open $filename\n"), next);
  22.     @lines = <IN>;
  23.     for ( $line = 0; $line <= $#lines; $line++ ) {
  24.         $lines[$line] =~ s|$OLDBASEDIR|$NEWBASEDIR|go;
  25.         $lines[$line] =~ s|$OLDHOSTNAME|$NEWHOSTNAME|go;
  26.         $lines[$line] =~ s|$OLDDOMAIN|$NEWDOMAIN|go;
  27.     }
  28.     rename($filename,"$filename.bak");
  29.     open(OUT,">$filename") || ((warn "Can't open $filename\n"), next);
  30.     print OUT @lines;
  31.     close(OUT);
  32.     close(IN);
  33.     print STDERR "$filename reconfigured\n";
  34. }
  35. exit;
  36.