Thread Funktionierendes Perl/CGI-Script läuft nicht mehr (40 answers)
Opened by MiLeREDE at 2021-08-03 17:20

Linuxer
 2021-08-10 10:46
#193525 #193525
User since
2006-01-27
3890 Artikel
HausmeisterIn

user image
Wenn das so ins obige Script eingefügt wurde, musst Du bedenken, dass hier $q benutzt wird.
Damit das funktioniert, muss $q vorher definiert worden sein.

Also etwas derart:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
...
#my $q = new CGI; # veraltete Schreibweise
my $q = CGI->new;

my $s=IO::Socket::INET->new(
        PeerAddr=>$irc_server,
        PeerPort=>$server_port,
        Timeout=>1)
or do {
  print STDERR "Error: Socket error!"; # Fehler Wird ins Serverlog geschrieben

  print $q->redirect('https://example.net/test/err.html'); # erzeugt redirect

  exit; # beendet das programm
};

#my $q = new CGI;
...
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View full thread Funktionierendes Perl/CGI-Script läuft nicht mehr