Hi,
1) If thats all your code, then you need some headers =) Something like; (assuming its going in a file, for example testing.cgi)
use strict;
use lib '/path/to/admin';
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use Links qw/$CFG $IN $DB $USER/;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use GT::Date;
use Links::SiteHTML;
use File::Copy;
local $SIG{__DIE__} = \&Links::fatal;
Links::init('/path/to/admin');
Links::init_user();
print $IN->header();
print Links::SiteHTML::display('start');
If that still doesn't work, try running it from SSH/Telnet;
perl testing.cgi
..and see if that gives any more info :)
Hope that helps.
Cheers
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
1) If thats all your code, then you need some headers =) Something like; (assuming its going in a file, for example testing.cgi)
Code:
#!/usr/bin/perl use strict;
use lib '/path/to/admin';
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use Links qw/$CFG $IN $DB $USER/;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use GT::Date;
use Links::SiteHTML;
use File::Copy;
local $SIG{__DIE__} = \&Links::fatal;
Links::init('/path/to/admin');
Links::init_user();
print $IN->header();
print Links::SiteHTML::display('start');
If that still doesn't work, try running it from SSH/Telnet;
Code:
cd /path/to/folder perl testing.cgi
..and see if that gives any more info :)
Hope that helps.
Cheers
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!