http::header, redirect, hyperlink send with location

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I was wondering if anyone knows how to send a HTTP::Header with a redirect or a hyperlink? Please include code if you got one; thanks.

$h = new HTTP::Headers
blah blah => "blah blah";
$url = blah blah;
print "Location: $url, $h";
something like above "which i KNOW IS WRONG"
Adam

Comment on http::header, redirect, hyperlink send with location

Replies are listed 'Best First'.
Re: http::header, redirect, hyperlink send with location by Anonymous Monk on Mar 25, 2001 at 14:42 UTC
HTTP::Headers is for http requests, but redirects are for http responses, so I'm not sure if you're trying to make a request or respond to one. If you are responding to one, you can just print each header on a seperate line before the blank line terminating the header: `print "CustomHeader: CustomValue\n"; print "Location: $url\n\n";` [download]	[reply] [d/l]
Re: http::header, redirect, hyperlink send with location by sutch (Curate) on Mar 25, 2001 at 20:55 UTC
I've never used HTTP::Headers, instead I use HTTP::Response or CGI. Doing it with CGI is easy: `use CGI; my $q = new CGI; print $q->redirect(-uri=>'http://blah.com/blah');` [download] Which returns: `Status: 302 Moved location: http://blah.com/blah` [download]	[reply] [d/l] [select]
Re: http::header, redirect, hyperlink send with location by $CBAS (Scribe) on Mar 25, 2001 at 14:28 UTC
I think this should do it: `$url = "http://www.perlmonks.org/"; print "URI: $url\n\n";` [download]	[reply] [d/l]
Re: http::header, redirect, hyperlink send with location by BMaximus (Chaplain) on Mar 25, 2001 at 16:59 UTC
I looked at the man page for HTTP::headers and it isn't realy clear as to how to use it. I'm used to mod_perl and not doing cgi without it. My best guess: `my $h = new HTTP::Headers Content_Type => 'text/html', Location => 'http://foo.com'; print $h->as_string,"\n\n";` [download] Since I'm assuming that your stuff is being handled by the server you only need to output a partial header. The two newlines will separate the content of the page as required. This is the best that I can do since I realy don't know what your trying to do except use HTTP::headers to do what it does best. Read the man page on how to use it. I hope I've given you a nudge in the right direction. BMaximus	[reply] [d/l]

Back to Seekers of Perl Wisdom