Re^3: Perl CGI redirect

Sorry for the delay, I was afk. Ah, yes. Let me present you with working code. Go to chapter 3-6 of

http://www.cgi101.com/learn/ch3/text.html

You would call it like http://www.cgi101.com/book/ch3/get.cgi?firstname=hello&lastname=world
and you can read it like my $var1 = param("firstname"); $var2 = param("lastname")
Source for both the webpage and the perl CGI and a working example are on that tutorial page.
For more information just peruse: CGI Programming

Comment on Re^3: Perl CGI redirect Select or Download Code

Replies are listed 'Best First'.
Re^4: Perl CGI redirect by FreeBeerReekingMonk (Deacon) on May 28, 2015 at 21:54 UTC
You know what, here is a real example `#!/usr/bin/perl use CGI qw(:all); #use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use strict; print header; print start_html({-head => meta({ -http_equiv => 'refresh', CONTENT=> '1;url=' . param('URL') }), -title => "This page has moved!" }); print end_html;` [download] To test it, uncomment the carp command and you call it from the commandline like so: `perl example.cgi URL=http://127.0.0.1:8080` If all goes well, you get output similar to: `Content-Type: text/html; charset=ISO-8859-1 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-U +S"> <head> <title>This page has moved!</title> <meta http-equiv="refresh" content="1;url=http://127.0.0.1:8080" /> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1 +" /> </head> <body> </body>` [download] And now you can test in in the browser and such... keep in mind you still need to validate the url, and check if there is no URL given etc...	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Perl CGI redirect
by FreeBeerReekingMonk (Deacon) on May 28, 2015 at 21:54 UTC

You know what, here is a real example

#!/usr/bin/perl
use CGI qw(:all);
#use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;

print header;

print start_html({-head => meta({
 -http_equiv => 'refresh', CONTENT=> '1;url=' . param('URL')  }),
 -title => "This page has moved!"
});

print end_html;
[download]

To test it, uncomment the carp command and you call it from the commandline like so:
perl example.cgi URL=http://127.0.0.1:8080
If all goes well, you get output similar to:

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

<!DOCTYPE html
        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-U
+S">
<head>
<title>This page has moved!</title>
<meta http-equiv="refresh" content="1;url=http://127.0.0.1:8080" />
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1
+" />
</head>
<body>

</body>
[download]

[reply]
[d/l]
[select]