0byt3m1n1

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

$title = "You are visiting a side outside of Web Scribble";
$cgipath = "http://www.linkinvite.com/cgi-bin";

use CGI;
$q = new CGI;

print $q->header();
if ($ENV{'QUERY_STRING'} =~ m/^top/g)
{
	$num = substr($ENV{'QUERY_STRING'}, 3, 2);

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

	@links = sort {$b <=> $a} @links;
	print "<table><tr><td><b>Hits</b></td><td><b>URL</b></td></tr>\n";
	for ($i = 0; $i <= $links,$i < $num; $i++)
	{
		chop(@links[$i]);
		($hits, $url) = split(/\|/, @links[$i]);
		print "<tr><td>$hits</td><td><a href=\"$cgipath/webframe.pl?$url\">$url</a></td></tr>";
	}
	print "</table>";
	exit;
}
if ($ENV{'QUERY_STRING'} eq "" || $ENV{'QUERY_STRING'} !~ m/^http:\/\//g) { print $q->header(); exit; }

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

open (FH, ">./links.dat");
foreach $link(@links)
{
	chop($link);
	($hits, $url) = split(/\|/, $link);
	if ($url eq $ENV{'QUERY_STRING'}) { $f = 1; $hits++; }
	print FH "$hits|$url\n";
}
if ($f ne 1) { print FH "1|$ENV{'QUERY_STRING'}\n"; }
close(FH);

print <<EOF;
<html>
<head>
<title>$title</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<frameset rows="60,*" frameborder="NO" border="0" framespacing="0" cols="*"> 
  <frame name="topFrame" scrolling="NO" noresize src="$cgipath/topframe.pl?$ENV{'QUERY_STRING'}" >
  <frame name="mainFrame" src="$ENV{'QUERY_STRING'}">
</frameset>
<noframes>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</noframes> 
</html>
EOF