Funktionierendes Perl/CGI-Script läuft nicht mehr (gelöst) - #193487 (Perl/CGI)

haj

2021-08-04 17:15

User since
2015-01-07
558 Artikel
BenutzerIn

user image

redirect erledigt das mit den Headern selbst, das war schon ok. Wenn Du vorher CGI::header() ohne Parameter verwendest, dann bastelt Dir CGI einen minimalen Header und Deine Redirection steht im Text, wie Du ja auch gesehen hast.

Demo für die Kommandozeile:

Code: (dl )

perl -MCGI -e "print CGI::redirect(q(https://somewhere.else/))"

ergibt

Code: (dl )

1
2

Status: 302 Found
Location: https://somewhere.else/

Code: (dl )

perl -MCGI -e "print CGI::header; print CGI::redirect(q(https://somewhere.else/))"

ergibt

Code: (dl )

Content-Type: text/html; charset=ISO-8859-1

Status: 302 Found
Location: https://somewhere.else/