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	dpavlin	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);