home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / audit / catdups < prev    next >
Encoding:
Text File  |  1993-07-14  |  391 b   |  18 lines
  1. require "ctime.pl";
  2. unshift(@INC, "/mnt/tchrist/scripts/deliverlib");
  3. require 'mh.pl';
  4. $| =1;
  5.  
  6. &mh_profile();
  7.  
  8. $db = "$MH{'path'}/.dupmsgdb"; 
  9.  
  10.  
  11. dbmopen(%Msg, $db, undef) || 
  12.     die "can't dbmopen dup msg db ($db)";
  13.  
  14. while (($keys, $value) = each %Msg) {
  15.     ($subject, $length, $sum) = split(/$;/o, $keys);
  16.     print "Subject: $subject\n\tlength: $length, sum = $sum, ",&ctime($value);
  17. } 
  18.