Mercurial > pub > Impl

annotate _test/test_cgi.pl @ 256:32aceba4ee6d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
corrected ViewHandlers to handle cookies and headers. Dirty hacks to handle binary data RestController doesn't deal with file extensions anymore.
author sergey
date Wed, 12 Dec 2012 04:29:50 +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 });