#!/usr/bin/perl # # Please read the e-mail you received # with logit for installation instructions. # (or readme.txt in the logit.zip file) # # This script is coupled with logitpro.cgi # # If you did not download this from logitpro.com, please do so # ######## #Edit this if LogIT Fails to respond, exchange $ENV{'SCRIPT_NAME'} with the name of this script (ie: logitpro.cgi) $script = $ENV{'SCRIPT_NAME'}; #set this to 1 if you forget your password... then set it back to 0 after you recover!!! IMPORTANT!!!! $resetpass = 0; #if you get a 500 error after installing, uncomment the next line (remove the # before "use CGI..."), #and then submit a technical support request at http://helpdesk.logitpro.com #use CGI::Carp qw(fatalsToBrowser); #!!!!!DO NOT EDIT BELOW THIS LINE!!!!! #I am sure that these translations are not perfect, please let me know if you know a better way of saying it ############################################ # copyright notice: This program is copyright 1999-2000 BCS (LogIT PRO) # You may not edit, configure, or misconfigure anything under this copyright # notice without written consent from the maker. Any altering will be # defined as direct defiance of International copyright laws, and subject # to fines and or punishment to the maximum of their degree in your country. # Any plagiarism of this script without written consent from the maker will be # defined as a direct defiance of International copyright laws, and subject # to maximum fines and/or punishment as the laws are stated in your country. # # This copyright holds to the International Software Piracy Act ############################################ # la copie écrivent la notification: Ce programme est copie écrivent BCS 1999-2000 (LogIT PRO) # vous peut ne pas éditer, configurent, ou le misconfigure quelque chose sous cette copie écrivent # notification sans consentement écrit du générateur. modifier # définir comme direct défit international copie écrire loi, et sujet # amende et ou punition maximum leur degré dans votre pays # tout plagiarism ce séquence type sans écrire consentement générateur # définir tel que un direct défit international copie écrire loi, et sujet # maximum amende et/ou punition tel que loi énoncer dans votre pays # # ce copie écrire prise international logiciel piraterie acte ############################################ # la copie écrivent la notification: Ce programme est copie écrivent BCS 1999-2000 (LogIT PRO) # vous peut ne pas éditer, configurent, ou le misconfigure quelque chose sous cette copie écrivent # notification sans consentement écrit du générateur. modifier # définir comme direct défit international copie écrire loi, et sujet # fine et ou punition maximum leur degré dans votre pays # tout plagiarism ce séquence type sans écrire consentement générateur # définir tel que un direct défit international copie écrire loi, et sujet # maximum amende et/ou punition tel que loi énoncer dans votre pays # # ce copie écrire prise international logiciel piraterie acte ############################################ # la copia escriben el aviso: Este programa es copia escribe BCS 1999-2000 (LogIT PRO) # usted puede no corregir, configura, o el misconfigure cualquier cosa bajo esta copia escribe # aviso sin consentimiento escrito del fabricante. alterar ser # definir como directo desafío internacional copia escribir ley, y tema # multa y o castigo máximo su grado en su país # cualquier plagiarism este escritura sin escribir consentimiento fabricante ser # definir a medida que uno directo desafío internacional copia escribir ley, y tema # máximo multa y/o castigo a medida que ley ser indicar en su país # # este copia escribir asimiento internacional software piratería acto ############################################ ########### DO NOT EDIT BELOW ############## ############################################ $noupdat=0;$HeaderPrinted=0; $cookieExpLength = 7776000; $verinfo = "2.2.6"; &ginput; &GetCookies; if ($INPUT{'llogin'} ne "") {&llogin;} elsif ($INPUT{'logout'} ne "") {&logout;} elsif (!($ENV{'QUERY_STRING'} =~ /img/)) {print "Content-type: text/html\n\n";} else {&img;exit;} &chk; &ReadConfig; if ($p1 eq $p2) {$INPUT{'pword'} = $LPConfig{'password'};} if ($resetpass) {&NewConfig(1,1,1,1,1);} elsif ($INPUT{'NewConfig'} ne "") {&NewConfig();} elsif ($INPUT{'UpdateDataFile'} ne "") {&UpdateDataFile;} elsif ($INPUT{'tref'} ne "") {&logcheck; &tref($INPUT{'tref'});} elsif ($INPUT{'tpag'} ne "") {&logcheck; &tpag($INPUT{'tpag'});} elsif ($INPUT{'tsrh'} ne "") {&logcheck; &tsrh($INPUT{'tsrh'});} elsif ($INPUT{'fixips'} ne "") {&logcheck; &fixips;} elsif ($INPUT{'ggdate'} ne "") {&ggdate;} elsif ($INPUT{'fixwbak'} ne "") {&logcheck; &fixwbak;} elsif ($INPUT{'autoupdate'} ne "") {&autoupdate;} elsif ($INPUT{'updatedata'} ne "") {&updatedata;} elsif ($INPUT{'makebak'} ne "") {&logcheck; &makebak;} elsif ($INPUT{'fixblank'} ne "") {&logcheck; &fixblank;} elsif ($INPUT{'fixtitle'} ne "") {&logcheck; &fixtitle;} elsif ($INPUT{'delete'} eq "on") {&del;} elsif ($INPUT{'login'} ne "") {&logcheck; &login;} elsif ($INPUT{'llogin'} ne "") {&llogin;} elsif ($INPUT{'logout'} ne "") {&logout;} elsif ($INPUT{'gencode'} ne "") {&logcheck; &gencode;} elsif ($INPUT{'hourb'} ne "") {&logcheck; &hourb;} elsif ($INPUT{'dalyb'} ne "") {&logcheck; &dalyb;} elsif ($INPUT{'weekb'} ne "") {&logcheck; &weekb;} elsif ($INPUT{'montb'} ne "") {&logcheck; &montb;} elsif ($INPUT{'lastvisits'} ne "") {&logcheck; &lastvisits;} elsif ($INPUT{'lastrefers'} ne "") {&logcheck; &lastrefers;} elsif ($INPUT{'lastsearch'} ne "") {&logcheck; &lastsearch;} elsif ($INPUT{'toprefers'} ne "") {&logcheck; &toprefers;} elsif ($INPUT{'topsearch'} ne "") {&logcheck; &topsearch;} elsif ($INPUT{'topsearcheg'} ne "") {&logcheck; &topsearcheg;} elsif ($INPUT{'toppages'} ne "") {&logcheck; &toppages;} elsif ($INPUT{'topips'} ne "") {&logcheck; &topips;} elsif ($INPUT{'topclr'} ne "") {&logcheck; &topclr;}#LogitPRO VIP Service elsif ($INPUT{'topjva'} ne "") {&logcheck; &topjva;}#LogitPRO VIP Service elsif ($INPUT{'dele'} ne "") {&dele($INPUT{'dele'});} elsif ($INPUT{'tophosts'} ne "") {&logcheck; &tophosts;} elsif ($INPUT{'topdomains'} ne "") {&logcheck; &topdomains;} elsif ($INPUT{'topcountries'} ne "") {&logcheck; &topcountries;} elsif ($INPUT{'topplatform'} ne "") {&logcheck; &topplatform;} elsif ($INPUT{'topbrowser'} ne "") {&logcheck; &topbrowser;} elsif ($INPUT{'frame'} ne "") {&frame($INPUT{'frame'});} elsif ($INPUT{'track'} ne "") {&logcheck; &track($INPUT{'track'});} elsif ($INPUT{'img'} ne "") {&img;} elsif ($ENV{'QUERY_STRING'} =~ /closed/) {&closed;} else {print "[ERROR: no action specified]";} sub ReadConfig { $onoff = 0; unless (-e "data/d.dat") {$onoff = 1;} if ($onoff) {return;exit;} readit('DATA','data/d.dat',1); close (DATA); foreach $data (@tmp) { chomp($data); ($varname, $varvalue) = split(/\|/, $data); $varvalue =~ s/^\s+//; $varvalue =~ s/\s+$//; $varvalue =~ s/\n//g; $LPConfig{$varname} = $varvalue; } &gimgs; if ($INPUT{'pword'} eq $guest) {$LPConfig{'ServerPath'} = "Not Shown to GUESTs";$LPConfig{'IPBlocked'} = "Not Shown to GUESTs";$LPConfig{'DomainBlocked'} = "Not Shown to GUESTs";$LPConfig{'mailprog'} = "Not Shown to GUESTs";$LPConfig{'yourmail'} = "Not Shown to GUESTs";$LPConfig{'password'} = "Not Shown to GUESTs";} } sub logcheck { if ($LPConfig{'passprt'} && !($Cookies{'login'} eq "yes")) {$noupdat=1;&login;} elsif ($LPConfig{'passprt'}) {print qq~logout
~;} else {} return; } sub fixips { open (TMP,"data/i.dat");@info=split(/\r/,);close (TMP); open (BAK,">i.bak");foreach $line (@info){print BAK "$line\r";}close (BAK); open (TMP,">data/i.dat"); flock (TMP,2); foreach $line (@info) { @line=split(/\|/,$line); $host=$line[4];use Socket; @a=split(/\./,$host);$addr=pack('C4',@a);($name,$alias,$adrtype,$length,@address)=gethostbyaddr($addr,AF_INET);$host2=$name; $host = substr($host2, 0, 80);if ($host2 ne $host){$host .= qq~...~;} $line[5]=$host; print TMP (join("|",@line),"\r");print "$line[4] = $host
\r"; } close (TMP);print "$name,$alias,$adrtype,$length,";print @address; } sub fixtitle { open (TMP,">data/i.dat"); flock (TMP,2); foreach $line (@info) { @line=split(/\|/,$line); if (!($line[10] && $line[10] ne "") && ($line[3] ne "" && $line[3])){$domain="$line[3]";$line[10]=&gettitle();$line[10]=~s/\'/\`/g;$line[10]=~s/\"/\`\`/g;$line[10]=~s/\|/\`/g;$line[10]=~s/\~/\`\`/g;} print TMP (join("|",@line),"\r");print "$line[3] = $line[10]
\r"; } close (TMP); } sub fixwbak { &header('Using THE Backup files'); @bak = ("data/i|info","data/c|count","data/o|overall","data/h|href","data/m|month and week","data/ip|daily ips"); foreach $line (@bak) { @a = split(/\|/,$line); @b = ("$a[0].dat","$a[0].bak"); $yesno = rename $b[1],$b[0]; if ($yesno) {$pt = qq~$IMG[3]> $a[1] backup has been used.....
~; open (FILE,"$b[0]"); ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat(FILE); close (FILE); if ($size > 1) {$pt .= qq~$IMG[10] width=5 height=1>$IMG[3]> $a[1] backup has STUCK!
~;} else {$pt .= qq~$IMG[10] width=5 height=1>$IMG[2]> ERROR: $a[1] backup has been lost...
~;} } else {$pt = qq~$IMG[2]>ERROR: $a[1] backup could not be used.....
~;} open (TMP,"$b[0]"); @tmp = ; close (TMP); open (TMP,">$b[1]"); print TMP @tmp; close (TMP); $onoff = 1;unless (-e $b[1]) {$onoff = 0;} if ($onoff) { $pt .= qq~$IMG[10] width=15 height=1>$IMG[3]> $a[1] backup has been created.....
~; open (FILE,"$b[1]"); ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat(FILE); close (FILE); if ($size > 1) {$pt .= qq~$IMG[10] width=15 height=1>$IMG[3]> $a[1] backup has been finished

~;} else {$pt .= qq~$IMG[10] width=15 height=1>$IMG[2]>ERROR: data could not put into $a[1] backup file

~;} } else {$pt .= qq~$IMG[10] width=15 height=1>$IMG[2]>ERROR: $a[1] backup has NOT been created.....

~;} print $pt; } print qq~$IMG[0]>Finished doing backup routine... if errors occured, please try again~; &footer; print qq~~; } sub fixblank { &makebak;open (TMP,"data/i.dat");@info2=split(/\r/,);close (TMP); open (TMP,">data/i.dat"); foreach $line (@info2) { @line=split(/\|/,$line); if (($line[0] ne "") && ($line[1] ne "") && ($line[2] ne "")) { print TMP "$line[0]|$line[1]|$line[2]|$line[3]|$line[4]|$line[5]|$line[6]|$line[7]|$line[8]|$line[9]|$line[10]|\r"; } else {print @line;print "<-- this line was not updated
";} } close (TMP); } sub makebak { &header('Creating THE Backup files'); @bak = ("data/i|info","data/c|count","data/o|overall","data/h|href","data/m|month and week","data/ip|daily ips"); foreach $line (@bak) { @a = split(/\|/,$line); @b = ("$a[0].dat","$a[0].bak"); open (TMP,"$b[0]"); @tmp = ; close (TMP); open (TMP,">$b[1]"); print TMP @tmp; close (TMP); $onoff = 1;unless (-e $b[1]) {$onoff = 0;} if ($onoff) { $pt = qq~$IMG[3]> $a[1] backup has been created.....
~; open (FILE,"$b[1]"); ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat(FILE); close (FILE); if ($size > 1) {$pt .= qq~     $IMG[3]> $a[1] backup has been finished

~;} else {$pt .= qq~     $IMG[2]>ERROR: data could not put into $a[1] backup file

~;} } else {$pt = qq~$IMG[2]>ERROR: $a[1] backup has NOT been created.....

~;} print $pt; } print qq~$IMG[0]>Finished doing backup routine... if errors occured, please try again~; &footer; print qq~~; } sub del { if ($INPUT{'pword'} ne $LPConfig{'password'}) {&ErroR('Problem.... WRONG PASSWORD!!!');} open (TMP,"data/i.dat");@info = split(/\r/,);close (TMP);$b=0; $del=~s/[^\w]/_/g; foreach $line (@info) { @line=split(/\|/,$line);$lline="$line\r"; $line[0] =~ s/[^\w]/_/g; if (!($del =~ /$line[0]/)) {if ($b) {push @ino,$lline;} else {@ino=$lline;}} $b++; } open (LOCK,">lock.test");flock (LOCK,2);print LOCK "1234567890";close (LOCK); open (LOCK,"lock.test");@lock = ;if ($lock[0] eq "1234567890") {$ynprint = 1;} else {$ynprint = 0;} open (LOCK,">lock.test");close(LOCK); if ($ynprint) {open (TMP,">data/i.dat");flock (TMP,2);print TMP @ino;close (TMP);} else {print qq~

ERROR - READ/WRITE



There was a problem writing to the files on your server. Possible problems include: no space on disk, files are currently locked and/or being writtian to ~;} print "Settings updated/deleted...

";$INPUT{'pword'} = "";&login; } #Login sub login { $frames= "login"; print shift; print "
"; &header("LogIT PRO LOGIN AREA"); if ($LPConfig{'passprt'} && !($Cookies{'login'} eq "yes")) { print qq~
$Cookies{'login'}

\r
In order to edit your configurations, you must enter your admin password here and press enter
Password:
\r
You must login to view your statistics.
Password:
\r
Reset files
Password:
~; } elsif ($LPConfig{'passprt'}) { print qq~
\r
In order to edit your configurations, you must enter your admin password here and press enter
You are logged in, but for security reasons, you must still type your password to view configurations:

Password:
\r
You are Logged In
\r
Reset files
You are logged in, but for security reasons, you must still type your password to view configurations:

Password:
~; } else { print qq~
\r
In order to edit your configurations, you must enter your admin password here and press enter
Password:
\r
Reset files
Password:
~; } &footer; exit; } sub llogin { $frames= "llogin"; open (DATA,'data/d.dat'); $tmp = ; @tmp = split(/\r/,$tmp); close (DATA); foreach $data (@tmp) { chomp($data); ($varname, $varvalue) = split(/\|/, $data); $varvalue =~ s/^\s+//; $varvalue =~ s/\s+$//; $varvalue =~ s/\n//g; $LPConfig{$varname} = $varvalue; } if ($p1 eq $p2) {$INPUT{'pword'} = $LPConfig{'password'};} if (!($INPUT{'pword'} eq $LPConfig{'password'})) {&ErroR('Password is wrong... Please re-enter');} else { SetCookies('login','yes','login','yes'); &header("LogIT PRO LOGIN AREA"); print "LOGGED IN!"; print qq~
\r
In order to edit your configurations, you must enter your admin password here and press enter
You are logged in, but for security reasons, you must still type your password to view configurations:

Password:
\r
You are Logged In
\r
Reset files
You are logged in, but for security reasons, you must still type your password to view configurations:

Password:
~; &footer; exit; } } sub logout { $frames= "logout"; &ClearCookies; &header("Logged Out of LogIT PRO"); print qq~successful logout!~; print qq~
\r
In order to edit your configurations, you must enter your admin password here and press enter
Password:
\r
You must login to view your statistics.
Password:
\r
Reset files
Password:


The footer will not be displayed for security reasons ~; exit; } #Hourly Breakdown sub hourb { $frames= "hourb"; open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat for reading'); @info = split(/\r/,); close (INFO); &header("LogIT PRO HOURLY BREAKDOWN AREA"); $table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Time Span $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd "; &ghour;$table.=qq~
";$tdd="
~; print qq~

~; print $table; &footer; } sub ghour { $c=0; print ""; foreach $line (@info) { @line = split(/\|/,$line); ($p,$z) = split (/\:/,$line[2]); if (($z =~ /p/) && ($p ne 12)) {$p = ($p+12);} elsif (($p == 12) && (($z =~ /a/oi) || ($z =~ /A/oi))) {$p=0;} elsif ($p == 24) {$p=0;} if ($p > 23) {$p=$p-12;} if ($hc[$p] ne "") {$hc[$p] = ($hc[$p] + 1);} else {$hc[$p]=1;} $c++; } $tmp=""; if ($LPConfig{'TimeHourFormat'} eq "12") {@hours = ("12:00 - 12:59 AM","1:00 - 1:59 AM","2:00 - 2:59 AM", "3:00 - 3:59 AM","4:00 - 4:59 AM","5:00 - 5:59 AM","6:00 - 6:59 AM","7:00 - 7:59 AM", "8:00 - 8:59 AM","9:00 - 9:59 AM","10:00 - 10:59 AM","11:00 - 11:59 AM","12:00 - 12:59 PM", "1:00 - 1:59 PM","2:00 - 2:59 PM","3:00 - 3:59 PM","4:00 - 4:59 PM","5:00 - 5:59 PM", "6:00 - 6:59 PM","7:00 - 7:59 PM","8:00 - 8:59 PM","9:00 - 9:59 PM","10:00 - 10:59 PM", "11:00 - 11:59 PM","12:00 - 12:59 AM");} else {@hours = ("2400 - 0059","0100 - 0159","0200 - 0259","0300 - 0359","0400 - 0459","0500 - 0559", "0600 - 0659","0700 - 0759","0800 - 0859","0900 - 0959","1000 - 1059","1100 - 1159","1200 - 1259", "1300 - 1359","1400 - 1459","1500 - 1559","1600 - 1659","1700 - 1759","1800 - 1859","1900 - 1959", "2000 - 2059","2100 - 2159","2200 - 2259","2300 - 2359","2400 - 0059");} $max=0;foreach $line (@hc) {if ($line > $max) {$max = $line;}} $wid=(300/$max); $b = 1;foreach $line (@hc) { if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} $width=($line*$wid); $prct = (($line/$c)*300); $prct1 = substr((($line/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$c)*300); $prcttt = (($prct/$prctt)*100); if ($width > 300) {$width =300;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= "\r"; $b++; } } #Daily Breakdown sub dalyb { $frames= "dalyb"; &header("LogIT PRO DAILY BREAKDOWN AREA"); open (HIST,"data/h.dat"); @hist = split(/\r/,);@hista="";@histb="";@histc=""; open (TMP,"data/c.dat");@count = split(/\|/,);close (TMP); open (TMP,"data/t.overall");$tmp=length ;close (TMP);$overall[1] = ($overall[1] + $tmp); open (TMP,"data/u.overall");$tmmp=length ;close (TMP);$overall[2] = ($overall[2] + $tmmp); open (TMP,"data/t.count");$tmpz=length ;close (TMP);$count[0] = ($count[0] + $tmpz); open (TMP,"data/u.count");$tmmpz=length ;close (TMP);$count[1] = ($count[1] + $tmmpz); push @hista,"Today";push @histb,$count[0];push @histc,$count[1]; foreach $line (@hist) { @l=split(/\|/,$line); push @hista,$l[0];push @histb,$l[1];push @histc,$l[2]; } $tt=0;$maxt=0;$b=0;foreach $line (@hista) {if ($maxt<$histb[$b] && $histb[$b] ne "") {$maxt=$histb[$b];}if ($maxt<$histc[$b] && $histc[$b] ne "") {$maxt=$histc[$b];}$tt=$tt+$histb[$b]+$histc[$b];$b++;} $widt=(400/$maxt);$table0=""; $b=1;foreach $line (@hista) { if ($hista[$b] ne "") { if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} $width=($histb[$b]*$widt); $prct=substr((($histb[$b]/$tt)*100),0,4);$prct1="$prct%"; $prcttt=(($histb[$b]/$maxt)*100); if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table0.=qq~\r~; $width=($histc[$b]*$widt); if ($width > 400) {$width = 400;} $prct=substr((($histc[$b]/$tt)*100),0,4);$prct1="$prct%"; $prcttt=(($histc[$b]/$maxt)*100); if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table0.=qq~\r~; $table0.=qq~~; } $b++; } $ttd=""; print qq~
$line$hours[$b]$IMG[$ii] width=$width height=8>   $prct1
$hista[$b]$histb[$b]$prct1$IMG[$ii] width=$width height=8 border=1>
$histc[$b]$prct1$IMG[$ii] width=$width height=8 border=1>
 
";$tdd="
$ttd Day $tdd $ttd hits total/unique $tdd$ttd percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more]$tdd \r$table0
Daily Hits (total/unique)
~; &footer; } #Weekly Breakdown sub weekb { $frames= "weekb"; &header("LogIT PRO WEEKLY BREAKDOWN AREA"); open (TMP,"data/m.dat");($weekdays,$months) = split(/\r/,);close (TMP); @weekdays = split(/\|/,$weekdays); $weekday = ""; foreach $line (@weekdays) { @l = split(/\:/,$line); ($l[1],$l[2]) = split(/\~/,$l[1]); push @weeka,$l[0];push @weekb,$l[1];push @weekc,$l[2]; } $tt=0;$maxt=0;$b=0;foreach $line (@weeka) {if ($maxt<$weekb[$b] && $weekb[$b] ne "") {$maxt=$weekb[$b];}if ($maxt<$weekc[$b] && $weekc[$b] ne "") {$maxt=$weekc[$b];}$tt=$tt+$weekb[$b]+$weekc[$b];$b++;} $widt=(400/$maxt);$table0=""; $b=0;foreach $line (@weeka) { if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} $width=($weekb[$b]*$widt); if ($width > 400) {$width = 400;} $prct=substr((($weekb[$b]/$tt)*100),0,4);$prct1="$prct%"; $prcttt=(($weekb[$b]/$maxt)*100); if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table0.=qq~$weeka[$b]$weekb[$b]$prct1$IMG[$ii] width=$width height=8 border=1>\r~; $width=($weekc[$b]*$widt); if ($width > 400) {$width = 400;} $prct=substr((($weekc[$b]/$tt)*100),0,4);$prct1="$prct%"; $prcttt=(($weekc[$b]/$maxt)*100); if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table0.=qq~$weekc[$b]$prct1$IMG[$ii] width=$width height=8 border=1>\r~; $table0.=qq~ ~; $b++; }$ttd="";$tdd=""; print qq~
\r$ttd Weekday $tdd$ttd Hits (total/unique) $tdd$ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd $table0
Days of the Week
~; &footer; } #Monthly Breakdown sub montb { $frames= "montb"; open (TMP,"data/m.dat");($months,$weekdays) = split(/\r/,);close (TMP); &header("LogIT PRO MONTHLY BREAKDOWN AREA"); @weekdays = split(/\|/,$weekdays); $weekday = ""; foreach $line (@weekdays) { @l = split(/\:/,$line); ($l[1],$l[2]) = split(/\~/,$l[1]); push @weeka,$l[0];push @weekb,$l[1];push @weekc,$l[2]; } $tt=0;$maxt=0;$b=0;foreach $line (@weeka) {if ($maxt<$weekb[$b] && $weekb[$b] ne "") {$maxt=$weekb[$b];}if ($maxt<$weekc[$b] && $weekc[$b] ne "") {$maxt=$weekc[$b];}$tt=$tt+$weekb[$b]+$weekc[$b];$b++;} $widt=(400/$maxt);$table0=""; $b=0;foreach $line (@weeka) { if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} $width=($weekb[$b]*$widt); if ($width > 400) {$width = 400;} $prct=substr((($weekb[$b]/$tt)*100),0,4);$prct1="$prct%"; $prcttt=(($weekb[$b]/$maxt)*100); if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table0.=qq~$weeka[$b]$weekb[$b]$prct1$IMG[$ii] width=$width height=8 border=1>\r~; $width=($weekc[$b]*$widt); if ($width > 400) {$width = 400;} $prct=substr((($weekc[$b]/$tt)*100),0,4);$prct1="$prct%"; $prcttt=(($weekc[$b]/$maxt)*100); if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table0.=qq~$weekc[$b]$prct1$IMG[$ii] width=$width height=8 border=1>\r~; $table0.=qq~ ~; $b++; }$ttd="";$tdd=""; print qq~
\r$ttd Month $tdd$ttd Hits $tdd$ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd $table0
Month by Month
~; &footer; } #last $LPConfig{'LastVisits'} visitors sub lastvisits { $frames= "lastvisits"; &header("LogIT PRO LAST VISITS AREA"); if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'LastVisits'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $dte = "";$n=0;$table = qq~
$IMG[4]>=track local page (click)      $IMG[0]>=track domain (click)      $IMG[1]>=track ip (click)      $IMG[2]>=Error (hold mouse over or click)      $IMG[3]>=referral (hold mouse over or click)
~; &glstvis;$table .= qq~
~; print qq~
Change the amount listed:
~; print $table; &footer; } sub dele { if ($INPUT{'pword'} && ($INPUT{'pword'} eq $LPConfig{'password'})) { $dele = shift; if ($dele eq "m.dat") {unlink "data/m.dat";open (TMP,">data/m.dat") || ErroR("Error creating monthly-daily data file 'm.dat'");print TMP "Sun:|Mon:|Tue:|Wed:|Thu:|Fri:|Sat:|\rJan:|Feb:|Mar:|Apr:|May:|Jun:|Jul:|Aug:|Sep:|Oct:|Nov:|Dec:|";close (TMP);&header('deleted the month/week file');print "finished...";&footer;} elsif ($dele eq "h.dat") {unlink "data/h.dat";open (TMP,">data/h.dat") || ErroR("Error creating history data file 'h.dat'");close (TMP);&header('deleted the daily file');print "finished...";&footer;} #history elsif ($dele eq "ip.dat") {unlink "data/ip.dat";open (TMP,">data/ip.dat") || ErroR("Error creating daily ip data file 'ip.dat'");close (TMP);&header('deleted today`s unique ip file');print "finished...";&footer;} #ip elsif ($dele eq "r.dat") {unlink "data/r.dat";open (TMP,">data/r.dat") || ErroR("Error creating referer newlink data file 'r.dat'");close (TMP);&header('deleted the new/old referrer file');print "finished...";&footer;} #href elsif ($dele eq "c.dat") { unlink "data/u.overall";open (TMP,">data/u.overall") || ErroR("Error creating the count data file 'c.dat'");close (TMP); unlink "data/t.overall";open (TMP,">data/t.overall") || ErroR("Error creating the count data file 'c.dat'");close (TMP); unlink "data/u.count";open (TMP,">data/u.count") || ErroR("Error creating the count data file 'c.dat'");close (TMP); unlink "data/t.count";open (TMP,">data/t.count") || ErroR("Error creating the count data file 'c.dat'");close (TMP); unlink "data/c.dat";open (TMP,">data/c.dat") || ErroR("Error creating the count data file 'c.dat'");close (TMP); &header('deleted today`s hit count file');print "finished...";&footer; } #count elsif ($dele eq "i.dat") {unlink "data/i.dat";open (TMP,">data/i.dat") || ErroR("Error creating info data file 'i.dat'");close (TMP);&header('deleted the info file');print "finished...";&footer;} #info elsif ($dele eq "o.dat") {&gdate;unlink "data/o.dat";open (TMP,">data/o.dat") || ErroR("Error creating overall data file 'o.dat'");print TMP "$date\, $clock|0|0|";close (TMP);&header('deleted the overall file');print "finished...";&footer;} #overall elsif ($dele eq "all") {unlink "data/m.dat";unlink "data/o.dat";unlink "data/i.dat";unlink "data/c.dat";unlink "data/r.dat";unlink "data/ip.dat";unlink "data/h.dat";&chk;&header('deleted all of the files');print "finished...";&footer;} elsif ($dele eq "revert") { opendir(TMP,"data"); @a = readdir(TMP);closedir(TMP); foreach $del (@a) { if ($del ne "." && $del ne "..") { $del = "data/$del"; $deel = unlink $del; if ($deel) {print "     $del - deleted!
\r";} else {print "     $del - NOT DELETED!
\r";} } } rmdir "data";print "     data/ - deleted!
\r"; unlink "search.dat";print "     search.dat - deleted!
\r"; print "

Everything has been deleted/removed from the logit directory except for logitpro.cgi and extras.bin (and any other file that you uploaded, and wasn't created by logitpro)"; print "

once you run $script?login , everything will be recreated fresh just like you are using it for the first time"; } elsif (!($dele eq "d.dat")) {unlink "$dele";}} } sub chk { unless (-e "data") {mkdir "data",755;$mode = 0700; chmod $mode, 'data'; } unless (-e "data/h.dat") {open (TMP,">data/h.dat") || ErroR("Error creating history data file 'h.dat'");close (TMP);} #history unless (-e "data/ip.dat") {open (TMP,">data/ip.dat") || ErroR("Error creating daily ip data file 'ip.dat'");close (TMP);} #ip unless (-e "data/r.dat") {open (TMP,">data/r.dat") || ErroR("Error creating referer newlink data file 'r.dat'");close (TMP);} #href unless (-e "data/m.dat") {open (TMP,">data/m.dat") || ErroR("Error creating monthly-daily data file 'm.dat'");print TMP "Sun:|Mon:|Tue:|Wed:|Thu:|Fri:|Sat:|\rJan:|Feb:|Mar:|Apr:|May:|Jun:|Jul:|Aug:|Sep:|Oct:|Nov:|Dec:|";close (TMP);} #monthly unless (-e "data/c.dat") {open (TMP,">data/c.dat") || ErroR("Error creating the count data file 'c.dat'");close (TMP);} #count unless (-e "data/i.dat") {open (TMP,">data/i.dat") || ErroR("Error creating info data file 'i.dat'");close (TMP);} #info unless (-e "data/o.dat") {&gdate;open (TMP,">data/o.dat") || ErroR("Error creating overall data file 'o.dat'");print TMP "$date\, $clock|0|0|";close (TMP);} #overall if ($INPUT{'UpdateDataFile'} ne "") {&UpdateDataFile;exit;} unless (-e "data/d.dat") {&gimgs;&NewConfig("Configurations have either not been set, or have been deleted",1);}#data } sub glstvis { $b=1; foreach $line (@info) { @lisst = split(/\|/,$line); $lisst[2] =~ s/ //g; if ($dte ne $lisst[1]) { $dte = $lisst[1]; $dayy = gday($lisst[0]); $table .= "
$dayy, $dte
\r"; $ttd="";$tdd=""; $table .= "$ttd Extra $tdd $ttd Time $tdd$ttd IP Address $tdd$ttd Host name $tdd$ttd Accessed Page $tdd "; } if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if ($lisst[4] ne "" && $lisst[4]) { $lisst[4] = substr($lisst[4],0,15); $imagg3 = qq~$IMG[1] alt="Click here to track the ip: $lisst[4]" border=0>~; } else {$imagg3 = qq~$IMG[11]>~;} if ($lisst[5] ne "" && $lisst[5]) { $lisst[5] = substr($lisst[5],0,35); @tmp = split (/\./,$lisst[5]);$tmp1=$tmp[$#tmp];$tmp0=$tmp[($#tmp-1)];$tmp2=$tmp[($#tmp-2)];if ($tmp0 eq "com") {$tmp0="$tmp2.$tmp0";}$domain = "$tmp0.$tmp1"; $imagg4 = qq~$IMG[0] alt="Click here to track the domain: $domain" border=0>~; } else {$imagg4 = qq~$IMG[11]>~;} if ($lisst[10] ne "") {$lisst[10]="($lisst[10])";}else{$lisst[10]=""} if ($lisst[9] ne "" && $lisst[9]) { $lisst[10] =~ s/\'//g;$imagg1 = qq~$IMG[3] alt="Referred by Search: $lisst[9]" border=0>~; } elsif ($lisst[3] ne "" && $lisst[3]) { $lisst[10] =~ s/\'//g;$imagg1 = qq~$IMG[3] alt="Referred by: $lisst[10] $lisst[3]" border=0>~; } else {$imagg1 = qq~$IMG[11]>~;} $check = 0; ($lisst[8],$check) = split(/~x~/,$lisst[8]); if ($check =~ /\*/) { $lisst[8] =~ s/\'//g; $imagg2 = qq~$IMG[2] alt="Accessed page: $lisst[8] was not found on your server at $lisst[2], $lisst[1]">~;$imagg5 = qq~$IMG[11]>~; } else {$imagg2 = qq~$IMG[11]>~;$imagg5 = qq~$IMG[4] alt="track local page: $lisst[8]" border=0>~;} $shortl8 = substr($lisst[8],-20,20); if ($shortl8 ne $lisst[8]) {$lisst[8]=qq~...$shortl8~;} else {$lisst[8]=qq~$shortl8~;} $table .= qq~ $imagg1$imagg2$imagg3$imagg4$imagg5 $lisst[2]$lisst[4]$lisst[5]$lisst[8]\r~; $b++; if ($b > $list) {return;exit;} } } #Last $LPConfig{'LastVisits'} Referrers sub lastrefers { $frames= "lastrefers"; &header("LogIT PRO LAST REFERRERS AREA"); if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'LastVisits'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $dte = "";$n=0;$table = qq~
~; &glstref;$table .= qq~
~; print qq~
Change the amount listed:
~; print $table; &footer; } sub glstref {$b=1; foreach $line (@info) { $newimg = ""; @lisst = split(/\|/,$line); if ($dte ne $lisst[1]) { $dte = $lisst[1]; $dayy = gday($lisst[0]); $table .= "
$dayy, $dte
\r";$ttd="";$tdd=""; $table .= "$ttd Extra $tdd $ttd Time $tdd$ttd Referrer $tdd$ttd Accessed Page $tdd "; } if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if ((($lisst[3]) && ($lisst[3] ne "")) && (!($lisst[9] =~ /\:/))) { if ($lisst[10] && $lisst[10] ne "") {$lisst3 = substr($lisst[10],0,23);if ($lisst3 ne $lisst[10]) {$lisst3 = substr($lisst[10],0,10);$lisst3 .= "...";$lisst3 .= substr($lisst[10],-10,10);}} else {$lisst3 = substr($lisst[3],0,63);if ($lisst3 ne $lisst[3]) {$lisst3 = substr($lisst[3],7,20);$lisst3 .= "...";$lisst3 .= substr($lisst[3],-20,20);}} ($lisst[8],$check) = split(/~x~/,$lisst[8]); if ($check =~ /\*/) { $lisst[8] =~ s/\'//g; $imagg2 = qq~$IMG[2] alt="Accessed page: $lisst[8] was not found on your server at $lisst[2], $lisst[1]" onClick="alert('Accessed page: $lisst[8] was not found on your server at $lisst[2], $lisst[1]');">~; } else {$imagg2 = qq~$IMG[11]>~;} $shortl8 = substr($lisst[8],-20,20); if ($shortl8 ne $lisst[8]) {$lisst[8]=qq~...$shortl8~;} else {$lisst[8]=qq~$shortl8~;} open (TMP,"data/r.dat"); $r=; close (TMP); $r = "$r";$ll = "$lisst[3]"; $r =~ s/[^\w]/_/g;$ll =~ s/[^\w]/_/g; $lisst[2] =~ s/ //g; if (!($r =~ /$ll/)) {$newimg = "$IMG[12]>";} $table .= qq~$imagg2 $newimg$lisst[2]$lisst3$lisst[8]\r~; $b++; if ($b > $list) {return;exit;} } } } sub track { $track = shift; open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split (/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; @tracked = ""; foreach $line (@info) {if ($line =~ /$track/) {push (@tracked,$line);}} &header("Who is $track?"); @tracked = sort {$a <=> $b} @tracked; $table = qq~Who is $track?
~; >racked; $table .= "
"; print "$table"; &footer; } sub tref { if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopHosts'};} $track = $ENV{'QUERY_STRING'}; $track =~ s/tref\=//g; print "(($track))
"; $track =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split (/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; @tracked = ""; foreach $line (@info) {if ($line =~ /$track/) {push (@tracked,$line);}} $ttrr = $#tracked; &header("Tracking Referrer $track"); $table = qq~Tracking Referrer $track
$track has generated $ttrr hits
~; $table .= qq~
[List of Local Pages] | [List of IPS]


The following is a list of the top $list Referral Pages which created these hits, if nothing shows, it means there was an insignificant number of referrals: ~; &trkpgs; $table .= "
"; $table .= qq~
The following is a list of the top $list IP addresses which created these hits (clicking on an IP will perform a HOST lookup): ~; &trkips; $table .= "
"; #$table .= ""; print "$table"; &footer; } sub tpag { $track = shift; $track =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopRefers'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split (/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; @tracked = ""; foreach $line (@info) { @ba = split(/\|/,$line); $aba = $ba[8] . "-"; $bab = $track . "-"; if ($aba eq $bab) {push (@tracked,$line);} $aba = "";$bab = ""; } $ttrr = $#tracked; &header("Tracking Local Page $track"); $table = qq~Tracking local Page $track
$track has generated $ttrr hits
~; $table .= qq~
[List of Referral Pages] | [List of IPS]


The following is a list of the top $list Referral Pages which created these hits, if nothing shows, it means there was an insignificant number of referrals: ~; &trkrefs; $table .= "
"; $table .= qq~
The following is a list of the top $list IP addresses which created these hits (clicking on an IP will perform a HOST lookup): ~; &trkips; $table .= "
"; print "$table"; &footer; } sub tsrh { $track = shift; if ($track =~ /\?/) { $track = $ENV{'QUERY_STRING'}; $track =~ s/tsrh\=//g;} $track =~ tr/+/ /;$track =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; @trak = split(/\:/,$track); $track = "$trak[0]:$trak[1]"; $lnkk = $trak[2]; if ($trak[3] ne "") {$lnkk .= ":$trak[3]";} if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopHosts'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split (/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; @tracked = ""; foreach $line (@info) {if ($line =~ /$track/) {push (@tracked,$line);}} $ttrr = $#tracked; &header("Tracking Referrer $track"); @tracked = sort {$a <=> $b} @tracked; $table = qq~Tracking Referrer $track
$track has generated $ttrr hits
~; $table .= qq~
[List of Local Pages] | [List of IPS]


The following is a list of the top $list Referral Pages which created these hits, if nothing shows, it means there was an insignificant number of referrals: ~; &trkpgs; $table .= "
"; $table .= qq~
The following is a list of the top $list IP addresses which created these hits (clicking on an IP will perform a HOST lookup): ~; &trkips; $table .= "
"; print "$table"; &footer; } sub trkpgs { @refs = ""; foreach $ttmp (@tracked) { print "\n\n"; @ab = split(/\|/,$ttmp); push (@refs,$ab[8]); } @refs = sort {uc($a) cmp uc($b)} @refs; $tmp = ""; @topsorted = ""; $max=1; $total = --$#topref; foreach $llne (@refs) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];};push @topsorted,$tmp;$tmp="1|$llne";} } else {$tmp="1|$llne";} }} push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"; @lisst = split(/\|/,$line); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if (($lisst[1]) && ($lisst[1] ne "")) { $lisst1 = substr($lisst[1],0,43);if ($lisst1 ne $lisst[1]) {$lisst1 = substr($lisst[1],7,20);$lisst1 .= "...";$lisst1 .= substr($lisst[1],-20,20);} $prct = (($lisst[0]/$c)*300);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$c)*300); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= "$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$lisst1\r"; $b++; if ($b > $list) {return;exit;} } } } sub trkrefs { @refs = ""; foreach $ttmp (@tracked) { print "\n\n"; @ab = split(/\|/,$ttmp); push (@refs,$ab[3]); } @refs = sort {uc($a) cmp uc($b)} @refs; $tmp = ""; @topsorted = ""; $max=1; $total = --$#topref; foreach $llne (@refs) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];};push @topsorted,$tmp;$tmp="1|$llne";} } else {$tmp="1|$llne";} }} push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { @lisst = split(/\|/,$line); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if (($lisst[1]) && ($lisst[1] ne "")) { $lisst1 = substr($lisst[1],0,43);if ($lisst1 ne $lisst[1]) {$lisst1 = substr($lisst[1],7,20);$lisst1 .= "...";$lisst1 .= substr($lisst[1],-20,20);} $prct = (($lisst[0]/$c)*300);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$c)*300); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= "$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$lisst1\r"; $b++; if ($b > $list) {return;exit;} } } } sub trkips { @ips = ""; foreach $ttmp (@tracked) { print "\n\n"; @ab = split(/\|/,$ttmp); push (@ips,$ab[4]); } @ips = sort {uc($a) cmp uc($b)} @ips; $tmp = ""; @topsorted = ""; $max=1; $total = --$#topref; foreach $llne (@ips) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];};push @topsorted,$tmp;$tmp="1|$llne";} } else {$tmp="1|$llne"; } }}push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { @lisst = split(/\|/,$line); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if (($lisst[1]) && ($lisst[1] ne "")) { $lisst1 = substr($lisst[1],0,63);if ($lisst1 ne $lisst[1]) {$lisst1 = substr($lisst[1],0,30);$lisst1 .= "...";$lisst1 .= substr($lisst[1],-30,30);} $prct = (($lisst[0]/$c)*300);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$c)*300); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= "$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$lisst1\r"; $b++; if ($b > $list) {return;exit;} } } } #0=domain ||||| 1=IP ||||| 2=error ||||| 3=referral ||||| 4=blue exclamation ||||| 5=bluedot ||||| 6=greendot ||||| 7=yellowdot ||||| 8=orangedot ||||| 9=reddot ||||| 10=cleardot ||||| 11=blank dot ||||| 12=new! sub img {print "Content-type: image/gif\n\n";open (IMAGE,"extras.bin");$image=;@images = split(/\|\|\|\|\|/,$image);close(IMAGE);print $images[$INPUT{'img'}];exit;} sub gtracked { $b=1; foreach $line (@tracked) { @lisst = split(/\|/,$line); if (($lisst[3] ne "") && $lisst[3]) { $ttable .= qq~$lisst[1], $lisst[2] - ENTER FROM $lisst[3]\r~; $enter = $lisst[0];$ent++; } elsif ((($lisst[0] - 3600) > $enter)) { $ttable .= qq~$lisst[1], $lisst[2] - ENTER (NO REFERRAL)\r~; $enter = $lisst[0];$ent++; } if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} ($lisst[8],$check) = split(/~x~/,$lisst[8]); if ($check =~ /\*/) { $lisst[8] =~ s/\'//g; $imagg2 = qq~$IMG[2] alt="Accessed page: $lisst[8] was not found on your server at $lisst[2], $lisst[1]" onClick="alert('Accessed page: $lisst[8] was not found on your server at $lisst[2], $lisst[1]');">~; } else {$imagg2 = qq~$IMG[11]>~;} $ttable .= qq~$imagg2 $lisst[1]$lisst[2]$lisst[8]\r~; $b++;$view++; if ($lisst[4]) {$iip=$lisst[4];}if ($lisst[5]) {$hst=$lisst[5];}if ($lisst[6]) {$brw=$lisst[6];}if ($lisst[7]) {$plt=$lisst[7];} } open (BIN,"extras.bin") || &ErroR('unable to open the extras file for data output'); @bin = ;$bin="@bin"; ($junk,$tmp) = split(/~~\|~~/,$bin);@countries=split(/\|\|\|/,$tmp);close (BIN); $county = gctry(substr($hst,-3,3)); @tmp = split (/\./,$hst); $tmp1=$tmp[$#tmp]; $tmp0=$tmp[($#tmp-1)]; $tmp2=$tmp[($#tmp-2)]; if ($tmp0 eq "com") {$tmp0="$tmp2.$tmp0";} $domain = "$tmp0.$tmp1";@ip=split(/\./,$iip); if (!($hst && $hst ne "")) {$domain = "[no host to grab domain from]";$hst = "[no host]";} $table .= qq~User Info: Domain$domain ? Recent IP$ip[0].$ip[1].$ip[2].$ip[3] Country$county Recent Browser$brw Recent Platform$plt Visits$ent Page views$view $ttable~; } #Last $LPConfig{'LastVisits'} Searches sub lastsearch { $frames= "lastsearch"; &header("LogIT PRO LAST SEARCH AREA"); if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'LastVisits'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $dte = "";$n=0;$table = qq~
~; &glstsrh;$table .= qq~
~; print qq~
Change the amount listed:
~; print $table; &footer; } sub glstsrh { $b=1; foreach $line (@info) { @lisst = split(/\|/,$line); if ($dte ne $lisst[1]) { $dte = $lisst[1]; $dayy = gday($lisst[0]); $table .= "
$dayy, $dte\r";$ttd="";$tdd=""; $table .= "$ttd Extra $tdd $ttd Time $tdd$ttd Search Engine $tdd$ttd Queried Terms $tdd$ttd Accessed Page $tdd "; } if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if ((($lisst[3]) && ($lisst[3] ne "")) && (($lisst[9]) && ($lisst[9] ne ""))) { $srhlnk=""; ($serch,$lisst[9]) = split (/\:/,$lisst[9]); open (SG,"search.dat");@sg = ;close (SG);$refi = "$serch";foreach $lne (@sg) {@r = split(/~x~/,$lne);if ($refi eq $r[2]) {$srhlnk = "http://www.$r[0]";}} $lisst9 = substr($lisst[9],0,35); if ($lisst9 ne $lisst[9]) {$lisst9 .= "...";} ($lisst[8],$l8) = split(/~x~/,$lisst[8]); $lisst8 = substr($lisst[8],0,20); if ($lisst8 ne $lisst[8]) {$lisst8 .= "...";} $table .= qq~$lisst[2]$serch$lisst9$lisst8\r~; $b++; if ($b > $list) {return;exit;} } } } sub gencode { if ($INPUT{'genit'} eq "java") {$gen="Javascript Code";$generate = qq~<script src="$LPConfig{'URI'}?java"></script> <!-- // Note, Javascript code adds a hidden 1x1 image to your page, Put this code in the body area, or it will not work. // -->~;} elsif ($INPUT{'genit'} eq "ssi") {$gen="SSI Code";$generate = qq~<!--#include virtual="$LPConfig{'URI'}?count"-->~;} &header('LOGIT PRO GENERATE CODE AREA'); print qq~
What kind of code would you like generated?

note: javascript code doesn't work on frame pages, you can only use it on content pages.
You can also use a combination of javascript and SSI, but only use one per page.~; print qq~

$gen
  
~; &footer(); } #Top $LPConfig{'TopRefers'} Referrers sub toprefers { $frames= "toprefers"; &header("LogIT PRO TOP REFERRER AREA"); print "note, if you see nothing below it is because an insufficient amount of hits have been generated. If this is the case, please stop back later

"; if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopRefers'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $dte = "";$n=0;$table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd$ttd Referrer $tdd"; >opref;$table .= qq~
";$tdd="
~; print qq~
Change the amount listed:
~; print qq~

~; print $table; &footer; } sub gtopref {$b=1; @topref = ""; foreach $line (@info) { @lisst = split(/\|/,$line); if ((($lisst[3]) && ($lisst[3] ne "")) && (!($lisst[9] =~ /\:/))) { push @topref,$lisst[3]; } } @topref = sort {uc($a) cmp uc($b)} @topref; $tmp = ""; @topsorted = ""; $max=0; $total = --$#topref; foreach $llne (@topref) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];};push @topsorted,$tmp;$tmp="1|$llne";} } else {$tmp="1|$llne"; } }} push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { @lisst = split(/\|/,$line); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if (($lisst[1]) && ($lisst[1] ne "")) { $lisst1 = substr($lisst[1],0,63);if ($lisst1 ne $lisst[1]) {$lisst1 = substr($lisst[1],0,30);$lisst1 .= "...";$lisst1 .= substr($lisst[1],-30,30);} $prct = (($lisst[0]/$c)*300);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$c)*300); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= qq~$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$lisst1\r~; $b++; if ($b > $list) {return;exit;} } } } #Top $LPConfig{'TopRefers'} Searches sub topsearch { $frames= "topsearch"; &header("LogIT PRO TOP SEARCH AREA"); print "note, if you see nothing below it is because an insufficient amount of hits have been generated. If this is the case, please stop back later

"; if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopRefers'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $dte = "";$n=0;$table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd$ttd Search Engine $tdd$ttd Queried words $tdd"; >opsrh;$table .= qq~
";$tdd="
~; print qq~
Change the amount listed:
~; print qq~

~; print $table; &footer; } sub gtopsrh {$b=1; $f=0; foreach $line (@info) { @lisst = split(/\|/,$line); if ((($lisst[3]) && ($lisst[3] ne "")) && (($lisst[9] =~ /\:/))) { $pushed = "$lisst[9]~x~$lisst[3]"; if ($f) {push @topref,$pushed;} else {@topref=$pushed;} $f++; } } @topref = sort {uc($a) cmp uc($b)} @topref; $tmp = ""; @topsorted = ""; $max=1; $total = --$#topref; if (!($total)) {$total=1;} foreach $llne (@topref) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];};push @topsorted,$tmp;$tmp="1|$llne";} } else {$tmp="1|$llne"; } }} push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { @lisst = split(/\|/,$line); ($searched,$linked) = split(/~x~/,$lisst[1]); @searched = split(/\:/,$searched); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if (($lisst[1]) && ($lisst[1] ne "")) { $lisst1 = substr($searched[1],0,60); if ($lisst1 ne $searched[1]) { $lisst1 .= "..."; } $srhlnk=""; open (SG,"search.dat");@sg = ;close (SG);$refi = "$searched[0]";foreach $lne (@sg) {@r = split(/~x~/,$lne);if ($refi eq $r[2]) {$srhlnk = "http://www.$r[0]";}} $prct = (($lisst[0]/$total)*150);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$total)*150); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= qq~$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$searched[0]$lisst1\r~; $b++; if ($b > $list) {return;exit;} } } } #Top $LPConfig{'TopRefers'} SearchEng sub topsearcheg { $frames= "topsearcheg"; &header("LogIT PRO TOP SEARCH AREA"); print "note, if you see nothing below it is because an insufficient amount of hits have been generated. If this is the case, please stop back later

"; if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopRefers'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $dte = "";$n=0;$table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd$ttd Search Engine $tdd"; >opseg;$table .= qq~
";$tdd="
~; print qq~
Change the amount listed:
~; print qq~

~; print $table; &footer; } sub gtopseg {$b=1; @topref = ""; foreach $line (@info) { @lisst = split(/\|/,$line); if ($lisst[9] =~ /\:/) { @searched = split(/\:/,$lisst[9]); $pushed = "$searched[0]"; push @topref,$pushed; } } @topref = sort {uc($a) cmp uc($b)} @topref; $tmp = ""; @topsorted = ""; $max=0; $total = --$#topref; if (!($total)) {$total=1;} foreach $llne (@topref) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]|"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];}push @topsorted,$tmp;$tmp="1|$llne|";} } else {$tmp="1|$llne"; } }} push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { @lisst = split(/\|/,$line); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if (($lisst[1]) && ($lisst[1] ne "")) { $lisst1 = substr($lisst[1],0,60); if ($lisst1 ne $lisst[1]) { $lisst1 .= "..."; } open (SG,"search.dat");@sg = ;close (SG);$refi = "$lisst[1]";foreach $line (@sg) {@r = split(/~x~/,$line);if ($refi eq $r[2]) {$lisst[1] = "http://www.$r[0]";}} $prct = (($lisst[0]/$total)*150);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$total)*150); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= "$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$lisst1\r"; $b++; if ($b > $list) {return;exit;} } } } #Top $LPConfig{'TopRefers'} Local Pages sub toppages { $frames= "toppages"; &header("LogIT PRO TOP LOCAL PAGE AREA"); print "note, if you see nothing below it is because an insufficient amount of hits have been generated. If this is the case, please stop back later

"; if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopRefers'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $dte = "";$n=0;$table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd$ttd Local Page$tdd"; >oppag;$table .= qq~
";$tdd="
~; print qq~
Change the amount listed:
~; print qq~

~; print $table; &footer; } sub gtoppag {$b=1; @topref = ""; foreach $line (@info) { @lisst = split(/\|/,$line); ($lisst[8],@tmp) = split(/~x~/,$lisst[8]); if (($lisst[8]) && ($lisst[8] ne "")) { push @topref,$lisst[8]; } } @topref = sort {uc($a) cmp uc($b)} @topref; $tmp = ""; @topsorted = ""; $max=0; $total = --$#topref; foreach $llne (@topref) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];}push @topsorted,$tmp;$tmp="1|$llne";} } else {$tmp="1|$llne"; } }} push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { @lisst = split(/\|/,$line); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if (($lisst[1]) && ($lisst[1] ne "")) { $lisst1 = substr($lisst[1],0,60); if ($lisst1 ne $lisst[1]) { $lisst1 .= "..."; } $prct = (($lisst[0]/$total)*150);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$total)*150); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= qq~$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$lisst1\r~; $b++; if ($b > $list) {return;exit;} } } } #Top $LPConfig{'TopHosts'} IPs sub topips { if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopHosts'};} $frames= "topips"; $dte = "";$n=0;$table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd$ttd IP Address $tdd"; &header("LogIT PRO TOP IPS AREA"); print "note, if you see nothing below it is because an insufficient amount of hits have been generated. If this is the case, please stop back later

"; >opips(4); $table .= qq~
";$tdd="
~; print qq~
Change the amount listed:
~; print qq~

~; print $table; &footer; } sub gtopips { $number=shift;$number="$number"; open (TMP,"data/i.dat"); @info = split(/\r/,); close (TMP); @info = sort {uc($b) cmp uc($a)} @info;$b=0;print "$number
"; foreach $line (@info) { if ($number eq 6) { @line = split(/\|/,$line); if (($line[5]) && ($line[5] ne "")) { @tmp = split (/\./,$line[5]); $tmp1=$tmp[$#tmp]; $tmp0=$tmp[($#tmp-1)]; $tmp2=$tmp[($#tmp-2)]; if ($tmp0 eq "com") {$tmp0="$tmp2.$tmp0";} $domain = "$tmp0.$tmp1"; if ($b) {push @list,$domain;} else {@list=$domain} $b++; } } else {@line = split(/\|/,$line);if (($line[$number]) && ($line[$number] ne "")) {if ($b) {push @list,$line[$number];} else {@list=$line[$number]}$b++;}} } @list = sort {uc($a) cmp uc($b)} @list; $tmp = ""; @topsorted = ""; $max=0; $total = --$#topref; foreach $llne (@list) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];}push @topsorted,$tmp;$tmp="1|$llne";} } else {$tmp="1|$llne"; } }} push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { @lisst = split(/\|/,$line); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if (($lisst[1]) && ($lisst[1] ne "")) { if ($number eq 4) {$lisst1 = substr($lisst[1],0,16);$lisst1=qq~$lisst1~;} elsif ($number eq 5) {$lisst1 = substr($lisst[1],0,35);if ($lisst1 ne $lisst[1]) {$lisst1 = "$lisst1...";}$lisst1=qq~$lisst1~;} elsif ($number eq 6) {$lisst1=qq~$lisst[1] ?~;} $prct = (($lisst[0]/$total)*150);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$total)*150); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= qq~$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$lisst1\r~; $b++; if ($b > $list) {return;exit;} } } } #Top $LPConfig{'TopHosts'} Hosts sub tophosts { $frames= "tophosts"; if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopHosts'};} $dte = "";$n=0;$table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd$ttd Host Address $tdd"; &header("LogIT PRO TOP HOSTS AREA"); print "note, if you see nothing below it is because an insufficient amount of hits have been generated. If this is the case, please stop back later

"; >opips(5); $table .= qq~
";$tdd="
~; print qq~
Change the amount listed:
~; print qq~

~; print $table; &footer; } #Top $LPConfig{'TopHosts'} Domains sub topdomains { $frames= "topdomains"; if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopHosts'};} $dte = "";$n=0;$table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd$ttd Domain Address $tdd"; &header("LogIT PRO TOP DOMAINS AREA"); print "note, if you see nothing below it is because an insufficient amount of hits have been generated. If this is the case, please stop back later

"; >opips(6); $table .= qq~
";$tdd="
~; print qq~
Change the amount listed:
~; print qq~

~; print $table; &footer; } #Top $LPConfig{'TopPlat'} Countries sub topcountries { open (BIN,"extras.bin") || &ErroR('unable to open the extras file for data output'); @bin = ;$bin="@bin"; ($junk,$tmp) = split(/~~\|~~/,$bin);@countries=split(/\|\|\|/,$tmp);close (BIN); $frames= "topcountries"; &header("LogIT PRO TOP COUNTRY AREA"); print "note, if you see nothing below it is because an insufficient amount of hits have been generated. If this is the case, please stop back later

"; if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopPlat'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @tmp = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $dte = "";$n=0;$table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd$ttd Country [domain] $tdd"; &gcountry;$table .= qq~
";$tdd="
~; print qq~
Change the amount listed:
~; print qq~

~; print $table; &footer; } sub gcountry { foreach $line (@tmp) { @dat=split(/\|/,$line); if ($dat[5] ne "") { $dat[5] = lc $dat[5]; $data=substr($dat[5],-3,3); if ($b) {push @info,$data;$b++;} else {@info = $data;$b++;} } } @topref = sort {uc($a) cmp uc($b)} @info; $tmp = ""; @topsorted = ""; $max=0; $total = --$#topref; foreach $llne (@topref) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];};push @topsorted,$tmp;$tmp="1|$llne";} } else {$tmp="1|$llne"; } }} push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { @lisst = split(/\|/,$line); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if ($lisst[1] ne "") { $lisst[1] = gctry($lisst[1]); $prct = (($lisst[0]/$c)*300);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$c)*300); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= "$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$lisst[1]\r"; $b++; if ($b > $list) {return;exit;} } } } sub gctry { $data=""; $ctry=""; $dat=shift; if (!($dat && $dat ne "")) {return "[no host to check country with]";exit;} foreach $line (@countries) { ($data,$ctry) = split(/\|/,$line); if ($data =~ /$dat/) {return "$ctry [$dat]";exit;} } return "not found ($dat)"; } #Top $LPConfig{'TopPlat'} Platforms sub topplatform {#7 $frames= "topplatform"; &header("LogIT PRO TOP PLATFORM AREA"); print "note, if you see nothing below it is because an insufficient amount of hits have been generated. If this is the case, please stop back later

"; if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopPlat'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $dte = "";$n=0;$table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd$ttd Platform $tdd"; >opplt;$table .= qq~
";$tdd="
~; print qq~
Change the amount listed:
~; print qq~

~; print $table; &footer; } sub gtopplt {$b=1; @topref = ""; foreach $line (@info) { @lisst = split(/\|/,$line); if (($lisst[7]) && ($lisst[7] ne "")) { push @topref,$lisst[7]; } } @topref = sort {uc($a) cmp uc($b)} @topref; $tmp = ""; @topsorted = ""; $max=0; $total = --$#topref; foreach $llne (@topref) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];};push @topsorted,$tmp;$tmp="1|$llne";} } else {$tmp="1|$llne"; } }} push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { @lisst = split(/\|/,$line); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if (($lisst[1]) && ($lisst[1] ne "")) { $prct = (($lisst[0]/$c)*300);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$c)*300); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= "$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$lisst[1]\r"; $b++; if ($b > $list) {return;exit;} } } } #Top $LPConfig{'TopPlat'} Browsers sub topbrowser { $frames= "topbrowser"; &header("LogIT PRO TOP BROWSER AREA"); print "note, if you see nothing below it is because an insufficient amount of hits have been generated. If this is the case, please stop back later

"; if ($INPUT{'list'}) {$list = $INPUT{'list'};} else {$list = $LPConfig{'TopPlat'};} open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $dte = "";$n=0;$table = qq~
~; $ttd=""; $table .= "$ttd Hits $tdd $ttd Percent $tdd$ttd Color-Coded Graph [less$IMG[5] height=8 width=20>$IMG[6] height=8 width=20>$IMG[7] height=8 width=20>$IMG[8] height=8 width=20>$IMG[9] height=8 width=20>more] $tdd$ttd Browser $tdd"; >opbrw;$table .= qq~
";$tdd="
~; print qq~
Change the amount listed:
~; print qq~

~; print $table; &footer; } sub gtopbrw {$b=1; @topref = ""; foreach $line (@info) { @lisst = split(/\|/,$line); if (($lisst[6]) && ($lisst[6] ne "")) { push @topref,$lisst[6]; } } @topref = sort {uc($a) cmp uc($b)} @topref; $tmp = ""; @topsorted = ""; $max=0; $total = --$#topref; foreach $llne (@topref) { #if ($c > $list) {print "$c

";continue;} @st = split (/\|/,$tmp);if (($llne) && ($llne ne "")) { if ($tmp ne "") { if ($st[1] eq $llne) { $st[0] = $st[0] + 1; $tmp = "$st[0]|$st[1]"; if($st[0]>$max) {$max=$st[0];}; } else {if($st[0]>$max) {$max=$st[0];};push @topsorted,$tmp;$tmp="1|$llne";} } else {$tmp="1|$llne"; } }} push @topsorted,$tmp; @topsorted = sort {$b <=> $a} @topsorted; $c=0;$b=0;foreach $line (@topsorted) {if ($b > $list) {}else{@lisst = split(/\|/,$line);$c=$c+$lisst[0];}$b++;} if (!($max)) {$max = 1;} $wid=(200/$max); $b = 1;foreach $line (@topsorted) { @lisst = split(/\|/,$line); if (($b / 2) =~ /\./) {$color="tddark"} else {$color="tdlight"} if (($lisst[1]) && ($lisst[1] ne "")) { $prct = (($lisst[0]/$c)*300);$width=($line*$wid); $prct1 = substr((($lisst[0]/$c)*100),0,4);$prct1.="%"; $prctt = (($max/$c)*300); $prcttt = (($prct/$prctt)*100); if ($width > 200) {$width = 200;} if ($prcttt < 20) {$ii=5} elsif ($prcttt < 40) {$ii=6} elsif ($prcttt < 60) {$ii=7} elsif ($prcttt < 80) {$ii=8} else {$ii=9} $table .= "$lisst[0]$prct1$IMG[$ii] width=$width height=8 border=1>$lisst[1]\r"; $b++; if ($b > $list) {return;exit;} } } } #LogitPRO VIP Service sub topjva { $frames="topjva"; &header("LogIT PRO JavaScript Enabled? AREA"); print qq~This section is only available in the VIP VERSION~; &footer; exit; } #LogitPRO VIP Service sub topclr { $frames="topclr"; &header("LogIT PRO TOP Screen/Color AREA"); print qq~This section is only available in the VIP VERSION~; &footer; exit; } #LogitPRO VIP Service sub gtopclr {return;exit;} sub UpdateDataFile { if (!($INPUT{'npassword'})) {&ReadConfig;} if ($INPUT{'npassword'}) {$pass = crypt($INPUT{'npassword'},AD);$INPUT{'password'} = "$pass";} elsif ($LPConfig{'password'} ne "") {$INPUT{'password'} = "$LPConfig{'password'}";} else {$INPUT{'password'} = "0";} if ($INPUT{'ServerPath'} && $INPUT{'TimeHourFormat'} && $INPUT{'inex'} && $INPUT{'MaxLogSize'}) { foreach $k (keys %INPUT) { unless ($k eq "npassword") {$tdmp .= "$k|$INPUT{$k}\r";} } &writeit('DATA','data/d.dat',$tdmp,1,0); } else {$INPUT{'UpdateDataFile'} = 0;&NewConfig("you need to enter all of the variables");exit; } &ReadConfig; if ($LPConfig{'password'}) {$INPUT{'hword'} = "";$INPUT{'pword'} = "";print "Finished...
";&login;} else {&NewConfig("You didn't specify a password");} } sub gpath { eval '$home = (getpwuid($< ))[7];'; if (!-e "C:/") {$pwd = `pwd`; chop $pwd;} if (!eval 'use Cwd;') {eval '$cwd = cwd();';} else {$cwd = "";} if ($pwd eq "") {$dirname = $cwd;} else {$dirname = $pwd;} return $dirname; } sub NewConfig { $noupdat=1; $frames= "NewConfig"; if ($INPUT{'frame'} ne "") {&frame($INPUT{'frame'});} $err = shift; $nconf = shift; $path = gpath(); $bott = qq~ $IMG[10] width=1 height=0> \r~; $topp = qq~
\r $IMG[10] width=1 height=0> ~; if ($nconf || !($LPConfig{'password'})) { } elsif ($INPUT{'pword'} eq $guest) { } elsif (!($INPUT{'pword'} eq $LPConfig{'password'})) { &ErroR('Wrong Password'); exit; } &header("LogIT PRO CONFIGURATION AREA"); if (!($INPUT{'pword'} eq $guest)) {print qq~
~;} if (!($LPConfig{'ServerPath'} && $LPConfig{'ServerPath'} ne "")) {$LPConfig{'ServerPath'} = $ENV{'DOCUMENT_ROOT'};} if ($ENV{'DOCUMENT_ROOT'} && $ENV{'DOCUMENT_ROOT'} ne "") {$docr = "(might be $ENV{'DOCUMENT_ROOT'})";} print qq~ \r $topp

ServerPath - Specify the unix path to your web directory. It is very important that you set this correctly. if you are unsure, please check with your system admin, and ask them what the path is to your web directory. if you do not set this correctly, the logger will fail in many areas!

for example, $path is the directory that LogIT Pro is in... for this setting you should only have where the index page to your site is. $docr

no trailing slash!

$bott $topp

LogIT PRO URL - Specify the http path to logitpro.cgi. It is very important that you set this correctly. If you do not set this correctly, the logger will fail in many areas!

If you use http://www.yoursite.com/cgi-bin/logitpro/lpview.cgi to login, then you should put /cgi-bin/logitpro/logitpro.cgi in this area. Remember to put the "/" before the directory location.

Another good example is that this function for the logitpro site is set at "/cgi-bin/logitpro/logitpro.cgi" This is what most users will have it set at, and what the instructions ask for you to install it as.

PUT logitpro.cgi HERE, NOT lpview!!!!!!

$bott $topp

IndexPages - List the name(s) of your index pages here. If all of your index pages are, for example, index.html, all you need to list is index.html. However, if you have other index pages that you use in different directories (like index.htm, index.shtml, default.html, etc...) you should list all of them seperated by a comma (ex: index.shtml,index.html,default.html)

$bott~; @s = ""; if ($LPConfig{'MaxLogSize'} == 500) { @s[0] = selected; } elsif ($LPConfig{'MaxLogSize'} == 1000) { @s[1] = "selected"; } elsif ($LPConfig{'MaxLogSize'} == 1500) { @s[2] = "selected"; } elsif ($LPConfig{'MaxLogSize'} == 2000) { @s[3] = "selected"; } elsif ($LPConfig{'MaxLogSize'} == 2500) { @s[4] = "selected"; } elsif ($LPConfig{'MaxLogSize'} == 3000) { @s[5] = "selected"; } elsif ($LPConfig{'MaxLogSize'} == 3500) { @s[6] = "selected"; } elsif ($LPConfig{'MaxLogSize'} == 4000) { @s[7] = "selected"; } else { @s[1] = "selected"; } print qq~$topp

Max LogFile Size - Set this variable to the Maximum size for the logfile (in kB). A usual setting for this is 1mb because anything over a MB could take a while to process. if you feel you need a larger file, I suggest you do not go over 2.5mb.

$bott~; @s = ""; if ($LPConfig{'gettitle'} eq "1") { @s[1] = "selected"; } else { @s[0] = "selected"; } print qq~$topp

Get Referral Title on LOG - Turning this on will enable LogIT PRO to retrieve the title of a page that generates a referral hit.

Note: This function creates a major server punch if you get a reasonable amount of hits. It is suggested that you D0 N0T TURN THIS ON! It was originally created for demonstration purposes only. LogIT PRO Staff is not responsible for any damage this function causes if it is left on.

$bott~; if ($LPConfig{'DisplayCounter'} eq "1") { @s[1] = "selected"; } elsif ($LPConfig{'DisplayCounter'} eq "2") { @s[2] = "selected"; } elsif ($LPConfig{'DisplayCounter'} eq "3") { @s[3] = "selected"; } elsif ($LPConfig{'DisplayCounter'} eq "4") { @s[4] = "selected"; } else { @s[0] = "selected"; } print qq~$topp

Display Counter - Simply put, this function specifies whether you want to display a counter on the pages you are logging or not. if this is set to yes, the number of unique or total hits since the installation of logitPro, or since the last reset will be displayed wherever you have put the SSI call, or JavaScript call in your pages.

set this to the number you want added onto your count to be displayed (if that option is selected)


Block Count Display - Put the name(s) of the page(s) that you DO_NOT want to display the counter on (if you selected to display the counter above). Seperate names with a comma. Example is: "index.html,purchase.html,nocount.html"

note: this will only block pages that are using SSI to call logitpro.cgi ...

$bott~; print qq~ $topp

IP Blocking - Here you can specify ip addresses, or parts of ip addresses which you do not want to be logged. This function is useful if you want to keep yourself and other admins from being logged. It is suggested that you at least put the first 3 sections of your ip address here. An example is: 555.555.555 You should seperate different ip addresses with a comma ","

$bott ~; print qq~ $topp

Domain (referral) Blocking - This is one of the most important fields in logitPro. You should put your domain here so that it is not logged as a referral (hits from these domains will be logged, but the referral will turn up as null). Do not put in a www, or http. Instead just put in the domain. Seperate different domains with a comma. Example: logitpro.com,bennyland.com

$bott ~; print qq~
\r ~; print qq~ $topp

Set these to the maximum number of hits to display on logit Pro`s pages respectively
LastVisits, LastRefers, LastSearches
TopRefers, TopPages, TopSearches, TopSearchEngines
TopHosts, TopIps, TopDomains
Countries, Platorms, Browsers

$bott ~; print qq~ \r ~; &gdate(time); $hhour = $Hour; @hur = ""; &hourarray; print qq~ $topp

Time Zone Change - It is currently $Weekday, $Month_Name $Day $hhtime on your server. for LogIT Pro to work correctly, we need to know what time it is on your computer (not the server) Please specify approximently what time it was at your computer when you first entered this page.

$bott ~; @s = ""; if ($LPConfig{'TimeHourFormat'} eq "12") { @s[1] = "selected"; } else { @s[0] = "selected"; } print qq~ $topp

time Hour Format - Set this to either 12 or 24 hour time format

$bott ~; print qq~ \r ~; @s = ""; if ($LPConfig{'email'} eq "Yes") { @s[1] = "selected"; } else { @s[0] = "selected"; } print qq~ $topp

E-mail stats? - Set this to Yes if you would like logit Pro to e-mail you daily stats. (you must have the sendmail and e-mail forms filled out below)

$bott ~; print qq~ $topp

Location of sendmail - Set this to the absolute location of sendmail on your server. (usually /usr/sbin/sendmail) do not include anything after "sendmail"

$bott ~; print qq~ $topp

Your e-mail - Set this to the e-mail address you wish logit Pro to send daily stats to.

$bott ~; print qq~ \r ~; print qq~ $topp This configuration is only available on LogIT PRO VIP $bott ~; print qq~ \r ~; if ($LPConfig{'Images'} eq "custom") {@s = ("selected","");} else {@s = ("","selected");} print qq~ $topp Images:
download images, and learn how to make an image directory $bott ~; print qq~ \r ~; print qq~ $topp

Password - Enter your password here, whatever you enter here will be your password if you leave this blank, your old password will be used, or if you have never set a password, you will have a blank password

$bott ~; @s = ""; if ($LPConfig{'passprt'}) { @s[1] = "selected"; } else { @s[0] = "selected"; } print qq~ $topp

Password Protect All Logs? - Set this to Yes if you want to enter your password to be able to view any of your logs. if you use this, you can avoid putting the password in if you have already entered it once in that session by using the pulldown "quick access" menu instead of the individual links in the header (you must have entered your password at a log screen durring this session for it to work).

$bott
$IMG[10] width=1 height=0> $IMG[10] width=0 height=20>$err

General Settings - These settings apply to the way LogIT PRO Runs on your server. All of these settings are required.		 $IMG[10] width=1 height=0>
$IMG[10] width=1 height=0> $IMG[10] width=0 height=20>
Listing Settings - These settings apply to the way LogIT PRO`s log pages feel. All of these settings are required.		 $IMG[10] width=1 height=0>
$IMG[10] width=1 height=0> $IMG[10] width=0 height=20>
Time Settings - These settings help LogIT PRO configure the logging files right... All of these settings are required.		 $IMG[10] width=1 height=0>
$IMG[10] width=1 height=0> $IMG[10] width=0 height=20>
E-Mail Settings - These settings set up LogIT Pro`s daily statistic e-mails		 $IMG[10] width=1 height=0>
$IMG[10] width=1 height=0> $IMG[10] width=0 height=20>
Color/Font Configuration - These settings help you adjust the way LogIT PRO looks and feels. Color/Font settings are only available in LogIT PRO VIP		 $IMG[10] width=1 height=0>
$IMG[10] width=1 height=0> $IMG[10] width=0 height=20>
Image Configuration - These settings help you customize the images that are displayed.		 $IMG[10] width=1 height=0>
$IMG[10] width=1 height=0> $IMG[10] width=0 height=20>
Password Settings - These settings help protect your LogIT PRO configurations and logs		 $IMG[10] width=1 height=0>
~; if (!($INPUT{'pword'} eq $guest)) { print qq~






~; } &footer; } sub hourarray { $b = $hhour; $a = 0; if ($hhour < 12) {$ap = "am";} else {$ap = "pm";} $ty = $hhour;if ($hhour > 12) {$ty = $hhour - 12;} $hhtime = "$ty".":"."$Minute"." "."$ap"; until ($a == 48) { $ff = $a - 24; if ($b < 12 && $b > 0) {$ap = "am";} else {$ap = "pm";} $ty = $b;if ($b > 12) {$ty = $b - 12;};if ($b < 0) {$ty = "-" . $b + 12;} if ($b == 24 || $b == 0) {$b = 0;$ap = "am";$ty = 12;} if ($a < 24) {$ty = "\-$ty";} elsif ($a == 24) {$ty = "\=$ty";} else {$ty = "\+$ty";} $h = "";if ($ff == $LPConfig{'TimeZoneChange'}) {$h = "selected"} @hur[$a] = "\r"; $b++;$a++; } } sub gettitle {use English;use CGI;use integer;require LWP::UserAgent;$q = new CGI;$ua = new LWP::UserAgent;$the_cgi = CGI->new;if ($INPUT{'fixtitle'}){print "domain=$domain
";}$data = $domain;$lookup = new HTTP::Request 'GET', "$data";$response = $ua->request($lookup);@lines = split (/\n/, $response->content);foreach $line (@lines){if ($line =~ /\/i){($junk,$line,$junk2) = split(/itle\>/,$line);$line =~ s/\10 ~; return $options; } sub ginput {$del=""; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($INPUT{'delete'} ne "" && ($name ne "pword")) {$del.="$name,";} elsif ($name eq "frames") {$INPUT{$value} = 1;} elsif ($value ne '') { $INPUT{$name} = $value; } elsif ($name eq "count") {$INPUT{$name} = 1;} else { $INPUT{$name} = 0; } if ($name eq "pword") {$p1 = crypt($value,AD);} } @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name,$value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($INPUT{'del'}) {$del.="$name,";} elsif ($name eq "frames") {$INPUT{$value} = 1;} elsif ($value ne '') { $INPUT{$name} = $value; } elsif ($name eq "count") {$INPUT{$name} = 1;} else { $INPUT{$name} = 0; } } $p2 = "AD7o2p3Qa/RHA"; $guest = "notaguestpasswordalallalalalallalaal"; if ($INPUT{'pword'} =~ /guest/) { $guest = crypt($INPUT{'pword'}, AD);$INPUT{'pword'} = crypt($INPUT{'pword'}, AD); } elsif ($INPUT{'pword'}) {$INPUT{'pword'} = crypt($INPUT{'pword'},AD);} if ($INPUT{'hword'}) { } else {$INPUT{'hword'} = 0;} } sub closed { ($j,$k) = split(/~~~/,$ENV{'QUERY_STRING'}); open (TMP,"data/r.dat"); $l = ; close (TMP); if (!($l =~ /$k/)) {&writeit("TMP","data/r.dat","$k",0,1);} print qq~~; } sub autoupdate { $noupdat=1; &header('Updating Search Data file');print qq~

when you see the button appear above, click on it to update your search.dat file. ~; &footer; exit; } sub updatedata { @tmp = split(/\|~~/,$INPUT{'updatedata'}); open (TMP,">search.dat") || &ErroR('unable to update search file'); foreach $tmp (@tmp) { print TMP "$tmp\n"; } close (TMP); open (FILE,"search.dat"); ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat(FILE); close (FILE); if ($size < 100) {&ErroR('Data in search.dat file has been lost due to a server error... Please update immediately! (contact searchdaterror@logitpro.com and tell them your problem)');} else {&login('Search.dat has been updated!');} } sub header { $title = shift; open (TMP,"data/c.dat");@count = split(/\|/,);close (TMP); open (TMP,"data/o.dat");@overall = split(/\|/,);close (TMP); open (TMP,"search.dat"); @logit=; close (TMP); $sinfo = $logit[0]; print qq~ \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n $title
$title
 \r \r
auto scroll?
Administration
Generate Your Code

Screen Color/Res
Java Enabled?

Hourly Breakdown
Daily Breakdown
Weekly Breakdown
Monthly Breakdown

prompt list#?
Last $LPConfig{'LastVisits'} visitors
Last $LPConfig{'LastVisits'} Referrers
Last $LPConfig{'LastVisits'} Searches

Top $LPConfig{'TopRefers'} Referrers
Top $LPConfig{'TopRefers'} Searches
Top $LPConfig{'TopRefers'} SearchEng
Top $LPConfig{'TopRefers'} Local Pages

Top $LPConfig{'TopHosts'} IPs
Top $LPConfig{'TopHosts'} Hosts
Top $LPConfig{'TopHosts'} Domains

Top $LPConfig{'TopPlat'} Countries
Top $LPConfig{'TopPlat'} Platforms
Top $LPConfig{'TopPlat'} Browsers

Create Backup
Restore w/ BkUP




~; if (!($noupdat)) {print qq~
~;} open (TMP,"data/t.overall");$tmp=length ;close (TMP);$overall[1] = ($overall[1] + $tmp); open (TMP,"data/u.overall");$tmmp=length ;close (TMP);$overall[2] = ($overall[2] + $tmmp); open (TMP,"data/t.count");$tmpz=length ;close (TMP);$count[0] = ($count[0] + $tmpz); open (TMP,"data/u.count");$tmmpz=length ;close (TMP);$count[1] = ($count[1] + $tmmpz); print qq~

\r \r \r
Today's Hits
Total:$count[0]
Unique:$count[1]

\r \r \r \r
Overall Hits
Total:$overall[1]
Unique:$overall[2]
From:$overall[0]
|
~;#DO NOT EDIT THIS OUT -- CONTACT webmaster\@logitpro.com print qq~
~; } sub footer { print qq~



$IMG[10] align='left' width=150 height=200>$ENV{'QUERY_STRING'}~; open (INFO,"data/i.dat") || &ErroR('unable to open the info file i.dat'); @info = split(/\r/,); close (INFO); @info = sort {uc($b) cmp uc($a)} @info; $tmp=""; foreach $line (@info) { $tmp .= "$line\r"; } $xam=($LPConfig{'MaxLogSize'}*1000); $ttmp = length $tmp; if ($ttmp > $xam) { print "ttmp=$ttmp , xam=$xam"; $tmp = substr ($tmp,0,$xam); @tmp=split(/\r/,$tmp); pop @tmp; $tmp=join("\r",@tmp);$ttmp = length $tmp; open (TMP,">data/i.dat") || print "UNABLE TO OPEN I.DAT FILE";print TMP $tmp;close (TMP); print "
$IMG[10] width=150 height=1>Reduced the size of the INFO File to: $ttmp bytes"; } else { if (!($xam)){$xam=1;} $pcct=($ttmp/$xam)*100;$pcct=substr($pcct,0,4);$pcct.="%"; print "

info file is $pcct maximum size... clipping will occur at 100%"; } print "

Initializing the Today/Overall Count System :::..."; open (TMP,"data/c.dat");@count = split(/\|/,);close (TMP); open (TMP,"data/o.dat");@overall = split(/\|/,);close (TMP); open (TMP,"data/t.overall");$tmp=length ;close (TMP);$overall[1] = ($overall[1] + $tmp); open (TMP,"data/u.overall");$tmmp=length ;close (TMP);$overall[2] = ($overall[2] + $tmmp); open (TMP,"data/t.count");$tmpz=length ;close (TMP);$count[0] = ($count[0] + $tmpz); open (TMP,"data/u.count");$tmmpz=length ;close (TMP);$count[1] = ($count[1] + $tmmpz); open (TMP,">data/c.dat") || print "
Major Error: Unable to Increment count data file";print TMP "$count[0]|$count[1]";close (TMP); open (TMP,">data/o.dat") || print "
Major Error: Unable to Increment overall data file";print TMP "$overall[0]|$overall[1]|$overall[2]";close (TMP); open (TMP,">data/t.overall");close (TMP); open (TMP,">data/u.overall");close (TMP); open (TMP,">data/t.count");close (TMP); open (TMP,">data/u.count");close (TMP); print "
ALL COUNT FILES INCREMENTED!
"; } sub readit {my $fn = shift;my $fh = shift;my $ck = shift;$fh =~ s/([\&;\`'\|\"*\?\~\^\(\)\[\]\{\}\$\n\r])//g;open ($fn, $fh) || ErroR("Error opening $fh for reading");@tmp = split(/\r/,<$fn>);if ($ck) {return;}else {foreach $tmp (@tmp) {print "$tmp
";}close ($fn);@tmp = "";}} sub writeit {my $fn = shift;my $fh = shift;my $tmp = shift;my @c = (shift,shift,shift);$fh =~ s/([\&;\`'\|\"*\?\~\^\(\)\[\]\{\}\$\n\r])//g;if ($c[1] && $c[0]) {open ($fn, "$fh") || ErroR("Error opening $fh for reading");@tmp = <$fn>;close ($fn);open ($fn, ">$fh") || ErroR("Error opening $fh for input");}elsif ($c[0]) {open ($fn, ">$fh") || ErroR("Error opening $fh for overwrite");}elsif ($c[1]) {open ($fn, ">>$fh") || ErroR("Error opening $fh for append");}print $fn $tmp;if ($c[1] && $c[0]) {print $fn @tmp;}close ($fn);} sub gdate { @Abbrev_Week_Days = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); @Abbrev_Months = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); $SEC = 1; $MIN = 60 * $SEC; $HR = 60 * $MIN; $DAY = 24 * $HR; $epoch = (localtime(2*$DAY))[5]; # Allow for bugs near localtime == 0. $YearFix = ((gmtime(946684800))[5] == 100) ? 100 : 0; my $thetime = shift;unless ($thetime) { $thetime = time;if ($LPConfig{'TimeZoneChange'}) { $thetime = $thetime + ($LPConfig{'TimeZoneChange'} * 3600); }} ($Second,$Minute,$Hour,$Month_Day, $Month,$Year,$Week_Day,$IsDST) = (localtime($thetime))[0,1,2,3,4,5,6,8]; $ActualMonth = $Month + 1; $Year = $Year + 1900; $hhour = $Hour; if ($Second < 10) { $Second = "0$Second"; } if ($Minute < 10) { $Minute = "0$Minute"; } if ($Hour == 0) { if ($LPConfig{'TimeHourFormat'} == "12") {$Hour = "12";} $AMPM = "a"; } elsif ($Hour < 12) { $AMPM = "a"; } elsif ($Hour == 12) { $AMPM = "p"; } else { if ($LPConfig{'TimeHourFormat'} == "12") {$Hour = $Hour - 12;} $AMPM = "p"; } $Month_Name = $Abbrev_Months[$Month]; $Weekday = $Abbrev_Week_Days[$Week_Day]; $Day = $Month_Day; $clock = "$Hour".":"."$Minute"." $AMPM"; $date = "$Month_Name $Day"; $today = ($Year*365)+($Month*30)+$Month_Day; (@dates) = (localtime($thetime - 86400))[0,1,2,3,4,5,6,8]; $yesterday = "$Abbrev_Months[$dates[4]] $dates[3]"; } sub gday { @Abbrev_Week_Days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'); $SEC = 1; $MIN = 60 * $SEC; $HR = 60 * $MIN; $DAY = 24 * $HR; $epoch = (localtime(2*$DAY))[5]; # Allow for bugs near localtime == 0. $YearFix = ((gmtime(946684800))[5] == 100) ? 100 : 0; my $thetime = shift;unless ($thetime) { $thetime = time;if ($LPConfig{'TimeZoneChange'}) { $thetime = $thetime + ($LPConfig{'TimeZoneChange'} * 3600); }} ($Second,$Minute,$Hour,$Month_Day, $Month,$Year,$Week_Day,$IsDST) = (localtime($thetime))[0,1,2,3,4,5,6,8]; return $Abbrev_Week_Days[$Week_Day]; } sub ggdate { open (TMP,"data/d.log");$ctime=;close (TMP); #($Second,$Minute,$Hour,$Month_Day, $Month,$Year,$Week_Day,$IsDST) = (localtime($thetime))[0,1,2,3,4,5,6,8]; $thetime = (time + ($LPConfig{'TimeZoneChange'} * 3600)); $ctime = ($ctime + ($LPConfig{'TimeZoneChange'} * 3600)); @ta = (localtime($thetime))[0,1,2,3,4,5,6,8]; @tb = (localtime($ctime))[0,1,2,3,4,5,6,8]; if ($ta[3] ne $tb[3]) {return 1;} else {return 0;} } sub GetCookies { @Cookie_Encode_Chars = ('\%', '\+', '\;', '\,', '\=', '\&', '\:\:', '\s'); %Cookie_Encode_Chars = ('\%', '%25', '\+', '%2B', '\;', '%3B', '\,', '%2C', '\=', '%3D', '\&', '%26', '\:\:', '%3A%3A', '\s', '+'); @Cookie_Decode_Chars = ('\+', '\%3A\%3A', '\%26', '\%3D', '\%2C', '\%3B', '\%2B', '\%25'); %Cookie_Decode_Chars = ('\+', ' ', '\%3A\%3A', '::', '\%26', '&', '\%3D', '=', '\%2C', ',', '\%3B', ';', '\%2B', '+', '\%25', '%'); local($cookie,$value); if ($ENV{'HTTP_COOKIE'}) { foreach (split(/; /,$ENV{'HTTP_COOKIE'})) { ($cookie,$value) = split(/=/); foreach $char (@Cookie_Decode_Chars) { $cookie =~ s/$char/$Cookie_Decode_Chars{$char}/g; $value =~ s/$char/$Cookie_Decode_Chars{$char}/g; } $Cookies{$cookie} = $value; } } } sub gimgs { if (($LPConfig{'Images'} eq "custom") && ($LPConfig{'LPImgDir'} && $LPConfig{'LPImgDir'} ne "")) { $test = substr($LPConfig{'LPImgDir'},-1,1); if ($test ne "/") {$LPConfig{'LPImgDir'} .= "/" } $IMG[0] = qq~