/[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

Contents of /oznaci_dupli

Parent Directory Parent Directory | Revision Log Revision Log


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

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