Apache::AuthCookie

2000-06-13 Thread MOORHOUSE, John NW Group Risk
Having problem with the above, anyone any idea It doesn't seem to create the cookie I added the log_error above err_header_out in login() $r->log_error("SET COOKIE " . $self->_cookie_string($r, "$auth_type\_$auth_name", $ses_key)) if ($debug >= 2); $r->err_header_out("Set-Cookie" => $self->_co

Probably for a general perl discussion

2000-05-26 Thread MOORHOUSE, John NW Group Risk
Can anyone advice me of a good general perl mail list, and just in case one of you know the answer anyway I have written a socket server and wish to redirect STDOUT to the client i.e tried open STDOUT,">&$new_sock"; #doesn't work tried select($new_sock); #allowed but STD

Cleaning up

2000-02-02 Thread MOORHOUSE, John NW Group Risk
if a variable within a modperl program is created whether a reference to an object or just a var, does mod_perl know when to clean it up or should you do that yourself at the end i.e $main::var="LARGE STRING" does mod_perl know that the var is nolonger in use after the script has run?? One of

RE: What am I doing wrong

1999-12-29 Thread MOORHOUSE, John NW Group Risk
used it many times as many sites have used it. Its just a case of ease, and if this is old hat I'd rather move on to better stuff any comments John -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: 24 December 1999 17:38 To: MOORHOUSE, John NW Group Ri

RE: What am I doing wrong

1999-12-24 Thread MOORHOUSE, John NW Group Risk
s Bekman [mailto:[EMAIL PROTECTED]] Sent: 24 December 1999 10:14 To: MOORHOUSE, John NW Group Risk Cc: '[EMAIL PROTECTED]' Subject: Re: What am I doing wrong > my startup script has the line > use Html::App; > > my main script calls this > use strict; > use Html::App;

What am I doing wrong

1999-12-24 Thread MOORHOUSE, John NW Group Risk
my startup script has the line use Html::App; my main script calls this use strict; use Html::App; use DBI; my ($cnt,$stts)=(); $main::html=(); $main::html=Html::App->new; Html::App contains package Html::App; sub new { my $class = shift; my $self = {}; print STDERR "$class, $s