#!/usr/bin/perl

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

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

print $headers,"\n";
print $leadin;
print qq[Hello, $user{name}.<br><br>\n];
@invites = &invitations_for_user($userid);
if(@invites) {
  print qq[<B>Your active invitations:</B><BR>\n];
  print qq[<TABLE WIDTH=630 CELLSPACING=0 CELLPADDING=15 BORDER=0><TR VALIGN=CENTER><TD ALIGN=CENTER>\n];
  print qq[<TABLE WIDTH=600 CELLSPACING=0 CELLPADDING=5 BORDER=0>\n];
  print qq[<TR BGCOLOR=#222222><TH ALIGN=RIGHT>#</TH><TH ALIGN=LEFT>Date</TH><TH ALIGN=LEFT>Event</TH></TR>\n];
  for($i=0;$i<@invites;$i++) {
    print qq[<TR BGCOLOR=#], $i%2 ? "222222" : "333333",qq[ VALIGN=TOP>];
    print qq[<TD WIDTH=1% ALIGN=RIGHT><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2><A HREF="invite.cgi?id=$invites[$i]->[0]">$invites[$i]->[0]</A></FONT></TD>];
    print qq[<TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>$invites[$i]->[2]</FONT></TD>];
    print qq[<TD WIDTH=400><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>$invites[$i]->[1]</FONT></TD>];
    print qq[</TR>\n];
  }
  print qq[</TABLE>\n];
  print qq[</TD></TR></TABLE>\n];
  print qq[<BR>\n];
}

print qq[<A HREF="create.cgi">Create a new invitation</A><BR>\n] if $user{perms}{create};

print $leadout;