#!/usr/bin/perl
#
#
#
#######################################################
#		Top Sites version 2.0
#
#     	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.
#
######################################################
#
#
# NOTHING NEEDS TO BE ALTERED IN THIS SCRIPT FOR IT TO RUN
# UNLESS YOU FEEL THE NEED TO EDIT IT
#
#
######################################################


&set_defaults;
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;
}

unless ($topsite_location =~ /http:\/\//) { &error(5); }
unless ($topsite_location_cgi =~ /http:\/\//) { &error(6); }
if ($path_to_topsites =~ /http:\/\//) { &error(7); }

$topsite_location =~ s/\/$//;
$topsite_location_cgi =~ s/\/$//;
$path_to_topsites =~ s/\/$//;

$current_time = time();

$member=$ENV{'QUERY_STRING'};
$cgiurl = $ENV{'SCRIPT_NAME'};

$all_right = "<font face=\"Verdana\" size=\"1\"><HR NOSHADE SIZE=1 WIDTH=90\%><CENTER>hitsubmit.de - Top of 100!,  created by <a href=\"http://www.hitsubmit.de\"><B>The Blue Planet</B></A><br><BR>\"Universal Web Solutions\"<BR></font>";
if ($member) {
	@pairs=split(/&/,$member);
	foreach $item(@pairs) {
		($name,$content)=split (/=/,$item,2);
		$content=~tr/+/ /;
		$content=~ s/%(..)/pack("c",hex($1))/ge;
		if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; }
		else { $INPUT{$name} = $content; }
	}
}
else {
	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 ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
		else { $INPUT{$name} = $value; }
	}
}

if ($INPUT{'action'} eq "stats") { &stats; }
elsif ($INPUT{'action'} eq "variables") { &show_vari; }
elsif ($INPUT{'editfinal'}) { &editfinal; }
elsif ($INPUT{'edit'}) { &edit; }
elsif ($INPUT{'new_pass'}) { &new_pass; }
elsif ($INPUT{'html_dis'}) { &html_dis; }
elsif ($INPUT{'locate'}) { &locate; }
elsif ($INPUT{'newaccount'}) {&newaccount; }
else { &hit_in; }
exit;

sub stats {

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

open (DAT,"<members.db");
if ($use_flock) {
	flock DAT, 2; 
}
@database_array = <DAT>;
close (DAT);

$total=0;
$num = push(@database_array);

foreach $line(@database_array) {
	@member_array = split(/\|/,$line);
	$total += $member_array[1];
}

print <<EOF;
Number of members: <font color=red>$num</FONT><BR>
Total click thrus to your Top Sites: <font color=red>$total</FONT><BR>
<BR>
With Top Sites Professional detailed stats are taken for each member and the 
Top Sites program. For example each member can view their daily stats which contain 
the number of hits they sent on each day, the number of people your Top Sites sent them
ech day, and the rank their site was on that day. It is set up in table format so they may see if 
they are falling or increasing their rank. Through the admininstrative screen in Top Sites
Professional you can also see daily, weekly, and monthly stats for the total system. You can also view how many sites are
active (sent hits) today, this week, and this month.
<BR><BR>
<a href="http://www.hitsubmit.de"><B>More information on Forum Sites</B></A>
<BR><BR>
EOF
&footer; 
exit;
}

sub show_vari {

print "Content-type: text/html\n\n";
&header;
open (DAT,"<variables.pl");
if ($use_flock) {
	flock DAT, 2; 
}
@database_array = <DAT>;
close (DAT);
foreach $line(@database_array) {
	print "$line<BR>";
}

$current_path = $ENV{'SCRIPT_FILENAME'};
$current_path =~ s/\/topsites\.cgi//ig;

print <<EOF;
<BR><BR>
<HR NOSHADE SIZE=1><BR>
A few other system variables that may be interesting or important<BR><BR>
Doc. Root: <font color=red>$ENV{'DOCUMENT_ROOT'}</FONT><BR>
Path to current dir: <font color=red>$current_path</FONT><BR>
Server Software: <font color=red>$ENV{'SERVER_SOFTWARE'}</FONT><BR>
Perl Version: <font color=red>$]</FONT><BR>
<BR><BR>

EOF
&footer;
exit;
}

## INCOMING ##
sub hit_in {

$member =~ s/ID\=//gi;

unless ($member) {
	&thehtml;
	print "Location: $topsite_location/topsites.html\n\n";
	exit;
}

open (DAT,"+<members.db") || &error(1);
if ($use_flock) {
	flock DAT, 2; 
}
@database_array = <DAT>;

$found=0;
$a=0;

foreach $line(@database_array) {
	@member_array = split(/\|/,$line);
	if ($member_array[9]  == $member) {
			$member_array[1]++;
			$member_array[0] = $member_array[1];
			unless ($member_array[7]) {
				$member_array[7] = $current_time;
			}
			$line = join("\|",@member_array);
	}
}

seek (DAT, 0, 0);
print DAT @database_array;
close (DAT);

open (LASTTIME,"<time.txt");
if ($use_flock) {
	flock LASTTIME, 2; 
}
$last = <LASTTIME>;
close (LASTTIME);
$doit = $current_time - $last;
if ($doit > $update_time) {
	open (NEWTIME,">time.txt")  || &error(3);
	if ($use_flock) {
		flock NEWTIME, 2; 
	}
	print NEWTIME "$current_time";
	close (NEWTIME);
	&thehtml
	}
print "Location: $topsite_location/topsites.html\n\n";
exit;
}

##### CREATES THE HTML RANKING
sub thehtml {

open (DAT,"<members.db");
if ($use_flock) {
	flock DAT, 2; 
}
@database_array = <DAT>;
close (DAT);

unless ($rank) {
	$rank = "Hits/Day";
}

unless ($all_right) {
	&error(4);
}
foreach $line(@database_array) {
	@member_array = split(/\|/,$line);
	if ($rank eq "Hits/Day") {
		if ($member_array[7]) {
			$total_time = $current_time - $member_array[7];
			$total_time = $total_time /86400;
			if ($total_time > 1) {
				$member_array[0] = $member_array[1] / $total_time;
				$line = join("\|",@member_array);
			}
			else {
				$member_array[0] = 0;
				$line = join("\|",@member_array);
			}
		}
		else {
			$member_array[0] = 0;
			$line = join("\|",@member_array);
		}
	}
	else {
		$member_array[0] = $member_array[1];
		$line = join("\|",@member_array);
	}	
}	

@sorted = sort { $a <=> $b }@database_array;
@sort = reverse(@sorted);

$html .= "<HTML>\n<HEAD>\n
<script language=\"JavaScript\">
if (self.parent.frames.length != 0)
        self.parent.location=\"http://www.gauch.ch/hithunter/topsites.html\";
</script>\n<TITLE>$topsite_name</TITLE>\n<STYLE TYPE=\"text/css\">
.6Ver {font-size: 6pt; font-family: verdana, arial, helvetica, sans-serif;}
.7Ver {font-size: 7pt; font-family: verdana, arial, helvetica, sans-serif;}
.8Ver {font-size: 8pt; font-family: verdana, arial, helvetica, sans-serif;}
.9Ver {font-size: 9pt; font-family: verdana, arial, helvetica, sans-serif;}
.10Ver {font-size: 10pt; font-family: verdana, arial, helvetica, sans-serif;}
.11Ver {font-size: 11pt; font-family: verdana, arial, helvetica, sans-serif;}
A:link, A:visited {text-decoration:none;font-weight: bold} 
A:visited {text-decoration:none;font-weight: bold}
a:hover{ text-decoration: underline; color:red;}
.myhover a:hover{color:red}
</STYLE>\n<META HTTP-EQUIV=\"Refresh\" CONTENT=\"10;URL=http://www.hitsubmit.de/hitsub/topsites.cgi\">\n</HEAD>\n";
$html .= "<body BACKGROUND=\"http://www.hitsubmit.de/img/test.jpg\" bgcolor=$over_bg text=$text_color link=$link_color vlink=$link_color>\n";
open (HEAD, "header.txt");
@head = <HEAD>;
close (HEAD);
foreach $line (@head) {
	$html .= "$line";
}

$html .= "<center><br><br>\n";
$html .= "<table cellspacing =$table_spacing bgcolor=$table_bg border=$table_border cellpadding =$table_padding width=$table_width>\n";
$html .= "<TR bgcolor=$table_head_bg align=center>\n";
$html .= "<TD><FONT SIZE=$font_size FACE=$font_face color=$text_table_head><B>Rank</B></td>\n";
$html .= "<TD><FONT SIZE=$font_size FACE=$font_face color=$text_table_head><B>Site Name</B></td>\n";

if ($rank eq "Hits/Day") {
	$html .= "<TD><FONT SIZE=$font_size FACE=$font_face color=$table_text><B>Hits/Day</B></td>\n";
}
$html .= "<TD><FONT SIZE=$font_size FACE=$font_face color=$table_text><B>Hits in</B></td></tr>\n";

$ranks = 0;
while ($ranks < $num_to_show) {
	@members_array = split(/\|/,$sort[$ranks]);
	$s_rank = $ranks + 1;
	$x++;
	$z++;
	$html .= "<tr align=center><td><FONT SIZE=$font_size FACE=$font_face color=$text_table>$s_rank</td>\n";

	if ($members_array[9]) {
		$html .= "<td><FONT SIZE=$font_size FACE=$font_face color=$text_table><a href=\"$members_array[3]\" target=\"_blank\">$members_array[5]</a><br>\n";
		if (($ranks < $num_banners) && $members_array[4]){
			$html .= "<a href=\"$members_array[3]\">";
			$html .= "<img src=\"$members_array[4]\" border=0>";
			$html .= "</a>";
		}
		$html .= "</td>\n";
		if ($members_array[0] && ($rank eq "Hits/Day")) {
			$hpd = int($members_array[0]);
			unless ($hpd) {
				$hpd =1;
			}
		}
		else { $hpd=0; }
		if ($rank eq "Hits/Day") {
			$html .= "<td><FONT SIZE=$font_size FACE=$font_face color=$text_table>$hpd</td>\n";
		}
		$html .= "<td><FONT SIZE=$font_size FACE=$font_face color=$text_table>$members_array[1]</td></tr>\n";
	}	
	else {
		$html .= "<td><FONT SIZE=$font_size FACE=$font_face color=$text_table><a href=\"http://www.hitsubmit.de/hitsub/newuser.cgi\">- Neue URL anmelden! -</a></TD>\n";
		if ($rank eq "Hits/Day") {
			$html .= "<td><FONT SIZE=$font_size FACE=$font_face color=$text_table>-</td>\n";
		}
		$html .= "<td><FONT SIZE=$font_size FACE=$font_face color=$text_table>-</td></tr>\n";
	}
	$ranks++;
}

$html .="</table><br><FONT SIZE=$font_size FACE=$font_face><a href=\"http://www.hitsubmit.de/hitsub/newuser.cgi\">Neue URL anmelden!</a></B></FONT><BR><BR>\n";

open (HEAD, "footer.txt");
@foot = <HEAD>;
close (HEAD);
foreach $line (@foot) {
	$html .= "$line";
}
$html .= $all_right;
open (HTML,">$path_to_topsites/topsites.html") || &error(2);
print HTML "$html";
close (HTML);

}

sub set_defaults {
# SET DEFAULTS #
$version = "2.0";
$over_bg = "white";
$text_color = "black";
$link_color = "blue";
$font_size = "1";
$font_face = "arial";
$table_border = 1;
$table_padding = 5;
$table_spacing = 0;
$table_width = 575;
$table_bg = $over_bg;
$table_head_bg = $over_bg;
$text_table_head = $text_color;
}

sub error{

print "Content-type: text/html\n\n";
$errors = $_[0] ;
&header;
if ($errors == 1) {
print <<EOF;
<b>An error has occured reading and writing to members.db</B><BR><BR>
More information on the problem:<BR>
<font color=red>$!</FONT>
<BR><BR>

EOF
	&error_footer("rw_members.shtml");
}
elsif ($errors == 2) {
print <<EOF;
<b>An error has occured trying to write/create the file topsites.html</B><BR><BR>
topsites.html is set to be created in the dir:<BR>
<font color=red>$path_to_topsites</font>
<BR><BR>
More information on the problem:<BR>
<font color=red>$!</FONT>
<BR><BR>

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

EOF
	&error_footer("wc_time.shtml");
}
elsif ($errors == 4) {
print <<EOF;
Editing topsites.cgi has created and error where the script is no longer able 
to function properly, we suggest uploading an original unedited Top Sites.
<BR><BR>
Thank you
<BR><BR>

EOF
	&footer;
}
elsif ($errors == 5) {
print <<EOF;
<b>You have your <font color=red>variables.pl</FONT> configured wrong</B><BR><BR>
The value you have entered for \$topsite_location does not contain <font color=red>http://</FONT>
<BR><BR>
EOF
	&error_footer("variables.shtml");
}
elsif ($errors == 6) {
print <<EOF;
<b>You have your <font color=red>variables.pl</FONT> configured wrong</B><BR><BR>
The value you have entered for \$topsite_location_cgi does not contain <font color=red>http://</FONT>
<BR><BR>
EOF
	&error_footer("variables.shtml");
}
elsif ($errors == 7) {
print <<EOF;
<b>You have your <font color=red>variables.pl</FONT> configured wrong</B><BR><BR>
The value you have entered for \$path_to_topsites contains <font color=red>http://</FONT> which is for urls, not paths
<BR><BR>
EOF
	&error_footer("variables.shtml");
}
exit;
}

sub header {
print <<EOF;
<HTML><HEAD>
<TITLE>HIT HUNTER  Top of 100 !</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;
<center><B><h2>Fragen, Anregungen, Fehler usw.</h2></B><BR><BR>

<STRONG>Für Fragen, Anregungen, Fehler usw. gehen Sie bitte ins:<br> <A 
href="http://www.gauch.ch/cgi-bin/dcforum97n/dcboard.cgi" 
onmouseout="window.status=''; return true" 
onmouseover="window.status='Hier kann über (Alles) diskutiert werden.!'; return true" 
target=_top> <font color=red>
<p><NOBR>FORUM - DIE *LINKE* SEITE</NOBR></font></A><br><br>
in die entsprechende 
Rubrik.  :)<BR>

<BR><BR>
und hinterlegen da eine Mitteilung.<BR>
Inkl. der Fehlermeldung.<BR><BR></STRONG>

<B><FONT size=3>Sollten Fehler auftreten, so benachrichtigen Sie mich bitte. <br>Auch Anregungen sind 
willkommen!</FONT></B>
<br><br>
<FONT SIZE="-1" FACE="Arial"><A HREF="http://www.hitsubmit.de/hitsub/topsites.cgi">hitsubmit.de - Top of 100!</A><br>
</FONT></center>
<BR><BR>
</TD></TR></TABLE>
</TD></TR></TABLE>
EOF
}

sub footer {
$error_url = $_[0];
print <<EOF;
<HR NOSHADE SIZE=1>
<CENTER>hitsubmit.de - Top of 100!<br> Created by <a href="http://www.hitsubmit.de"><B>hitsubmit.de</B></A><BR><br>
"Universal Web Solutions"<BR>
</TD></TR></TABLE>
</TD></TR></TABLE>
EOF
}