?r=1

#!/usr/bin/perl

use CGI qw(:standard);
use CGI::Cookie;
use LWP::Simple;

$date = localtime;

$header = get_file("../header");
$footer = get_file("../footer");

%cookies = fetch CGI::Cookie;

if ( param('e') and param('d') ) {
  &add_results;
  $cookies{'D'} = new CGI::Cookie(-name=>'D', -value=>$date);
}

if (%cookies) {
  print header(-cookie=>$cookies{'D'}), start_html("dc214 meeting poll"), $header;
} else {
  print header, start_html("dc214 meeting poll"), $header;
}

if ($cookies{'D'} or param('r') ) {
  &results;
} else {
  &poll;
}

print $footer;
exit;

sub poll {
  print "<div align=center><a href=?r=42>See The Current Results<a><br><br><form method=POST><table>\n";
  print "<tr><th align=left><input type=radio name=d value=1> Second Wednesday of Each Month</th></tr>\n";
  print "<tr><th align=left><input type=radio name=d value=2> Second Thursday of Each Month</th></tr>\n";
  print "<tr><th align=left><input type=radio name=d value=3> Last Sunday of Each Month</th></tr>\n";
  print "<tr><th align=left><input type=radio name=d value=4> Never Meet Again</th></tr>\n";
  print "</table><br><br>\n";

  print "<br><br><input name=e> Email Address<br><br><input type=submit value='Vote'></form></div>\n";

}

sub results {
  open(FH, "thisisit");
  @results = <FH>;
  close(FH);
  for $line (@results) {
    chomp $line;
    ($e,$d) = split(':', $line);
    $d{$d}++;
    $c++;
  }
  $mc = `wc -l /usr/local/majordomo/lists/dc214`;
  $mc =~ s/^\s*(\d+)\s*.*$/$1/;
  $mperc = int($c/$mc * 100) . "%"; 
  print "<div align=center>$mperc of the $mc list members have voted.  Here are the results:<b><br>\n";
  for $d (1..4) {
    if (!$d{$d}) { $perc{$d} = '0%'; } else {
      $perc{$d} = int($d{$d}/$c * 100) . "%"; }
  }
  print "<br>Meeting Vote<br><br>\n";
  print "<table>";
  print "<tr><td><hr></td></tr>\n";
  print "<tr><td><b>$perc{1}</b> Second Wednesday of Each Month</td></tr>\n";
  print "<tr><td><b>$perc{2}</b> Second Thursday of Each Month</td></tr>\n";
  print "<tr><td><b>$perc{3}</b> Last Sunday of Each Month </td></tr>\n";
  print "<tr><td><b>$perc{4}</b> Never Meet Again</td></tr>\n";
  print "</table>";

}

sub add_results {
  my $email = param('e');
  my $day = param('d');
  my $IP = $ENV{REMOTE_ADDR};
  $email =~ s/[^\w\@\-\.]//g;
  $rc = `grep $email /usr/local/majordomo/lists/dc214`;
  chomp $rc;
  if (!$rc or $rc ne $email) {
    &error("Sorry, you have to be part of the list to vote. Be sure and <a href=/.go/forums>Subscribe</a> today. ($rc)");
  }
  open(FH, "thisisit");
  @results = <FH>;
  close(FH);
  $new_results = "";
  for $line (@results) {
    chomp $line;
    ($e,$d,$oIP) = split(':', $line);
    if ($e eq $email) {
      $new_results .= "$email:$day:$IP\n";
      $flag++;
    } else {
      $new_results .= "$e:$d:$oIP\n";
    }
  }
  if (!$flag) {
    $new_results .= "$email:$day:$IP\n";
  } else {
    ¬ify($email);
  }
  open(FH, ">thisisit") || &error("$!");
  print FH $new_results;
  close(FH);
}

sub get_file {
  my ($file) = @_;
  my $line = '';
  open (FILE, $file) or die "$file: $!";
  my @data = <FILE>;
  close(FILE);
  for $line (@data) {
    if ($line =~ /\<\!\-\-\#include virtual\=\"(\S+)\"\-\-\>/) {
      my $url = $1;
      if ($url !~ /^http/) {
        $url = "http://$ENV{SERVER_NAME}/$url";
      }
      $content = get($url);

      $line =~ s/\<\!\-\-\#include virtual\=\"(\S+)\"\-\-\>/<!--START $1-->$content<!--END $1-->/;
    }
  }
  my $data = join("", @data);
  return $data;
}

sub error {
  my ($error) = @_;
  print header, start_html("dc214 meeting poll"), $header;
  print $error, $footer;
  exit;
}

sub notify {
  ($email) = @_;
  open(MAIL, "|/usr/sbin/sendmail -t");
   print MAIL "To: $email\n";
   print MAIL "From: madhat\@dc214.org\n";
   print MAIL "Subject: Changed your vote\n\n";
   print MAIL "Someone, hopefully you, changed your vote at:\n";
   print MAIL "http://www.dc214.org/day/ ";
   print MAIL "from $ENV{REMOTE_ADDR}\n\n";
  close(MAIL);
}