Servers Redirection script

#!/usr/bin/perl ############################################# # Copyright 1999 Xavier Media # # http://www.servers.nu/ # # # # If you need help, please visit our # # CGI discussion board at # # http://www.servers.nu/wwwboard/cgi.html # # or # # http://www.servers.nu/redirect.html # ############################################# $temp=$ENV{'QUERY_STRING'}; @pairs=split(/&/,$temp); foreach $item(@pairs) { ($key,$content)=split (/=/,$item,2); $content=~tr/+/ /; $content=~ s/%(..)/pack("c",hex($1))/ge; $fields{$key}=$content; } # Admin password $admin = "test"; # Your email address $email = "webmaster\@kor.dk"; # Mail the log file to me (1 = Yes, 0 = No) $mail_log = 0; # When do you want me to email the logfile to you? # Enter number of total clicks. Example 150. $mail_clicks = "150"; # Where can I find sendmail? $mailprog = "/bin/sendmail"; # Do you want me to add new links (1 = Yes, 0 = No)? $add = 1; # Where is the logfile located? $logclick = "click.log"; # No more editing is required! $link = $fields{'link'}; $page = $fields{'page'}; $url = $fields{'url'}; $passwd = $fields{'passwd'}; if ($link) { open(DATA,"$logclick"); @lines = ; close(DATA); open(DATA,">$logclick"); foreach $line (@lines) { ($start, $end, $click, $xx) = split(/\|/,$line); if (($ENV{'HTTP_REFERER'} eq $start) && ($link eq $end)) { $click++; print DATA "$start|$end|$click|xx\n"; $add = 0; } else { print DATA $line; } $total_click = ($total_click + $click); $mail_logfile .= "$start =>\n"; $mail_logfile .= " $end\n"; $mail_logfile .= "Clicks: $click\n\n"; } close(DATA); if ($add eq 1) { open(DATA,">>$logclick"); print DATA "$ENV{'HTTP_REFERER'}|$link|1|xx\n"; close(DATA); $total_click++; $mail_logfile .= "$ENV{'HTTP_REFERER'} =>\n"; $mail_logfile .= " $link\n"; $mail_logfile .= "Clicks: 1\n\n"; } if ($total_click eq $mail_clicks) { &email_log; } print "Content-type: text/html\n"; print ("Location: $link\n\n"); } else { print "Content-type: text/html\n\n"; print "Servers Redirection script\n"; print "

\n"; print "\n"; if ($admin eq $passwd) { print "[ MAIN ] | \n"; print " [ HTML code ] | \n"; print " [ CLEAR LOGFILE ] | \n"; print " [ Xavier Media ]

\n"; } else { print "[ MAIN ] | \n"; print " [ HTML code ] | \n"; print " [ CLEAR LOGFILE ] | \n"; print " [ Xavier Media ]

\n"; } if (($page eq "main") && ($admin eq $passwd)) { open(DATA,"$logclick"); @lines = ; close(DATA); foreach $line (@lines) { ($start, $end, $click, $xx) = split(/\|/,$line); print "$start\n"; print " =>
\n"; print "$end
\n"; print "Clicks: $click

\n"; $total_click = ($total_click + $click); } print "Total # of clicks: $total_click

\n"; } elsif (($page eq "query1") && ($admin eq $passwd)) { open(DATA,"$logclick"); @lines = ; close(DATA); foreach $line (@lines) { ($start, $end, $click, $xx) = split(/\|/,$line); if ($start eq $url) { print "$start\n"; print " =>
\n"; print "$end
\n"; print "Clicks: $click

\n"; $total_click = ($total_click + $click); } } print "Total # of clicks: $total_click

\n"; } elsif (($page eq "query2") && ($admin eq $passwd)) { open(DATA,"$logclick"); @lines = ; close(DATA); foreach $line (@lines) { ($start, $end, $click, $xx) = split(/\|/,$line); if ($end eq $url) { print "$start\n"; print " =>
\n"; print "$end
\n"; print "Clicks: $click

\n"; $total_click = ($total_click + $click); } } print "Total # of clicks: $total_click

\n"; } elsif (($page eq "delete") && ($admin eq $passwd)) { open(DATA,">$logclick"); print DATA ""; close(DATA); print "The logfile has been deleted!

\n"; } elsif (($page eq "html") && ($admin eq $passwd)) { ($x1, $x2) = split(/\.cgi/,$ENV{'HTTP_REFERER'}); print "Drop-down box

\n"; print "<FORM METHOD=\"get\" ACTION=\"http://www.yoursite.com/cgi-bin/redirect.cgi\">
\n"; print "<SELECT NAME=link>
\n"; print "   <OPTION VALUE=\"http://www.servers.nu\">Xavier Media
\n"; print "   <OPTION VALUE=\"http://www.netscape.com\">Netscape
\n"; print "   <OPTION VALUE=\"http://www.altavista.com\">Altavista
\n"; print "</SELECT>
\n"; print "<INPUT TYPE=submit VALUE=\"GO!\">
\n"; print "</FORM>

\n"; print "Text link

\n"; print "<A HREF=\"http://www.yoursite.com/cgi-bin/redirect.cgi?link=http://www.netscape.com\">Netscape</A>

\n"; } else { print "

\n"; } print "

Script created by Xavier Media\n"; print "

\n"; print "\n"; } exit; sub email_log { open (MAIL, "|$mailprog $email") || die "Can't open $mailprog\n"; print MAIL "Reply-to: hotspider\@servers.nu (Servers Redirection script)\n"; print MAIL "From: hotspider\@servers.nu (Servers Redirection script)\n"; print MAIL "Subject: Redirection log\n\n"; print MAIL "$mail_logfile"; close (MAIL); open(DATA,">$logclick"); print DATA ""; close(DATA); }