home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume30 / netvote / part01 / multi / official < prev    next >
Encoding:
Text File  |  1992-06-19  |  3.2 KB  |  144 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. # Get config
  12. # 
  13. require 'cfv.config';
  14. #
  15. # Raw, time-ordered, data
  16. #
  17. @votes = `cat votes`;
  18. #
  19. # This builds an associative array that has cleaned data
  20. #
  21. $y =0; $n = 0;
  22. for ($i=0; $i<=$#votes; $i++) {
  23.     if ($votes[$i] =~ /^\[([YNA])\]\s+(\S+)\s+(.*)/) {
  24.     $p = "$3\n"; 
  25.     push(@people,$p) if (grep($_ eq $p,@people) == 0);
  26.     $g = $2;
  27.     $v = $1;
  28.     } else {
  29.     print "Bad syntax in vote: <$votes[$i]>\n";
  30.     next;
  31.     } 
  32.     if (!defined($vote{$p,$g})) {
  33.     if ($v eq "Y") {
  34.         $vote{$p,$g} = "yes";
  35.         $y++;
  36.     } elsif ($v eq "N") {
  37.         $vote{$p,$g} = "no";
  38.         $n++;
  39.     } elsif ($v eq "A") {
  40.         $vote{$p,$g} = "abs";
  41.         $n++;
  42.     } else { 
  43.         print "Bad vote: <$votes[$i]>\n";
  44.     }
  45.     next;
  46.     }
  47.     $first{$p,$g} = $vote{$p,$g} if (!defined($first{$p,$g}));
  48.     if ($v eq "Y") {
  49.     $last{$p,$g} = "yes";
  50.     $y++;
  51.     } elsif ($v eq "N") {
  52.     $last{$p,$g} = "no";
  53.     $n++;
  54.     } elsif ($v eq "A") {
  55.     $last{$p,$g} = "abs";
  56.     $n++;
  57.     } else { 
  58.     print "Bad vote: <$votes[$i]>\n";
  59.     }
  60.     $vote{$p,$g} = "dup";
  61. }
  62. #
  63. # Filter the array appropriately
  64. #
  65. print "[DAVE'S AUTOMATIC USENET CFV HANDLER - Rev 2]\n";
  66.  
  67. foreach $group (@groups) {
  68.     @tmass = @people;
  69.     @tyes  = grep($vote{$_,$group} eq "yes",@tmass);
  70.     @tno   = grep($vote{$_,$group} eq "no",@tmass);
  71.     @tdups = grep($vote{$_,$group} eq "dup",@tmass);
  72. #
  73. # Now deal with duplicates. 
  74. #
  75.     if ($ARGV[0] eq "-l") {
  76.     $method = "Last vote taken as valid";
  77.     foreach $person (@tdups) {
  78.         push(@tyes,$person) if ($last{$person,$group} eq "yes");
  79.         push(@tno,$person) if ($last{$person,$group} eq "no");
  80.         $vote{$person,$group} = $last{$person,$group};
  81.     }
  82.     } elsif ($ARGV[0] eq "-f") {
  83.     $method = "First vote taken as valid";
  84.     foreach $person (@tdups) {
  85.         push(@tyes,$person) if ($first{$person,$group} eq "yes");
  86.         push(@tno,$person) if ($first{$person,$group} eq "no");
  87.         $vote{$person,$group} = $first{$person,$group};
  88.     }
  89.     } elsif ($ARGV[0] eq "-d") {
  90.     $method = "Duplicates discarded";
  91.     } else {
  92.     die "Illegal argument: $ARGV[0]\n";
  93.     }
  94.  
  95. # Tally ho!
  96. #
  97.     $tyes = $#tyes + 1;
  98.     $tno  = $#tno + 1;
  99.     $tmass = $#tmass + 1;
  100.     $tdups =  $#tdups + 1;
  101.     $tmass -= $tdups if ($tdups > 0);
  102.     $pyes = $tyes/$tmass * 100; $pyes = sprintf("%02.2f",$pyes);
  103.     $pno  = $tno/$tmass * 100;  $pno  = sprintf("%02.2f",$pno);
  104.     $pct  = $tyes + $tno;
  105.     $pdiff = $tyes - $tno;
  106.  
  107.     print "
  108.    NewsGroup: $group
  109. Total  Votes: $tmass\t
  110. Yes    Votes: $tyes\t($pyes%)
  111. No     Votes: $tno\t($pno%)
  112. Yes-No Votes: $pdiff
  113. Duplicates:   $tdups 
  114. Duplicate Resolution: $method\n";
  115. }
  116.  
  117. print "\nVote Key - Number refers to column:\n";
  118. for $i (0..$#groups) {
  119.     print "\t$i: $groups[$i]\n";
  120.     $k = $i % 10; $m = int($i/10);
  121.     $row1 .= "$m";
  122.     $row2 .= "$k";
  123.     $row3 .= "=";
  124. }
  125. print "
  126. -VOTE COLUMN-
  127. $row1
  128. $row2
  129. $row3
  130. ";
  131.  
  132. foreach $p (sort @people) {
  133.     for $i (0..$#groups) {
  134.     print "Y" if ($vote{$p,$groups[$i]} eq "yes");
  135.     print "N" if ($vote{$p,$groups[$i]} eq "no");
  136.     print "A" if ($vote{$p,$groups[$i]} eq "abs");
  137.     }
  138.     print "\t\t$p";
  139. }
  140.  
  141.  
  142.  
  143.  
  144.