home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1580 / addalias next >
Text File  |  1990-12-28  |  421b  |  23 lines
  1. #! /usr/local/bin/perl
  2. # 
  3. # addalias adds an entry to the real2addr database given the address
  4. # and alias
  5. #
  6. # Usage: addalias <address> <alias>
  7. #
  8. if ( $#ARGV != 1 ) {
  9.     print STDERR "Usage: addalias <address> <alias>\n";
  10.     exit(1);
  11. }
  12.  
  13. $address = $ARGV[0];
  14. $alias = $ARGV[1];
  15.  
  16. dbmopen(r2a,"/usr/personals/real2alias",0600) 
  17.     || die "$0: can't dbmopen real2alias: $!\n";
  18.  
  19. $r2a{"$address"} = $alias;
  20.  
  21. dbmclose(r2a);
  22. exit(0);
  23.