home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume30 / netvote / part01 / single / official < prev    next >
Encoding:
Text File  |  1992-06-19  |  2.4 KB  |  110 lines
  1. #!/usr/bin/perl
  2. # 
  3. #    OFFICIAL - official status of CFV
  4. #            and deal with duplicates properly
  5. #
  6. die "usage: official [-l|-f|-d]
  7. \twhere -l does last vote priority
  8. \t      -f does first vote priority
  9. \t      -d discards duplicates\n" if (!defined($ARGV[0]));
  10. #
  11. # Raw, time-ordered, data
  12. #
  13. @votes = `cat votes`;
  14. #
  15. # This builds an associative array that has cleaned data
  16. #
  17. $y =0; $n = 0;
  18. for ($i=0; $i<=$#votes; $i++) {
  19.     if ($votes[$i] =~ /^\[([YN])\]\s+(.*)/) {
  20.     $p = "$2\n";
  21.     $v = $1;
  22.     } else {
  23.     print "Bad syntax in vote: <$votes[$i]>\n";
  24.     next;
  25.     } 
  26.     if (!defined($vote{$p})) {
  27.     if ($v eq "Y") {
  28.         $vote{$p} = "yes";
  29.         $y++;
  30.     } elsif ($v eq "N") {
  31.         $vote{$p} = "no";
  32.         $n++;
  33.     } else { 
  34.         print "Bad vote: <$votes[$i]>\n";
  35.     }
  36.     next;
  37.     }
  38.     $first{$p} = $vote{$p} if (!defined($first{$p}));
  39.     if ($v eq "Y") {
  40.     $last{$p} = "yes";
  41.     $y++;
  42.     } elsif ($v eq "N") {
  43.     $last{$p} = "no";
  44.     $n++;
  45.     } else { 
  46.     print "Bad vote: <$votes[$i]>\n";
  47.     }
  48.     $vote{$p} = "dup";
  49. }
  50. #
  51. # Filter the array appropriately
  52. #
  53. @tmass = keys(%vote);
  54. @tyes  = grep($vote{$_} eq "yes",@tmass);
  55. @tno   = grep($vote{$_} eq "no",@tmass);
  56. @tdups = grep($vote{$_} eq "dup",@tmass);
  57. #
  58. # Now deal with duplicates. 
  59. #
  60. if ($ARGV[0] eq "-l") {
  61.     $method = "Last vote taken as valid";
  62.     foreach $person (@tdups) {
  63.     push(@tyes,$person) if ($last{$person} eq "yes");
  64.     push(@tno,$person) if ($last{$person} eq "no");
  65.     }
  66. } elsif ($ARGV[0] eq "-f") {
  67.     $method = "First vote taken as valid";
  68.     foreach $person (@tdups) {
  69.     push(@tyes,$person) if ($first{$person} eq "yes");
  70.     push(@tno,$person) if ($first{$person} eq "no");
  71.     }
  72. } elsif ($ARGV[0] eq "-d") {
  73.     $method = "Duplicates discarded";
  74. } else {
  75.     die "Illegal argument: $ARGV[0]\n";
  76. }
  77. #
  78. # Tally ho!
  79. #
  80. $tyes = $#tyes + 1;
  81. $tno  = $#tno + 1;
  82. $tmass = $#tmass + 1;
  83. $tdups =  $#tdups + 1;
  84. $tmass -= $tdups if ($ARGV[0] eq "-d" && $tdups > 0);
  85. $pyes = $tyes/$tmass * 100; $pyes = sprintf("%02.2f",$pyes);
  86. $pno  = $tno/$tmass * 100;  $pno  = sprintf("%02.2f",$pno);
  87. $pct  = $tyes + $tno;
  88. $pdiff = $tyes - $tno;
  89.  
  90. print "
  91. [DAVE'S AUTOMATIC USENET CFV HANDLER]
  92.  
  93. Total  Votes: $tmass\t
  94. Yes    Votes: $tyes\t($pyes%)
  95. No     Votes: $tno\t($pno%)
  96. Yes-No Votes: $pdiff
  97.  
  98. Duplicates:   $tdups 
  99. Duplicate Resolution: $method\n\n";
  100.  
  101. if ($ARGV[0] eq "-d" && $tdups > 0) {
  102.     print "DUPLICATES:\n"; print @tdups; print "\n\n";
  103. }
  104.  
  105. print "YES VOTES:\n"; print (sort @tyes);
  106. print "\n\nNO VOTES:\n"; print (sort @tno);
  107.  
  108.  
  109.  
  110.