our $DBH = undef;
our $USER = $ENV{'REMOTE_USER'};
+my $error;
our $TEMPLATE = HTML::Template->new(filename => 'templates/skel.tmpl');
unless (my $return = do "${page}.pl"){
- print "<p><b>couldn't parse $page: $@</b></p>" if $@;
- print "<p><b>couldn't do $page: $!</b></p>" unless defined $return;
- print "<p><b>couldn't run $page</b></p>" unless $return;
+ $error .= "<p><b>couldn't parse $page: $@</b></p>" if $@;
+ $error .= "<p><b>couldn't do $page: $!</b></p>" unless defined $return;
+ $error .= "<p><b>couldn't run $page</b></p>" unless $return;
}
unless ($XML){
$ND::TEMPLATE->param(Targets => listTargets());
}
$TEMPLATE->param(Coords => param('coords') ? param('coords') : '1:1:1');
+ $TEMPLATE->param(Error => $error);
}
$ND::TEMPLATE->param(BODY => $ND::BODY->output);