--- otvori_nove+db	2000/04/12 09:10:20	1.2
+++ otvori_nove+db	2000/04/18 12:09:03	1.3
@@ -14,18 +14,16 @@
 
 my $debug=0;
 
-$debug++ if (defined($ARGV[0]) && $ARGV[0] eq "-d");
-my $open_only_id=$ARGV[0] if (defined($ARGV[0]));
+if (defined($ARGV[0]) && $ARGV[0] eq "-d") {
+	$debug++;
+	shift @ARGV;
+}
+my $open_only_id=shift @ARGV if (defined($ARGV[0]));
 
 warn "DEBUG -- me kreira ništa!" if ($debug);
 
 $|++;
 
-my @mail_to;		# array to main initial message to
-open(WHO,"who am i |") || die "who am i? $!";
-my $db_user=<WHO>;
-$db_user=~s/\s.+$//g;
-close(WHO);
 
 #----
 
@@ -40,6 +38,15 @@
 my $mail_alias;
 my $mail_login;
 
+my @mail_to;		# array to main initial message to
+open(WHO,"who am i |") || die "who am i? $!";
+my $db_user=<WHO>;
+$db_user=~s/\s.+$//g;
+close(WHO);
+
+xdebug "koristim korinika $db_user\n";
+
+
 v "/etc/aliases\n";
 open(ALIAS,"/etc/aliases") || die "Can't open /etc/aliases: $!";
 open(NALIAS,">aliases.new") || die "Can't open aliases.new: $!";
@@ -108,8 +115,18 @@
 
 }
 $sth->execute() || die $sth->errstr();
+
+
+my $sth2;
+
 while (my ($osoba_id,$ime,$prezime,$sifra,$objekt,$kat,$soba,$shell) = $sth->fetchrow_array() ) {
 
+	$sth2 = $dbh->prepare("select max(status_tip_id) from status where osoba_id = $osoba_id") || die $dbh->errstr();
+	$sth2->execute() || die $sth2->errstr();
+	my ($max_status) = $sth2->fetchrow_array();
+	xdebug "max status zahtjeva $osoba_id je $max_status\n";
+	next if ($max_status > 3);	# 3 .. otvoren
+
 	next if ($ime eq "ime" || $prezime eq "prezime");
 
 	if (!defined($ime) || !defined($prezime) || $ime eq "" || $prezime eq "") {
@@ -152,7 +169,7 @@
 	my $group="users";
 
 	if (defined($etc_passwd{$login})) {
-		xerror "preskocen: $ime $prezime (postoji isti login $login)\n";
+		xerror "preskocen: $ime $prezime osoba_id=$osoba_id (postoji isti login $login)\n";
 		$dbh->do("insert into status (osoba_id,kontakt_osoba_id,datum,status_tip_id) values ($osoba_id,3,'now'::datetime,4)") if (! $debug);
 		next;
 	}
@@ -194,7 +211,7 @@
 	$etc_passwd{$login}=$full_name;
 
 	if (defined($etc_aliases{$email_alias})) {
-		xerror "upozorenje: $ime $prezime (postoji e-mail alias) -- $email_alias\n";
+		xerror "upozorenje: $ime $prezime osoba_id=$osoba_id (postoji e-mail alias) -- $email_alias\n";
 		print NALIAS "$email_alias:\t$login,$etc_aliases{$email_alias}\n";
 	} else {
 		print NALIAS "$email_alias:\t$login\n";