/usr/local/bin/perl 
#
#
#######################################################
#		Top Sites version 2.01
#
#     	Created by: Solution Scripts 
# 		Email: solutions@solutionscripts.com
#		Web: http://solutionscripts.com
#
#######################################################
#
#
# COPYRIGHT NOTICE:
#
# Copyright 1999 Solution Scripts  All Rights Reserved.
#
# This program is being distributed as freeware.  It may be used and
# modified free of charge, so long as this copyright notice, the header 
# above and all the footers in the program that give me credit remain 
# intact. Please also send me an email, and let me know 
# where you are using this script. 
#
# By using this program you agree to indemnify Solution Scripts from any liability.
#
# Selling the code for this program without prior written consent is
# expressly forbidden.  Obtain permission before redistributing this
# program over the Internet or in any other medium.  In all cases
# copyright and header must remain intact.
#
######################################################

eval {
	require "variables.pl";
};

if ($@) {
	print "Content-type: text/html\n\n";
	&header;
print <<EOF;
A Fatal Error has occurred in the running of Top Sites.
<BR><BR>
Something is wrong with your variables.pl file. Please look carefully at the error
listed below and double check the settings in the variables.pl file.<BR><BR>
The error is:
<BR><font color=red>
$@</FONT>
<BR><BR>
EOF
	&error_footer("error_variables.shtml");

exit;
}

$version ="2.01";

print "Content-type: text/html\n\n";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	if ($fields{$name}) { $fields{$name} = $fields{$name}.",".$value; }
	else { $fields{$name} = $value; }
}

unless ($ENV{'CONTENT_LENGTH'}) {
&header;

print <<EOF;
<center>
<font size=2><B>Fill out the following form to join $topsite_name</B></FONT>
<BR>
<FORM METHOD="POST" ACTION="newuser.cgi">
<table cellspacing =0 bgcolor =white border=0 cellpadding =5>
<TR><TD>
<FONT SIZE="-1" FACE="Verdana">Web Site Name</TD><TD>&nbsp;&nbsp;&nbsp;<INPUT TYPE="text" NAME="name" ></TD> </TR>
<TR><TD>
<FONT SIZE="-1" FACE="Verdana">Web Site URL</TD><TD>&nbsp;&nbsp;&nbsp;<INPUT TYPE="text" NAME="url" ></TD></TR>
<TR><TD>
<FONT SIZE="-1" FACE="Verdana">Your Email address</TD><TD>&nbsp;&nbsp;&nbsp;<INPUT TYPE="text" NAME="email" ></TD></TR>
<TR><TD>
<FONT SIZE="-1" FACE="Verdana">URL for your sites banner</TD><TD>&nbsp;&nbsp;&nbsp;<INPUT TYPE="text" NAME="banner"></TD></TR> 
<TR><TD colspan=2 align=center>
<input type=submit value="  Join $topsite_name  "></TD></TR> 
</TABLE><BR></form><br>
EOF
&footer;
exit;

}


unless ($fields{'url'}=~/\http:/) { 
	$error_url =1;	
}
unless ($fields{'email'}=~/\@/) { 
	$error_email =1;
}
unless ($fields{'name'}) { 
	$error_name =1;
}

if ($error_email || $error_url || $error_name) {

&header;

print "<B>Errors have been detected in your sign up form.</B><br><br>\n";
print "Please go back and fix the following:<BR><font color=red>\n";
if ($error_name) {
	print "You must enter a name for your web site<br>";
}
if ($error_email) {
	print "Invalid email address: $fields{'email'}<br>";
}
if ($error_url) {
	print "Invalid website url: $fields{'url'}<br>";
}

print "</FONT><BR><BR>";
&footer;
exit;

}

open (ID,"counts.txt");
if ($use_flock) {
	flock ID, 2; 
}
$new_id = <ID> ;
$new_id++;
close (ID);

open (NEWID,">counts.txt") || &error(1);
if ($use_flock) {
	flock NEWID, 2; 
}
print NEWID "$new_id";
close (NEWID);

$newline = join ("\|",0,0,0,$fields{'url'},$fields{'banner'},$fields{'name'},$fields{'email'},0,0,$new_id);
$newline .= "\n";

open(DB, ">>members.db") || &error(2);
if ($use_flock) {
	flock DB, 2; 
}
print DB $newline;
close (DB);

$code = "<A HREF=\"$topsite_location_cgi/topsites.cgi?ID=$new_id\">\n";
$code .= "<IMG SRC=\"$topsite_image\" border=0 width=$image_width height=$image_height></A>\n";

$html_code = $code;
$html_code =~ s/</\&lt\;/g;
$html_code =~ s/>/\&gt\;/g;
$html_code =~ s/\n//g;

&header;
print <<EOF;
<center><font size=2><B>Thank you for joining $topsite_name</B></FONT><BR><BR></CENTER>
For your site to be ranked, you need to complete the following three steps.<BR><BR>
<font color=red>1.</FONT> Put this html code into your web pages. The more places the better.<BR><BR>
<font color=blue>
$html_code
</FONT>
<BR><BR>
<font color=red>2.</FONT> Once the above html is on your web site,
click the image that appears once to activate your account.
<BR><BR>
<font color=red>3.</font> Get as many of the visitors to your web site to click the image, and 
check your rank
<a href="$topsite_location/topsites.html"><B>here</B></A> and watch your site move up, up, up....
<BR><BR>
Any and all questions should be directed to <a href="mailto:$your_email"><B>$your_email</B></a>
<BR><BR>
EOF
&footer;

if ($mail_prog) {
	open(MAIL,"|$mail_prog -t") || &error(3);
	print MAIL "To: $fields{'email'}\n";
	print MAIL "From: $your_email\n";
	print MAIL "Subject: Welcome to $topsite_name \n\n";
	print MAIL "Thank you for submitting your site to $topsite_name \n\n";
	print MAIL "You need to put the following html code on your web site:\n\n";
	print MAIL "$code\n";
	print MAIL "Once this has been done, click on the image that appears to activate your account.\n\n";
	print MAIL "You site will then be included in $topsite_name in the next update\n\n";
	print MAIL "View the $topsite_name rankings at $topsite_location/topsites.html \n\n";
	print MAIL "Created with Top Sites v2.01 http://solutionscripts.com\n\n";
	print MAIL "\n\n";
	close (MAIL);
}
exit;


sub error{

$errors = $_[0] ;
&header;
if ($errors == 1) {
print <<EOF;
<b>An error has occured trying to write/create to counts.txt</B><BR><BR>
More information on the problem:<BR>
<font color=red>$!</FONT>
<BR><BR>

EOF
	&error_footer("wc_counts.shtml");
}
elsif ($errors == 2) {
print <<EOF;
<b>An error has occured trying to write/create the file members.db</B><BR><BR>
More information on the problem:<BR>
<font color=red>$!</FONT>
<BR><BR>

EOF
	&error_footer("wc_members.shtml");
}
elsif ($errors == 3) {
print <<EOF;
<b>An error has occured trying to send out the welcome email</B><BR><BR>
More information on the problem:<BR>
<font color=red>$!</FONT>
<BR><BR>

EOF
	&error_footer("mail_prog.shtml");
}
exit;
}

sub header {
print <<EOF;
<HTML><HEAD>
<TITLE>Top Sites -- From Solution Scripts</TITLE></HEAD>
<BODY bgcolor=white text=black link=slateblue vlink=slateblue>
<CENTER>
<TABLE CELLPADDING=2 CELLSPACING=0 BORDER=0 BGCOLOR=#778899 WIDTH=500>
<TR><TD>
<TABLE CELLPADDING=8 CELLSPACING=0 WIDTH=100\% BGCOLOR=white BORDER=0><TR><TD>
<font face="Verdana" size="1">
EOF
}

sub error_footer {
$error_url = $_[0];
print <<EOF;
If you need more assistance, come take a look at our online manual. The frontpage
of the manual can be found at:<BR>
<a href="http://solutionscripts.com/man/top_sites"><B>http://solutionscripts.com/man/top_sites</B></A><BR><BR>
or you jump straight to the page containing more information on your error at:
<a href="http://solutionscripts.com/man/top_sites/$error_url"><B>http://solutionscripts.com/man/top_sites/$error_url</B></A>
<BR><BR>We also host a Help Forum where people can come and ask questions about Solution Scripts' scripts and
questions they are having about them. The url for the Help Forum is:<BR>
<a href="http://solutionscripts.com/forum"><B>http://solutionscripts.com/forum</B></A><BR><BR>
Who knows, someone might have the posted the same question you have and the answer might already be there.
<BR><BR><HR NOSHADE SIZE=1>
<CENTER>
Top Sites, created by <a href="http://solutionscripts.com"><B>Solution Scripts</B></A><BR>
"Enhancing the web with cgi"<BR>
</TD></TR></TABLE>
</TD></TR></TABLE>
EOF
}

sub footer {
$error_url = $_[0];
print <<EOF;
<HR NOSHADE SIZE=1>
<CENTER>
Top Sites v$version, created by <a href="http://solutionscripts.com"><B>Solution Scripts</B></A><BR>
"Enhancing the web with cgi"<BR>
</TD></TR></TABLE>
</TD></TR></TABLE>
</BODY></HTML>
EOF
}