 |
1 :םויה תוסינכ
48 :שדוחה תוסינכ
1 :ןיילנוא םישלוג
|
 |
|
CGIב םיטפירקס
|
|
Redirect ץבוק
|
UNKNOWN :רבחמה םש
UNKNOWN :תיב-רתא
:תורעה\תויחנה
-
:דוק
|
The webpage with the links
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Test Page</title>
</head>
<body>
<A HREF=/cgi-bin/redirect.pl?url=http://www.yahoo.com/>Visit Yahoo!</A><br>
<A HREF=/cgi-bin/redirect.pl?url=http://www.lycos.com/>Visit Lycos</A><br>
<A HREF=/cgi-bin/redirect.pl?url=http://www.google.com/>Visit Google</A><br>
<A HREF=/cgi-bin/redirect.pl?url=http://www.netscape.com/>Visit Netscape</A><br>
<A HREF=/cgi-bin/redirect.pl?url=http://www.cnn.com/>Visit CNN</A><br>
</body>
</html>
The Perl redirect script
#!/usr/bin/perl
#
# Script to redirect url's
# while counting said redirects
#
# Tested with Netscape3.6/NT4.0/ActivePerl 5.13 with a server cgi-bin,
# Tested with Netscape2.0/Solaris2.6/Perl 5.005_02 without server cgi-bin,
#
$local_dir = "\/your\/local\/cgi_bin\/";
&html_content;
&work;
&do_html;
sub work{
$my_file = "$local_dir$filename";
open(COUNT,"$my_file");
$count = (<COUNT>);
close (COUNT);
$count = $count + 0;
++$count;
open (COUNT, "> $my_file");
print COUNT "$count \n";
close(COUNT);
}
sub do_html{
$refresh_string = '<META HTTP-EQUIV="REFRESH" CONTENT="0; URL=';
$tail = '">';
print "<html>\n";
print "<body>\n";
print "$refresh_string$url_string$tail\n";
#print "$url\n"; #for testing, uncomment this line and comment the line above
print "</body>\n";
print "</html>\n";
}
sub html_content{
$QUERY_STRING = $ENV{"QUERY_STRING"};
@NameValuePairs = split (/&/, $QUERY_STRING);
foreach $NameValue (@NameValuePairs){
($Name, $url_string) = split (/=/, $NameValue);
$url_string =~ tr/+/ /;
$url_string =~ s/%([\dA-Fa-f][\dA-Fa-f])/ pack ("C", hex ($1))/eg;
@fields = split ( /\/\//, $url_string);
$url = $fields[1];
$url =~ tr/\./_/;
$url =~ tr/\// /;
$filename = "$url.txt";
}
}
The Perl count script
#!/usr/bin/perl
#
# Script to count number
# of redirected url's
#
# Tested with NetscapeEnt3.6/NT4.0/ActivePerl 5.13 with a server cgi-bin,
# Tested with NetscapeEnt2.0/Solaris2.6/Perl 5.005_02 without server cgi-bin,
#
$local_dir = "\/your\/local\/cgi_bin\/";
$filename = "redirs.cnt";
$my_file = "$local_dir$filename";
print "$my_file\n";
&open_html;
&what_I_had;
&close_html;
sub open_html{
print "<html>\n";
print "<body>\n";
print "<br><br><blockquote><blockquote><blockquote><blockquote><blockquote><blockquote>\n";
print "<font size=+2 face=Tohama,Arial><b> This page lists the counts of redirections that your server has done.</b></font><br><br><br>\n";
print "<font size=+1 face=Tohama,Arial}\n";
}
sub close_html{
print "</blockquote></blockquote></blockquote></blockquote>\n";
print "</body>\n";
print "</html>\n";
}
sub what_I_had {
$smeg = 1;
opendir(REDIR,"$local_dir");# or die "Cant open $local_dir";
foreach $name (sort readdir (REDIR)){
$txt_file = "$local_dir$name";
$off_set = 0; $off_set = index($name,"txt");
if ($off_set >= 2){
open(COUNT,"$txt_file");# or warn "Cant open $name\n";
$count = (<COUNT>);
close (COUNT);
$count = ($count + 0);
$url = $name;
$url =~ s/\W.*//;
$url =~ tr/_/\./;
print "<br>$count redirects to $url\n";
}
++ $smeg;
$off_set = 0; $count = 0;
}
closedir (REDIR);
}
|
|
|
|
הרזח >>
|
... |
