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

Annotation of /oznaci_dupli

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Tue Apr 18 12:06:18 2000 UTC (19 years, 1 month ago) by dpavlin
Branch: MAIN
CVS Tags: HEAD
skripta za označavanje duplih zahtjeva

1 dpavlin 1.1 #!/usr/local/bin/perl -w
2    
3     # Dobrica Pavlinusic <dpavlin@pliva.hr>
4     # 2000-04-18 DbP
5     # oznaĆØi dupli zahtjev
6    
7     use DBI;
8     use strict;
9    
10     $|++;
11    
12     my $osoba_id;
13    
14     if (defined($ARGV[0])) {
15     $osoba_id = shift @ARGV;
16     } else {
17     die "trebam ID osobe kao argument!";
18     }
19    
20     open(WHO,"who am i |") || die "who am i? $!";
21     my $db_user=<WHO>;
22     $db_user=~s/\s.+$//g;
23     close(WHO);
24    
25     my $dbh = DBI->connect("DBI:Pg:dbname=informatika;host=support.pliva.hr;user=$db_user","","") || die $DBI::errstr;
26    
27     $dbh->do("insert into status (osoba_id,kontakt_osoba_id,datum,status_tip_id) values ($osoba_id,3,'now'::datetime,4)"); # 4 .. dupli
28    

  ViewVC Help
Powered by ViewVC 1.1.26