in reply to Re: Perl CGI redirect
in thread Perl CGI redirect

FreeBeer, I will owe you a 12 pack. I will seriously ship it. I am not sure I understand completely, I was able to print out all the variables in your suggested code, but what is the intent? REQUEST_METHOD = GET And..if I take your code, what am I supposed to substitute? Remember that the URL needs to by dynamic so that I can enter any web address in the browser web address. 
my $q = new CGI;
if ($q->param("URL")) {....}

[download]
How do I call my .pl script in the browser to call on the URL I am requesting? Is it like this? 
http://webserver/cgi-bin/myscript.pl?URL=http://www.google.com

[download]

Replies are listed 'Best First'.
Re^3: Perl CGI redirect
by FreeBeerReekingMonk (Deacon) on May 28, 2015 at 21:15 UTC

    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

[reply]
[d/l]
[select]

      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]

In Section Seekers of Perl Wisdom