*pounds head against brick wall* why must it work against meeeee??? A cookie for anyone who solves this.
sub handler { my $r = shift; my $result = undef; eval { $result = inner_handler($r) }; return $result unless $@; warn "Uncaught Exception: $@"; return SERVER_ERROR; } sub inner_handler { my $r = shift; my %q = ($r->args, $r->content); my %state = (r => $r, q => \%q); $state{title} = ''; $state{template} = ''; $state{auth_status} = password_boxes(\%state); # warn "%ENV: \n"; # foreach (keys %ENV) { # warn "$_ => $ENV{$_}\n"; # } # my %headers = $r->headers_in; # warn "Headers: \n"; # foreach (keys %headers) { # warn "$_: $headers{$_}\n"; # } my $cookie = Apache::Cookie->fetch; warn "z - $cookie->value"; validate_auth_cookie(\%state, $cookie); my $function = $r->uri; if (($state{login_user} eq '') and ($function ne '/login.cgi')) { $function = '/login.html'; } my $func = $Dispatch{$function} || $Dispatch{DEFAULT}; return DECLINED unless $func; return $func->(\%state); } Upon accessing a page (therefore generating lots of warning info in logs...) I get this in my error log. z - HASH(0x916ea08)->value at /home/httpd/ttms/perl/RequestHandler.pm line 108. (the z is there so I know where at in my code the line in the log file is being generated. I like z's and a's more than I do "some/long/path/and/filename line 108") I have tried using $cookie as a value in and of itself, I've tried $cookie->{ttms_user} (the name of hte cookie is ttms_user), I've tried changing $cookie to %cookie and doing a $cookie{ttms_user} .. I might break down, declare this a bug, and use $ENV{HTTP_COOKIE} instead. Any ideas how to fix this to return to me the cookie itself? Thanks. Dennis ----- Original Message ----- From: "Dennis Stout" <[EMAIL PROTECTED]> To: "Dennis Stout" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Wednesday, July 16, 2003 20 13 Subject: Re: cookies > Well I'll be damned. > > My computer at home does the cookie thing perfectly well. My workstation at > work does not do cookies. So my mod_perl creation is working fine as far as > getting the cookies. > > <rant> > YAY FOR WIN2K DOMAINS AND ADMIN WHO USE HELP DESK TECHS TO PROGRAM TICKETING > SYSTEMS FOR DSL, DIGITAL TV, AND DOMAINS! > </rant> > > I still have a problem tho. The cookie string itself is not being passed > along. Instead, I am getting Apache::Cookie=SCALAR(0x9115c24). > > I imagine somewhere I need to do something like ->as_string or something. > blah.... > > Thanks for helping, sorry I didn't spot that the error was infact, in the > dumbterminal called a win2k box I was using, and not in any actual code.... > > Dennis Stout > > ----- Original Message ----- > From: "Dennis Stout" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Wednesday, July 16, 2003 13 13 > Subject: cookies > > > > Okay, so technically this isn't really "mod_perl" speific... but the cookie > > is being set with mod_perl and it's a huge mod_perl program being affected > by > > this:) > > > > I have a cookie, the domain is set to .stout.dyndns.org (with the leading > .). > > > > I set the cookie just fine now (thanks to those helping me on thatr) > > > > I had a problem parsing the cookie. Added some debugging (okay, warn lines > up > > the yingyang) and after cycling through the headers and warning them out to > > the errorlog... I never saw any cookie info. > > > > So... If the website is ttms.stout.dyndns.org shouldn't the cookie domain be > > .stout.dyndns.org? > > > > *sigh* 6 more days to finish this database..... I doubt I'll make it. > > > > Dennis > > >