no need reply. just play around




#!/usr/bin/perl
#================================ tested
#use lib 'your admin path';
use lib 'D:\webtest\test\admin';
use Links qw/:objects/; # or whatever $IN, $DB, $CFG, $USER etc...
use Links qw/$USER/;
use Links::SiteHTML; # if your using templates
use GT::Mail; # if your sending mail...
#Links::init('your admin path'); ###############################
Links::init('D:\webtest\test\admin'); #########################
Links::init_user(); # gets the user information

my($error_message1)= "additional message here";

local $SIG{__DIE__} = \&Links::fatal;

open("c:/123") || GTerror(" $! <br> $error_message1"); # error message

exit;
sub GTerror {
#---------------------------------------------------
my($error_message) = @_;
my ($tags);

$tags->{'error_message'} = $error_message;
print $IN->header();
print Links::SiteHTML::display('8gterrorok', $tags);

}




<%if error_message%><%error_message%><%endif%>

I don't get it?

I would have thought this would cause an internal server error too as $tags isn't defined as a hashref.

my ($tags);
$tags->{'error_message'} = $error_message;