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