NAME

       Apache::Session::Browseable::MySQL - Add index and search methods to
       Apache::Session::MySQL

SYNOPSIS

       Create table with columns for indexed fields. Example for Lemonldap::NG:

         CREATE TABLE sessions (
             id varchar(64) not null primary key,
             a_session text,
             _whatToTrace text,
             _session_kind text,
             _utime bigint,
             ipAddr text
         );

       Add indexes:

         CREATE INDEX uid1 ON sessions (_whatToTrace) USING BTREE;
         CREATE INDEX s1   ON sessions (_session_kind);
         CREATE INDEX u1   ON sessions (_utime);
         CREATE INDEX ip1  ON sessions (ipAddr) USING BTREE;

       Use it with Perl:

         use Apache::Session::Browseable::MySQL;

         my $args = {
              DataSource => 'dbi:mysql:sessions',
              UserName   => $db_user,
              Password   => $db_pass,
              LockDataSource => 'dbi:mysql:sessions',
              LockUserName   => $db_user,
              LockPassword   => $db_pass,

              # Choose your browseable fileds
              Index          => 'uid mail',
         };

         # Use it like Apache::Session
         my %session;
         tie %session, 'Apache::Session::Browseable::MySQL', $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::MySQL->searchOn( $args, 'uid', 'me' );
         foreach my $id (keys %$hash) {
           print $id . ":" . $hash->{$id}->{mail} . "\n";
         }

         # 2) Parse all sessions
         # a. get all sessions
         my $hash = Apache::Session::Browseable::MySQL->get_key_from_all_sessions();

         # b. get some fields from all sessions
         my $hash = Apache::Session::Browseable::MySQL->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::MySQL->get_key_from_all_sessions(
                     sub {
                        my ( $session, $id ) = @_;
                        if ( $session->{mail} =~ /mydomain.com$/ ) {
                            return { $session->{uid}, $session->{mail} };
                        }
                     }
         );
         foreach my $id (keys %$hash) {
           print $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.

SEE ALSO

       Apache::Session

AUTHOR

       Xavier Guimard, <x.guimard@free.fr>

COPYRIGHT AND LICENSE

       Copyright (C) 2009-2017 by Xavier Guimard
                     2013-2017 by Clement 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.