53 lines
1.6 KiB
Plaintext
53 lines
1.6 KiB
Plaintext
|
#!/usr/bin/perl -w
|
||
|
|
# Note: above -w flag should be removed in production, as it will cause warnings in
|
||
|
|
# 3rd party modules to appear in the server error log
|
||
|
|
|
||
|
|
use utf8;
|
||
|
|
use v5.12;
|
||
|
|
use lib qw(/var/www/webperl);
|
||
|
|
use FindBin;
|
||
|
|
|
||
|
|
# Work out where the script is, so module and config loading can work.
|
||
|
|
my $scriptpath;
|
||
|
|
BEGIN {
|
||
|
|
if($FindBin::Bin =~ /(.*)/) {
|
||
|
|
$scriptpath = $1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
use CGI::Carp qw(fatalsToBrowser set_message); # Catch as many fatals as possible and send them to the user as well as stderr
|
||
|
|
|
||
|
|
use lib "$scriptpath/modules";
|
||
|
|
|
||
|
|
my $contact = 'contact@email.address'; # global contact address, for error messages
|
||
|
|
|
||
|
|
# System modules
|
||
|
|
use CGI::Carp qw(fatalsToBrowser set_message); # Catch as many fatals as possible and send them to the user as well as stderr
|
||
|
|
|
||
|
|
# Webperl modules
|
||
|
|
use Webperl::Application;
|
||
|
|
|
||
|
|
# Webapp modules
|
||
|
|
use ORB::AppUser;
|
||
|
|
use ORB::BlockSelector;
|
||
|
|
use ORB::System;
|
||
|
|
|
||
|
|
delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Clean up ENV
|
||
|
|
|
||
|
|
# install more useful error handling
|
||
|
|
sub handle_errors {
|
||
|
|
my $msg = shift;
|
||
|
|
print "<h1>Software error</h1>\n";
|
||
|
|
print '<p>Server time: ',scalar(localtime()),'<br/>Error was:</p><pre>',$msg,'</pre>';
|
||
|
|
print '<p>Please report this error to ',$contact,' giving the text of this error and the time and date at which it occured</p>';
|
||
|
|
}
|
||
|
|
set_message(\&handle_errors);
|
||
|
|
|
||
|
|
do {
|
||
|
|
my $app = Webperl::Application -> new(appuser => ORB::AppUser -> new(),
|
||
|
|
system => ORB::System -> new(),
|
||
|
|
block_selector => ORB::BlockSelector -> new())
|
||
|
|
or die "Unable to create application";
|
||
|
|
$app -> run();
|
||
|
|
}
|