Besuchertausch

Computer: Software & Programmierung Perl & CGI
#1

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, ";
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, "+;
seek(DATEIwio,0,0);
foreach $inhaltwio (@inhaltwio)
{
@varswio=split($trenn,$inhaltwio[$r]);
if($varswio[0]

$betreibername Exchange

Diese Seite verwendet Frames. Frames werden von Ihrem Browser aber nicht
unterstützt.

#2

Hi,

also da fehlt doch was

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 …

Das heisst, dass der Programmtext an einer Stelle aufhört, wo
er gar nicht aufhören dürfte, das Ende das Programms fehlt.

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, ";
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, "+;
seek(DATEIwio,0,0);
foreach $inhaltwio (@inhaltwio)
{
@varswio=split($trenn,$inhaltwio[$r]);
if($varswio[0]

$betreibername Exchange

Diese Seite verwendet Frames. Frames werden von
Ihrem Browser aber nicht
unterstützt.

#3

Hallo,

Jedesmal kommt
premature end of …
Was heißt das?

normalerweise heisst das bei CGI-Skripts, dass kein gültiger Header auf STDOUT geschrieben wurde, z.B. weil vorher ein Fehler auftrat.
Ich weiss allerdings nicht, wie CGI::Carp dieses Verhalten beeinflusst.

Grüße,
Moritz