#!/usr/bin/perl

require "cookies.pl";
require "utils.pl";
require "db.pl";

&authenticate();
&get_userinfo($userid, \%user);

if(!$ENV{QUERY_STRING} && $ENV{REQUEST_METHOD} ne "POST") {
  print "Status: 302 Found\nLocation: http://$ENV{SERVER_NAME}/\n\n";
  exit(0);
}

&parseform($ENV{QUERY_STRING}, \%form);
if($form{id}) {
  $invitation_id = $form{id};

  if( my @email_addresses = grep { /invite\./ } keys %form ) {
    map { s/invite\.//; } @email_addresses;
    &add_invitees($invitation_id,\@email_addresses);
    print "Status: 302 Found\nLocation: http://$ENV{SERVER_NAME}/invite.cgi?id=$invitation_id\n\n";
    exit(0);
  }
}
&load_invitation($invitation_id, $invitee{email_address_id}, \%invite, \@emails, \@messages, \@polls);
if(!%invite) {
  print "Status: 302 Found\nLocation: http://$ENV{SERVER_NAME}/\n\n";
  exit(0);
}

my @uninvited = &all_email_addresses();

use Date::Manip;

print $headers,"\n";
print $leadin;

print qq[<FONT SIZE=6>$invite{name}</FONT><BR>\n];
print qq[<FONT SIZE=2>], UnixDate($invite{event_date}, $dateformat), qq[</FONT><BR CLEAR=ALL>\n];
print qq[<CENTER>\n];
print qq[<TABLE WIDTH=600 CELLPADDING=2 CELLSPACING=0>\n];
for($i=0;$i<@emails;$i++) {
  @uninvited = grep { $_->{email_address} ne $emails[$i]->{email_address} } @uninvited;
  print qq[<TR BGCOLOR=#], $i%2 ? "222222" : "333333",qq[ VALIGN=TOP>];
  print qq[<TD ALIGN=RIGHT><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>], ($i+1), qq[</FONT></TD>];
  print qq[<TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>], $invitee{email_address_id} == $emails[$i]->{email_address_id} ? "<B>":"";
  print $emails[$i]->{name}, "  &lt;" if $user{perms}{admin};
  print $emails[$i]->{email_address};
  print "&gt;" if $user{perms}{admin};
  print $invitee{email_address_id} == $emails[$i]->{email_address_id} ? "</B>":"", qq[</FONT></TD>];
  print qq[<TD VALIGN=CENTER ALIGN=CENTER><IMG SRC="];
  if($emails[$i]->{response} eq "Maybe") {
    print "yellow";
  } elsif($emails[$i]->{response} eq "No") {
    print "red";
  } elsif($emails[$i]->{response} eq "Yes") {
    print "green";
  } elsif($emails[$i]->{mail_sent} eq 'N') {
    print "black";
  } elsif($emails[$i]->{response} eq "No Response") {
    print "grey";
  }
  print qq[light.gif" WIDTH=20 HEIGHT=20 BORDER=0></TD>];
  print qq[<TD VALIGN=CENTER ALIGN=CENTER><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>], ($emails[$i]->{response} eq "Yes" || $emails[$i]->{response} eq "Maybe") ? $emails[$i]->{guestcount} : "&nbsp;", qq[</FONT></TD>] if $userid == $invite{owner};
  print qq[</TR>\n];
}
print qq[</TABLE>\n];
print qq[<BR>\n];
print qq[<TABLE WIDTH=600 CELLPADDING=2 CELLSPACING=0>\n];
print qq[<FORM METHOD=POST ACTION="invite_from_list.cgi">\n];
print qq[<INPUT TYPE=HIDDEN NAME=id VALUE="$invite{invitation_id}">\n];
for($i=0;$i<@uninvited;$i++) {
  print qq[<TR BGCOLOR=#], $i%2 ? "222222" : "333333",qq[ VALIGN=TOP>];
  print qq[<TD ALIGN=RIGHT><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>], ($i+1), qq[</FONT></TD>];
  print qq[<TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>];
  print $uninvited[$i]->{name}, "  &lt;" if $user{perms}{admin};
  print $uninvited[$i]->{email_address};
  print "&gt;" if $user{perms}{admin};
  print qq[</FONT></TD>];
  print qq[<TD VALIGN=CENTER ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME="invite.$uninvited[$i]->{email_address}"></TD>];
  print qq[</TR>\n];
}
print qq[<TR BGCOLOR=#], $i%2 ? "222222" : "333333",qq[ VALIGN=TOP><TD COLSPAN=3 ALIGN=RIGHT>];
print qq[<INPUT TYPE=SUBMIT VALUE="Invite More" ALIGN=RIGHT>\n];
print qq[</TD></TR>\n];
print qq[</FORM>\n];
print qq[</TABLE>\n];
print qq[</CENTER>\n];

print $leadout;