#!/usr/bin/perl

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

if($userid) {
  print "Status: 302 Found\nLocation: http://$ENV{SERVER_NAME}/manage.cgi\n\n";
  exit(0);
}


print $headers,"\n";
print $leadin;
print <DATA>;
print $leadout;

__DATA__
<FONT SIZE=5>Welcome to the Invitotron.</FONT><BR>
<BR CLEAR=ALL>
This is Midgard System's eVite clone.
Why would I write this instead of just using eVite? 'Cause I'm weird that way. Bear with me.<BR>
<BR>
If you have a user account on the system, log in to manage/create invites. If you don't have one, and would like to, email <A HREF="mailto:martian@midgard.org">Marty</A>.<BR>
<BR>
<TABLE SIZE=100 ALIGN=LEFT HSPACE=10 VSPACE=5 CELLPADDING=5 CELLSPACING=0 BORDER=1><TR VALIGN=TOP><FORM ACTION="login.cgi" METHOD=POST><TD ALIGN=RIGHT>
<FONT FACE="Verdana, Tahoma, Arial, Helvetica, Sans-Serif" SIZE=2>
Username: <INPUT TYPE=TEXT NAME="login" SIZE=10><BR>
Password: <INPUT TYPE=PASSWORD NAME="password" SIZE=10><BR>
<BR>
<INPUT TYPE=SUBMIT VALUE="Login">
</FONT>
</TD></FORM></TR></TABLE>