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