|
|
 |
#!/usr/bin/perl
###################################################################################
# PERLDESK { LOGICNOW LTD } #
# #
###################################################################################
# Author: LogicNow Limited #
# Email: support@perldesk.com #
# Web: http://www.perldesk.com #
###################################################################################
# PerlDesk is protected under copyright laws and cannot be resold, redistributed #
# in any form without prior written permission from LOGICNOW LTD. #
# #
# This program is commercial and only licensed customers may have an installation #
###################################################################################
use strict;
use File::Spec;
BEGIN {
unshift @INC, 'lib', 'extlib', '.';
$ENV{HTML_TEMPLATE_ROOT} = File::Spec->catfile('include', 'tpl');
}
eval {
require PerlDesk::App::PDesk;
my $app = new PerlDesk::App::PDesk();
if(my $charset = $app->get_setting_2('output_charset')){
$app->header_props(-charset=>$charset);
}
$app->run();
};
if ( my $error = $@ ) {
print "Content-Type: text/html\n\n";
eval "require HTML::Template";
if ( $@ ) {
print $error;
} else {
my $tmpl = HTML::Template->new(filename=>'error.tmpl');
$tmpl->param(ERROR=>$error);
print $tmpl->output()
}
}
 |
| |
|
