;
close(DATA);
open(DATAOLD,">>$OldLogFileName");
foreach $LogKey (@LoadedLogArray) {
print DATAOLD $LogKey;
}
close(DATAOLD);
open(DATA,">$LogFileName");
print DATA "";
close(DATA);
print "$LogKey $LogKey Current Log file was moved to History\n";
}
elsif (($SelectedAction eq "help") && ($AdminPassword eq $LoginPassword)) {
($DomainPartSplitOff, $QueryStringSplitOff) = split(/\.cgi/,$RequestRef);
print qq|\n\t\tHELP:
\nMore help available at scripts.vrmatrix.com
\nFunctions of the menu at top of screen:\n
\n[ MAIN ] - [ MOVE CURRENT LOG TO HISTORY ] - [ VIEW HISTORY ] - [ HELP ] \n
\n
\nMAIN:
\n\nThis will take you to the main default area of the script. This is where you can view basic clickthroughs and change the date that you want to view click throughs for.\n\nMOVE CURRENT LOG TO HISTORY:
\n\nThis will move all current data in the script to the history script. \nYou will want to do this occasionally if you are tracking a large number of links. \nThis helps keep the redirection part of the script operating efficiently. \nAlso you will probably not want to scroll through a huge amount of dates \nso you can move it to the history where you can still review the stats \nif you need to but aren't bothered by all the extra dates in the \nchange date selector.\n
\nVIEW HISTORY:
\n\nThis switches over to the history script which allows you to view any old \ndata if you have used the operation above.\n
\nHELP:
\n\nThis file.\n
\n
\n\nClicking urls:
\nAlso you will notice that you can click on the url links on the main page. \nWhen you do this it will pull up any referer pages or domains for that link.\nOnce again the referer info is linked. If you click on any of the referer links it\nwill pull up all links that the referer page has sent. \n
\n
\n\nHow to record clicks with the script:\n\n\t\tSelect Menu
\n\t\t<FORM METHOD="get" ACTION="http://www.yoursite.com/cgi-bin/redirect.cgi">
\n\t\t<SELECT NAME=link>
\n\t\t <OPTION VALUE="http://www.zippety.com">Zippety
\n\t\t <OPTION VALUE="http://www.metacrawler.com">Metacrawler
\n\t\t</SELECT>
\n\t\t<INPUT TYPE=submit VALUE="submit">
\n\t\t</FORM>
\n\t\tHTML Link
\n\t\t<A HREF="http://www.yoursite.com/cgi-bin/redirect.cgi?link=http://www.zippety.com">Zippety</A>
|; } else { &aab; print qq|\n\n\n\n\t\t
|;
}
print qq|