Counter wird nicht aktualisiert von vmx, 03.10.1999 11:35

Counter wird nicht aktualisiert

vmx 03.10.1999 11:35

perl

HI!

Also: Ich habe einen grafischen Counter der keine SSI's brauchtin Perl selber geschrieben.
(Er funktioniert so ähnlich wie das MeySoft Page Counter Script.)
In der Datei, in der die Zahl die dem Counter übergeben werden soll, wird immer beim IE5 bei jedem Zugriff (Aktualisieren) erhöht, beim NS4.6 wird sie nicht erhöht.
Mein problem: Die Anzeige auf der Seite wird nicht upgedated, wenn man auf beim IE5 auf Aktualisieren klickt, oder die URL neu eintippt, obwohl die Datei eine andere Zahl enthält.

Hier ist das Script:

-----------------------------------------------------

#!perl

$get = $ENV{'QUERY_STRING'};

$whichpagecut = index($get,"&") - 5;
$whichdigitcut = rindex($get,"=") + 1;

$whichpage = substr($get,5,$whichpagecut);
$whichdigit = substr($get,$whichdigitcut);

@digitstemp = " ";
@digits = " ";

$v = 0;

$counterfilelength = 0;

if($whichdigit==0) {
&readpagefile;
&addhit;
}
else {
&readpagefile;
}

sub readpagefile {
  if(open(PAGES, "<vmxcount/pages/$whichpage.vmx")) {
    open(PAGES, "<vmxcount/pages/$whichpage.vmx");
    while(<PAGES>) {
      $hits = $_;
    }
    close(PAGES);
  }
  else{
    &createpagefile;
  }
}

sub createpagefile {
  open(PAGES, ">vmxcount/pages/$whichpage.vmx");
  print PAGES "0";
  close(PAGES);
  &readpagefile;
}

sub addhit {
  open(PAGES, ">vmxcount/pages/$whichpage.vmx");
  $hits = $hits + 1;
  print PAGES "$hits";
  close(PAGES);
}

$counterfilelength = length($hits);
$l = $counterfilelength - 1;

for($j=0;$j<=$counterfilelength;$j++) {
$digitstemp[$j] = substr($hits,$v,1);
$v++;
}

$k = 0;
while($k<$counterfilelength) {
$digits[$k++] = $digitstemp[$l--];
}

if($whichdigit<$counterfilelength) {
  print "Pragma: no-cache\n";
  print "Content-type: image/gif\n";
  print "Location: http://127.0.0.1/page/vmxcount/digits/$digits[$whichdigit].gif\n\n";
}
else {
  print "Pragma: nocache\n";
  print "Content-type: image/gif\n";
  print "Location: http://127.0.0.1/page/vmxcount/digits/0.gif\n\n";
}

-----------------------------------------------------

Und Hier die HTML Datei, von der aus der Counter aufgrufen wird:

-----------------------------------------------------

-----------------------------------------------------

Ich hoffe irgendwer kann helfen,
CU,
vmx.

P.S.: Das script wurde bisher nur lokal auf dem Apache server getestet.

Beitrag melden

– Informationen zu den Bewertungsregeln

SELFHTML Forum - Ergänzung zur Dokumentation Übersicht

vmx: Counter wird nicht aktualisiert

Beitrag lesen

Counter wird nicht aktualisiert

Counter wird nicht aktualisiert