| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/eg/ |
| crash.cgi | 3 use CGI::Carp qw(fatalsToBrowser);
|
| nph-multipart.cgi | 2 use CGI qw/:push -nph/;
|
| clickable_image.cgi | 3 use CGI;
4 $query = new CGI;
|
| internal_links.cgi | 3 use CGI;
4 $query = new CGI;
|
| diff_upload.cgi | 6 use CGI qw(:standard);
7 use CGI::Carp;
11 print "<strong>Version </strong>$CGI::VERSION<p>";
50 <A HREF="../cgi_docs.html">CGI documentation</A>
|
| nph-clock.cgi | 3 use CGI::Push qw(:standard :html3);
|
| popup.cgi | 3 use CGI;
4 $query = new CGI;
|
| file_upload.cgi | 5 use CGI qw(:standard);
6 use CGI::Carp qw/fatalsToBrowser/;
10 print strong("Version "),$CGI::VERSION,p;
64 a({href=>"../cgi_docs.html"},"CGI documentation"),
|
| monty.cgi | 3 use CGI;
4 use CGI::Carp qw/fatalsToBrowser/;
6 $query = new CGI;
9 print $query->start_html("Example CGI.pm Form");
10 print "<H1> Example CGI.pm Form</H1>\n";
|
| save_state.cgi | 3 use CGI;
4 $query = new CGI;
46 $query = new CGI(FILE); # Throw out the old query, replace it with a new one
|
| tryit.cgi | 3 use CGI ':standard';
|
| frameset.cgi | 3 use CGI;
4 $query = new CGI;
|
| multiple_forms.cgi | 3 use CGI;
5 $query = new CGI;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
| fast.t | 6 # ensure the blib's are in @INC, else we might use the core CGI.pm
19 () = $CGI::Q;
20 () = $CGI::Fast::Ext_Request;
25 use_ok( CGI::Fast );
26 ok( my $q = CGI::Fast->new(), 'created new CGI::Fast object' );
27 is( $q, $CGI::Q, 'checking to see if the object was stored properly' );
30 ok( $q = CGI::Fast->new({ foo => 'bar' }), 'creating obect with params' );
35 is( $CGI::Fast::Ext_Request, '', 'checking no active request' );
|
| util-58.t | 2 # This tests CGI::Util::escape() when fed with UTF-8-flagged string
12 use_ok("CGI::Util");
14 is(CGI::Util::escape($uri), "%E5%B0%8F%E9%A3%BC%20%E5%BC%BE.txt",
|
| cookie.t | 7 # ensure the blib's are in @INC, else we might use the core CGI.pm
11 use CGI::Util qw(escape unescape);
18 BEGIN {use_ok('CGI::Cookie');}
32 my $result = CGI::Cookie->parse($test_cookie[0]);
36 my @result = CGI::Cookie->parse($test_cookie[0]);
40 @result = CGI::Cookie->parse($test_cookie[1]);
44 my %result = CGI::Cookie->parse($test_cookie[0]);
61 my %result = CGI::Cookie->fetch();
66 %result = CGI::Cookie->fetch();
70 is(ref($result{foo}), 'CGI::Cookie', 'Type of objects returned is correct')
[all...] |
| request.t | 9 use CGI ();
23 # Set up a CGI environment
28 $ENV{SCRIPT_NAME} = '/cgi-bin/foo.cgi';
35 $q = new CGI;
36 test(2,$q,"CGI::new()");
37 test(3,$q->request_method eq 'GET',"CGI::request_method()");
38 test(4,$q->query_string eq 'game=chess;game=checkers;weather=dull',"CGI::query_string()");
39 test(5,$q->param() == 2,"CGI::param()");
40 test(6,join(' ',sort $q->param()) eq 'game weather',"CGI::param()")
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/ |
| Pretty.pm | 1 package CGI::Pretty;
11 use CGI ();
13 $CGI::Pretty::VERSION = '1.08';
14 $CGI::DefaultClass = __PACKAGE__;
15 $CGI::Pretty::AutoloadClass = 'CGI';
16 @CGI::Pretty::ISA = qw( CGI );
23 return if !$CGI::Pretty::LINEBREAK || !$CGI::Pretty::INDENT
[all...] |
| Apache.pm | 1 use CGI;
10 CGI::Apache - Backward compatibility module for CGI.pm
|
| Switch.pm | 1 use CGI;
11 CGI::Switch - Backward compatibility module for defunct CGI::Switch
|
| Fast.pm | 1 package CGI::Fast;
16 $CGI::Fast::VERSION='1.07';
18 use CGI;
20 @ISA = ('CGI');
57 CGI->_reset_globals;
58 return $CGI::Q = $self->SUPER::new($initializer, @param);
65 CGI::Fast - CGI Interface for Fast CGI
69 use CGI::Fast qw(:standard)
[all...] |
| Push.pm | 1 package CGI::Push;
17 # http://stein.cshl.org/WWW/software/CGI/
19 $CGI::Push::VERSION='1.04';
20 use CGI;
21 use CGI::Util 'rearrange';
22 @ISA = ('CGI');
24 $CGI::DefaultClass = 'CGI::Push';
25 $CGI::Push::AutoloadClass = 'CGI';
[all...] |
| Carp.pm | 1 package CGI::Carp;
5 B<CGI::Carp> - CGI routines for writing to the HTTPD (or other) error log
9 use CGI::Carp;
17 use CGI::Carp qw(cluck);
20 use CGI::Carp qw(fatalsToBrowser);
25 CGI scripts have a nasty habit of leaving warning messages in the error
34 use CGI::Carp
58 use CGI::Carp qw(carpout);
62 called in a C<BEGIN> block at the top of the CGI application so tha
[all...] |
| Cookie.pm | 1 package CGI::Cookie;
16 $CGI::Cookie::VERSION='1.28';
18 use CGI::Util qw(rearrange unescape escape);
19 use CGI;
143 # $domain = CGI::virtual_host() unless defined $domain;
189 print CGI::header(-cookie => $self);
238 $self->{'expires'} = CGI::Util::expires($expires,'cookie') if defined $expires;
245 $self->{'max-age'} = CGI::Util::expire_calc($expires)-time() if defined $expires;
268 CGI::Cookie - Interface to Netscape Cookies
272 use CGI qw/:standard/
[all...] |
| /onnv/onnv-gate/usr/src/cmd/cmd-inet/usr.lib/wanboot/bootlog-cgi/ |
| bootlog-cgi | 30 # cgi script to handle bootlog messages
33 # removes '\' inserted by cgi gateway
47 # remove backslashes inserted by CGI gateway
56 echo CGI/1.0 bootlog script report:
|
