Subject | Strange problem !!!! IB 5.6 PLUS IBperl 0.8.3 PLUS uux |
---|---|
Author | Bill Katelis |
Post date | 2001-09-11T10:42:06Z |
Platform SCO OpenServer 5
Hi,
I have been looking at this for the past day and I am stumped !!!
On Server A: I have a wrapper script which executes a perl script to
connect to a db.
When I execute this script as user uucp on the server everything works
fine.
However, when I uux a command to execute this script from another host -
the database connection fails !!!
No error information is printed.
uucp Permissions have been checked and are ok.
Now, if I was to change the following line in the perl program from:
Path=>"$ENV{MY_DATABASE}",
to:
Path=>"/usr/local/bin/www.gdb",
everything works fine.
Please, can anybody help?
thanks
bill
Script a.sh:
--------
#! /bin/sh
MY_DATABASE=/usr/local/bin/www.gdb
export MY_DATABASE
/usr/local/bin/a.pl
# end of a.sh
Perl program a.pl:
-------------
#! /usr/local/bin/perl -w
use strict;
use IBPerl;
my ($db, $tr, $st, %row);
$db = new IBPerl::Connection(
Path=>"$ENV{MY_DATABASE}",
User=>'user',
Password=>'password'
);
if ($db->{Handle} < 0) { die "Error in connection was: $db->{'Error'}" }
# end of a.pl
Hi,
I have been looking at this for the past day and I am stumped !!!
On Server A: I have a wrapper script which executes a perl script to
connect to a db.
When I execute this script as user uucp on the server everything works
fine.
However, when I uux a command to execute this script from another host -
the database connection fails !!!
No error information is printed.
uucp Permissions have been checked and are ok.
Now, if I was to change the following line in the perl program from:
Path=>"$ENV{MY_DATABASE}",
to:
Path=>"/usr/local/bin/www.gdb",
everything works fine.
Please, can anybody help?
thanks
bill
Script a.sh:
--------
#! /bin/sh
MY_DATABASE=/usr/local/bin/www.gdb
export MY_DATABASE
/usr/local/bin/a.pl
# end of a.sh
Perl program a.pl:
-------------
#! /usr/local/bin/perl -w
use strict;
use IBPerl;
my ($db, $tr, $st, %row);
$db = new IBPerl::Connection(
Path=>"$ENV{MY_DATABASE}",
User=>'user',
Password=>'password'
);
if ($db->{Handle} < 0) { die "Error in connection was: $db->{'Error'}" }
# end of a.pl