Jeg har siddet og rodet med et script, til en tæller.
Når jeg så inde fra shtml filen kalder denne sker der bare ikke en
skid.
Jeg har så forsøgt at kalde counter.cgi direkte og dette virker.
Mit problem er nu hvordan i alverden kalder jeg et cgi script fra en
html/shtml fil og får vist resultatet på skærmen ??
filerne er placeret hvor de ksla være i henhold til cgi-scriptet :
indholdet af cgi-bin er :
counter.cgi
digits <DIR> (som indeholder grafikfiler til counter.cgi)
log.html (bruges til statistik)
count.txt (gemmes tællervairablen i)
Jeg har så forsøgt at henvise til scriptet i en shtml og en html fil
uden dette har virket.
Mit spørgsmål er nu hvad gør jeg forkert og hvordan retter jeg det
evt. til så det passer..... Jge har kigget i dokumentationen uden at
det virkede ??
min shtml fil :
---------------------------
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<meta name="Author" content="yff">
<meta name="GENERATOR" content="">
<title>Familien Jørgensen's Hjemmesider</title>
</head>
<body background="dweezlbkg.jpeg" nosave>
<center>
<h6>
<b><font size=+4>Velkommen</font></b></h6></center>
<a href="
http://www.minserver.dk/yff/index.html"> SRC="POOP.GIF"
NOSAVE height=136
width=190></a>
<font color="#006600"><font size=+4>Yff's Hjemmeside</font></font>
<p><a href="http://www.minserver.dk/killerqueen/index.html">
SRC="TPENGB.GIF" NOSAVE height=138
width=217></a>
<font color="#006600"><font size=+4>Joan's Hjemmeside</font></font>
<p>
<p>
<!--#exec cgi="/cgi-bin/counter.cgi" -->
</body>
</html>
----------------------------------------------
Koden til counter cgi :
------------------------------------------------
#!c:/Perl/bin/Perl.exe
#########################################
## ##
## WRITTEN BY LEV - COPYRIGHT 2002. ##
## ##
## For help and documentation go to: ##
## http://www.taintedthoughts.com/lev/ ##
## ##
#########################################
## ##
## Smart people realize they might ##
## be wrong... ##
## ##
#########################################
$countfile = "count.txt";
$logfile = "log.html"; ## leave as .html
## OPTION PARAMATERS FOR ADVANCED USERS #
## set as "graphic" or "text" below
$type = "graphic";
## base URL to image dir with digits
$imagedir = "
http://www.minserver.dk/cgi-bin/digits/";
## do you want a log file; yes or no
$enablelog = "yes";
## number of visits to list in log file
$numtolist = "25";
## if there is an IP not to count list it
$denyip = "255.255.255.255";
#########################################
## DO NOT MODIFY ANYTHING BELOW THIS LINE
#########################################
open (COUNT,"$countfile");
flock(COUNT,2);
$count = <COUNT>;
close (COUNT);
if ($count eq '')
{
$count = "1";
}
else
{
if ($denyip ne $ENV{REMOTE_ADDR}) {$count++;}
}
open (COUNT,">$countfile");
flock(COUNT,2);
print COUNT "$count\n";
close (COUNT);
if ($enablelog eq 'yes')
{
open (LOG,"$logfile");
flock(LOG,2);
@logdata = <LOG>;
close (LOG);
$onedown = $numtolist - 2;
if ($ENV{HTTP_USER_AGENT} =~ /MSIE 10./) {$browser = "IE
10.0+";}
elsif ($ENV{HTTP_USER_AGENT} =~ /MSIE 9./) {$browser = "IE
9.0+";}
elsif ($ENV{HTTP_USER_AGENT} =~ /MSIE 8./) {$browser = "IE
8.0+";}
elsif ($ENV{HTTP_USER_AGENT} =~ /MSIE 7./) {$browser = "IE
7.0+";}
elsif ($ENV{HTTP_USER_AGENT} =~ /MSIE 6./) {$browser = "IE
6.0+";}
elsif ($ENV{HTTP_USER_AGENT} =~ /MSIE 5./) {$browser = "IE
5.0+";}
elsif ($ENV{HTTP_USER_AGENT} =~ /Opera/) {$browser = "Opera";}
elsif ($ENV{HTTP_USER_AGENT} =~ /Netscape/) {$browser =
"Netscape";}
else {$browser = "Unknown";}
open (LOG,">$logfile");
flock(LOG,2);
print LOG "COUNT: <B>$count</B> - IP: <B>$ENV{REMOTE_ADDR}</B>
- HOSTNAME: <B>$ENV{REMOTE_HOST}</B> - BROWSER:
<B>$browser</B><BR>LAST PAGE: <a
href=$ENV{HTTP_REFERER}>$ENV{HTTP_REFERER}</a><P>\n";
foreach $line (@logdata[0..$onedown])
{
print LOG "$line";
}
close (LOG);
}
$countdata = $count;
if ($type eq 'graphic')
{
$countdata = '';
@digits = split (//,$count);
$reversedir = reverse($imagedir);
$imageurllast = substr($reversedir,0,1);
if ($imageurllast eq '/') {chop ($imagedir);}
foreach $digit (@digits)
{
$countdata .= "<img src=$imagedir/$digit.gif>";
}
}
print "Content-type: text/html\n\n";
print "$countdata";
exit;
-----------------------------------------------