Mod_perl & CGI.pm &Cgi-lib

Thu, 26 Jul 2001 00:41:14 -0700

Hello,
 
Some more info on the problem i described before:
 
#!/usr/bin/perl -w
 
use Fcntl ':flock'; # import LOCK_* constants
use CGI::Apache qw(:standard);
use CGI qw(:cgi-lib);
require "dbcfg.pl";
use diagnostics;
&ReadParse(*input);
if ($input{'new'} eq "on") {&add_account;}
         if ($input{'action'} eq "something") {&something;}
         if ($input{'action'} eq "something2") {&something2;}
         if ($input{'action'} eq "something3") {&something3;}
        <snip alot of somethings>
else {&show_menu;}
 
sub show_menu {
somecode here }
 
sub something {
some code here }
 
sub something2 {
somecode here }
 
Now the first routing it hits is a login which grabs the userid and password as below:
$user = "";
$pass = "";
$user = $input{'userid'};
$pass = $input{'password'};
 
then it validates the user and jumps to the show menu routine.
 
From here alot of options are available if i am at the main menu and hit refresh all things are correct. But if i say click on the something2 option and goto the something2 routine all variables $user and $pass are correct. If i hit refresh it is still correct. Now if i hit the backbutton in my browser to go back to the main menu the $user and $pass vairable now gets doubled? So if your login WAS $user=$joe your information will now be $user=joejoe and NOW if you hit refresh it keeps adding $user=joejoejoejoe etc..same for the $pass and every other variable used.
 
I hope this sheds some light on this problem as i am clueless at this point. The same code runs without these errors on a regular apache setup without mod perl it only occurs on a modperl server.
 
Any inofmration is greatly greatly apreciated!
 
Thanks,
John Buwa

Reply via email to