Wowbagger: so funktioniert's! :-)

Beitrag lesen

Hi Cheatah,

hab' ein wenig 'gebastelt' *g* ...so hat's bei mir funktioniert (x-browser):

*** TEST.HTM: ***

<SCRIPT LANGUAGE="JavaScript" type="text/javascript"><!--
NN= (document.layers) ? 1 : 0; IE= (document.all) ? 1 : 0; ver= (NN IE) ? 1 : 0;

function load(url,id,width) {
if (NN) document.layers[id].load(url,width);
//if (IE) if (window.frames.length>-1) window.frames[id].location.href= url;
}
//--></SCRIPT>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Text-Counter</title>
</head>

<body onLoad="if (NN) load('counter.pl','myLayer',25);">

<font face="Arial" size="1" color="teal">
Counterstand:
<iframe src="counter.pl" scrolling="No" width="50" height="25" id="myLayer" frameborder="No"></iframe>
<layer id="myLayer" style="position:relative;width:50;height:25;">
</layer>
</font>

<br><br>
Bla bla, laber lall...

</body>
</html>

*** COUNTER.PL: (nix dolles, bin halt anfänger) ***

#!usr/bin/perl

$Head= "\n<html><head><title></title></head><body><font face=Arial size=1>";
$Tail="</font></body></html>";
$Savepath= "counter.dat";
$fail= 0;
$Daten= 0;

if (open(COUNTDAT, "<$Savepath")==false) {$fail= 1;}

if ($fail==0) {
while (<COUNTDAT>) {
  $Daten= $_;
}
close(COUNTDAT);
$Daten++;
open(COUNTDAT, ">$Savepath")
  die "Fehler beim Anlegen der Counter-Datei!";
print COUNTDAT $Daten;
close(COUNTDAT);
print $Head,$Daten,$Tail;
} else {
open(COUNTDAT, ">$Savepath")
  die "Fehler beim Anlegen der Counter-Datei!";
$Daten++;
print COUNTDAT $Daten;
close(COUNTDAT);
print $Head,$Daten,$Tail;
}

...sobald ich zeit hab', probier ich 'mal Stefan's ansatz...

tschau...
/*,*/
Wowbagger