File Coverage

blib/lib/CGIS.pm

Criterion	Covered	Total	%
statement	22	42	52.3
branch	3	8	37.5
condition			n/a
subroutine	4	8	50.0
pod	1	6	16.6
total	30	64	46.8

package CGIS;

# $Id: CGIS.pm,v 1.6 2003/03/12 11:43:34 sherzodr Exp $

use strict;
#use diagnostics;
use base 'CGI';

($CGIS::VERSION) = '$Revision: 1.6 $' =~ m/Revision:\s*(\S+)/;

# Preloaded methods go here.

sub session {
  my $self = shift;

  my $session_obj = $self->{_CGI_SESSION_OBJ};
  unless ( defined $session_obj ) {
    require CGI::Session;
    my $session_dir = $self->cgi_session_dir();
    $session_obj = new CGI::Session(undef, $self, {Directory=>$session_dir});
    $self->{_CGI_SESSION_OBJ} = $session_obj;
    $self->param($session_obj->name, $session_obj->id);
  }
  unless ( @_ ) {
    return $session_obj;
  }
  return $session_obj->param(@_);
}


# returns the folder to store session files in
sub cgi_session_dir {
  my $self = shift;

  require File::Spec;
  # getting the temporary directory
  my $tmpdir = File::Spec->tmpdir();
  # directory name to store cgisession data in:
  my $session_dir = File::Spec->catfile($tmpdir, 'cgi_session');
  unless ( -d $session_dir ) {
    require File::Path;
    unless(File::Path::mkpath($session_dir)) {
      # if fails to create the folder, fall back to default tmpdir
      $session_dir = File::Spec->tmpdir();
    }
  }
  return $session_dir;
}



# alias to cgi_session_dir()
sub session_dir {
  my $self = shift;
  return $self->cgi_session_dir();
}



sub header {
  my $self = shift;

  my $session   = $self->session();
  my $cookie    = $self->cookie($session->name, $session->id);
  return $self->SUPER::header(-cookie=>$cookie, @_);
}



sub urlf {
  my $self = shift;

  my $session = $self->session();
  my $name = $session->name;

  my %args = (
    $name => $session->id,
    @_
  );

  require URI;
  my $url = new URI( $self->url )->canonical();
  $url->query_form( %args );

  return $url->as_string();
}


sub session_id {
  my $self = shift;

  return $self->session()->id;
}








1;
__END__