home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1580 / rmbyalias < prev   
Encoding:
Text File  |  1990-12-28  |  542 b   |  29 lines
  1. #! /usr/local/bin/perl
  2. # 
  3. # rmbyalias deletes an entry from real2alias database given the alias
  4. #
  5. # Usage: rmbyalias <alias>
  6. #
  7. umask 0077;
  8. if ( $#ARGV != 0 ) {
  9.     print STDERR "Usage: rmbyalias <alias>\n";
  10.     exit(1);
  11. }
  12.  
  13. $target_alias = $ARGV[0];
  14.  
  15. dbmopen(r2a,"/usr/personals/real2alias",0600) 
  16.     || die "$0: can't dbmopen real2alias: $!\n";
  17. open(LOG,">>/usr/personals/REMOVED");
  18.  
  19. while (($key,$value) = each %r2a) {
  20.     if ( "$value" eq "$target_alias" ) {
  21.         delete $r2a{$key};
  22.         print LOG "$value:$key\n";
  23.     }
  24. }
  25.  
  26. dbmclose(r2a);
  27. close(LOG);
  28. exit(0);
  29.