Mercurial > pub > Impl

annotate _test/test_cgi.pl @ 305:b5d5793f348e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TTView refactoring, still experiencing memory leaks
author sergey
date Wed, 17 Apr 2013 18:00:19 +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 });