probier gerade ein script zum laufen zu bringen.
https://www.geld-gewinnen.net
Da ist schon alles drauf nur das script läuft nicht !
Der Counter für die Gewinnspiele müsste weiterlaufen, tuts aber nicht !
Hier der Direkte Link:
https://wp1012838.wp024.webpack.hosteur ... nt.pl?show
Wie bekomm ich das hin dass es weiterläuft und nicht bei 1 hängenbleibt ?
Die Count.pl -
Probier schon seit 2 h das ding hinzubekommen aber geht leider nicht !
Was kann ich machen ?
Leider kein plan !!/usr/bin/perl
$parameter = $ENV{QUERY_STRING};
$ip_adresse = $ENV{'REMOTE_ADDR'};
($was,$url) = split(/\|/ , $parameter);
$file = $url;
$file =~ s/http|\/|:|www|-|\.|\?|\=//g;
$datei = $file . ".txt";
$log = $file . ".log";
if ($was eq "count"){&count;};
if ($was eq "show"){&show;};
sub einlesen{
open (DATA, "<$log");
$ip = <DATA>;
close (DATA);
open (CLICKDATA,"<$datei");
$clicks = <CLICKDATA>;
close (CLICKDATA);
if ($clicks eq ""){$clicks = "0";};
if ($clicks eq "250"){$clicks = "0";};
$clicks++;
}
sub show {
&einlesen;
print "Content-type: text/html\n\n";
print "document.write('$clicks ');";
if ($clicks eq "250") {print "document.write('<a href=https://wp1012838.wp024.webpack.hosteur ... 3464442578 target=main><img src=https://wp1012838.wp024.webpack.hosteur ... gewinn.gif width=80 height=25 border=0 align=absmiddle></a>');";};
exit;
}
sub ausgeben{
open (CLICKDATA,">$datei");
print CLICKDATA "$clicks";
close (CLICKDATA);
open (DATA,">$log");
print DATA "$ip_adresse";
close (DATA);
}
sub count {
&einlesen;
if ($ip ne $ip_adresse){
&ausgeben;
}
print "Location: $url\n\n";
exit;
}
