Mercurial > pub > site.implab
diff public_html/cgi-bin/handler.pl @ 0:aac1085b256d
initial commit
author | cin |
---|---|
date | Sat, 15 Mar 2014 00:34:33 +0400 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/public_html/cgi-bin/handler.pl Sat Mar 15 00:34:33 2014 +0400 @@ -0,0 +1,22 @@ +#!/usr/bin/perl -wT +#-d:NYTProf +use strict; + +BEGIN { + require "./_config.pm"; +} + +use CGI; +use IMPL::require { + TApp => 'Benzin::Web::Application' +}; + +eval { + my $instance = TApp->spawn; + + $instance->Run(); +}; +if ($@) { + print CGI::header(-status => 500, type => 'text/plain'); + print $@; +} \ No newline at end of file