Hi. For some reason, I am getting this weird error message;
Can't locate strict.pm in @INC (@INC contains: /usr/lib/perl5/5.6.0/i386-linux /usr/lib/perl5/5.6.0 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl .) at cleanup.cgi line 18.
BEGIN failed--compilation aborted at cleanup.cgi line 18.
... with the following code...
use strict;
use lib '/home/virtual/site38/fst/var/www/cgi-bin/admin';
use Links qw/$IN $DB $CFG/;
use GT::SQL;
use GT::SQL::Condition;
use CGI::Carp qw(fatalsToBrowser);
Links::init('/home/virtual/site38/fst/var/www/cgi-bin/admin');
########################################
print $IN->header();
# setup database table connections...
my $table = $DB->table('Links');
my $table2 = $DB->table('CatLinks');
my $table3 = $DB->table('Category');
my $cond = GT::SQL::Condition->new("Full_Name", "LIKE", 'Regional%');
my $sth = $table->select();
my @ids;
while (my $hit = $sth->fetchrow_hashref) {
push (@ids,$hit->{ID});
print $hit->{Full_Name} . "\n";
}
print join("\n",@ids);
Anyone got any ideas as to what this may be about? Other LSQL files work fine.... just not this one (and they use strict).
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!
Quote:
bash-2.05$ perl cleanup.cgi Can't locate strict.pm in @INC (@INC contains: /usr/lib/perl5/5.6.0/i386-linux /usr/lib/perl5/5.6.0 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl .) at cleanup.cgi line 18.
BEGIN failed--compilation aborted at cleanup.cgi line 18.
... with the following code...
Code:
#!/usr/bin/perl use strict;
use lib '/home/virtual/site38/fst/var/www/cgi-bin/admin';
use Links qw/$IN $DB $CFG/;
use GT::SQL;
use GT::SQL::Condition;
use CGI::Carp qw(fatalsToBrowser);
Links::init('/home/virtual/site38/fst/var/www/cgi-bin/admin');
########################################
print $IN->header();
# setup database table connections...
my $table = $DB->table('Links');
my $table2 = $DB->table('CatLinks');
my $table3 = $DB->table('Category');
my $cond = GT::SQL::Condition->new("Full_Name", "LIKE", 'Regional%');
my $sth = $table->select();
my @ids;
while (my $hit = $sth->fetchrow_hashref) {
push (@ids,$hit->{ID});
print $hit->{Full_Name} . "\n";
}
print join("\n",@ids);
Anyone got any ideas as to what this may be about? Other LSQL files work fine.... just not this one (and they use strict).
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!