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