home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume30 / netvote / part01 / multi / cfv.config < prev    next >
Encoding:
Text File  |  1992-06-19  |  1.5 KB  |  49 lines
  1. #######################CONFIGURE THESE CONSTANTS
  2. #
  3. # Pathname of working directory (all files relative to here)
  4. $cfv_dir="/home/dave/news/cfv/ads";    
  5. #
  6. # Groups you are running a vote for
  7. @groups = ("soc.personals.ads.male.seeking-male",
  8.        "soc.personals.ads.male.seeking-female",
  9.        "soc.personals.ads.female.seeking-male",
  10.        "soc.personals.ads.female.seeking-female");
  11. #
  12. # Pathnames of some files (probably won't need to change these)
  13. $mass_ack   = "$cfv_dir/mass_acknowledge"; # Where the currently voted people go
  14. $votes      = "$cfv_dir/votes";              # Where the votes go
  15. $single_ack = "$cfv_dir/acknowledge";       # Canned vote acknowledgement 
  16. $refused    = "$cfv_dir/refused";          # Canned vote refusal
  17. #
  18. # Other parameters
  19. $start_date = "4/16/92 06:00";               # Votes start at this time
  20. $end_date   = "5/18/92 18:00";             # Votes end at this time. 
  21. $moderator  = "dave@elxr";                 # Who to send errors to
  22. $backup_err = "$cfv_dir/errors";           # Where to send errors to if above fails
  23. #
  24. # Regexp definitions.
  25. # The software looks for a match such that one of the below regexps
  26. preceeds one of the 
  27. # above newsgroups. Note the "\\" used to denote a "\", thus a PERL token of "\n"
  28. # should be written as "\\n" below. 
  29. #
  30. # Valid YES vote substring regexps.
  31. @yesvotes = (
  32.          "\\sy\\s",
  33.          "yes",
  34.          "in.*favo[ur].*"
  35. );
  36. #
  37. # Valid NO vote substring regexps
  38. @novotes = (
  39.         "\\sn\\s",
  40.         "no",
  41.         "against.*"
  42. );
  43. #
  44. # Why'd Larry make us do this junk?
  45. 1;
  46.  
  47.  
  48.  
  49.