Mercurial > pub > Impl

view _test/test_cgi.pl @ 321:3dc9260017ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added JSON support for the request action
author cin
date Mon, 20 May 2013 01:14:27 +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'
});