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