--- otvori_nove+db	2000/04/12 09:10:20	1.2
+++ otvori_nove+db	2000/05/17 09:57:22	1.6
@@ -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 "") {
@@ -120,19 +137,25 @@
 	$ime=nuke_chars($ime);
 	$prezime=nuke_chars($prezime);
 
-	my $prezime_za_login;
+	my ($prezime_za_login,$ime_za_login);
 
-	if ($prezime =~ /-/) {          # dva prezimena prezime1-prezime2
-		($prezime_za_login,undef) = split(/-/,$prezime,2);
+	if ($prezime =~ /[- ]/) {          # dva prezimena prezime1-prezime2
+		($prezime_za_login,undef) = split(/[- ]/,$prezime,2);
 	} else {
 		$prezime_za_login = $prezime;
 	}
 
+	if ($ime =~ /[- ]/) {          # dva imena ime1-ime2
+		($ime_za_login,undef) = split(/[- ]/,$ime,2);
+	} else {
+		$ime_za_login = $ime;
+	}
+
 	my $add="";
 	my $login;
 
 	do {
-		$login=substr($ime,0,1).substr($prezime_za_login,0,7-length($add)).$add;
+		$login=substr($ime_za_login,0,1).substr($prezime_za_login,0,7-length($add)).$add;
 		$login =~ tr [A-Z] [a-z];
 		xdebug "$ime, $prezime   login: $login\n";
 		$add++;
@@ -143,6 +166,7 @@
 	$add="";
 	do {
 		$email_alias="$ime.$prezime$add";
+		$email_alias =~ s/ /./g;	# space -> dot
 		$email_alias =~ tr [A-Z] [a-z];
 		xdebug "\t$email_alias\n";
 		$add++;
@@ -152,7 +176,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;
 	}
@@ -179,7 +203,7 @@
 	$full_name=~s/ +:/:/g;
 	$full_name=~s/ +/ /g;
 	$full_name=nuke_chars($full_name);
-	if ($shell eq "t") {
+	if ($shell) {
 		$shell="/usr/local/bin/bash";
 	} else {
 		$shell="/usr/bin/false";
@@ -194,7 +218,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";
@@ -223,7 +247,7 @@
 close(NPASSWD);
 close(NALIAS);
 
-undef $sth;
+undef $sth,$sth2;
 $dbh->disconnect;
 
 system "mv /etc/passwd passwd.orig" if (! $debug);