|
Tcherneshoff Consulting, Inc. is a nationally recognized consulting firm with an outstanding reputation for excellence. Our consultants and support staff represent over 50 years of combined experience, working with legal representatives of plaintiffs, defendants, and companies that wish to avoid costly litigation.
In addition to Expert Consultation, we perform property compliance inspections, architectural plan reviews, provide legal support, and have an excellent reputation for resolving difficult and complex cases. We also provide voluntary compliance assistance to companies wishing to avoid ADA non-compliance lawsuits.
To see a more detailed description of all of our services, Click Here
#!/usr/bin/perl
##############################################################################
# Hit Counter Version 1.0.0 #
# Created 10/16/02 Last Modified 10/16/02 #
##############################################################################
# hitcounter.cgi
#
# parameters: returns:
# none none
#
# History:
# Provides a Hit Counter in conjuction with WSCO.
#
# Date: Initials: Defect#: Comments:
# 2002-10-16 SMS N/A creator
# 2002-11-12 GJK Modified to use images from WSC counter
# and to get style from query string.
##############################################################################
#############################################################
### Counter Data File Location:##############################
$imageStyle = "s1";
$serverPath = "http://plugins.websitecomplete.com/wsc_images";
$docroot = $ENV{'DOCUMENT_ROOT'};
if ($docroot eq '') { $docroot = ".." };
$countfile = "$docroot/plugin_data/hitcount.txt";
$digits = 8;
if($ENV{"REQUEST_METHOD"} =~ /^get/i) {
$DATA = $ENV{"QUERY_STRING"};
@Fields = split(/&/, $DATA);
foreach $_ (@Fields) {
($name, $val) = split(/=/, $_);
$val =~ tr/+/ /;
$val =~ s/\%([0-9a-f]{2})/chr(hex($1))/egi;
$Form{$name} = $val;
}
$DATA = $ENV{"HTTP_COOKIE"};
@Fields = split(/; /, $DATA);
foreach $_ (@Fields) {
($name, $val) = split(/=/, $_);
$Cookie{$name} = $val;
}
}
$imageStyle = $Form{"ImageStyle"};
$initial_value = int($Form{"Init"});
$BgColor = "#$Form{'BgColor'}";
if ($Form{'mode'} eq '2') {
&PrintCookie;
}
else {
print "Content-type: text/html\n\n";
if ($Cookie{$Form{'ID'}} ne "true") {
&AddCount;
}
&PrintCount;
}
#while (($k, $_) = each %ENV)
#{
# s/(['\\])/\\$1/g;
# print "\$ENV{'$k'} = '$_';
\n";
#}
sub PrintCookie {
print "Content-type:image/gif\n";
$exprtn = "";
$value = "$Form{'ID'}=true;";
print "Set-Cookie: $value path=/; $exprtn\n\n";
$giffile = "$docroot/images/spacer.gif";
undef $/;
open(F,"< $giffile") or die $!;
print ;
close(F);
}
sub PrintCount {
$ThisPage = $Form{'ID'};
open(FILE, "$countfile");
@Data = ;
close(FILE);
# Print the image to use to generate a cookie
print "";
print "![](\"cgi/HitCounter.cgi?mode=2&ID=$Form{'ID'}\") ";
foreach $Match (@Data)
{
chop($Match);
($count, $url) = split(/::/, $Match);
if ($url eq $ThisPage) {
$hits = $count;
last;
}
}
@nums = split(//, $hits);
$cnt = $digits - int(@nums);
$printcount = "";
while ($cnt > 0) {
$printcount="$printcount ";
$cnt--;
}
$end1 = "";
$end2 = "";
if ($imageStyle ne 's1') {
$end1 = " ";
$end2 = " ";
}
foreach $CountNr (@nums) {
$printcount = "$printcount ";
}
print "$end1$printcount$end2";
print " ";
}
sub AddCount {
$ThisPage = $Form{'ID'};
open(COUNTS, "+<$countfile") or open(COUNTS, "+>$countfile") or print("Cannot open counts file: $!");
while () {
chop;
($count, $file, $initialcount) = split(/::/, $_);
$counts{$file} = $count;
$initial{$file} = $initialcount;
}
$counts{$ThisPage}++;
if ($initial{$ThisPage} ne $initial_value) {
$counts{$ThisPage} = $initial_value;
$initial{$ThisPage} = $initial_value;
}
seek(COUNTS, 0, 0);
foreach $file (keys %counts) {
print COUNTS $counts{$file}, "::", $file, "::", $initial{$file}, "\n";
}
close(COUNTS);
}
|
