George,
This problem was mentioned in a previous post because it is wrong in the
documentation (it may be fixed now).
The setting of $ENV{EMBPERL...} variables in this case need to be inside
a BEGIN block at the start of the script. This is because the value of
these variables are used to setup session tracking right when the
HTML::Embperl module is used (and this happens before your EMBPERL
environment variables are being set).
So put a BEGIN {} around them and you should be ready to roll.
Incidentally if you are using starting and stopping apache by hand you
will see a message from Embperl when session tracking has been enabled.
If you do not see the message don't waste your time looking at your test
page.
Another thing, the reason things update randomly is because each apache
child is keeping a copy of what you put in $udat. Since it is a special
Embperl variable it will hold it's value and not be cleaned up at the
end of page execution like other variables are each time you reload you
get a different child with a different incrementing number.
-- Owen
"George P. Pipkin" wrote:
>
> Hi Everybody -
>
> I have been playing around with Embperl. I have a little script that
> resembles the counter test mentioned in the docs, and it appears to
> run. Problem is, no cookies get set. And the value of the counter is
> erratic. One browser will appear to pick up the count from another.
> Then it will jump back. Here is the script:
>
> <html>
> <h1>Test of session features</h1><hr>
> [+ if($udat{counter} == 0){$udat{counter} = 1} +]
> The page is requested [+ $udat{counter}++ +] occasions
> since [+ $udat{date} ||= localtime +]
> <br>
> cookies: [+ $ENV{HTTP_COOKIE} +]
> </html>
> ~
>
> Incidently, $ENV{HTTP_COOKIE} never shows any value at all. I have the
> session mechanics hooked up to a mysql database. Here's the setup stuff
> in startup.pl:
>
> $ENV{EMBPERL_SESSION_CLASSES} = "DBIStore SysVSemaphoreLocker";
> $ENV{EMBPERL_SESSION_ARGS} = "DataSource=dbi:mysql:gpp8p_casenet
> UserName=gpp
> 8p Password=xxxxxxx";
> use Apache::Session;
> use HTML::Embperl;
>
> And BTW, I did set up the two tables in that database....
>
> Any ideas ????
>
> - George Pipkin
>
> --
>
>***************************************************************************************
> George P. Pipkin h - (804)-245-9916
> 1001 Emmet St. w - (804)-924-1329
> Carruthers Hall fax -
> (804)-982-2777
> Charlottesville, Va. 22903
> http://jm.acs.virginia.edu/~gpp8p/
>
>***************************************************************************************
