home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume30 / netvote / part01 / single / cfv_handler.pl < prev    next >
Encoding:
Perl Script  |  1992-06-19  |  6.9 KB  |  261 lines
  1. #!/usr/bin/perl
  2. #
  3. # CFV_HANDLER - Handle a CFV from usenet. Expects candidate messages on STDIN.
  4. # 
  5. # Copyright (c) 1991 by    Dave Hayes - dave@elxr.jpl.nasa.gov
  6. #
  7. # All rights reserved.
  8. #
  9. # Permission is given to distribute these sources, as long as the
  10. # copyright messages are not removed, and no monies are exchanged.
  11. #
  12. #######################CONFIGURE HERE
  13. #
  14. # Pathname of working directory (all files relative to here)
  15. $cfv_dir="/home/dave/news/cfv/sec";    
  16. #
  17. # Group you are running a vote for
  18. $group = "comp.security.misc";
  19. #
  20. # Pathnames of some files (shouldn't need to change these)
  21. $mass_ack   = "$cfv_dir/mass_acknowledge"; # Where the currently voted people go
  22. $votes      = "$cfv_dir/votes";              # Where the votes go
  23. $single_ack = "$cfv_dir/acknowledge";       # Canned vote acknowledgement 
  24. $refused    = "$cfv_dir/refused";          # Canned vote refusal
  25. # 
  26. # Other things
  27. $start_date = "4/13/92 06:00";               # Voting starts 
  28. $end_date   = "5/13/92 18:00";             # Voting ends
  29. $moderator  = "dave@elxr";                 # Who to send errors to
  30. $backup_err = "$cfv_dir/errors";           # Where to send errors to if above fails
  31. #
  32. # Regexp definitions.
  33. # The software looks for a match such that one of the below regexps
  34. preceeds one of the
  35. # above newsgroups. Note the "\\" used to denote a "\", thus a PERL token of "\n"
  36. # should be written as "\\n" below.
  37. #
  38. # Valid YES vote substrings
  39. @yesvotes = (
  40.          "yes.*$group",
  41.          "in.*favo[ur].*$group"
  42. );
  43. #
  44. # Valid NO vote regexps
  45. @novotes = (
  46.         "no.*$group",
  47.         "against.*$group"
  48. );
  49. #
  50. #####################END OF CONFIGURATION STUFF!
  51. #
  52. $debug = 0;     # Use this if you want verbosity on ERRLOG
  53. #
  54. # This may be a faster way to read messages. With MailMan I didn't
  55. # care if the message was in an array. Here I do cause I'm searching the
  56. # body.
  57. # Thanks to goehring@mentor.cc.purdue.edu (Scott Goehring)
  58. $* = 1;
  59. $save = $/; undef $/; $message = <STDIN>; $/ = $save;
  60. study $message;
  61. ($from) = $message =~ /^From: (.+)$/;
  62. ($subject) = $message =~ /^Subject: (.+)$/;
  63. $subject =~ tr/A-Z/a-z/;
  64. &maildebug("Message from '$from' with subject '$subject'");
  65. #
  66. # Check that we have a valid subject
  67. foreach $sub (@subjects) {
  68.     $found = 1 if ($subject =~ /$sub/i);
  69. }
  70. if (!defined($found)) {
  71.     &mailwarn("Invalid subject. (@subjects) Message follows:");
  72.     print ERRLOG $message;
  73.     &maildie("EOT.",0);
  74. }
  75. #
  76. # Check the date now. Must be within bounds
  77. ($smon,$sday,$syr,$shr,$smin) = split(/[\s\:\/]/,$start_date);
  78. ($emon,$eday,$eyr,$ehr,$emin) = split(/[\s\:\/]/,$end_date);
  79. ($x1,$cmin,$chr,$cday,$cmon,$cyr,$x2,$x3,$x4) = (localtime);
  80. $s = &numdate($syr,$smon,$sday,$shr,$smin);
  81. $e = &numdate($eyr,$emon,$eday,$ehr,$emin);
  82. $c = &numdate($cyr,$cmon+1,$cday,$chr,$cmin);
  83. if ($s > $c || $c > $e) {
  84.     &mailwarn("Invalid date to vote. Message follows:");
  85.     print ERRLOG $message;
  86.     open(ACK,"<$refused") || &mailwarn("Couldn't open '$refused': out
  87. of date vote from '$from': $!"); 
  88.     open(MAIL,"|/usr/lib/sendmail -t") || &mailwarn("Couldn't pipe to
  89. mail: out of date vote from '$from'"); 
  90.     print MAIL <<EOT;
  91. From: $moderator
  92. To: $from
  93. Subject: Error in your vote
  94. EOT
  95.     print MAIL <ACK>;
  96.     print MAIL "\nYour vote is not with in the date bounds
  97. '$start_date' and '$end_date'.\n";
  98.     close(MAIL);
  99.     &maildie("EOT.",0);
  100. }
  101.  
  102. #
  103. # Now check for a valid vote.
  104. foreach $yv (@yesvotes) {
  105.     if ($message =~ /$yv/i) {
  106.     #
  107.     # A YES vote
  108.     #
  109.     open(MASS,">>$mass_ack") || &mailwarn("Couldn't open
  110. '$mass_ack': YES vote from '$from' : ($<,$>) $!");
  111.      print MASS "$from\n";
  112.     close(MASS);
  113.     open(VOTES,">>$votes") || &mailwarn("Couldn't open '$votes':
  114. YES vote from '$from' : ($<,$>) $!");
  115.     print VOTES "[Y] $from\n";
  116.     close(VOTES);
  117.     open(ACK,"<$single_ack") || &mailwarn("Couldn't open
  118. '$single_ack': YES vote from '$from': $!"); 
  119.     open(MAIL,"|/usr/lib/sendmail -t") || &mailwarn("Couldn't pipe
  120. to mail: out of date vote from '$from'"); 
  121.     print MAIL <<EOT;
  122. From: $moderator
  123. To: $from
  124. Subject: Your vote
  125. EOT
  126.     print MAIL <ACK>;
  127.     print MAIL "\nYour YES vote was recorded successfully.\n";
  128.     close(MAIL); close(ACK);
  129.     &maildie("",0);
  130.     }
  131. }
  132. foreach $nv (@novotes) {
  133.     if ($message =~ /$nv/i) {
  134.     #
  135.     # A NO vote
  136.     #
  137.     open(MASS,">>$mass_ack") || &mailwarn("Couldn't open
  138. '$mass_ack': NO vote from '$from' : $!");
  139.     print MASS "$from\n";
  140.     close(MASS);
  141.     open(VOTES,">>$votes") || &mailwarn("Couldn't open '$votes': NO
  142. vote from '$from' : $! ");
  143.     print VOTES "[N] $from\n";
  144.     close(VOTES);
  145.     open(ACK,"<$single_ack") || &mailwarn("Couldn't open
  146. '$single_ack': NO vote from '$from' : $!"); 
  147.     open(MAIL,"|/usr/lib/sendmail -t") || &mailwarn("Couldn't pipe
  148. to mail: out of date vote from '$from'"); 
  149.     print MAIL <<EOT;
  150. From: $moderator
  151. To: $from
  152. Subject: Your Vote
  153. EOT
  154.     print MAIL <ACK>;
  155.     print MAIL "\nYour NO vote was recorded successfully.\n";
  156.     &maildie("",0);
  157.     }
  158. }
  159. #
  160. # If we get here this is an invalid vote
  161. open(ACK,"<$refused") || &mailwarn("Couldn't open '$refused': INVALID
  162. vote from '$from' : $!"); 
  163. open(MAIL,"|/usr/lib/sendmail -t") || &mailwarn("Couldn't pipe to
  164. mail: out of date vote from '$from'"); 
  165. print MAIL <<EOT;
  166. From: $moderator
  167. To: $from
  168. Subject: Error in your vote
  169. EOT
  170. print MAIL <ACK>;
  171. print MAIL "\nNo valid vote could be found in your message.\n\nValid
  172. YES votes are of the wildcard form:\n\n";
  173. print MAIL join("\n",@yesvotes);
  174. print MAIL "\n\nValid NO votes are of the wildcard form:\n\n";
  175. print MAIL join("\n",@novotes);
  176. close(ACK); close(MAIL);
  177. $message =~ s/^/>>>/g;
  178. &mailwarn("Invalid vote. Message follows:\n\n$message");
  179. &maildie("EOT",0);
  180.  
  181. ######
  182. ###### SUBROUTINES GO HERE
  183. ######
  184. sub mailwarn {
  185.     local($reason) = shift(@_);
  186.     &setup_mail if (!defined($mail_is_on));
  187.     print ERRLOG <<EOT;
  188. From: cfv_daemon
  189. To: $moderator
  190. Subject: CFV daemon report
  191.  
  192. Warning about Mail from: '$from' with subject: '$subject':
  193. Reason: $reason.
  194. EOT
  195.  
  196. }
  197. sub maillog {
  198.     local($reason) = shift(@_);
  199.  
  200.     &setup_mail if (!defined($mail_is_on));
  201.     print ERRLOG <<EOT;
  202. From: cfv_daemon
  203. To: $moderator
  204. Subject: CFV daemon report
  205.  
  206. Mail from: '$from' with subject: '$subject' logged:
  207. Reason: $reason.
  208. EOT
  209.     close(ERRLOG);
  210. }
  211. sub maildebug {
  212.     local($reason) = shift(@_);
  213.     
  214.     return 0 if (!$debug);
  215.     &setup_mail if (!defined($mail_is_on));
  216.     print ERRLOG <<EOT;
  217. From: cfv_daemon
  218. To: $moderator
  219. Subject: CFV daemon report
  220.  
  221. Debug Mail from: '$from' with subject: '$subject':
  222. Reason: $reason.
  223. EOT
  224. }
  225.  
  226. sub maildie {    
  227.     local($reason) = shift(@_);
  228.     local($exitcode) = shift(@_);
  229.  
  230.     exit 0 if ($exitcode == 0);
  231.     &setup_mail if (!defined($mail_is_on));
  232.     print ERRLOG <<EOT;
  233. From: cfv_daemon
  234. To: $moderator
  235. Subject: CFV daemon report
  236.  
  237. Mail from: '$from' with subject: '$subject' failed:
  238. Reason: $reason.
  239. EOT
  240.     close(ERRLOG);
  241.     exit $exitcode;
  242. }
  243.  
  244. sub numdate {
  245.     local($y,$m,$d,$mn,$h) = @_;
  246.     local($n);
  247.  
  248.     $n = $h + (100*$mn) + (10000*$d) + (1000000*$m) + ($y * 100000000);
  249.     &maildebug("Converted ($y,$m,$d,$mn,$h) to $n");
  250.     return $n;
  251. }
  252.     
  253. sub setup_mail {
  254.     $mail_is_on = 1;
  255.     if (!open(ERRLOG,"| /usr/lib/sendmail -t")) {
  256.     open(ERRLOG,">>$backup_err") || warn "Augh! Can't redirect
  257. ERRLOG to someplace useful!\n";
  258.    }
  259.     select(ERRLOG); $| = 1; 
  260. }
  261.