#!/usr/bin/perl
require '/full/path/to/config.pl';
################################################################
# DO NOT MAKE CHANGES BELOW THIS LINE
################################################################
$| = 1;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser carpout);
my $script_url = url();
my $form = path_info();
$form =~ s!^/!!;
if (!$form) {
check_url();
admin_main();
}
elsif ($form eq 'winner') {
check_url();
pick_winner();
}
elsif ($form eq 'list') {
list_entrants();
}
elsif ($form eq 'delete') {
delete_entry();
}
elsif ($form eq 'clear') {
delete_database();
}
else {
error_page("<li>Illegal calling of script.");
}
################################################################
# Subtroutines
#######################
# Admin Main
sub admin_main {
print "Content-type: text/html\n\n";
print <<"eof";
<HTML>
<HEAD>
<TITLE>Contest Administration | Powered IQ Contest</TITLE>
</HEAD>
<BODY BACKGROUND="" BGCOLOR="#ffffff" TEXT="#000000">
<TABLE align="center" width="500" Border="0">
<TR>
<TD align="center" bgcolor="blue" colspan="2">
<FONT COLOR=#ffffff><B>Contest Administration</B></FONT>
</TD>
</TR>
<TD colspan="2"><BR>
Select the feature you wish to use:<BR><BR>
<DIV align="center">
<FORM ACTION="$script_url/winner" METHOD="POST"><INPUT TYPE="submit" VALUE="Pick the Winner"></FORM>
<FORM ACTION="$script_url/list" METHOD="POST"><INPUT TYPE="submit" VALUE="View all Entries "></FORM>
<FORM ACTION="$script_url/delete" METHOD="POST"><INPUT TYPE="submit" VALUE=" Delete Entry "></FORM>
<FORM ACTION="$script_url/clear" METHOD="POST"><INPUT TYPE="submit" VALUE="Clear Database"></FORM>
<hr color="blue">
</DIV>
</TD>
</TR>
<TR>
<TD align="right" colspan="2">
<FONT face ="verdana" size="1">powered by <a href="http://www.iqdesign.net/scripts/iqcontest.html" target="_blank">IQ Contest</a> v$version Copyright © 2000</FONT>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
eof
}
#######################
# Pick Winner
sub pick_winner {
$cnt = 0;
print "Content-type: text/html\n\n";
print <<"eof";
<HTML>
<HEAD>
<TITLE>Winner Selection | Powered IQ Contest</TITLE>
</HEAD>
<BODY BACKGROUND="" BGCOLOR="#ffffff" TEXT="#000000">
<TABLE align="center" width="500" Border="0">
<TR>
<TD align="center" bgcolor="blue">
<FONT COLOR=#ffffff><B>Select Winner</B></FONT>
</TD>
</TR>
<TD><BR>
<font SIZE="+1"><b><u>The Winner is:</u></b></font><BR><BR>
eof
if (-e "$maindb") {
open (DATA, "$maindb") | | error_page("<li>Can't open Main Database");
while (!eof(DATA)){
$line = <DATA>;
$line =~ tr/\x0a\x0d//d;
($name,$email,$street,$city,$state,$zip,$phone) = split(/,/,$line);
@name[$cnt] = $name;
@email[$cnt] = $email;
@street[$cnt] = $street;
@city[$cnt] = $city;
@state[$cnt] = $state;
@zip[$cnt] = $zip;
@phone[$cnt] = $phone;
$cnt = $cnt + 1;
}
srand;
$choice = int(rand($#name));
$choice = $choice + 1;
print "<blockquote>\n";
print "<u>Entry # $choice</u><br><br>\n";
print "$name[$choice]<br>\n";
print "<a href=\"$email[$choice]\">$email[$choice]</a><br>\n";
print "$street[$choice]<br>\n";
print "$city[$choice], $state[$choice] $zip[$choice]<br>\n";
print "$phone[$choice]\n";
print "</blockquote>\n";
close(DATA);
print <<"eof";
</TD>
</TR>
<tr>
<td>
<hr color="blue">
</td>
</tr>
<TR>
<TD align="right">
<FONT face ="verdana" size="1">powered by <a href="http://www.iqdesign.net/scripts/iqcontest.html" target="_blank">IQ Contest</a> v$version Copyright © 2000</FONT>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
eof
}
}
cont............
------------------
I was a game
