#!/usr/bin/perl

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

&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);
&authenticate() unless $form{invitee};
if($form{id}) {
  $invitation_id = $form{id};

  if($form{set_ready}) {
    &set_invitation_ready($invitation_id);
    print "Status: 302 Found\nLocation: http://$ENV{SERVER_NAME}/invite.cgi?id=$invitation_id\n\n";
    exit(0);
  }
  if($form{emails}) {
    my $emails = &unescape($form{emails});
    my @emails = parse_email_list($emails);
    &add_invitees($invitation_id,\@emails);
    print "Status: 302 Found\nLocation: http://$ENV{SERVER_NAME}/invite.cgi?id=$invitation_id\n\n";
    exit(0);
  }
  if($form{message}) {
    my $message = &unescape($form{message});
    my $subject = &unescape($form{subject});
    my $send_to = &unescape($form{send_to});
    &add_invitation_message($invitation_id,$message,$subject,$send_to);
    print "Status: 302 Found\nLocation: http://$ENV{SERVER_NAME}/invite.cgi?id=$invitation_id\n\n";
    exit(0);
  }
} elsif($form{invitee}) {
  &load_invitee($form{invitee}, \%invitee);
  $invitation_id = $invitee{invitation_id};

  if($form{rsvp}) {
    $form{comments} = &unescape($form{comments});
    $form{comments} =~ s/\r\n?/\n/gs;
    $form{comments} =~ s/^\s+//gs;
    $form{comments} =~ s/\s+$//gs;
    $form{comments} = undef unless $form{comments};
    &set_invitee_response($form{invitee}, $form{rsvp}, $form{guestcount}, $form{comments});
    print "Status: 302 Found\nLocation: http://$ENV{SERVER_NAME}/invite.cgi?invitee=$form{invitee}\n\n";
    exit(0);
  }
  if( my @responses = grep { /poll\./ } keys %form ) {
    foreach my $poll_id (@responses) {
      my $answer = $form{$poll_id};
      $poll_id =~ s/poll\.//;
      &set_invitee_poll_response($poll_id,$invitee{email_address_id},$answer);
    }
    print "Status: 302 Found\nLocation: http://$ENV{SERVER_NAME}/invite.cgi?invitee=$form{invitee}\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);
}
if(@emails) {
  @emails = sort {
    return -1 if $a->{email_address_id} == $invite{owner_email_id};
    return 1 if $b->{email_address_id} == $invite{owner_email_id};
    return $a->{last_updated} <=> $b->{last_updated} if ($a->{response} eq $b->{response}) && $a->{response} ne "No Response";
    return lc($a->{email_address}) cmp lc($b->{email_address}) if ($a->{response} eq $b->{response});
    return $b->{response_code} <=> $a->{response_code};
  } @emails;
}

use Date::Manip;


open(RE,"<url.regexp.pl");$urlregex = <RE>; close(RE);
chomp $urlregex; $urlregex = qr/$urlregex/i;

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

print qq[<FONT SIZE=6>$invite{name}</FONT><BR>\n];
print qq[<FONT SIZE=2>Event date: ], UnixDate($invite{event_date}, $dateformat), qq[</FONT><BR CLEAR=ALL>\n];
print qq[<TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=10 BORDER=0>\n];
print qq[<TR VALIGN=TOP>\n];
print qq[<TD WIDTH=80%><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=4>\n];
if($userid == $invite{owner}) {
  if($invite{ready} eq 'N') {
    print qq[<FONT COLOR=#FF0000>\n];
    print qq[This invitation has not been sent.<BR>\n];
    print qq[<A HREF="invite.cgi?id=$invitation_id&set_ready=1">Click here to mark it Ready To Send</A><BR>\n];
    print qq[<BR>\n];
    print qq[</FONT>\n];
  }
}
for($i=0;$i<@messages;$i++) {
  if(   !%invitee
     || $messages[$i]->{send_to} eq 'All'
     || $messages[$i]->{send_to} eq $invitee{response}
     || ( $messages[$i]->{send_to} eq 'Not No Response' && $invitee{response} ne 'No Response' )
     || ( $messages[$i]->{send_to} eq 'Not No' && $invitee{response} ne 'No' )
     || ( $messages[$i]->{send_to} eq 'Undecided' && ( $invitee{response} eq 'Maybe' || $invitee{response} eq 'No Response' ) )
     || ( $messages[$i]->{send_to} eq 'Yes/Maybe' && ( $invitee{response} eq 'Yes' || $invitee{response} eq 'Maybe' ) )
    ) {
    print qq[</FONT>\n];
    print qq[<FONT FACE="Courier New,Courier" SIZE=2>\n];
    if(@messages > 1) {
      print qq[Subject: ], $messages[$i]->{subjectline}, qq[<BR>\n];
      print qq[Date: ], UnixDate($messages[$i]->{message_date}, $dateformat), qq[<BR>\n];
      if($userid == $invite{owner}) {
        print qq[Send to: ], $messages[$i]->{send_to}, qq[<BR>\n];
      }
    }
    print qq[<BR>\n];
    $messages[$i]->{message} =~ s/&/&amp;/gs;
    $messages[$i]->{message} =~ s/</&lt;/gs;
    $messages[$i]->{message} =~ s/>/&gt;/gs;
    $messages[$i]->{message} =~ s/\r?\n/<BR>\n/gs;
    $messages[$i]->{message} =~ s!($urlregex)!<A HREF="$1" TARGET=_new>$1</A>!gs;
    print $messages[$i]->{message};
    print qq[</FONT>\n];
    print qq[<FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=4>\n];
    print qq[<BR>\n<HR SIZE=1 NOSHADE>\n] if $i+1<@messages;
    print qq[<BR>\n];
  }
}
if($userid == $invite{owner}) {
  print qq[<HR SIZE=1 NOSHADE>\n];
  print qq[<FORM METHOD=POST ACTION="invite.cgi">\n];
  print qq[<INPUT TYPE=HIDDEN NAME=id VALUE="$invite{invitation_id}">\n];
  print qq[<FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=3>Subject: </FONT>];
  print qq[<INPUT TYPE=TEXT NAME="subject" SIZE=50><BR>\n];
  print qq[<TEXTAREA NAME="message" COLS=60 ROWS=7 WRAP=VIRTUAL></TEXTAREA><BR>\n];
  print qq[<FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=3>Send To: </FONT>];
  print qq[<SELECT NAME="send_to"><OPTION>All<OPTION>No Response<OPTION>Yes<OPTION>Yes/Maybe<OPTION>Maybe<OPTION>No<OPTION>Not No<OPTION>Not No Response<OPTION>Undecided</SELECT>\n];
  print qq[<INPUT TYPE=SUBMIT VALUE="Add Message" ALIGN=RIGHT>\n];
  print qq[</FORM>\n];
}
if(@polls) {
  print qq[<A NAME="polls"></A>\n];
  print qq[<BR>\n];
  print qq[<BR>\n];
  if(%invitee) {
    print qq[<FORM METHOD=GET ACTION="invite.cgi">\n];
    print qq[<INPUT TYPE=HIDDEN NAME=invitee VALUE="$invitee{invite_map_id}">\n];
  }
  print qq[<TABLE CELLPADDING=3 CELLSPACING=0 BORDER=0 WIDTH=500>\n];
  for($i=0;$i<@polls;$i++) {
    print qq[<TR><TD BGCOLOR=#], $i%2 ? "333333" : "444444", qq[><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>\n];
    print $polls[$i]->{question}, qq[<BR>\n];

    if($polls[$i]->{question_type} eq "yesno") {
      @answers = ("Yes", "No");
    } elsif($polls[$i]->{question_type} eq "multichoice") {
      @answers = split /\255/, $polls[$i]->{answers};
    }
    if($userid == $invite{owner}) {
      if($form{polls} eq "viewall") {
        @results = &detailed_results_for_poll($polls[$i]->{poll_id});
        print qq[<TABLE CELLPADDING=1 CELLSPACING=0 BORDER=0>\n];
        for($j=0;$j<@answers;$j++) {
          print qq[<TR VALIGN=TOP><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>], $answers[$j], qq[:</TD><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>(], (scalar @{$results[$j+1]} || 0), qq[)</FONT></TD><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>], join(", ", @{$results[$j+1]}), qq[</TD></TR>\n];
        }
        print qq[</TABLE>\n];
      } else {
        @results = &results_for_poll($polls[$i]->{poll_id});
        print qq[<TABLE CELLPADDING=1 CELLSPACING=0 BORDER=0>\n];
        for($j=0;$j<@answers;$j++) {
          print qq[<TR VALIGN=TOP><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>], $answers[$j], qq[:</TD><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>], ($results[$j+1]||0), qq[</TD></TR>\n];
        }
        print qq[</TABLE>\n];
      }
    } else {
      @results = &results_for_poll($polls[$i]->{poll_id}) if $invitee{has_voted};
      for($j=0;$j<@answers;$j++) {
        print qq[<INPUT TYPE=RADIO NAME=poll.$polls[$i]->{poll_id} VALUE="], ($j+1), qq["], $polls[$i]->{invitee_response} == ($j+1) ? " CHECKED":"", qq[>$answers[$j]];
        print qq[ <FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>(], ($results[$j+1]||0), qq[)</FONT>] if $invitee{has_voted};
        print qq[<BR>\n];
      }
    }
    print qq[</TD></TR>\n];
  }
  if(%invitee) {
    print qq[<TR VALIGN=TOP><TD BGCOLOR=#], $i%2 ? "333333" : "444444", qq[ ALIGN=RIGHT><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>\n];
    print qq[<INPUT TYPE=SUBMIT VALUE="Vote">\n];
    print qq[</FONT></TD></TR>\n];
    print qq[</FORM>\n];
  } elsif($userid == $invite{owner} && $form{polls} ne "viewall") {
    print qq[<TR VALIGN=TOP><TD BGCOLOR=#], $i%2 ? "333333" : "444444", qq[ ALIGN=RIGHT><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>\n];
    print qq[<A HREF="invite.cgi?id=$invite{invitation_id}&polls=viewall#polls">Show all votes</A>\n];
    print qq[</FONT></TD></TR>\n];
  }
  print qq[</TABLE>\n];
}
print qq[</FONT></TD>\n];
print qq[<TD WIDTH=], $user{perms}{admin} ? 360 : 250, qq[ ALIGN=RIGHT><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>\n];
if(%invitee) {
  print qq[<TABLE CELLPADDING=3 CELLSPACING=0 BORDER=0>];
  print qq[<TR VALIGN=TOP><TD BGCOLOR=#222222 ALIGN=CENTER><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>Hello, ], $invitee{name} ? $invitee{name} : $invitee{email_address}, qq[</TD></TR>\n];
  print qq[<TR><FORM METHOD=GET ACTION="invite.cgi">];
  print qq[<TD BGCOLOR=#], $invitee{response} eq "No Response" ? "774444" : "444444", qq[><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>\n];
  print qq[RSVP:<BR>\n];
  print qq[You haven't RSVP'd yet!<BR>\n] if $invitee{response} eq "No Response";
  print qq[<INPUT TYPE=HIDDEN NAME=invitee VALUE="$invitee{invite_map_id}">\n];
  print qq[<INPUT TYPE=RADIO NAME=rsvp VALUE="Yes"], $invitee{response} eq "Yes" ? " CHECKED":"", qq[>Yes &nbsp;];
  print qq[<INPUT TYPE=RADIO NAME=rsvp VALUE="Maybe"], $invitee{response} eq "Maybe" ? " CHECKED":"", qq[>Maybe &nbsp;];
  print qq[<INPUT TYPE=RADIO NAME=rsvp VALUE="No"], $invitee{response} eq "No" ? " CHECKED":"", qq[>No<BR>\n];
  print qq[Guests: <INPUT TYPE=TEXT NAME=guestcount SIZE=2 VALUE=], $invitee{response} ne "No Response" ? $invitee{guestcount}:1, qq[><FONT SIZE=1>(including&nbsp;you)</FONT><BR>\n];
  print qq[Comments:<BR>\n];
  print qq[<TEXTAREA NAME="comments" ROWS=2 COLS=15 WRAP=VIRTUAL>], $invitee{comments}, qq[</TEXTAREA><BR>\n];
  print qq[<INPUT TYPE=SUBMIT VALUE="RSVP">\n];
  print qq[</TD>\n];
  print qq[</FORM></TR>\n];
  print qq[<TR VALIGN=BOTTOM><TD BGCOLOR=#774444><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>Don't forget to vote in the polls, below!</FONT></TD></TR>\n] if @polls && $invitee{response} ne "No Response" && !$invitee{has_voted};
  print qq[</TABLE>\n];
  print qq[<BR>];
}
print qq[<TABLE WIDTH=], $user{perms}{admin} ? 360 : 250, qq[ CELLPADDING=2 CELLSPACING=0 BORDER=0>\n];
$count_yes=$count_yes_guests=$count_no=$count_maybe_guests=$count_maybe=0;
for($i=0;$i<@emails;$i++) {
  my $rows = 1;
  $rows++ if($userid == $invite{owner} && $emails[$i]->{response} ne 'No Response');
  $rows++ if($userid == $invite{owner} && $emails[$i]->{comments});
  print qq[<TR BGCOLOR=#], $i%2 ? "222222" : "333333",qq[ VALIGN=TOP>];
  print qq[<TD ALIGN=RIGHT], ($rows > 1) ? " ROWSPAN=$rows" : "", qq[><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=TOP ALIGN=CENTER], ($rows > 1) ? " ROWSPAN=$rows" : "", qq[><IMG SRC="];
  if($emails[$i]->{response} eq "Maybe") {
    $count_maybe++;
    $count_maybe_guests+=$emails[$i]->{guestcount};
    print "yellow";
  } elsif($emails[$i]->{response} eq "No") {
    $count_no++;
    print "red";
  } elsif($emails[$i]->{response} eq "Yes") {
    $count_yes++;
    $count_yes_guests+=$emails[$i]->{guestcount};
    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=TOP ALIGN=CENTER], ($rows > 1) ? " ROWSPAN=$rows" : "", qq[><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];
  if($userid == $invite{owner} && $emails[$i]->{comments}) {
    print qq[<TR BGCOLOR=#], $i%2 ? "222222" : "333333",qq[ VALIGN=TOP>];
    print qq[<TD ALIGN=LEFT><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>Comments: ], $emails[$i]->{comments}, qq[</FONT></TD>];
    print qq[</TR>\n];
  }
  if($userid == $invite{owner} && $emails[$i]->{response} ne 'No Response') {
    print qq[<TR BGCOLOR=#], $i%2 ? "222222" : "333333",qq[ VALIGN=TOP>];
    print qq[<TD ALIGN=LEFT><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=1>Last update: ], UnixDate($emails[$i]->{last_updated},"%l"), qq[</FONT></TD>];
    print qq[</TR>\n];
  }
}
print qq[<TR BGCOLOR=#], $i%2 ? "222222" : "333333",qq[ VALIGN=TOP><TD ALIGN=CENTER COLSPAN=], $userid == $invite{owner} ? 4 : 3, qq[><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>];
print qq[<IMG SRC="greenlight.gif" WIDTH=20 HEIGHT=20 BORDER=0 ALIGN=ABSMIDDLE> $count_yes];
print qq[ ($count_yes_guests)] if $count_yes_guests != $count_yes;
print qq[ &nbsp; &nbsp; ];
print qq[<IMG SRC="yellowlight.gif" WIDTH=20 HEIGHT=20 BORDER=0 ALIGN=ABSMIDDLE> $count_maybe];
print qq[ ($count_maybe_guests)] if $count_maybe_guests != $count_maybe;
print qq[ &nbsp; &nbsp; ];
print qq[<IMG SRC="redlight.gif" WIDTH=20 HEIGHT=20 BORDER=0 ALIGN=ABSMIDDLE> $count_no];
print qq[</FONT></TD></TR>];
print qq[</TABLE>\n];
if($userid == $invite{owner}) {
  print qq[<FORM METHOD=POST ACTION="invite.cgi">\n];
  print qq[<INPUT TYPE=HIDDEN NAME=id VALUE="$invite{invitation_id}">\n];
  print qq[<TEXTAREA NAME="emails" COLS=30 ROWS=5 WRAP=VIRTUAL></TEXTAREA><BR>\n];
  print qq[<INPUT TYPE=SUBMIT VALUE="Invite More" ALIGN=RIGHT>\n];
  print qq[</FORM>\n];
  print qq[<A HREF="invite_from_list.cgi?id=$invite{invitation_id}">Click here to invite people from the database</A><BR>\n] if $user{perms}{admin};
}
print qq[</FONT></TD>];
print qq[</TR>\n];
print qq[</TABLE>\n];


print $leadout;