redirect to an URL instead of current perl action (fwd)

[KeN ClarK]

What I stumbled into was that by changing that to an url, it keeps me 
inside of the path for the .pl files. so on the first line i try to go 
there, which is in my path of /var/www/cgi-bin/openwebmail and get a 
server error The server made a boo boo". Is it possible to break out of 
these cgi-directories and redirect, or should i call another cgi script 
that does that for me? I also tried using

my $temphtml = ... =>"../../html/quantdirect.php") . #where i also had a 
copy of the php file.

this is probably blatantly obvious to those out there. but not me, oh not 
me...

:)

patiently waiting... 

my $temphtml = startform(-action=>"quantdirect.php") .
#   my $temphtml = startform(-action=>"$config{'ow_cgiurl'}/openwebmail.pl") .

KeN
_____________________________________
http://quantifier.org GnuPG: 7C828670
  3:00pm  up 8 days, 22:45
Try to have as good a life as you can under the circumstances.

---------- Forwarded message ----------
Date: Sat, 29 Dec 2001 14:49:46 -0500 (EST)
From: KeN ClarK <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Subject: redirect to an URL instead of current perl action

I use openwebmail for access to my home network, as do a few others. In 
the openwebmail-main.pl file, the logout function will redirect users BACK 
to the login page. I want to edit that to http://some.where.else. 

Is this as simple as changing 

my $temphtml = startform(-action=>"$config{'ow_cgiurl'}/openwebmail.pl")

to my $temphtml = startform(-action=>"a href="http://somewhere.else"";)  

or something along those lines?

The logout sub is below.

#################### LOGOUT ########################
sub logout {
   openwebmailerror("Session ID $lang_err{'has_illegal_chars'}") unless
      (($thissession =~ /^(.+?\-\d?\.\d+)$/) && ($thissession = $1));
   $thissession =~ s/\///g;  # just in case someone gets tricky ...

   unlink "$config{'ow_etcdir'}/sessions/$thissession";
   writelog("logout - $thissession");
   writehistory("logout - $thissession");

   printheader();

   my $html = '';
   open (LOGINOUT, 
"$config{'ow_etcdir'}/templates/$prefs{'language'}/logout.template") or
      openwebmailerror("$lang_err{'couldnt_open'} 
$config{'ow_etcdir'}/templates/$prefs{'language'}/logout.template!");
   while (<LOGINOUT>) {
      $html .= $_;
   }
   close (LOGINOUT);
   $html = applystyle($html);

   my $temphtml = 
startform(-action=>"$config{'ow_cgiurl'}/openwebmail.pl") .
                  submit("$lang_text{'continue'}").
                  "&nbsp; &nbsp;".
                  button(-name=>"exit",
                         -value=>$lang_text{'exit'},
                         -onclick=>'window.close();',
                         -override=>'1').
                  end_form();
   $html =~ s/\@\@\@BUTTONS\@\@\@/$temphtml/;
      
   print $html;

   printfooter();
}

KeN
_____________________________________
http://quantifier.org GnuPG: 7C828670
  2:30pm  up 8 days, 22:15
Your aim is high and to the right.



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]