--- print/izvjestaj.pl	2000/05/10 08:19:39	1.4
+++ print/izvjestaj.pl	2000/06/27 11:15:32	1.8
@@ -37,7 +37,21 @@
 
 ';
 
-my $dbh = DBI->connect("DBI:Pg:dbname=informatika","","") || die $DBI::errstr;
+my $host = "host=support.pliva.hr;";
+
+open(WHO,"who -m |") || die "who am i? $!";
+my $db_user=<WHO>;
+$db_user=~s/[^!]+!//;
+close(WHO);
+if (! defined($db_user)) {
+	$db_user="user=dpavlin;"; $host="";	# works on localhost
+} else {
+	$db_user=~s/\s.+$//g;
+	$db_user="user=$db_user;";
+}
+
+
+my $dbh = DBI->connect("DBI:Pg:dbname=informatika;${host}${db_user}","","") || die $DBI::errstr;
 $dbh->do("set datestyle = 'german'") || die $dbh->errstr();
 
 my $sth = $dbh->prepare("select id from last_print order by id desc limit 1,1");
@@ -58,7 +72,7 @@
 	}
 }
 
-print MAIL "Otvorenih računa: ",$#osoba_id_za_print+1,"
+print MAIL "
 Datum i vrijeme generiranja izvještaja: $currdate
 
 Izvještaj za štampanje se nalazi na
@@ -66,18 +80,20 @@
 sa potpunim podacima o umrežavanju, lokaciji računala i osobe
 
 ";
-print HTML "Otvorenih računa: ",$#osoba_id_za_print+1,"
+print HTML "
 <br>Datum i vrijeme generiranja izvještaja: $currdate<p>";
 
 $sth = $dbh->prepare("
 	select osobe.id,ime,prezime,tel,lokacije.naziv,
 		org_jed.naziv,org_pod_jed.pod_naziv,
-		lok_racunala,objekt,kat,soba,z_rac,umrezavanje
+		lok_racunala,objekt,kat,soba,z_rac,umrezavanje,
+		kontakt_osobe.e_mail,podesavanje
 	from osobe
 	where osobe.id in (".join(",",@osoba_id_za_print).")
 		and lokacija_id=lokacije.id and org_jed_id=org_jed.id
 		and org_pod_jed_id=org_pod_jed.pod_id
 		and podesavanje=true
+		and kontakt_osobe.id=kontakt_osoba_id
 	order by lokacije.naziv,org_jed.naziv
 	") || die $dbh->errstr();
 $sth->execute() || die $sth->errstr();
@@ -93,20 +109,30 @@
 
 my $bgcol='';
 my $mreza='';
+my @za_ic;
+my %mail4ko;
 
 while (my @arr = $sth->fetchrow_array() ) {
+	push @za_ic,$arr[0];
+	$mail4ko{$arr[13]}.="\t$arr[1] $arr[2]";
+	$mail4ko{$arr[13]}.=" (bez podešavanja)" if ($arr[14] == 0);
+
 	printf MAIL ("%3s %4s %-20s %4s %-30s %-20s\n",$rbr,$arr[0],"$arr[1] $arr[2]",$arr[3],$arr[4],"$arr[5] $arr[6]");
 	if ($lokacija ne $arr[4]) {
 		$lokacija=$arr[4];
 		print HTML "<tr bgcolor=#000000><td colspan=6><font size=+1 color=#ffffff>$lokacija</font></td></tr>";
 	}
-	print HTML "<tr$bgcol><td>$rbr</td><td>$arr[0]</td><td>$arr[1] $arr[2]</td><td>tel: $arr[3]</td><td><small>$arr[4]</small></td><td>$arr[5]<br>$arr[6]</td></tr>\n";
+	print HTML "<tr$bgcol><td>$rbr</td><td><a href=\"http://support.pliva.hr/obavijest.php?id=$arr[0]\">$arr[0]</a></td><td>$arr[1] $arr[2]</td><td>tel: $arr[3]</td><td><small>$arr[4]</small></td><td>$arr[5]<br>$arr[6]</td></tr>\n";
 	if ($arr[12] == 0) {
 		$mreza='umreženo';
 	} else {
-		my $rows = $dbh->do("select max(status_tip_id) from status
-			where osoba_id = $arr[0] and status_tip_id=8") || die $dbh->errstr();
-		if ($rows > 0) {
+		my $sth2 = $dbh->prepare("select count(status_tip_id) from status
+			where osoba_id = $arr[0] and status_tip_id=8") ||
+				die $dbh->errstr();
+		$sth2->execute() || die $sth2->errstr();
+		my ($nr_of_status8) = $sth2->fetchrow_array();
+			
+		if ($nr_of_status8 > 0) {
 			$mreza='<i>umrežavanje obavljeno</i>';
 		} else {
 			$mreza='<b>potrebno umrežavanje</b>';
@@ -131,3 +157,30 @@
 close(HTML);
 close(MAIL);
 
+$dbh->disconnect;
+
+foreach my $email_ko (keys %mail4ko) {
+	if (! $debug) {
+		open(MAIL,"|/usr/lib/sendmail $email_ko") || die "sendmail: $!";
+	} else {
+		open(MAIL,">> /tmp/debug.komail") || die "sendmail: $!";
+	}
+
+	print MAIL 'From: PlivaNet Core Support Team <pcst@pliva.hr>
+Subject: otvoreni računi za e-mail
+
+Obavještavamo Vas da su otvoreni korisnički računi na intranet poslužitelju
+za slijedeće osobe:
+';
+	foreach my $ime_pr (split(/\t/,$mail4ko{$email_ko})) {
+		print MAIL "\t$ime_pr\n";
+	}
+	print MAIL '
+Vaši korisnici dobiti će pristupno ime (login) i lozinku (password) internom
+poštom, a djelatnici odjela Informatika IC će izvršiti podešavanje korisničkog
+računala.';
+
+	close(MAIL);
+}
+
+print "Printanje zahtjeva za print za IC:\n./print.pl ",join(",",@za_ic),"\n";