/ 
CatalystX-Usul-0.5.1148
/ CatalystX::Usul::Model::Session

Name

CatalystX::Usul::Model::Session - Current session information

Version

0.5.$Revision: 1139 $

Synopsis

package YourApp;

use Catalyst qw(ConfigComponents);

$class->config
   ( 'Model::Session' => {
        base_class    => q(CatalystX::Usul::Model::Session) }, );

sub list_sessions {
   # TODO: Move this method to the C::P::Session::Store::FastMmap
   return shift->_session_fastmmap_storage->get_keys( 2 );
}

package YourApp::Controller::YourController;

sub sessions : Chained(common) Args(0) {
   my ($self, $c) = @_; my $s = $c->stash;

   $c->model( q(Session) )->list_sessions( $c );
   return;
}

sub ttys : Chained(common) Args(0) {
   my ($self, $c) = @_; my $s = $c->stash;

   $c->model( q(Session) )->list_TTY_sessions( $s );
   return;
}

Description

Provides a utility method to display current session information

Subroutines/Methods

list_sessions

Stuffs the stash with table data for the current user sessions

list_TTY_sessions

Calls "_list_TTY_sessions" to obtain a list of terminal sessions. Stuffs the stash with the data needed by HTML::FormWidgets to display this information as a table

_list_TTY_sessions

Generates table data for current terminal sessions

Diagnostics

None

Configuration and Environment

None

Dependencies

CatalystX::Usul::Model
CatalystX::Usul::Table

Incompatibilities

There are no known incompatibilities in this module

Bugs and Limitations

Only works with Catalyst::Session::FastMmap

There are no known bugs in this module. Please report problems to the address below. Patches are welcome

Author

Peter Flanigan, <Support at RoxSoft.co.uk>

License and Copyright

Copyright (c) 2008 Peter Flanigan. All rights reserved

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic

This program is distributed in the hope that it will be useful, but WITHOUT WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE