Mercurial > pub > Impl

annotate _test/test_cgi.pl @ 258:91bae9f41a9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added class for referencing paths in configuration files
author sergey
date Tue, 18 Dec 2012 19:18:31 +0400
parents 6d8092d8ce1b
children c27434cdd611
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
1 #!/usr/bin/perl
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
2 use strict;
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
3
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
4 use CGI qw(-nph);
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
5
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
6 my $q = CGI->new({});
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
7
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
8 print $q->header({
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
9 type => 'text/html',
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
10 X_My_header => 'some data'
6d8092d8ce1b *reworked IMPL::Security
sergey
parents:
diff changeset
11 });