← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy

« back to all changes in this revision

Viewing changes to Apache-Test/t/cgi-bin/cookies.pl

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad
  • Date: 2006-03-24 02:48:44 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20060324024844-73oxqkcj2jmlmh2t
Tags: 2.0.2-2build1
Fake sync to bring in new upstream bugfixes, UVF exception by mdz.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Apache-Test/t/cgi-bin/cookies.pl
1
 
#!/usr/bin/perl
2
 
# WARNING: this file is generated, do not edit
3
 
# 01: Apache-Test/lib/Apache/TestConfig.pm:923
4
 
# 02: Apache-Test/lib/Apache/TestConfig.pm:1013
5
 
# 03: Apache-Test/lib/Apache/TestMM.pm:134
6
 
# 04: ./Makefile.PL:39
7
 
# 05: /usr/share/perl/5.8/ExtUtils/MakeMaker.pm:181
8
 
# 06: /usr/share/perl/5.8/ExtUtils/MakeMaker.pm:170
9
 
# 07: /usr/share/perl/5.8/ExtUtils/MakeMaker.pm:589
10
 
# 08: /usr/share/perl/5.8/ExtUtils/MakeMaker.pm:53
11
 
# 09: lib/ModPerl/BuildMM.pm:131
12
 
# 10: Makefile.PL:88
13
 
 
14
 
BEGIN { eval { require blib && blib->import; } }
15
 
#!perl -wT
16
 
 
17
 
use strict;
18
 
 
19
 
use CGI;
20
 
use CGI::Cookie;
21
 
 
22
 
my %cookies = CGI::Cookie->fetch;
23
 
my $name = 'ApacheTest';
24
 
my $c = ! exists $cookies{$name}
25
 
    ? CGI::Cookie->new(-name=>$name, -value=>time)
26
 
    : '';
27
 
 
28
 
print "Set-Cookie: $c\n" if $c;
29
 
print "Content-Type: text/plain\n\n";
30
 
print ($c ? 'new' : 'exists'), "\n";