File Coverage

blib/lib/Cookie/Session/Login.pm

Criterion	Covered	Total	%
statement	18	56	32.1
branch	0	4	0.0
condition			n/a
subroutine	6	13	46.1
pod	5	7	71.4
total	29	80	36.2

package Cookie::Session::Login;

use 5.010000;
use strict;
use warnings;
use CGI;
use vars qw($q);
$q=new CGI;
use CGI::Cookie;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Cookie::Session::Login ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
	new session_start create_cookie cookie_extract http_header_hash redirect_page delete_cookie
);

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $self ={} ;
     bless ($self,$class);
    return $self;
}
sub session_start{
     my $self = shift;
  (%{$self->{params}}) = @_;
  my %hash;
 #my $remorteip = $ENV{REMOTE_ADDR};

     my $cookie_user = new CGI::Cookie(
                                    -name  => "$self->{params}{name}",
                                    -value => "$self->{params}{value}",

				    -path =>	"$self->{params}{path}",
                                    -expires =>  '+'.$self->{params}{exptime}.'M',

                                   );
	    print "Set-Cookie: ",$cookie_user->as_string,"\n";

#for(keys %{$self->{params}}) {
#     $hash{$_}=$self->{params}{$_};
#}
#cookie_extract( \%hash);
}
sub create_cookie{
     my $self = shift;
  (%{$self->{params}}) = @_;
  my %hash;
     my $cookie_user = new CGI::Cookie(
                                    -name  => "$self->{params}{name}",
                                    -value => "$self->{params}{value}",

				    -path =>	"$self->{params}{path}",
                                    -expires =>  '+'.$self->{params}{exptime}.'M',

                                   );
	    print "Set-Cookie: ",$cookie_user->as_string,"\n";

}
sub cookie_extract{
   shift;
   my @array;
   my @array1;
    #my $ck_name=$ENV{HTTP_COOKIE};
    #$ck_name=~/(.*?)\=(.*)/;
    #my $cooke_name=$1;
    #my $cooke_values=$2;
    foreach my $name ($q->cookie())
    {
        push(@array,$name);
    }

    if($_[0] eq "c-name"){
	return @array;
    }
    if($_[0] eq "c-value"){

	foreach my $name ($q->cookie()){

	    push(@array1,$q->cookie($name));
	}

	return @array1;
    }


}
sub http_header_hash{
    my %CHash;
    foreach my $keey(keys %ENV){
	$CHash{$keey}=$ENV{$keey};
    }
return %CHash;
}
sub redirect_page{
    shift;
       print $q->redirect("$_[0]");
       $CGI::HEADERS_ONCE = 1;
}
sub delete_cookie{
shift;
# Delete All Cookie....
    $CGI::HEADERS_ONCE = 1;
    foreach my $cooke_name ($q->cookie()){
	my $cookie_user =
	new CGI::Cookie(
	    -name  => "$cooke_name",
	    -value => "",
	    -expires =>  "-1H",
	    );
	print "Set-Cookie: ",$cookie_user->as_string,"\n";
    }
}


1;
__END__