vdw/trunk/obj_srvr.pl

#! perl -w

# ================================================================================
#  obj_srvr.pl
#
#  wrapper for Obj_Srvr.pm
#
#  Jeremy Hickerson, 5/19/2003
# ================================================================================

# handle unforseen aborts
END {
    if ($? and defined($FH_OUT) ) {
        print $FH_OUT "\n0 rows returned\n";
    }
}

use Obj_Srvr;
use strict;

my $uid = shift;
my $passwd = shift;

select(STDOUT); $| = 1;     # make unbuffered
select(STDERR); $| = 1;     # make unbuffered


if (!$uid) {
    $uid = "some_user";
    $passwd = `type sys\$login:some_user.pwd`;
    chomp($passwd);
}

print STDERR "running obj_srvr.pl...\n";  # jhjh

obj_srvr_connect($uid, $passwd);
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);