0byt3m1n1

Path: /data/0/0/22/44/22370/user/22848/cgi-bin/ [ Home ]
File: webframeadmin.pl
#!/usr/bin/perl
#webFrame v1.0
#Developed by Web Scribble
#http://www.web-scribble.com
#Copyright 2001 Web-Scribble.com

$adminpassword = "445544";

use CGI;

$q = new CGI;

@input = $q->param;
foreach $input (@input){
${$input} = $q->param($input);
}


if ($ENV{'QUERY_STRING'} eq "adminarea") { &doadmin; }
elsif ($ENV{'QUERY_STRING'} eq "reset") { &reset; }
else { &showlogin; }

sub showlogin
{

	$content = "<center><b>Administrative Area Login</b></center>
		<form action=\"webframeadmin.pl?adminarea\" method=POST>
		<table>
		<tr><td>Password:<input type=password name=password></td></tr>
		<tr><td align=right><input type=submit value=Login></td></tr></table></form>";
  printTemplate("webframetemplate.html", $content);
}

sub doadmin
{
	if ($password ne $adminpassword)
	{
		$content = "The password you entered is incorrect.";
		printTemplate("webframetemplate.html", $content);
		exit;
	}
	$content = "<center><b>Administrative Area</b></center><br>
		 <form action=\"webframeadmin.pl?reset\" method=POST>
		<input type=submit value=\"Reset All Statistics\"></form><br>
		<table><tr><td><b>Hits</b></td><td><b>URL</b></td></tr>\n";

	open (FH, "./links.dat");
	@links = <FH>;
	close(FH);

	foreach $link(@links)
	{
		chop($link);

		($hits, $url) = split(/\|/, $link);
		$content .= "<tr><td>$hits</td><td><a href=\"webframe.pl?$url\">$url</a></td></tr>\n";
	}
  $content .= "</table>";
	printTemplate("webframetemplate.html", $content);
}

sub reset 
{
	open(FH, ">./links.dat");
	print FH "";
	close(FH);

	$content = "All stats have been reset.";
  #$content = "Action disabled for demo version.";
  printTemplate("webframetemplate.html", $content);
}
sub printTemplate()
{
	($filename, $content) = @_;
	
	open (FH, "./$filename");
	@lines = <FH>;
	close(FH);
	
	print $q->header();
	foreach $line(@lines)
	{
		$line =~ s/\|CONTENT\|/$content/g;
		print "$line";
	}
}