php to cgi

[Anon]

Hello, I have a php script that I want to translate into CGI.

It's a redirect script that is relatively simple.

redir.php
<?
header("Location: $url");
?>

So if I have a url like http://mydomain.com/redir.php?url=http://www.yahoo.com and someone clicks on it, they will be redirected to yahoo.com

How can I do EXACTLY the same with CGI

http://mydomain.com/redir.cgi?url=http://www.yahoo.com

Thanks in advance.

[Anon]

Mark

CGI using Perl:

#!/usr/bin/perl

$url = "http://www.yahoo.com";
print "Location: $url\n\n";
exit;

C ya!

Egidio

[Anon]

how can i do it without specifying the url in the script.

with mine, in php i just type redir.php?url=http://anydomain.com and it redirects the user to that page.

I would like to do the same so i dont' have to specify the url in the script.

thanx

[Anon]

basically anything after the url= the user will be taken to that page

[Anon]

Mark

The Read and Parse in Perl is not that easy as it is in PHP.

You can use the cgi-lib.pl
#!/usr/bin/perl
require "./cgi-lib.pl";
&ReadParse(*form_data);
$url = "$form_data{'url'}";
print "Location: $url\n\n";
exit;

OR

To read and parse only one var, you can make it by yourself:

#!/usr/bin/perl
$url = "$QUERY_STRING";

http://www.yourdomain.com/cgi-bin/redir.cgi?url=http://www.anotherurl.com

$url =~ s/url=//gi;

replaces 'url=' por '' in $url

now $url = http://www.anotherurl.com

print "Location: $url\n\n";
exit;

OR
to r&p more than one vars via get method:

#!/usr/bin/perl
$in = $ENV{'QUERY_STRING'};
push (@in,$ENV{'QUERY_STRING'});
@in= split(/&/,$in);
foreach $i (0..$#in) {
$in[$i] =~ s/+/ /g;
$in[$i]=~ s/%(..)/pack("c", hex($1))/ge;
($key , $val) = split (/=/,$in[$i],2);
$in{$key} .= "\0" if (defined($in{$key}));
$in{$key} .= $val;
}
$url = "$iprint "
Location: $url\n\n";
exit; n{'url'}";

For this case, use the #2!
C ya

Egidio