0 ) {
$yymm = $tmp[$#tmp];
$mm = substr($yymm,2,2);
$yy = substr($yymm,0,2);
$line .= " - $NumberToMonth{$mm} $yy";
}
# Remove false hits caused by people using incorrect URLs
# that are redirected by the server
foreach $key (keys (%TargetCounter)) {
($target,$referrer)=split(/ /,$key,2);
if ($TargetCounter{"$target/ $referrer"} && $TargetCounter{"$target $referrer"}) {
$refscounter-=$TargetCounter{$key};
$TargetCounter{$key}=-1;
}
}
open (OUT,">$OutputFile.$$") ||
die ("Could not open $OutputFile for writing.\n$!");
print OUT
"Referring URL Statistics for ",
$HTTPDSERVER, "\n",
"\nReferring URL Statistics for ",
$HTTPDSERVER, "
\n",$line,"
\n";
&PrintSummary;
print OUT
$newsection,"references\">Web Pages and Referring URLs:\n",
"\n";
$LastWebPage='';
foreach $key (sort bytargetthenhits keys(%TargetCounter)) {
($target,$referrer)=split(/ /,$key,2);
next if ($TargetCounter{$key} < $MinRefs);
print OUT "- $target
\n" if ("$target" ne "$LastWebPage");
print OUT
"- $referrer",
" ($TargetCounter{$key} reference";
print OUT "s" if ($TargetCounter{$key} > 1);
print OUT ")
\n";
$LastWebPage=$target;
}
print OUT
"
\n",
"\n
\n",
"Generated using $version from ",
"",
"Jens Elkner, \n",
"a modified version of \n",
"",
"RefStats 1.1.1\n",
"\n";
close(OUT);
if ($OutputFile ne '-') {
rename "$OutputFile.$$", "$OutputFile";
}
}
sub bytargetthenhits {
($targeta)=($a=~m#^(.+)\s#o);
($targetb)=($b=~m#^(.+)\s#o);
$inequality=($targeta cmp $targetb);
if ($inequality) {
$inequality;
} else {
$TargetCounter{$b}<=>$TargetCounter{$a};
}
}
sub GetLastModTime {
while () {
next if ( $_ !~ m#<\!--\s*(\d+)\s*-->#);
$filetime = $1;
pop @filetimes;
push @filetimes, $filetime;
($mm,$yy) = (localtime($filetime))[4,5];
$mm++;
$mm = "0$mm" if ( $mm < 10 );
$yy -= 100 if ($yy > 99);
$yy = "0$yy" if ( $yy < 10 );
pop @mmtimes;
push @mmtimes, "${yy}${mm}";
last;
}
}
sub ReadOld {
while () {
last if (m#