Redirect mit CGI ohne Module ?

[Frank S.]

<i>Ich habe mal irgendwo gelesen, dass man da was mit der print "Content-type......." Zeile machen kann, ich weiss aber nicht mehr wo das war oder ob das war ist. </i>

Aus dem Forum von xwolf (Wolfgang Wiese, http://www.xwolf.com) kopiert:

Mit der Subroutine:

(Also Redirect("http://....") aufrufen.)

sub Redirect {
       my ($location)=@_;
       print "Status: 302 Found\n";
       print "Location: $location\n";
       print "URI: <$location>\n";
       print "Content-type: text/html\r\n\r\n";
      }

Gruß Frank