home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / perl / 5043 < prev    next >
Encoding:
Text File  |  1992-07-30  |  17.2 KB  |  623 lines
  1. Path: sparky!uunet!dtix!darwin.sura.net!uvaarpa!mmdf
  2. From: aks%anywhere@hub.ucsb.edu (Alan Stebbens)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: Perl-Users Digest #471
  5. Message-ID: <1992Jul30.204015.27966@uvaarpa.Virginia.EDU>
  6. Date: 30 Jul 92 20:40:15 GMT
  7. Sender: mmdf@uvaarpa.Virginia.EDU (Mail System)
  8. Reply-To: aks%anywhere@hub.ucsb.edu
  9. Organization: The Internet
  10. Lines: 611
  11.  
  12. I've been using the audit.pl script for a few weeks, and I've cobbled
  13. together some minor changes, added a Makefile to install things, and
  14. created a sample .audit script which I've been installing for various
  15. users who have expressed needs like (a) handling mail while on vacation,
  16. (b) throwing away junk mail from noisy mailing lists.
  17.  
  18. What follows is the script, and then a diff to the original audit
  19. release.  If anyone wants the complete distribution, it's available via
  20. anonymouse ftp on hub.ucsb.edu:/pub/mail/audit.tar.Z
  21.  
  22. I apologize to the author for not mailing this directly; I can't seem to
  23. find your email address anywhere within the distribution, and I've long
  24. since lost the original mail from which it came.
  25.  
  26. Enjoy.
  27.  
  28. Alan Stebbens        <aks@hub.ucsb.edu>             (805) 893-3221
  29.      Center for Computational Sciences and Engineering (CCSE)
  30.           University of California, Santa Barbara (UCSB)
  31.            3111 Engineering I, Santa Barbara, CA 93106
  32.  
  33.  
  34. ============================= cut here ===================================
  35. #!/eci/bin/perl
  36. #
  37. # $Date: 1992/07/30 19:55:42 $
  38. # $Revision: 1.1 $
  39.  
  40. # Tailor this for yourself
  41.  
  42. @MyNames = ('FIRSTNAME', 'LASTNAME');
  43.  
  44. # This is a sample audit script.  It looks for a file with the
  45. # name "~/.vacation.msg", and if it exists, assumes that the user
  46. # is on vacation, and operates under "vacation mode", otherwise,
  47. # works under "work mode".
  48. #
  49. # In either case, mail from the mailer daemon, or any mail addressed
  50. # directly to the user is assumed to be important, and is not
  51. # filtered for junk mail.  In vacation mode, the mail is answered
  52. # automatically, using the ".vacation.msg" file as the reply message.
  53. # Then, the mail is simply dropped in the system mailbox.
  54. #
  55. # If the mail is not directly addressed, then it is coming from a 
  56. # mailing list, and is filtered through the junk mail lists, which
  57. # are determined by one of two files, depending upon the mode.  In
  58. # work mode, the file is ".junkmail.work"; in vacation mode, the
  59. # file is ".junkmail.vacation".
  60. #
  61. # The junkmail lists contain names of mailing lists which are to be
  62. # subject to junking; that is, mail with headers having one of these
  63. # junk mailing list names in either the To: or Cc: header, and NOT 
  64. # directly addressed to the user are junked.
  65. #
  66. # As part of the junking, a log file is kept, called ".junkmail.log";
  67. # the From:, Date:, To:, Cc:, and Subject: lines are recorded.
  68. #
  69. # The ".junkmail.work" is especially useful for those occasions when
  70. # a particular mailing list gets crowded with some emotional issue
  71. # for which you have no interest.  Rather than having your name removed
  72. # from the mailing list, just filter it until the signal-to-noise
  73. # ratio improves (which can be deteremined by scanning the log file
  74. # periodically).
  75. #
  76. ($Prog = $0) =~ s=^/.*([^/]+)$=$1=; # get plain program name
  77.  
  78. require 'audit.pl' || die "~/.audit: cannot include audit.pl: $@";
  79.  
  80. # Only if you need some of the mh functions
  81. # require 'mh.pl'  || die "~/.audit: cannot include mh.pl: $@";
  82.  
  83. &initialize();
  84.  
  85. $HOME = $ENV{'HOME'};
  86. $VacaJunkMail = "$HOME/.junkmail.vacation";
  87. $WorkJunkMail = "$HOME/.junkmail.work";
  88. $JunkLogFile =    "$HOME/.junkmail.log";
  89.  
  90. $OnVacation = -f "$HOME/.vacation.msg";
  91. $AtWork = ! $OnVacation;
  92.  
  93. # If this message came from the MAILER, deliver it to me directly
  94. # and do nothing else.
  95.  
  96. ($from =~ /MAILER/) && do { &deliver(); exit; };
  97.  
  98. # If the sender's name is in the password file, the organization
  99. # is local
  100.  
  101. $local_org = $ENV{'ORGANIZATION'};
  102. chop($local_org = `cat $HOME/.organization`) 
  103.     if -f "$HOME/.organization" && !length($local_org);
  104.  
  105. if ($local_org) {
  106.     $organization = $local_org if ($logname = (getpwnam($from))[0]);
  107. }
  108.  
  109. # If I am specifically named on the To or Cc line, do the default.
  110.  
  111. unshift(@MyNames,$user);
  112.  
  113. foreach $name (@MyNames) {
  114.     if (grep(/^$name/i, @to, @cc)) {
  115.     &deliver();            # deposit in my mailbox
  116.     &vacation() if $OnVacation;    # do the vacation response (maybe)
  117.     exit;
  118.     }
  119. };
  120.  
  121. # The mail wasn't sent directly to me, so, if I'm at work, look for 
  122. # any junkmail list names
  123.  
  124. if ($AtWork) {
  125.     foreach $junkname (&ReadNames($WorkJunkMail)) {
  126.     $junkname =~ s/([-+.])/\\$1/g;    # make grep-safe
  127.     &Junk if grep(/^$junkname/i, @to, @cc);
  128.     }
  129. }
  130.     
  131. # this mail was not sent to me directly, nor was it on the at-work junk 
  132. # mailing list, so now check for at-vacation junk mails, if I'm on vacation.
  133.  
  134. if ($OnVacation) {
  135.     foreach $junkname (&ReadNames($VacaJunkMail)) {
  136.     $junkname =~ s/([-+.])/\\$1/g;    # make grep-safe
  137.     &Junk if grep(/^$junkname/i, @to, @cc);
  138.     }
  139. }
  140.  
  141. # Oh well, some mailing list which might be important.
  142.  
  143. &deliver();
  144. exit;
  145.  
  146. # Subroutine ReadNames -- opens a file and reads all the names within it,
  147. # allowing for comments lines and commented lines
  148.  
  149. sub ReadNames {
  150.     local($file) = @_;
  151.     local($_);
  152.     local(@names,$name);
  153.     return () unless -f $file;
  154.     if (open(LIST,$file)) {
  155.     while (<LIST>) {
  156.         next if /^\s*#/;
  157.         s/\s*\#.*$//;    # strip comments
  158.         next if /^\s*$/;    # ignore empty lines
  159.         push(@names,split(' '));
  160.     }
  161.     close LIST;
  162.     } else {
  163.     warn "$Prog: can't read $file because $!\n";
  164.     }
  165.     @names;
  166. }
  167.  
  168. sub Junk {
  169.     local($hdr) = "%-9s %s\n";
  170.     if (open(LOG,">>$JunkLogFile")) {
  171.     $friendly = '' if $friendly eq 'unknown';
  172.     $organization = '' if $organization eq 'unknown';
  173.     $from = '"'.$friendly.'"' if $friendly;
  174.     $from .= ' <'.$address.'>';
  175.     $from .= ' ('.$organization.')' if $organization;
  176.     printf LOG $hdr,'From:',$from;
  177.     printf LOG $hdr,'Date:',$headers{'date'};
  178.     printf LOG $hdr,'To:',join(', ',@to) if $#to >= $[;
  179.     printf LOG $hdr,'Cc:',join(', ',@cc) if $#cc >= $[;
  180.     printf LOG $hdr,'Subject:',$subject;
  181.     printf LOG "\n";
  182.     close LOG;
  183.     }
  184.     exit;
  185. }
  186. ============================= cut here ===================================
  187. diff -r -c audit.ref/CHANGES audit/CHANGES
  188. *** audit.ref/CHANGES    Thu Jul 30 18:41:23 1992
  189. --- audit/CHANGES    Thu Jul 30 19:32:01 1992
  190. ***************
  191. *** 1,3 ****
  192. --- 1,13 ----
  193. + Changes file ($Revision$)
  194. + 
  195. + Added code to chown newly created files to be owned by $user, rather than
  196. + the uid of the running process, if running as root.
  197. + 
  198. + Create a Makefile to install things; the Makefile needs site-configuration
  199. + of course.
  200. + 
  201. + Modified mh.pl to ease site-configuration.
  202. + 
  203.   V0.2 Changes 
  204.   ============
  205.   
  206. diff -r -c audit.ref/Makefile audit/Makefile
  207. *** audit.ref/Makefile    Thu Jul 30 19:17:07 1992
  208. --- audit/Makefile    Thu Jul 30 19:30:04 1992
  209. ***************
  210. *** 0 ****
  211. --- 1,42 ----
  212. + # Makefile for the audit.pl package
  213. + #
  214. + # $Author: aks $ $Date: 1992/07/30 19:30:02 $
  215. + # $Revision: 1.1 $
  216. + 
  217. + # Set LIB_DIR to the directory in which to install "audit.pl" and "mh.pl"
  218. + LIB_DIR = /eci/share/lib/perl
  219. + 
  220. + # BIN_DIR should be the path in which to install the executable scripts; these
  221. + # scripts can be shared across architectures
  222. + 
  223. + BIN_DIR = /eci/share/bin
  224. + 
  225. + # If PERL_PATH is set, the first line of each script will be set to this
  226. + # pathname in order to invoke Perl
  227. + 
  228. + PERL_PATH = /eci/bin/perl
  229. + 
  230. + LIB_FILES = audit.pl mh.pl
  231. + SCRIPTS = refileto rfolder
  232. + 
  233. + INSTALL = /usr/ucb/install
  234. + 
  235. + INSTALL_BIN =    sed -e '1s=^\(.!\)/.*=\1$(PERL_PATH)=' $? > $@ ; chmod 755 $@
  236. + INSTALL_LIB =    $(INSTALL) -c -m 444 $? $@
  237. + INSTALL_LINK =    ( cd $(@D) ; ln -s $(?F) $(@F) )
  238. + 
  239. + install:    libs    scripts    links
  240. + 
  241. + libs:        $(LIB_DIR) $(LIB_DIR)/audit.pl $(LIB_DIR)/mh.pl
  242. + $(LIB_DIR)/audit.pl:    audit.pl ;        $(INSTALL_LIB)
  243. + $(LIB_DIR)/mh.pl:    mh.pl ;            $(INSTALL_LIB)
  244. + 
  245. + scripts:    $(BIN_DIR) $(BIN_DIR)/refileto $(BIN_DIR)/rfolder
  246. + $(BIN_DIR)/refileto:    refileto ;        $(INSTALL_BIN)
  247. + $(BIN_DIR)/rfolder:    rfolder     ;        $(INSTALL_BIN)
  248. + 
  249. + links:        $(BIN_DIR)/refilefrom    $(BIN_DIR)/rfolders
  250. + $(BIN_DIR)/refilefrom:    $(BIN_DIR)/refileto ;    $(INSTALL_LINK)
  251. + $(BIN_DIR)/rfolders:    $(BIN_DIR)/rfolder ;    $(INSTALL_LINK)
  252. + 
  253. + $(LIB_DIR) $(BIN_DIR): ; mkdir $@
  254. Only in audit: RCS
  255. diff -r -c audit.ref/audit.pl audit/audit.pl
  256. *** audit.ref/audit.pl    Thu Jul 30 19:23:03 1992
  257. --- audit/audit.pl    Thu Jul 30 19:24:22 1992
  258. ***************
  259. *** 1,7 ****
  260.   #
  261.   #
  262. ! # $Revision: 1.13 $
  263. ! # $Date: 1992/05/12 14:34:18 $
  264.   #
  265.   #
  266.   
  267. --- 1,7 ----
  268.   #
  269.   #
  270. ! # $Revision: 1.14 $
  271. ! # $Date: 1992/07/30 19:24:07 $
  272.   #
  273.   #
  274.   
  275. ***************
  276. *** 19,25 ****
  277.       $ENV{'USER'} = $user;
  278.       $ENV{'HOME'} = $home;
  279.       $ENV{'SHELL'} = $shell;
  280. !     $ENV{'TERM'} = "vt100";
  281.   
  282.       &parse_message(STDIN);
  283.   }
  284. --- 19,28 ----
  285.       $ENV{'USER'} = $user;
  286.       $ENV{'HOME'} = $home;
  287.       $ENV{'SHELL'} = $shell;
  288. !     if (!$> && !$uid) {        # root and user isn't?
  289. !     $< = $uid; $> = $uid;
  290. !     $( = $gid; $) = $gid;
  291. !     }
  292.   
  293.       &parse_message(STDIN);
  294.   }
  295. ***************
  296. *** 275,285 ****
  297. --- 278,291 ----
  298.   
  299.   # =====
  300.   #    Put the incoming mail into the specified mail drop (file)
  301. + #    [Alan Stebbens, UCSB, 7/30/92]
  302. + #    Be sure to make the file owned by the user, if possible.
  303.   #
  304.   sub deposit {
  305.       local($drop) = @_;
  306.       local($LOCK_EX) = 2;
  307.       local($LOCK_UN) = 8;
  308. +     local($needchown) = ! -f $drop;    # flag if chown is needed
  309.   
  310.       open(MAIL, ">> $drop") || die "open: $!\n";
  311.       flock(MAIL, $LOCK_EX);
  312. ***************
  313. *** 290,295 ****
  314. --- 296,305 ----
  315.   
  316.       flock(MAIL, $LOCK_UN);
  317.       close(MAIL);
  318. +     if ($needchown) {
  319. +     local($fgid) = (stat($drop))[5];    # get file's current gid
  320. +     chown $uid,$fgid,$drop;
  321. +     }
  322.   }
  323.   
  324.   
  325. diff -r -c audit.ref/mh.pl audit/mh.pl
  326. *** audit.ref/mh.pl    Thu Jul 30 18:41:24 1992
  327. --- audit/mh.pl    Thu Jul 30 19:25:43 1992
  328. ***************
  329. *** 1,5 ****
  330. --- 1,11 ----
  331. + # $Date: 1992/07/30 19:25:42 $
  332. + # $Revision: 1.2 $
  333.   
  334. + # Configure this for your site
  335.   
  336. + $MH_BIN = '/eci/mh/bin';
  337. + $MH_LIB = '/eci/mh/lib';
  338. + 
  339.   # =====
  340.   # Subroutine mh_profile
  341.   #    Parse the user's .mh_profile and get arguments and settings
  342. ***************
  343. *** 32,38 ****
  344.   sub rcvstore {
  345.       local($folder) = @_;
  346.   
  347. !     &openpipe("/usr/local/bin/mh/lib/rcvstore +$folder -create");
  348.   }
  349.   
  350.   
  351. --- 38,44 ----
  352.   sub rcvstore {
  353.       local($folder) = @_;
  354.   
  355. !     &openpipe("$MH_LIB/rcvstore +$folder -create");
  356.   }
  357.   
  358.   
  359. ***************
  360. *** 45,51 ****
  361.   sub rcvdist {
  362.       local($recips) = @_;
  363.   
  364. !     &openpipe("/usr/local/bin/mh/lib/rcvdist $recips");
  365.   }
  366.   
  367.   
  368. --- 51,57 ----
  369.   sub rcvdist {
  370.       local($recips) = @_;
  371.   
  372. !     &openpipe("$MH_LIB/rcvdist $recips");
  373.   }
  374.   
  375.   
  376. ***************
  377. *** 56,62 ****
  378.   #
  379.   sub rcvtty {
  380.   
  381. !     &openpipe("/usr/local/bin/mh/lib/rcvtty");
  382.   }
  383.   
  384.   
  385. --- 62,68 ----
  386.   #
  387.   sub rcvtty {
  388.   
  389. !     &openpipe("$MH_LIB/rcvtty");
  390.   }
  391.   
  392.   
  393. ***************
  394. *** 70,76 ****
  395.       local($recips); 
  396.       local(@list) = ();
  397.   
  398. !     $recips = `/usr/local/bin/mh/ali $alias`;
  399.       chop $recips;
  400.       return(@list) if ($alias eq $recips);
  401.   
  402. --- 76,82 ----
  403.       local($recips); 
  404.       local(@list) = ();
  405.   
  406. !     $recips = `$MH_BIN/ali $alias`;
  407.       chop $recips;
  408.       return(@list) if ($alias eq $recips);
  409.   
  410. diff -r -c audit.ref/refilefrom audit/refilefrom
  411. *** audit.ref/refilefrom    Thu Jul 30 18:41:24 1992
  412. --- audit/refilefrom    Thu Jul 30 19:30:12 1992
  413. ***************
  414. *** 1,5 ****
  415. --- 1,8 ----
  416.   #!/usr/bin/perl
  417.   
  418. + # $Date: 1992/07/30 19:30:10 $
  419. + # $Revision: 1.1 $
  420. + 
  421.   $program = $0;
  422.   $program =~ s|.*/||;
  423.   $| = 1;
  424. diff -r -c audit.ref/refileto audit/refileto
  425. *** audit.ref/refileto    Thu Jul 30 18:41:24 1992
  426. --- audit/refileto    Thu Jul 30 19:30:12 1992
  427. ***************
  428. *** 1,5 ****
  429. --- 1,8 ----
  430.   #!/usr/bin/perl
  431.   
  432. + # $Date: 1992/07/30 19:30:10 $
  433. + # $Revision: 1.1 $
  434. + 
  435.   $program = $0;
  436.   $program =~ s|.*/||;
  437.   $| = 1;
  438. diff -r -c audit.ref/rfolder audit/rfolder
  439. *** audit.ref/rfolder    Thu Jul 30 18:41:24 1992
  440. --- audit/rfolder    Thu Jul 30 19:30:12 1992
  441. ***************
  442. *** 1,5 ****
  443. --- 1,8 ----
  444.   #!/usr/bin/perl
  445.   
  446. + # $Date: 1992/07/30 19:30:10 $
  447. + # $Revision: 1.1 $
  448. + 
  449.   $program = $0;
  450.   $program =~ s|.*/||;
  451.   $| = 1;
  452. diff -r -c audit.ref/rfolders audit/rfolders
  453. *** audit.ref/rfolders    Thu Jul 30 18:41:24 1992
  454. --- audit/rfolders    Thu Jul 30 19:30:12 1992
  455. ***************
  456. *** 1,5 ****
  457. --- 1,8 ----
  458.   #!/usr/bin/perl
  459.   
  460. + # $Date: 1992/07/30 19:30:10 $
  461. + # $Revision: 1.1 $
  462. + 
  463.   $program = $0;
  464.   $program =~ s|.*/||;
  465.   $| = 1;
  466. diff -r -c audit.ref/sample.audit audit/sample.audit
  467. *** audit.ref/sample.audit    Thu Jul 30 19:57:15 1992
  468. --- audit/sample.audit    Thu Jul 30 19:55:43 1992
  469. ***************
  470. *** 0 ****
  471. --- 1,151 ----
  472. + #!/eci/bin/perl
  473. + #
  474. + # $Date: 1992/07/30 19:55:42 $
  475. + # $Revision: 1.1 $
  476. + 
  477. + # Tailor this for yourself
  478. + 
  479. + @MyNames = ('FIRSTNAME', 'LASTNAME');
  480. + 
  481. + # This is a sample audit script.  It looks for a file with the
  482. + # name "~/.vacation.msg", and if it exists, assumes that the user
  483. + # is on vacation, and operates under "vacation mode", otherwise,
  484. + # works under "work mode".
  485. + #
  486. + # In either case, mail from the mailer daemon, or any mail addressed
  487. + # directly to the user is assumed to be important, and is not
  488. + # filtered for junk mail.  In vacation mode, the mail is answered
  489. + # automatically, using the ".vacation.msg" file as the reply message.
  490. + # Then, the mail is simply dropped in the system mailbox.
  491. + #
  492. + # If the mail is not directly addressed, then it is coming from a 
  493. + # mailing list, and is filtered through the junk mail lists, which
  494. + # are determined by one of two files, depending upon the mode.  In
  495. + # work mode, the file is ".junkmail.work"; in vacation mode, the
  496. + # file is ".junkmail.vacation".
  497. + #
  498. + # The junkmail lists contain names of mailing lists which are to be
  499. + # subject to junking; that is, mail with headers having one of these
  500. + # junk mailing list names in either the To: or Cc: header, and NOT 
  501. + # directly addressed to the user are junked.
  502. + #
  503. + # As part of the junking, a log file is kept, called ".junkmail.log";
  504. + # the From:, Date:, To:, Cc:, and Subject: lines are recorded.
  505. + #
  506. + # The ".junkmail.work" is especially useful for those occasions when
  507. + # a particular mailing list gets crowded with some emotional issue
  508. + # for which you have no interest.  Rather than having your name removed
  509. + # from the mailing list, just filter it until the signal-to-noise
  510. + # ratio improves (which can be deteremined by scanning the log file
  511. + # periodically).
  512. + #
  513. + ($Prog = $0) =~ s=^/.*([^/]+)$=$1=; # get plain program name
  514. + 
  515. + require 'audit.pl' || die "~/.audit: cannot include audit.pl: $@";
  516. + 
  517. + # Only if you need some of the mh functions
  518. + # require 'mh.pl'  || die "~/.audit: cannot include mh.pl: $@";
  519. + 
  520. + &initialize();
  521. + 
  522. + $HOME = $ENV{'HOME'};
  523. + $VacaJunkMail = "$HOME/.junkmail.vacation";
  524. + $WorkJunkMail = "$HOME/.junkmail.work";
  525. + $JunkLogFile =    "$HOME/.junkmail.log";
  526. + 
  527. + $OnVacation = -f "$HOME/.vacation.msg";
  528. + $AtWork = ! $OnVacation;
  529. + 
  530. + # If this message came from the MAILER, deliver it to me directly
  531. + # and do nothing else.
  532. + 
  533. + ($from =~ /MAILER/) && do { &deliver(); exit; };
  534. + 
  535. + # If the sender's name is in the password file, the organization
  536. + # is local
  537. + 
  538. + $local_org = $ENV{'ORGANIZATION'};
  539. + chop($local_org = `cat $HOME/.organization`) 
  540. +     if -f "$HOME/.organization" && !length($local_org);
  541. + 
  542. + if ($local_org) {
  543. +     $organization = $local_org if ($logname = (getpwnam($from))[0]);
  544. + }
  545. + 
  546. + # If I am specifically named on the To or Cc line, do the default.
  547. + 
  548. + unshift(@MyNames,$user);
  549. + 
  550. + foreach $name (@MyNames) {
  551. +     if (grep(/^$name/i, @to, @cc)) {
  552. +     &deliver();            # deposit in my mailbox
  553. +     &vacation() if $OnVacation;    # do the vacation response (maybe)
  554. +     exit;
  555. +     }
  556. + };
  557. + 
  558. + # The mail wasn't sent directly to me, so, if I'm at work, look for 
  559. + # any junkmail list names
  560. + 
  561. + if ($AtWork) {
  562. +     foreach $junkname (&ReadNames($WorkJunkMail)) {
  563. +     $junkname =~ s/([-+.])/\\$1/g;    # make grep-safe
  564. +     &Junk if grep(/^$junkname/i, @to, @cc);
  565. +     }
  566. + }
  567. +     
  568. + # this mail was not sent to me directly, nor was it on the at-work junk 
  569. + # mailing list, so now check for at-vacation junk mails, if I'm on vacation.
  570. + 
  571. + if ($OnVacation) {
  572. +     foreach $junkname (&ReadNames($VacaJunkMail)) {
  573. +     $junkname =~ s/([-+.])/\\$1/g;    # make grep-safe
  574. +     &Junk if grep(/^$junkname/i, @to, @cc);
  575. +     }
  576. + }
  577. + 
  578. + # Oh well, some mailing list which might be important.
  579. + 
  580. + &deliver();
  581. + exit;
  582. + 
  583. + # Subroutine ReadNames -- opens a file and reads all the names within it,
  584. + # allowing for comments lines and commented lines
  585. + 
  586. + sub ReadNames {
  587. +     local($file) = @_;
  588. +     local($_);
  589. +     local(@names,$name);
  590. +     return () unless -f $file;
  591. +     if (open(LIST,$file)) {
  592. +     while (<LIST>) {
  593. +         next if /^\s*#/;
  594. +         s/\s*\#.*$//;    # strip comments
  595. +         next if /^\s*$/;    # ignore empty lines
  596. +         push(@names,split(' '));
  597. +     }
  598. +     close LIST;
  599. +     } else {
  600. +     warn "$Prog: can't read $file because $!\n";
  601. +     }
  602. +     @names;
  603. + }
  604. + 
  605. + sub Junk {
  606. +     local($hdr) = "%-9s %s\n";
  607. +     if (open(LOG,">>$JunkLogFile")) {
  608. +     $friendly = '' if $friendly eq 'unknown';
  609. +     $organization = '' if $organization eq 'unknown';
  610. +     $from = '"'.$friendly.'"' if $friendly;
  611. +     $from .= ' <'.$address.'>';
  612. +     $from .= ' ('.$organization.')' if $organization;
  613. +     printf LOG $hdr,'From:',$from;
  614. +     printf LOG $hdr,'Date:',$headers{'date'};
  615. +     printf LOG $hdr,'To:',join(', ',@to) if $#to >= $[;
  616. +     printf LOG $hdr,'Cc:',join(', ',@cc) if $#cc >= $[;
  617. +     printf LOG $hdr,'Subject:',$subject;
  618. +     printf LOG "\n";
  619. +     close LOG;
  620. +     }
  621. +     exit;
  622. + }
  623.