html-seite als response?

[sabine h.]

hallo,

ich möchte, wenn das perlscript seine arbeit erledigt hat, eine html seite als antwort schicken "arbeit erledigt". nun möchte ich diese nicht mit perl schreiben, sondern eine html-datei aufrufen.
mit require "../html/datei.html" klappt das aber nicht.

wie kann ich eine html-datei als antwort ausgeben lassen?

vielen dank für eine antwort auf diese newbee frage...

sabine

[Christian Kruse]

Hallo,

mit require "../html/datei.html" klappt das aber nicht.

Wir sind in Perl, nicht in PHP :)

wie kann ich eine html-datei als antwort ausgeben lassen?

open DAT,'<../html/datei.html' and do {
  local $/;
  print <DAT>;
  close DAT;
};

oder einen Redirect darauf machen.

Gruesse,
 CK

[RoRo]

hi,

redirect mit PERL geht z.B. so

$url = "http://i-netlab.de";

url_uml($url);

sub url_uml{
my $url = shift;
print << "asdf";
Status: 302 Moved
Location: $url
Content-type: text/html

asdf
}

Beachte die Leerzeile nach dem "Content-type: text/html"

oder, falls das Modul CGI ohnehin verwendet wird im Script:

use CGI qw(:standard);
print redirect $url;

Rolf