Parent Directory | Revision Log | Patch
revision 1.1 by dpavlin, Thu Apr 20 09:26:38 2000 UTC | revision 1.2 by dpavlin, Wed May 10 07:13:42 2000 UTC | |
---|---|---|
# | Line 13 my ($osoba_id,$status,$status_tip_id,$st | Line 13 my ($osoba_id,$status,$status_tip_id,$st |
13 | ||
14 | my $host = "host=support.pliva.hr;"; | my $host = "host=support.pliva.hr;"; |
15 | ||
16 | open(WHO,"who am i |") || die "who am i? $!"; # osf-ism | open(WHO,"who -m |") || die "who am i? $!"; # osf-ism |
17 | my $db_user=<WHO>; | my $db_user=<WHO>; |
18 | $db_user=~s/[^!]+!//; | |
19 | close(WHO); | close(WHO); |
20 | if (! defined($db_user)) { | if (! defined($db_user)) { |
21 | $db_user="user=dpavlin;"; $host=""; # works on localhost | $db_user="user=dpavlin;"; $host=""; # works on localhost |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |