view release on metacpan or  search on metacpan

lib/Bundle/Padre/Plugin.pm  view on Meta::CPAN

	Padre::Plugin::ClassSniff

	Padre::Plugin::CommandLine 

	Padre::Plugin::Cookbook 

	Padre::Plugin::DataWalker 

	Padre::Plugin::Debugger 

 view release on metacpan or  search on metacpan

RT.pm  view on Meta::CPAN

Errno

FreezeThaw

CGI::Cookie 1.20

Storable 2.08

Apache::Session 1.53

 view release on metacpan or  search on metacpan

Slash.pm  view on Meta::CPAN

Apache::DBI

Apache::Test		- may need to put Apache's 'httpd' and 'apxs' into $PATH before installing

Apache::Cookie		- may need to put Apache's 'httpd' and 'apxs' into $PATH before installing

Apache::Request		- libapreq

AppConfig		- Should be installed with TT, but sometimes not?

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Finance::Loan::Repayment" : "1.5",
            "Finance::Salary::Rate" : "0.001",
            "Finance::Tax::Aruba" : "0.009",
            "FindBin" : "0",
            "Getopt::Long" : "0",
            "HTTP::Cookies" : "0",
            "HTTP::Daemon::SSL" : "0",
            "HTTP::Request" : "0",
            "HTTP::Request::Params" : "0",
            "IO::All" : "0",
            "IO::Socket::SSL" : "0",

 view release on metacpan or  search on metacpan

lib/WWW/Scraper/BAJobs.pm  view on Meta::CPAN

use WWW::Scraper(qw(1.48 generic_option addURL trimTags));
use WWW::Scraper::FieldTranslation;

use LWP::UserAgent;
use HTML::Form;
use HTTP::Cookies;

# As of 2002.01.26, this is what BAJobs "Refine your search" <FORM> looks like.
#<form action="/jobseeker/usersearch.jsp" method=post>
#  <input type="hidden" name="searchKeywordsMethod" value=1>
#  <input type="hidden" name="wholeWord" value="true">

 view release on metacpan or  search on metacpan

t/test1.xml  view on Meta::CPAN

    <issueBackground><![CDATA[The TRACE method is designed for diagnostic purposes. If enabled, the web server will respond to requests which use the TRACE method by echoing in its response the exact request which was recieved.<br><br>Although this b...
    <remediationBackground><![CDATA[The TRACE method should be disabled on the web server.]]></remediationBackground>
    <requestresponse>
      <request><![CDATA[TRACE / HTTP/1.0
Host: 192.168.163.128
Cookie: 5f14521172325ac3

]]></request>
      <response><![CDATA[HTTP/1.1 200 OK
Date: Mon, 12 Oct 2009 14:26:36 GMT
Server: Apache/2.2.9 (Ubuntu) PHP/5.2.6-bt0 with Suhosin-Patch mod_perl/2.0.4 Perl/v5.10.0
Connection: close
Content-Type: message/http

TRACE / HTTP/1.0
Host: 192.168.163.128
Cookie: 5f14521172325ac3

]]></response>
    </requestresponse>
  </issue>
  <issue>

 view release on metacpan or  search on metacpan

cpanfile.snapshot  view on Meta::CPAN

    provides:
      Module::Build 0.4210
      Module::Build::Base 0.4210
      Module::Build::Compat 0.4210
      Module::Build::Config 0.4210
      Module::Build::Cookbook 0.4210
      Module::Build::Dumper 0.4210
      Module::Build::Notes 0.4210
      Module::Build::PPMMaker 0.4210
      Module::Build::Platform::Default 0.4210
      Module::Build::Platform::MacOS 0.4210

 view release on metacpan or  search on metacpan

lib/Business/BR/CNJ/NumberExtractor.pm  view on Meta::CPAN

   # Or, using LWP::UseAgent and Mojo::DOM (if text/html repsonse)
   my @numbers = Business::BR::CNJ::NumberExtractor::cnj_extract_numbers_lwp('https://modeloinicial.com.br/peticao/reclamacao-trabalhista');

   # Pass on args to LWP's get method, like cookies or user agent:
   my @numbers = Business::BR::CNJ::NumberExtractor::cnj_extract_numbers_lwp('https://modeloinicial.com.br/peticao/11040619/Acao-aposentadoria-invalidez', 'User-Agent', 'That is me.');
   my @numbers = Business::BR::CNJ::NumberExtractor::cnj_extract_numbers_lwp('https://modeloinicial.com.br/peticao/11000717/Acao-aposentadoria-Especial', 'Cookie', 'AUTH=123');

   # Works even on DOC or PDF files
   my @numbers = Business::BR::CNJ::NumberExtractor::cnj_extract_numbers_lwp('http://arquivo.trf1.gov.br/AGText/2011/0001000/00010284120114013819_3.doc');

=head1 DESCRIPTION

 view release on metacpan or  search on metacpan

share/dist/Business-CyberSource/production/CyberSourceTransaction_1_71.xsd  view on Meta::CPAN

			<xsd:element name="driversLicenseState" type="xsd:string" minOccurs="0"/>
			<xsd:element name="ssn" type="xsd:string" minOccurs="0"/>
			<xsd:element name="customerID" type="xsd:string" minOccurs="0"/>
			<xsd:element name="httpBrowserType" type="xsd:string" minOccurs="0"/>
			<xsd:element name="httpBrowserEmail" type="xsd:string" minOccurs="0"/>
			<xsd:element name="httpBrowserCookiesAccepted" type="tns:boolean" minOccurs="0"/>
			<xsd:element name="nif" type="xsd:string" minOccurs="0"/>
			<xsd:element name="personalID" type="xsd:string" minOccurs="0"/>
			<xsd:element name="language" type="xsd:string" minOccurs="0"/>
		</xsd:sequence>
	</xsd:complexType>

 view release on metacpan or  search on metacpan

lib/Business/EDI/CodeList/CryptographicModeOfOperationCoded.pm  view on Meta::CPAN

'33' => [ 'TCBCM',
    'TDEA mode of operation, Cipher Block Chaining with output feedback Masking, ANSI X9.52.' ],
'34' => [ 'TCBCM-I',
    'TDEA mode of operation, Cipher Block Chaining with output feedback Masking Interleaved, ANSI X9.52.' ],
'35' => [ 'TECB',
    'TDEA mode of operation, Electronic Cookbook Mode, ANSI X9.52.' ],
'36' => [ 'CTS',
    'RC5 mode of operation, Cipher Text Stealing, Published in RCF 2040.' ],
'ZZZ' => [ 'Mutually agreed',
    'Mutually agreed between trading partners.' ],
);

 view release on metacpan or  search on metacpan

examples/SampleQuote.txt  view on Meta::CPAN

RFF+IA:145'
LIN+7++9780755310166:EN'
PIA+5+0755310160:IB'
IMD+L+010+:::Berry'
IMD+L+011+:::Mary'
IMD+L+050+:::Cook now, eat later'
IMD+L+060+:::be one step ahead with over 130 del:icious recipes to prepare in advanc'
IMD+L+110+:::London'
IMD+L+120+:::Headline'
IMD+L+170+:::2006'
IMD+L+220+:::pbk'

examples/SampleQuote.txt  view on Meta::CPAN

RFF+IA:145'
LIN+22++9781841574530:EN'
PIA+5+1841574538:IB'
IMD+L+050+:::Iceland'
IMD+L+110+:::Peterborough'
IMD+L+120+:::Thomas Cook'
IMD+L+170+:::2006'
IMD+L+220+:::pbk'
IMD+L+230+:::914.912046'
IMD+L+250+:::AN'
QTY+1:1'

examples/SampleQuote.txt  view on Meta::CPAN

RFF+IA:145'
LIN+23++9781841575773:EN'
PIA+5+1841575771:IB'
IMD+L+050+:::Estonia'
IMD+L+110+:::Peterborough'
IMD+L+120+:::Thomas Cook'
IMD+L+170+:::2006'
IMD+L+220+:::pbk'
IMD+L+230+:::914.7'
IMD+L+250+:::AN'
QTY+1:1'

examples/SampleQuote.txt  view on Meta::CPAN

RFF+IA:145'
LIN+24++9781841575780:EN'
PIA+5+184157578X:IB'
IMD+L+050+:::Latvia'
IMD+L+110+:::Peterborough'
IMD+L+120+:::Thomas Cook'
IMD+L+170+:::2006'
IMD+L+220+:::pbk'
IMD+L+230+:::914.7'
IMD+L+250+:::AN'
QTY+1:1'

examples/SampleQuote.txt  view on Meta::CPAN

RFF+IA:145'
LIN+25++9781841575957:EN'
PIA+5+184157595X:IB'
IMD+L+010+:::Holmes'
IMD+L+011+:::Robert'
IMD+L+030+:::Thomas Cook Ltd'
IMD+L+050+:::Boston & New England'
IMD+L+110+:::Peterborough'
IMD+L+120+:::Thomas Cook'
IMD+L+170+:::2006'
IMD+L+220+:::pbk'
IMD+L+230+:::917.4461'
IMD+L+250+:::AN'
QTY+1:1'

 view release on metacpan or  search on metacpan

utilities/totals  view on Meta::CPAN

}

# ok, print results

sub commify
# based on the "Perl Cookbook" recipe 2.17
{
	my $s;
	return map
	{
		$s = reverse $_;

 view release on metacpan or  search on metacpan

Allopass.pm  view on Meta::CPAN

=cut

use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use CGI::Cookie;

my $baseurl = 'http://www.allopass.com/check/vf.php4';

=head1 METHODS

Allopass.pm  view on Meta::CPAN

            'CODE0'      => $code ,
            'DATAS'      => $datas ,
            'AP_CA'      => $ap_ca
            ];
        $res = $ua->simple_request($req)->as_string;
        if ($res=~/Set-Cookie: AP_CHECK/) {
            $self->_set_error('Allopass Check Code OK');
            my $r = $self->_add_session($docid, $code);
            if ($r) {
                $self->_set_error($r);
                return 0;

Allopass.pm  view on Meta::CPAN

sub _is_session {
    my $self   = shift;
    my $doc_id = shift;

    my $ok=0;
    my %cookies = fetch CGI::Cookie;
    my $docid=$doc_id; $docid=~s/\//\./g;

    if (!$doc_id) {
        $self->_set_error("No Document ID");
        return 0 
    }
    if (!$cookies{$docid}){
        $self->_set_error("No Session Cookie");
        return 0 
    }
    return 0 if !ref $cookies{$docid};
    return 0 if !defined $cookies{$docid}->value;
    

Allopass.pm  view on Meta::CPAN

        }
        print OUTPUT "$doc_id|$code|$ENV{REMOTE_ADDR}|" . $a . "||\n";
        if ($self->{os} == 0) {flock (OUTPUT, 8);}
    close (OUTPUT);
    $doc_id=~s/\//\./g;
    my $cookie = new CGI::Cookie(-name=>$doc_id, -value=> $code );
    if (ref $self->{hhttp}) {
       $self->{hhttp}->add_cookie("Set-Cookie: ".$cookie->as_string);
    } else {
        print "Set-Cookie: ",$cookie->as_string,"\n";
    }
    0;
}
sub _end_session {
    my $self=shift;
    my $doc_id = shift;
    
    my %cookies = fetch CGI::Cookie;
    my $docid=$doc_id; $docid=~s/\//\./g;

    my $code = $self->{code};
    unless ($code) {
        return("Unable to remove session : Undefined sid") if !ref $cookies{$docid};

Allopass.pm  view on Meta::CPAN

            print OUTPUT "$docid|$pass|$IP|$heure|$code|\n";
        }
        if ($self->{os} == 0) {flock (TEMP, 8);}
    close (OUTPUT);
    $doc_id=~s/\//\./g;
    my $cookie = new CGI::Cookie(-name=>$docid, -value=> '-' );
    if (ref $self->{hhttp}) {
       $self->{hhttp}->add_cookie("Set-Cookie: ".$cookie->as_string);
    } else {
        print "Set-Cookie: ",$cookie->as_string,"\n";
    }
    0;
}
sub _is_res_ok {
    my $self=shift;

 view release on metacpan or  search on metacpan

config/config.ini  view on Meta::CPAN

usps_country_name_translations=<<EOF
American Samoa	US Possession
Bosnia And Herzegovina	Bosnia-Herzegovina
Bosnia And Herzegowina	Bosnia-Herzegovina
Cocos (Keeling) Islands	Australia
Cook Islands	New Zealand
Corsica	France
Cote d` Ivoire (Ivory Coast)	Cote d lvoire (Ivory Coast)
East Timor	Indonesia
Falkland Islands (Malvinas)	Falkland Islands
France (Includes Monaco)	France

config/config.ini  view on Meta::CPAN

KY	Cayman Islands
CL	Chile
CN	China
CO	Colombia
KM	Comoros
CK	Cook Islands
CR	Costa Rica
HR	Croatia
CY	Cyprus
CZ	Czech Republic
DK	Denmark

config/config.ini  view on Meta::CPAN

Cayman Islands	KY
Chile	CL
China	CN
Colombia	CO
Comoros	KM
Cook Islands	CK
Costa Rica	CR
Croatia	HR
Cyprus	CY
Czech Republic	CZ
Denmark	DK

 view release on metacpan or  search on metacpan

lib/Business/Stripe/WebCheckout.pm  view on Meta::CPAN

     print $stripe->checkout;
  } else {
     # handle errors...
  }

This last example prints out a fully formed HTML document to the browser containing only the C<head> section.  The HTML contains the Javascript necessary to pass the use to the Stripe hosted checkout.  The HTML is complete with Content-Type header.  ...

  print "Set-cookie: MyCookie=$order_number; path=/\n";
  $stripe->checkout;


=head1 SEE ALSO

 view release on metacpan or  search on metacpan

country-codes.txt  view on Meta::CPAN

China, Peoples Republic of 	CN
Christmas Island	CX
Cocos Islands	CC
Colombia	CO
Congo	CG
Cook Islands	CK
Costa Rica	CR
Croatia	HR
Curacao	CB
Cyprus	CY
Czech Republic	CZ

 view release on metacpan or  search on metacpan

lib/Business/cXML/Message/PunchOutOrder.pm  view on Meta::CPAN

sub from_node {
	my ($self, $el) = @_;

	$el->ferry($self, {
			BuyerCookie                => 'buyer_cookie',
			PunchOutOrderMessageHeader => {
				operationAllowed  => 'highest_operation',
				quoteStatus       => [ 'status', \&_from_status ],
				SourcingStatus    => '__UNIMPLEMENTED',
				Total             => [ 'total',    'Business::cXML::Amount' ],

lib/Business/cXML/Message/PunchOutOrder.pm  view on Meta::CPAN

sub to_node {
	my ($self, $doc) = @_;
	my $node = $doc->create($self->{_nodeName});

	$node->add('BuyerCookie', $self->{buyer_cookie});

	my $head = $node->add('PunchOutOrderMessageHeader', undef,
		operationAllowed => $self->{highest_operation},
	);
	$head->{quoteStatus} = ($self->is_final ? 'final' : 'pending') if defined $self->{status};

 view release on metacpan or  search on metacpan

t/samples/stackoverflow.atom  view on Meta::CPAN

<pre><code>    protected void Page_Load(object sender, EventArgs e)
    {
    if (!IsPostBack)
    {
    //Set Banner Cookie
    HttpCookie BannerCookie = new HttpCookie("ShowBanner");
    BannerCookie.Value = "YES";
     Response.Cookies.Add(bannercookie)
     Panel1.Visible = False;
    //Do Somthing...
    ShowPageDetails();
    ShowBanner();

t/samples/stackoverflow.atom  view on Meta::CPAN

    }
}

public void ShowBanner()
{
 HttpCookie BannerCookie = Request.Cookies["ShowBanner"];
 if (BannerCookie != null)
 {
 Panel1.Visible = True;
            BannerCookie.Value = null;
            Response.Cookies.Add(BannerCookie);
 }
else
{
Panel1.Visible = false;
}

 view release on metacpan or  search on metacpan

xt/js/sinon.js  view on Meta::CPAN

    var unsafeHeaders = {
        "Accept-Charset": true,
        "Accept-Encoding": true,
        "Connection": true,
        "Content-Length": true,
        "Cookie": true,
        "Cookie2": true,
        "Content-Transfer-Encoding": true,
        "Date": true,
        "Expect": true,
        "Host": true,
        "Keep-Alive": true,

xt/js/sinon.js  view on Meta::CPAN

        getResponseHeader: function getResponseHeader(header) {
            if (this.readyState < FakeXMLHttpRequest.HEADERS_RECEIVED) {
                return null;
            }

            if (/^Set-Cookie2?$/i.test(header)) {
                return null;
            }

            header = header.toLowerCase();

xt/js/sinon.js  view on Meta::CPAN

            var headers = "";

            for (var header in this.responseHeaders) {
                if (this.responseHeaders.hasOwnProperty(header) &&
                    !/^Set-Cookie2?$/i.test(header)) {
                    headers += header + ": " + this.responseHeaders[header] + "\r\n";
                }
            }

            return headers;

 view release on metacpan or  search on metacpan

src/sparse-0.4.4/perl/t/include/block/block.h  view on Meta::CPAN

    BDRV_ACCT_WRITE,
    BDRV_ACCT_FLUSH,
    BDRV_MAX_IOTYPE,
};

typedef struct BlockAcctCookie {
    int64_t bytes;
    int64_t start_time_ns;
    enum BlockAcctType type;
} BlockAcctCookie;

void bdrv_acct_start(BlockDriverState *bs, BlockAcctCookie *cookie,
        int64_t bytes, enum BlockAcctType type);
void bdrv_acct_done(BlockDriverState *bs, BlockAcctCookie *cookie);

typedef enum {
    BLKDBG_L1_UPDATE,

    BLKDBG_L1_GROW_ALLOC_TABLE,

 view release on metacpan or  search on metacpan

lib/CAM/App.pm  view on Meta::CPAN

   }
   elsif (!$cgi->{'.header_printed'})
   {
      if ($self->{session})
      {
         return $cgi->header(-cookie => $self->{session}->getCookie(), @_);
      }
      else
      {
         return $cgi->header(@_);
      }

lib/CAM/App.pm  view on Meta::CPAN

         $self->error("Internal error: Failed to load the $class library");
      }

      if ($self->{config}->{cookiename})
      {
         $class->setCookieName($self->{config}->{cookiename});
      }
      if ($self->{config}->{sessiontable})
      {
         $class->setTableName($self->{config}->{sessiontable});
      }

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

        that broke page deletion.

1.21  13 Aug 2008
      [FIXES]
      - Permit comments after the %%EOF, like Adobe Reader does.  Thanks to
        Malcolm Cook for pointing out the incompatibility.

1.20  26 Jun 2008
      [ENHANCEMENTS]
      - Support for Type 2 encryption (just reading, not writing)
      - Support for reading PDFs where the owner and user passwords

 view release on metacpan or  search on metacpan

t/bugreports.t  view on Meta::CPAN

use Test::More tests => 1;
use CAM::PDFTaxforms;

{
   # From an email exchange with Malcolm Cook:
   #   exiftool is appending a comment after the "%%EOF" at the end of
   #   the document, which is confusing CAM::PDF.  Technically that's
   #   not allowed (the PDF spec says "The last line of the file
   #   contains only the end-of-file marker, %%EOF.") but the spec
   #   also has an implementation note in the appendix that says

 view release on metacpan or  search on metacpan

lib/CAM/Session.pm  view on Meta::CPAN

  use DBI;
  my $dbh = DBI->connect(...);
  CAM::Session->setDBH($dbh);
  
  my $session = new CAM::Session();
  $session->printCookie();
  
  $session->set("username", $username);
  ...
  $session->get("username", $username);
  $session->delete("username");

lib/CAM/Session.pm  view on Meta::CPAN

require 5.005_62;
use strict;
use warnings;
use Carp;
use CGI::Cookie;
use CGI;
use DBI;

our @ISA = qw();
our $VERSION = '1.03';

lib/CAM/Session.pm  view on Meta::CPAN

      my $type = ref($self->{dbh}) ? ref($self->{dbh}) : "scalar";
      &carp("The DBH object is not a valid DBI/DBD connection: $type");
      return undef;
   }

   my %cookies = CGI::Cookie->fetch();
   if (exists $cookies{$self->{cookieName}})
   {
      # existing session
      $self->{id} = $cookies{$self->{cookieName}}->value;
      if (!$self->loadSessionData())

lib/CAM/Session.pm  view on Meta::CPAN

   my $self = shift;
   return $self->{id};
}
#----------------

=item getCookie

Return a cookie that indicates this session.  Any arguments are passed
to CGI::Cookie::new().  Use this, for example, with

    print CGI->header(-cookie => $session->getCookie);

=cut

sub getCookie
{
   my $self = shift;

   my $id = $self->getID();
   my $cookie = CGI::Cookie->new(-name => $self->{cookieName},
                                 -value => $id,
                                 -path => "/",
                                 @_);
   return $cookie;
}
#----------------

=item printCookie

Outputs a cookie that indicates this session.  Use this just before
"print CGI->header()", for example.

=cut

sub printCookie
{
   my $self = shift;

   my $cookie = $self->getCookie(@_);
   print "Set-Cookie: $cookie\n";
}
#----------------

=item getAll

lib/CAM/Session.pm  view on Meta::CPAN

   my $val = shift;
   $global_dbTablename = $val;
}
#----------------

=item setCookieName NAME

Set the name of the cookie that is used for the recording the session.
This is a class method.

Use like this:

  CAM::Session->setCookieName($name);

=cut

sub setCookieName
{
   my $pkg = shift; # unused
   my $val = shift;
   $global_cookieName = $val;
}

 view release on metacpan or  search on metacpan

Session.pm  view on Meta::CPAN

	my %Result;
	my $AISXML;


	print STDERR "$$ Session coox: $ENV{HTTP_COOKIE}\n";
	my (@Cookies) = ($ENV{HTTP_COOKIE} =~  /AIS_Session=(\w+)/g);
	tie my %Session, $Param{tieargs}->[0],
	$Param{tieargs}->[1],$Param{tieargs}->[2],$Param{tieargs}->[3],
	$Param{tieargs}->[4],$Param{tieargs}->[5],$Param{tieargs}->[6],
	$Param{tieargs}->[7],$Param{tieargs}->[8],$Param{tieargs}->[9]
		or croak "failed to tie @{$Param{tieargs}}";

	print STDERR "Session database has ",scalar(keys %Session)," keys\n";

	my $Cookie;

	# make Cookie imply its validity
	push @Cookies, undef;
	while ($Cookie = shift @Cookies){
		#$Session{$Cookie} and last;
		if($Session{$Cookie}){
			print STDERR "Session $Cookie exists\n";
			last;
		}else{
			print STDERR "Session <$Cookie> false\n";

		};
	};	

	my $OTUkey;
	my $SessionKey;
	my ($PostKey) = ($ENV{QUERY_STRING} =~ /AIS_POST_key=(\w+)/);

	# if (!$Cookie and $ENV{REQUEST_METHOD} eq 'POST' ){
	# in general, whenever we've got the wrong name for the
	# server, it won't work.  So we need to redirect ourselves
	# back to here with the right name for the server, and
	# then we'll get our cookie, if we have one.
	if (!$Cookie and !defined($PostKey) ){
		# print STDERR "$$ Cookieless POST caught early\n";
		print STDERR "$$ possible wrong SERVER_NAME\n";
		if ($ENV{REQUEST_METHOD} eq 'POST' ){
			$PostKey = join('',time,(map {("A".."Z")[rand 26]}(0..9)));
			$Session{$PostKey} = join('',(<>));
		}else{

Session.pm  view on Meta::CPAN

			close STDOUT;
			close STDIN;
			close POSTREAD;
			print POSTWRITE '&',$Session{$PostKey};
			close POSTWRITE or die "$$: Error closing POSTWRITE\n";
			$Cookie and delete $Session{$PostKey};
			# exit;
			#POSIX:_exit(0); # perldoc -f exit
			exec '/usr/bin/true';
		};
	};

Session.pm  view on Meta::CPAN

	   # my $Response = `lynx -source $Param{aissri}query?$OTUkey$CRLF$CRLF`
	   my $Response = miniget $host, $port,
	   "$Param{aissri}query?$OTUkey", $Param{agent};

	   $SessionKey = join('',time,(map {("A".."Z")[rand 26]}(0..19)));
	   # print "Set-Cookie: AIS_Session=$SessionKey; path=$ENV{SCRIPT_NAME};$CRLF";
	   print "Set-Cookie: AIS_Session=$SessionKey; path=/; expires=$CRLF";
	   ($AISXML) =
		$Response =~ m#<aisresponse>(.+)</aisresponse>#si
	   	   or die "no <aisresponse> element from $Param{aissri}query?$OTUkey\n";
	   $Session{$SessionKey} = $AISXML;

	}elsif (!$Cookie){
		my $PostString = '';
		# if ($ENV{REQUEST_METHOD} eq 'POST' and !eof){
		if ($ENV{REQUEST_METHOD} eq 'POST' ){
			print STDERR "$$ Cookieless POST\n";
			my $PostKey = join('',time,(map {("A".."Z")[rand 26]}(0..9)));
			$Session{$PostKey} = join('',(<>));
			$PostString = "AIS_POST_key=$PostKey&";

		};
		print "Location: $Param{aissri}present?http://$ENV{SERVER_NAME}$ENV{REQUEST_URI}?${PostString}AIS_OTUkey=\n\n";
		exit;
	}else{ # We have a cookie
		$AISXML = $Session{$Cookie};
		delete  $Session{$Cookie} if $ENV{QUERY_STRING} eq 'AIS_LOGOUT';
	};

	foreach (qw{
			identity
			error

Session.pm  view on Meta::CPAN

	};

	#Suppress caching NULL and ERROR
	if( $Result{identity} eq 'NULL' or $Result{identity} eq 'ERROR'){
		print "Set-Cookie: AIS_Session=$CRLF";
	        $SessionKey and delete $Session{$SessionKey} ;

		$Param{nodie} or die "AIS: $Result{identity} identity $Result{error} error";

	};

 view release on metacpan or  search on metacpan

lib/CGI/Apache2/Wrapper.pm  view on Meta::CPAN

      require Apache2::URI;
      require Apache2::Log;
      require APR::URI;
      require APR::Pool;
      require Apache2::Request;
      require CGI::Apache2::Wrapper::Cookie;
      require CGI::Apache2::Wrapper::Upload;
      $MOD_PERL = 2;
    }
    else {
      die qq{mod_perl 2 required};

lib/CGI/Apache2/Wrapper.pm  view on Meta::CPAN

sub cookies {
  my $self = shift;
  my $cookies = $self->{'.cookies'};
  return $cookies if (defined $cookies);
  my %cookies = Apache2::Cookie->fetch($self->r);
  $self->{'.cookies'} = %cookies ? \%cookies : undef;
  return $self->{'.cookies'};
}

sub uploads {

lib/CGI/Apache2/Wrapper.pm  view on Meta::CPAN

    return '';
  }
  my $content_type = delete $header_extra->{'Content-Type'} || 'text/html';
  $r->content_type($content_type);
  foreach my $key (keys %$header_extra) {
    if ($key =~ /Set-Cookie/i) {
      my $cookie = $header_extra->{$key};
      if ($cookie) {
	my(@cookie) = ref($cookie) && ref($cookie) eq 'ARRAY' ? 
	  @{$cookie} : $cookie;
	foreach my $c (@cookie) {
	  my $cs = (UNIVERSAL::isa($c,'CGI::Cookie') or
		    UNIVERSAL::isa($c, 'CGI::Apache2::Wrapper::Cookie') or
		    UNIVERSAL::isa($c, 'Apache2::Cookie')) ? 
			$c->as_string : $c;
	  $r->err_headers_out->add($key => $cs);
	}
      }
    }

lib/CGI/Apache2/Wrapper.pm  view on Meta::CPAN

sub self_url {
  return shift->url('-path_info' => 1, '-query' => 1);
}

# Apache2::Cookie

sub cookie {
  my $self = shift;
  my ($name, $value, %args);
  if (@_) {

lib/CGI/Apache2/Wrapper.pm  view on Meta::CPAN

    return () unless $cookies->{$name};
    return $cookies->{$name}->value 
      if defined($name) && $name ne '';
  }
  return undef unless defined($name) && $name ne '';	# this is an error
  my $cookie = CGI::Apache2::Wrapper::Cookie->new($self->r, %args);
  return $cookie;
}

# Apache2::Upload

lib/CGI/Apache2/Wrapper.pm  view on Meta::CPAN

example described in the I<url> options, this would lead to
I<http://localhost:8529/TestCGI/extra/path/info?opening=hello;closing=goodbye>.

=back

=head2 Apache2::Cookie

A new cookie can be created as

 my $c = $cgi->cookie(-name    =>  'foo',
                      -value   =>  'bar',

lib/CGI/Apache2/Wrapper.pm  view on Meta::CPAN

                      -domain  =>  '.capricorn.com',
                      -path    =>  '/cgi-bin/database',
                      -secure  =>  1
                     );

which is an object of the L<CGI::Apache2::Wrapper::Cookie>
class. The arguments accepted are

=over

=item * I<-name>

lib/CGI/Apache2/Wrapper.pm  view on Meta::CPAN

A list of all cookie names can be obtained by calling
I<cookie> without any arguments:

  my @names = $cgi->cookie();

See also L<CGI::Apache2::Wrapper::Cookie> for a
L<CGI::Cookie>-compatible interface to cookies.

=head2 Apache2::Upload

Uploads can be handled with the I<upload> method:

 view release on metacpan or  search on metacpan

HTML.pm  view on Meta::CPAN

sub disp_header {
  my ($s, $q, $ar, $prt, $add_ct) = @_;

  my $ck = (exists $ar->{_cookie} && $ar->{_cookie} 
           && ref($ar->{_cookie}) =~ /^ARRAY/ ) ? $ar->{_cookie} : [];
  # for my $i (0..$#$ck) { my $c = $ck->[$i]; print "Set-Cookie: $c\n";  } 
  
  my $f_ma = "  <meta name=\"%s\" content=\"%s\" />\n";
  my $f_ss = "  <link rel=\"stylesheet\" type=\"text/css\" href=\"%s\" />\n";
  my $f_sc = "<script src=\"%s\" type=\"text/javascript\"></script>\n";
  my $f_s2 = "<script type=\"text/javascript\">\n%s\n</script>\n";

 view release on metacpan or  search on metacpan

lib/CGI.pm  view on Meta::CPAN

    # Since $cookie and $p3p may be array references,
    # we must stringify them before CR escaping is done.
    my @cookie;
    for (ref($cookie) eq 'ARRAY' ? @{$cookie} : $cookie) {
        my $cs = UNIVERSAL::isa($_,'CGI::Cookie') ? $_->as_string : $_;
        push(@cookie,$cs) if defined $cs and $cs ne '';
    }
    $p3p = join ' ',@$p3p if ref($p3p) eq 'ARRAY';

    # CR escaping for values, per RFC 822

lib/CGI.pm  view on Meta::CPAN

    push(@header,"Status: $status") if $status;
    push(@header,"Window-Target: $target") if $target;
    push(@header,"P3P: policyref=\"/w3c/p3p.xml\", CP=\"$p3p\"") if $p3p;
    # push all the cookies -- there may be several
    push(@header,map {"Set-Cookie: $_"} @cookie);
    # if the user indicates an expiration time, then we need
    # both an Expires and a Date header (so that the browser is
    # uses OUR clock)
    push(@header,"Expires: " . expires($expires))
	if $expires;

lib/CGI.pm  view on Meta::CPAN

	 '-Location'=> $url,
	 '-nph'     => $nph);
    unshift(@o,'-Target'=>$target) if $target;
    unshift(@o,'-Type'=>'');
    my @unescaped;
    unshift(@unescaped,'-Cookie'=>$cookie) if $cookie;
    return $self->header((map {$self->unescapeHTML($_)} @o),@unescaped);
}

#### Method: start_html
# Canned HTML header

lib/CGI.pm  view on Meta::CPAN

	return $url
}

#### Method: cookie
# Set or read a cookie from the specified name.
# Cookie can then be passed to header().
# Usual rules apply to the stickiness of -value.
#  Parameters:
#   -name -> name for this cookie (optional)
#   -value -> value of this cookie (scalar, array or hash) 
#   -path -> paths for which this cookie is valid (optional)

lib/CGI.pm  view on Meta::CPAN

sub cookie {
    my($self,@p) = self_or_default(@_);
    my($name,$value,$path,$domain,$secure,$expires,$httponly,$max_age,$samesite,$priority) =
	rearrange([NAME,[VALUE,VALUES],PATH,DOMAIN,SECURE,EXPIRES,HTTPONLY,'MAX-AGE',SAMESITE,PRIORITY],@p);

    require CGI::Cookie;

    # if no value is supplied, then we retrieve the
    # value of the cookie, if any.  For efficiency, we cache the parsed
    # cookies in our state variables.
    unless ( defined($value) ) {
	$self->{'.cookies'} = CGI::Cookie->fetch unless $COOKIE_CACHE && exists $self->{'.cookies'};
	
	# If no name is supplied, then retrieve the names of all our cookies.
	return () unless $self->{'.cookies'};
	return keys %{$self->{'.cookies'}} unless $name;
	return () unless $self->{'.cookies'}->{$name};

lib/CGI.pm  view on Meta::CPAN

    push(@param,'-httponly'=>$httponly) if $httponly;
    push(@param,'-max-age'=>$max_age) if $max_age;
    push(@param,'-samesite'=>$samesite) if $samesite;
    push(@param,'-priority'=>$priority) if $priority;

    return CGI::Cookie->new(@param);
}

sub parse_keywordlist {
    my($self,$tosplit) = @_;
    $tosplit = unescape($tosplit); # unescape the keywords

lib/CGI.pm  view on Meta::CPAN

# is returned.
####
sub raw_cookie {
    my($self,$key) = self_or_CGI(@_);

    require CGI::Cookie;

    if (defined($key)) {
	$self->{'.raw_cookies'} = CGI::Cookie->raw_fetch
	    unless $self->{'.raw_cookies'};

	return () unless $self->{'.raw_cookies'};
	return () unless $self->{'.raw_cookies'}->{$key};
	return $self->{'.raw_cookies'}->{$key};