viewvc.cgi/useradm/oznaci_dupli

#!/usr/local/bin/perl -w

# Dobrica Pavlinusic <dpavlin@pliva.hr>
# 2000-04-18 DbP 
# oznaÃ¨i dupli zahtjev

use DBI;
use strict;

$|++;

my $osoba_id;

if (defined($ARGV[0])) {
        $osoba_id = shift @ARGV;
} else {
        die "trebam ID osobe kao argument!";
}

open(WHO,"who am i |") || die "who am i? $!";
my $db_user=<WHO>;
$db_user=~s/\s.+$//g;
close(WHO);

my $dbh = DBI->connect("DBI:Pg:dbname=informatika;host=support.pliva.hr;user=$db_user","","") || die $DBI::errstr;

$dbh->do("insert into status (osoba_id,kontakt_osoba_id,datum,status_tip_id) values ($osoba_id,3,'now'::datetime,4)");  # 4 .. dupli

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