Redirect on the pushing button

[Maxipoint Rep Office]

I am create edit data form, and it ask visitor: do you wish edit data?

All is ok with Yes button, but I don't kniw what with No button :-)

I wish that clicking NO button recirect me on some URL..

Any help


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response

Re: Redirect on the pushing button

[Dave Gray]

 I am create edit data form, and it ask visitor: do you wish edit data?
 All is ok with Yes button, but I don't kniw what with No button :-)
 I wish that clicking NO button recirect me on some URL..

You can do this in perl by sending a Location header back to the
browser before you send Content-type a la:

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp 'fatalsToBrowser';

my $cgi = new CGI;
my $form = $cgi-Vars;

if ($form-{no}) {
  print Location:http://www.google.com/\n\n;;
}

# else proceed normally
print Content-type:text/html\n\n;
# ...
__END__

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response

Re: Redirect on the pushing button

[Dave Gray]

 You can do this in perl by sending a Location header back to the
 browser before you send Content-type a la:
 
 #!/usr/bin/perl
 use strict;
 use warnings;
 use CGI;
 use CGI::Carp 'fatalsToBrowser';
 
 my $cgi = new CGI;
 my $form = $cgi-Vars;
 
 if ($form-{no}) {
   print Location:http://www.google.com/\n\n;;

exit; # for good measure

 }
 
 # else proceed normally
 print Content-type:text/html\n\n;
 # ...
 __END__


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response