1 |
#! perl -w |
2 |
|
3 |
# ================================================================================ |
4 |
# obj_srvr.pl |
5 |
# |
6 |
# wrapper for Obj_Srvr.pm |
7 |
# |
8 |
# Jeremy Hickerson, 5/19/2003 |
9 |
# ================================================================================ |
10 |
|
11 |
# handle unforseen aborts |
12 |
END { |
13 |
if ($? and defined($FH_OUT) ) { |
14 |
print $FH_OUT "\n0 rows returned\n"; |
15 |
} |
16 |
} |
17 |
|
18 |
use Obj_Srvr; |
19 |
use strict; |
20 |
|
21 |
my $uid = shift; |
22 |
my $passwd = shift; |
23 |
|
24 |
select(STDOUT); $| = 1; # make unbuffered |
25 |
select(STDERR); $| = 1; # make unbuffered |
26 |
|
27 |
|
28 |
if (!$uid) { |
29 |
$uid = "some_user"; |
30 |
$passwd = `type sys\$login:some_user.pwd`; |
31 |
chomp($passwd); |
32 |
} |
33 |
|
34 |
print STDERR "running obj_srvr.pl...\n"; # jhjh |
35 |
|
36 |
obj_srvr_connect($uid, $passwd); |