NAME
Apache::Session::Browseable::Postgres - Add index and search methods to Apache::Session::Postgres
SYNOPSIS
Create table with columns for indexed fields. Example for Lemonldap::NG:
CREATE UNLOGGED TABLE sessions (
id varchar(64) not null primary key,
a_session text,
_whatToTrace text,
_session_kind text,
_utime bigint,
ipAddr varchar(64)
);
Add indexes:
CREATE INDEX uid1 ON sessions USING BTREE (_whatToTrace);
CREATE INDEX s1 ON sessions (_session_kind);
CREATE INDEX u1 ON sessions (_utime);
CREATE INDEX ip1 ON sessions USING BTREE (ipAddr);
Use it with Perl:
my
$args
= {
DataSource
=>
'dbi:Pg:sessions'
,
UserName
=>
$db_user
,
Password
=>
$db_pass
,
Commit
=> 1,
# Choose your browseable fileds
Index
=>
'_whatToTrace _session_kind _utime iAddr'
,
};
# Use it like Apache::Session
my
%session
;
tie
%session
,
'Apache::Session::Browseable::Postgres'
,
$id
,
$args
;
$session
{uid} =
'me'
;
$session
{mail} =
'me@me.com'
;
$session
{unindexedField} =
'zz'
;
untie
%session
;
# Apache::Session::Browseable add some global class methods
#
# 1) search on a field (indexed or not)
my
$hash
= Apache::Session::Browseable::Postgres->searchOn(
$args
,
'uid'
,
'me'
);
foreach
my
$id
(
keys
%$hash
) {
$id
.
":"
.
$hash
->{
$id
}->{mail} .
"\n"
;
}
# 2) Parse all sessions
# a. get all sessions
my
$hash
= Apache::Session::Browseable::Postgres->get_key_from_all_sessions();
# b. get some fields from all sessions
my
$hash
= Apache::Session::Browseable::Postgres->get_key_from_all_sessions(
'uid'
,
'mail'
)
# c. execute something with datas from each session :
# Example : get uid and mail if mail domain is
my
$hash
= Apache::Session::Browseable::Postgres->get_key_from_all_sessions(
sub
{
my
(
$session
,
$id
) =
@_
;
if
(
$session
->{mail} =~ /mydomain.com$/ ) {
return
{
$session
->{uid},
$session
->{mail} };
}
}
);
foreach
my
$id
(
keys
%$hash
) {
$id
.
":"
.
$hash
->{
$id
}->{uid} .
"=>"
.
$hash
->{
$id
}->{mail} .
"\n"
;
}
DESCRIPTION
Apache::Session::Browseable provides some class methods to manipulate all sessions and add the capability to index some fields to make research faster.
Apache::Session::Browseable::Postgres implements it for PosqtgreSQL databases.
SEE ALSO
http://lemonldap-ng.org, Apache::Session::Postgres
AUTHOR
Xavier Guimard, <x.guimard@free.fr>
COPYRIGHT AND LICENSE
Copyright (C) 2009-2017 by Xavier Guimard 2013-2017 by Clément Oudot
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.