Name

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

Version

0.7.$Revision: 1181 $

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