Apache::AuthCookie
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-_cookie_string($r,
"$auth_type\_$auth_name", $ses_key));
errorlog entry
SET COOKIE Sample::AuthCookieHandler_Tas=fd3388f426a210cba2a1d6307345c56a;
path=/; domain=hp7;
[Tue Jun 13 18:05:11 2000] [error] ses_key_cookie
i.e it doesn't seem to have set the cookie??
Any ideas would be greatly appreciated!!
Thanks
John
This e-mail is intended only for the addressee named above.
As this e-mail may contain confidential or privileged information,
if you are not the named addressee, you are not authorised to
retain, read, copy or disseminate this message or any part of it.
This e-mail is intended only for the addressee named above.
As this e-mail may contain confidential or privileged information,
if you are not the named addressee, you are not authorised to
retain, read, copy or disseminate this message or any part of it.
Cleaning up
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 the main reason for the enquiry is the use of selectall_arrayref via DBI We currently use this as most of the selects return a small number of rows, but occasional the number of rows returned may be large. Thanks John This e-mail is intended only for the addressee named above. As this e-mail may contain confidential or privileged information, if you are not the named addressee, you are not authorised to retain, read, copy or disseminate this message or any part of it.
RE: What am I doing wrong
I use a module called cgi-lib.pm which I have found a lot of sites use. the
reason for using *main::input is that the module using readparse is designed
to cope with most situations regarding url parsed data.
http://cgi-lib.stanford.edu/cgi-lib/
Does any one else disagree with using this, I have 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 Risk
Cc: '[EMAIL PROTECTED]'
Subject: Re: What am I doing wrong
"MOORHOUSE," == MOORHOUSE, John NW Group Risk
[EMAIL PROTECTED] writes:
MOORHOUSE, Is there any way of initialling a *main::input in one go
MOORHOUSE, i.e *main::input=(); doesn't work
This is already heading down the dangerous path. Why are you using
a symbol-table variable if you don't want a symbol-table variable?
If you want something temporary:
{
local *main::input;
$status = whatever-ReadParse(*main::input);
... use %main::input;
}
But the evilness of that ReadParse word is making me shudder already.
That's so... uh... perl4-ish.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
[EMAIL PROTECTED] URL:http://www.stonehenge.com/merlyn/
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl
training!
This e-mail is intended only for the addressee named above.
As this e-mail may contain confidential or privileged information,
if you are not the named addressee, you are not authorised to
retain, read, copy or disseminate this message or any part of it.
What am I doing wrong
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, $self\n";
bless($self, $class);
return $self;
}
In the error log I get a print of the class and hash id
The problem is that the hash id is the same after continuous runs. Therefore
repeat refreshes results in unusual behaviour. I think there must be some
closure some where but can't spot it.
Does any one out there know the reason??
Thanks in advance
John
This e-mail is intended only for the addressee named above.
As this e-mail may contain confidential or privileged information,
if you are not the named addressee, you are not authorised to
retain, read, copy or disseminate this message or any part of it.
RE: What am I doing wrong
Are my error, just spotted that my next line was
$main::html=Html::App-new;
$stts=$main::html-ReadParse(*main::input);
*main::input wasn't being initialized each time. the inconsistencey was
nothing to do with the same hash ref being used. I assumed this when I was
trying to debug it and the same hash ref kept appearing.
Is there any way of initialling a *main::input in one go
i.e *main::input=(); doesn't work
I am now doing $main::input=();
%main::input=();
@main::input=();
Thanks
John
-Original Message-
From: Stas 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;
use DBI;
my ($cnt,$stts)=();
$main::html=();
$main::html=Html::App-new;
two "style" mistakes (harmless in this case):
* $main::html is a scalar, you shouldn't assign list to it!
should be $main::html = '';
* why doing the inialization twice?
$main::html=();
$main::html=Html::App-new;
the last statement is enough.
Html::App contains
package Html::App;
sub new {
my $class = shift;
my $self = {};
print STDERR "$class, $self\n";
bless($self, $class);
return $self;
}
In the error log I get a print of the class and hash id
The problem is that the hash id is the same after continuous runs.
Therefore
repeat refreshes results in unusual behaviour. I think there must be some
closure some where but can't spot it.
Does any one out there know the reason??
run the server in a single mode (httpd -X) and test. Also I hope you test
with warnings On, am I right? Note that it's possible that in -X mode, you
will get the same HASH(0x...) because the variable gets destroyed and than
nothing stops it to use the same memory block! I wouldn't rely on the test
you do. Instead I would put in different from invocation to
invocation stuff and print it out. Also you can work with debugger of
course! (see perl.apache.org/guide/debug.html)
Thanks in advance
John
This e-mail is intended only for the addressee named above.
As this e-mail may contain confidential or privileged information,
if you are not the named addressee, you are not authorised to
retain, read, copy or disseminate this message or any part of it.
___
Stas Bekmanmailto:[EMAIL PROTECTED] http://www.stason.org/stas
Perl,CGI,Apache,Linux,Web,Java,PC http://www.stason.org/stas/TULARC
perl.apache.orgmodperl.sourcegarden.org perlmonth.comperl.org
single o- + single o-+ = singlesheavenhttp://www.singlesheaven.com
This e-mail is intended only for the addressee named above.
As this e-mail may contain confidential or privileged information,
if you are not the named addressee, you are not authorised to
retain, read, copy or disseminate this message or any part of it.
