Egg::Model::Session::Plugin::CclassIP - Plugin for session that confirms C class agreement of IP address.

Egg-Plugin-SessionKit documentation Contained in the Egg-Plugin-SessionKit distribution.

Index

Code Index:

NAME

Top

Egg::Model::Session::Plugin::CclassIP - Plugin for session that confirms C class agreement of IP address.

SYNOPSIS

Top

  package MyApp::Model::Sesion::MySession;

  __PACKAGE__->startup(
   Plugin::CclassIP
   .....
   );

DESCRIPTION

Top

When IP address is not corresponding at C class level, it is a plugin for the session to treat as another session.

IP address at that time is preserved when a new session is opened, and C class part of the IP address will be confirmed next time.

To use it, 'Plugin::CclassIP' is added to 'startup'.

Moreover, 'init_session' is done in override, and note the competition with other components, please.

Besides, there is Egg::Model::Session::Plugin::AbsoluteIP confirmed at C class level, too. However, please note that it is not efficiency with this plugin simultaneously that uses.

METHODS

Top

init_session

A new session is begun when not agreeing to IP address before at C class level.

SEE ALSO

Top

Egg::Release, Egg::Model::Session::Manager::TieHash, Egg::Model::Session::Plugin::AbsoluteIP,

AUTHOR

Top

Masatoshi Mizuno <lushe&64;cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2008 Bee Flag, Corp. <http://egg.bomcity.com/>, All Rights Reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.

Egg-Plugin-SessionKit documentation Contained in the Egg-Plugin-SessionKit distribution. 
package Egg::Model::Session::Plugin::CclassIP;
#
# Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
#
# $Id: CclassIP.pm 322 2008-04-17 12:33:58Z lushe $
#
use strict;
use warnings;

our $VERSION= '0.02';

sub init_session {
	my($self)= shift->next::method;
	if (my $regexp= $self->data->{c_class_ipaddr}) {
		$self->e->request->address=~m{^$regexp} || return do {
			$self->delete($self->session_id);
			$self->_remake_session;
		  };
	} else {
		$self->_c_class_ipaddr;
	}
	$self;
}
sub _remake_session {
	my($self)= @_;
	$self->next::method;
	$self->data->{c_class_ipaddr} ? $self : $self->_c_class_ipaddr;
}
sub _c_class_ipaddr {
	my($self)= @_;
	my($regexp)= $self->e->request->address=~m{^(\d+\.\d+\.\d+\.)};
	$self->data->{c_class_ipaddr}= quotemeta($regexp);
	$self;
}

1;

__END__