Apache-Session-Memorycached

 view release on metacpan or  search on metacpan

lib/Apache/Session/Store/Memorycached.pm  view on Meta::CPAN

# Implements session object storage via memcached 
# Copyright(c) eric german <germanlinux@yahoo.fr>     
# Distribute under the Artistic License
#
############################################################################

package Apache::Session::Store::Memorycached;

use strict;
use Symbol;
use Data::Dumper;
use Cache::Memcached;
use Digest::MD5 qw(md5_hex);
use vars qw($VERSION);
$VERSION = '2.2';


sub new {
#This constructor allocate memory space for for the package!!
    my $class = shift;
    my $self;

scripts/MemcachedSOAPClass.pm  view on Meta::CPAN

#!/usr/bin/perl
package MemcachedSOAPClass;
use Apache::Session::Memorycached;
#  This module comes with lemonldap frameworks project 
#use Data::Dumper;
use strict;

# IP adress and port of apache server  
our $machine;


#/////////////////////////////////////////////////////////////////////////////////////////////

sub status {
  my $resp = '...... MEMCACHED SOAP OK ......';

scripts/getTest.pl  view on Meta::CPAN

#!/usr/bin/perl -w
################################################################
# this program retrieve a memcached session by a soap call 
use Data::Dumper;
use SOAP::Lite; # +trace => 'debug';

$HOST    = "http://my_soap_server/cgi-bin/MemcachedSOAP.cgi";
$NS      = "urn:MemcachedSOAPClass";

$sess    =  shift; # read from the command line

my $soap = SOAP::Lite  ->readable(1)  ->uri($NS)  ->proxy($HOST);

my $lasess = $soap->getSession( $sess );

scripts/memd.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use Apache::Session::Memorycached;
use Data::Dumper;
use Cache::Memcached;
my $serveur = shift;
my $option; 
my $session_id;
my @command = ("-s","-m","-d","-i","-TAG","-show","-modify","-delete","-info") ;
 
if (index($serveur,"-") != -1){

$option = $serveur;
$serveur = "localhost:11211";

scripts/setTest.pl  view on Meta::CPAN

#!/usr/bin/perl -w
####################################################################
# this program set a session by a request on soap memcached service
####################################################################
#
use Data::Dumper;
use SOAP::Lite; # +trace => 'debug';

$HOST    = "http://my_soap_server/cgi-bin/MemcachedSOAP.cgi";

$NS      = "urn:MemcachedSOAPClass";

my $soap = SOAP::Lite  ->readable(1)  ->uri($NS)  ->proxy($HOST);

my %SS = (      'APT_APT' => '00000',
	        'APT_GPE' => '11111',

scripts/statTest.pl  view on Meta::CPAN

#!/usr/bin/perl -w
###################################################
# this program tests soap service 
# soap server MUST anwers '...... MEMCACHED SOAP OK ......'; 
use Data::Dumper;
use SOAP::Lite; # +trace => 'debug';

$HOST    = "http://my_soap_server/cgi-bin/MemcachedSOAP.cgi";
$NS      = "urn:MemcachedSOAPClass";

my $soap = SOAP::Lite  ->readable(1)  ->uri($NS)  ->proxy($HOST);

my $R = $soap->status();

if( $R->fault ){