Wer kann mir helfen?Ich habe ein Script für einen Besuchertausch.
Alles funktioniert beim Aufrufen,
Nur Login und Surfbar sind nicht zu erreichen
Jedesmal kommt
premature end of ...
Was heißt das?
Alles so installiert wie in der Anleitung,nur Login etc. wird nicht aufgerufen.
Sobald die Start.pl aufgerufen werden soll geht gar nichts!
#!/usr/bin/perl -w
use CGI qw/:standard :netscape/;
use CGI::Carp qw/fatalsToBrowser/;
use Fcntl qw/:flock/;
require "config.dat";
######$anzahlonline
$anzahlonline="0";
$datei="online.txt";
##check schon vorhanden
####check doppelte#####
$rows=0;
if ( -e "./$datei" ){
open (FILEx, "<./$datei") || print "Kann ./$datei nicht öffnen: $!";
@FILEx=<FILEx>;
close(FILEx);
}
foreach $FILEx (@FILEx){
@varsx=split($trenn,$FILEx[$rowsx]);
if ($varsx[1] eq $remoteuser){$schondrin="ok";}
$rowsx++;
}
$rowsx=0;
@FILEx="";
#############################################################################
$eintragszeit=time();
if($schondrin ne "ok")
{
open(DBASE,">>./$datei")|| print "Kann ./$datei nicht öffnen: $!";
print DBASE "$eintragszeit$trenn$remoteuser$trenn\n";
close DBASE;
}
####timelimit 3 minuten
$timelimit=$eintragszeit-1;
{
open(DATEIwio, "+<./$datei");
flock (DATEIwio,2);
@inhaltwio=<DATEIwio>;
seek(DATEIwio,0,0);
foreach $inhaltwio (@inhaltwio)
{
@varswio=split($trenn,$inhaltwio[$r]);
if($varswio[0] < $timelimit){}
else{
$writetofilewio= join ';',@varswio;
print DATEIwio $writetofilewio;
}
$r++;
}
flock (DATEIwio,8);
truncate (DATEIwio,tell(DATEIwio));
close(DATEIwio);
}
$anzahlonline=$r;
$r="";
######
####refid####
if( ($Formular{'t'} eq "")&&($Formular{'k'} eq "")&&($Formular{'refid'} ne "") ){$Formular{'t'}="index";$Formular{'k'}="main";$template="$Formular{'t'}";$kategorie="$Formular{'k'}";require "./resourcen/translatehtml.pl";exit;}
####refid####
{$template="$Formular{'t'}";$kategorie="$Formular{'k'}";}
if( ($Formular{'t'} eq "regelverstoss") ){require "./resourcen/regelverstoss.pl";exit;}
if( ($Formular{'t'} eq "anmeldung")&&($Formular{'a'} eq "senden") ){require "./main/anmeldungspeichern.pl";}
if( ($Formular{'t'} eq "login")&&($Formular{'a'} eq "senden") ){require "./main/login.pl";}
if( ($Formular{'t'} eq "sponsorlogin")&&($Formular{'a'} eq "senden") ){require "./main/sponsorlogin.pl";}
if( ($Formular{'t'} eq "werbungbuchen")&&($Formular{'a'} eq "senden") ){require "./main/werbungbuchen.pl";}
if( ($Formular{'t'} eq "kontakt")&&($Formular{'a'} eq "senden") ){require "./main/kontakt.pl";}
if( ($Formular{'t'} eq "refcenter") ){require "./resourcen/refcenter.pl";exit;}
if( ($Formular{'t'} eq "newsletter") ){require "./resourcen/newsletter.pl";exit;}
if( ($Formular{'t'} eq "winner") ){require "./resourcen/winner.pl";exit;}
if( ($Formular{'t'} eq "gewinnbestaetigung") ){require "./resourcen/gewinnbestaetigung.pl";exit;}
if( ($Formular{'t'} eq "login")&&($Formular{'a'} eq "passwortsenden") ){require "./main/passwortsenden.pl";}
if( ($Formular{'t'} eq "sponsorlogin")&&($Formular{'a'} eq "passwortsenden") ){require "./main/sponsorpasswortsenden.pl";}
if( ($Formular{'t'} eq "demo") ){demo();}
if( ($Formular{'t'} eq "")&&($Formular{'id'} ne "") ){demo();}
require "./resourcen/translatehtml.pl";
sub demo
{
print"
<html>
<head>
<title>$betreibername Exchange</title>
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
</head>
<frameset framespacing=\"0\" border=\"0\" rows=\"$hoehe_des_surfframes,*\" frameborder=\"0\">
<frame name=\"NavFrame\" scrolling=\"no\" noresize target=\"Hauptframe\" src=\"start.pl?t=navi&k=main&id=$Formular{'id'}&crd=$Formular{'crd'}&oblid=$Formular{'oblid'}&obl=$Formular{'obl'}\" marginwidth=\"0\" marginheight=\"0\">
<frame name=\"content\" marginwidth=\"0\" marginheight=\"0\" scrolling=\"auto\" noresize src=\"start.pl?t=content&id=$Formular{'id'}&k=main&crd=$Formular{'crd'}\">
<noframes>
<body>
<p>Diese Seite verwendet Frames. Frames werden von Ihrem Browser aber nicht
unterstützt.</p>
</body>
</noframes>
</frameset>
</html>
Wer kann helfen?
Datum: 23.07.2005-09:54
Besuchertausch
