1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# $Id: _test.pm,v 1.2 2007/03/01 17:17:44 mpeppler Exp $
package _test;
$| = 1; #keep stdout in sync with stderr
my ( $Uid, $Pwd, $Srv, $Db );
my ($host, $port);
sub load_data {
my @dirs = ( './.', './..', './../..', './../../..' );
foreach (@dirs) {
if ( -f "$_/PWD" ) {
open( PWD, "$_/PWD" ) || die "$_/PWD is not readable: $!\n";
while (<PWD>) {
chop;
s/^\s*//;
next if ( /^\#/ || /^\s*$/ );
( $l, $r ) = split(/=/);
$Uid = $r if ( $l eq UID );
$Pwd = $r if ( $l eq PWD );
$Srv = $r if ( $l eq SRV );
$Db = $r if ( $l eq DB );
}
close(PWD);
last;
}
}
if ($Srv =~ /(\w+):(\w+)/) {
$host = $1;
$port = $2;
}
}
sub get_info {
load_data();
$Db = 'tempdb' unless $Db;
my $server;
if (defined($host)) {
$server = "host=$host;port=$port";
} else {
$server = "server=$Srv";
}
return ( $Uid, $Pwd, $server, $Db );
}
1;
|
