Apache...:MySQL(3pm)

💅 NAME 💅

Apache::Session::Browseable::MySQL — okay so bestie, this is the glow-up that gives Apache::Session::MySQL index + search superpowers. Like, the original is cute, but this one? This one ate. ✨

---

🌸 SYNOPSIS 🌸

First things first, you gotta create the table with columns for the fields you wanna index. Here's the example they use 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
);

Then add the indexes — no cap, this is the part that makes it fast:

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;

Now use it with Perl, bestie 💖:

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 🦋

Okay so here's the vibe: Apache::Session::browseable hands you a bunch of class methods so you can manipulate all the sessions at once, and it adds the ability to index some fields so your research goes zoom-zoom instead of snooze-snooze. 🔥 Literally the main character energy your session store was missing.

---

🎀 SEE ALSO 🎀

• Apache::Session

---

👑 COPYRIGHT AND LICENSE 👑

Copyright, bestie — take notes:

• 2009-2025 by Xavier Guimard
• 2013-2025 by Clément Oudot
• 2019-2025 by Maxime Besson
• 2013-2025 by Worteks
• 2023-2025 by Linagora

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.

Fr fr, it's free software — remix it, share it, just keep the same terms as Perl itself. 🫶

---

Okay that's the whole page, bestie 💖 This was Apache::Session::Browseable::MySQL from the User Contributed Perl Documentation, and this lil write-up is living in perl v5.40.1 land, dated 2026-05-14. Go index something iconic ✨🌸🎀