Mercurial > pub > site.implab

comparison public_html/cgi-bin/handler.pl @ 0:aac1085b256d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial commit
author cin
date Sat, 15 Mar 2014 00:34:33 +0400
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:aac1085b256d
1 #!/usr/bin/perl -wT
2 #-d:NYTProf
3 use strict;
4
5 BEGIN {
6 require "./_config.pm";
7 }
8
9 use CGI;
10 use IMPL::require {
11 TApp => 'Benzin::Web::Application'
12 };
13
14 eval {
15 my $instance = TApp->spawn;
16
17 $instance->Run();
18 };
19 if ($@) {
20 print CGI::header(-status => 500, type => 'text/plain');
21 print $@;
22 }