Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Re: Listing active sessions in Apache::Session?

by Jeppe (Monk)
on Jan 05, 2004 at 14:47 UTC ( #318855=note: print w/replies, xml ) Need Help??


in reply to Re: Listing active sessions in Apache::Session?
in thread Listing active sessions in Apache::Session?

Yep and thanks. I've changed from Apache::Session::File to Apache::Session::MySQL, and now I can run something like this:
#!/usr/bin/perl use strict; use warnings; use DBI; use Apache::Session::MySQL; use Data::Dumper; my $db_user = 'root'; my $db_pass = ''; my $dbh = DBI->connect('DBI:mysql:sessions', 'root', ''); my $sth = $dbh->prepare('select id from sessions'); $sth->execute(); while (my $arrayref = $sth->fetchrow_arrayref) { my $id = $arrayref->[0]; my %hash; tie %hash, 'Apache::Session::MySQL', $id, { DataSource => 'dbi:mysql:sessions', UserName => $db_user, Password => $db_pass, LockDataSource => 'dbi:mysql:sessions', LockUserName => $db_user, LockPassword => $db_pass }; print Dumper($hash{$id}); untie %hash; } $sth->finish();
This is a good step in the right direction, so I think I'm good from here.. It's unfortunate that I need to hack in this ungraceful way, though.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://318855]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2022-01-18 20:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (54 votes). Check out past polls.

    Notices?