/[informatika.old]/oznaci.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /oznaci.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26