Mercurial > pub > Impl

view _test/test_cgi.pl @ 333:cd6409f66a5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fixes, request environment is deprecated
author cin
date Tue, 11 Jun 2013 20:22:52 +0400
parents 6d8092d8ce1b
children c27434cdd611
line wrap: on
line source

#!/usr/bin/perl
use strict;

use CGI qw(-nph);

my $q = CGI->new({});

print $q->header({
    type => 'text/html',
    X_My_header => 'some data'
});