#!/usr/bin/perl # Copyright 2001-2026 Leslie Richardson # This file is part of Open Admin for Schools. # Open Admin for Schools is free software; you can redistribute it # and/or modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. use DBI; use CGI; use FreezeThaw qw(thaw); use Time::JulianDay; my %lex = ( 'Error' => 'Error', 'View Sessions' => 'View Sessions', 'Session Values' => 'Session Values', 'Id' => 'Id', 'Main' => 'Main', ); eval require "../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $sth = $dbh->prepare("select * from sessions order by id desc"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;} $rows = $sth->rows; print qq{$doctype\n$lex{'View Sessions'}\n}; print qq{ [ $lex{Main} ]\n}; print qq{\n}; print qq{\n}; while (my ($id,$session) = $sth->fetchrow){ @sess = thaw $session; print qq{\n}; } print qq{
$lex{Id}$lex{'Session Values'}
$id}; foreach my $sess (@sess){ # $sess is hash ref, only one # print qq{
New SESS:$sess
\n}; foreach my $key (sort keys %{$sess}){ print qq{K:$key V:${$sess}{$key}
\n}; if ( $key eq qq{_SESSION_CTIME} ) { # This only gives the day; record id is useless for sorting. my $jd = local_julian_day( ${$sess}{$key}); my ($y,$m,$d) = inverse_julian_day($jd); print qq{
Date:$y-$m-$d
\n}; } # if ($key eq "_SESSION_EXPIRE_LIST"){ # my $expref = \%{ ${$sess}{$key} }; # foreach my $k (keys %{$expref}){ print qq{K:$k V:${$expref}{$k}
\n};} # } } } print qq{
}; print qq{\n};