cspreport.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl -w

use strict;
use warnings;
use utf8;
use lib qw/./;

use CGI::PSGI;
use cspreport;

my $handler = sub {
    my $env = shift;
    my $app = cspreport->new( { QUERY => CGI::PSGI->new($env) } );
    $app->run_as_psgi();
};