--- print/izvjestaj.pl	2000/06/27 11:15:32	1.8
+++ print/izvjestaj.pl	2000/07/13 08:01:31	1.9
@@ -2,6 +2,9 @@
 
 use strict;
 
+my $ic_mail='biljana.gombar@pliva.hr';
+my $mreze_mail='davorin.koprivnjak@pliva.hr';
+
 my $debug=0;
 
 use DBI;
@@ -11,15 +14,17 @@
 
 print STDERR "Debug mod: output je u /tmp/debug*\n" if ($debug);
 
-my $currdate = strftime "%d.%m.%Y %H:%M:%S", localtime;
+my $currdate = strftime "%Y-%m-%d %H:%M:%S", localtime;
 
 my $html_file=$currdate;
 $html_file=~s/ /_/g;
 $html_file="izvjestaji/$html_file.html";
+my $html_date=$currdate;
+$html_date=~s/ /%20/g;
 
 if (! $debug) {
 open(HTML,"> $html_file") || die "html: $!";
-open(MAIL,"|/usr/lib/sendmail biljana.gombar\@pliva.hr,izvjestaji\@support.pliva.hr") || die "sendmail: $!";
+open(MAIL,"|/usr/lib/sendmail $ic_mail,$mreze_mail,izvjestaji\@support.pliva.hr") || die "sendmail: $!";
 } else {
 open(HTML,"> /tmp/debug.html") || die "html: $!";
 open(MAIL,"> /tmp/debug.mail") || die "sendmail: $!";
@@ -76,7 +81,7 @@
 Datum i vrijeme generiranja izvještaja: $currdate
 
 Izvještaj za štampanje se nalazi na
-http://support.pliva.hr/$html_file
+http://support.pliva.hr/ic.php?datum=$html_date
 sa potpunim podacima o umrežavanju, lokaciji računala i osobe
 
 ";
@@ -147,7 +152,6 @@
 	}
 }
 
-$sth->finish;
 
 print HTML '
 </table>
@@ -157,8 +161,6 @@
 close(HTML);
 close(MAIL);
 
-$dbh->disconnect;
-
 foreach my $email_ko (keys %mail4ko) {
 	if (! $debug) {
 		open(MAIL,"|/usr/lib/sendmail $email_ko") || die "sendmail: $!";
@@ -183,4 +185,14 @@
 	close(MAIL);
 }
 
-print "Printanje zahtjeva za print za IC:\n./print.pl ",join(",",@za_ic),"\n";
+#print "Printanje zahtjeva za print za IC:\n./print.pl ",join(",",@za_ic),"\n";
+foreach my $id (@za_ic) {
+	if (! $debug) {
+		$dbh->do("insert into izvjestaji (datum,osoba_id)
+			values ('$currdate',$id)") || die $dbh->errstr();
+	}
+}
+
+$sth->finish; undef $sth;
+$dbh->disconnect;
+