#!/usr/bin/perl

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

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

if($ENV{QUERY_STRING} || $ENV{REQUEST_METHOD} eq "POST") {
  &parseform($ENV{QUERY_STRING}, \%form);

  $name = &unescape($form{name});
  $date = &unescape($form{date});
  $emails = &unescape($form{emails});
  $text = &unescape($form{text});

  use Date::Manip;
  $date = UnixDate(ParseDate($date), $dateformat);

  $text =~ s/\r\n?/\n/gs;
#  use Text::Wrap;
#  $Text::Wrap::columns=75;
#  $text = wrap("","",$text);

  @emails = parse_email_list($emails);

  my $invitation_id = create_invitation($userid,$name,$date,$text,\@emails);
  print "Status: 302 Found\nLocation: http://$ENV{SERVER_NAME}/invite.cgi?id=$invitation_id\n\n";
  exit(0);
}

print $headers,"\n";
print $leadin;
print qq[New Invitation<BR CLEAR=ALL>\n];
print qq[\n];
print qq[<TABLE CELLSPACING=0 CELLPADDING=15 BORDER=0><TR VALIGN=CENTER><TD ALIGN=CENTER>\n];
print qq[<FORM METHOD=POST>\n];
print qq[<TABLE CELLSPACING=0 CELLPADDING=5 BORDER=0>\n];
print qq[<TR BGCOLOR=#222222 VALIGN=TOP><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>Event Name:</TD><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=3><INPUT TYPE=TEXT NAME="name" VALUE="], &urlencode($name), qq[" SIZE=45></TD></TR>\n];
print qq[<TR BGCOLOR=#333333 VALIGN=TOP><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>Event Date:</TD><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=3><INPUT TYPE=TEXT NAME="date" VALUE="], &urlencode($date), qq[" SIZE=45></TD></TR>\n];
print qq[<TR BGCOLOR=#222222 VALIGN=TOP><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>Email Addresses:</TD><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=3><TEXTAREA NAME="emails" COLS=45 ROWS=5 WRAP=VIRTUAL>], join(", ", @emails), qq[</TEXTAREA></TD></TR>\n];
print qq[<TR BGCOLOR=#333333 VALIGN=TOP><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>Invitation Text:</TD><TD><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=3><TEXTAREA NAME="text" COLS=45 ROWS=15>$text</TEXTAREA></TD></TR>\n];
print qq[<TR BGCOLOR=#222222 VALIGN=TOP><TD COLSPAN=2 ALIGN=RIGHT><FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2><INPUT TYPE=SUBMIT VALUE="Create"></TD></TR>\n];
print qq[</TABLE>\n];
print qq[</FORM>\n];
print qq[</TD></TR></TABLE>\n];
print $leadout;