21 |
open(HTML,"> $html_file") || die "html: $!"; |
open(HTML,"> $html_file") || die "html: $!"; |
22 |
open(MAIL,"|/usr/lib/sendmail biljana.gombar\@pliva.hr,izvjestaji\@support.pliva.hr") || die "sendmail: $!"; |
open(MAIL,"|/usr/lib/sendmail biljana.gombar\@pliva.hr,izvjestaji\@support.pliva.hr") || die "sendmail: $!"; |
23 |
} else { |
} else { |
24 |
open(HTML,"> /tmp/debug.html") || warn "html: $!"; |
open(HTML,"> /tmp/debug.html") || die "html: $!"; |
25 |
open(MAIL,"> /tmp/debug.mail") || warn "sendmail: $!"; |
open(MAIL,"> /tmp/debug.mail") || die "sendmail: $!"; |
26 |
} |
} |
27 |
|
|
28 |
print HTML ' |
print HTML ' |
72 |
} |
} |
73 |
} |
} |
74 |
|
|
75 |
print MAIL "Otvorenih računa: ",$#osoba_id_za_print+1," |
print MAIL " |
76 |
Datum i vrijeme generiranja izvještaja: $currdate |
Datum i vrijeme generiranja izvještaja: $currdate |
77 |
|
|
78 |
Izvještaj za štampanje se nalazi na |
Izvještaj za štampanje se nalazi na |
80 |
sa potpunim podacima o umrežavanju, lokaciji računala i osobe |
sa potpunim podacima o umrežavanju, lokaciji računala i osobe |
81 |
|
|
82 |
"; |
"; |
83 |
print HTML "Otvorenih računa: ",$#osoba_id_za_print+1," |
print HTML " |
84 |
<br>Datum i vrijeme generiranja izvještaja: $currdate<p>"; |
<br>Datum i vrijeme generiranja izvještaja: $currdate<p>"; |
85 |
|
|
86 |
$sth = $dbh->prepare(" |
$sth = $dbh->prepare(" |
87 |
select osobe.id,ime,prezime,tel,lokacije.naziv, |
select osobe.id,ime,prezime,tel,lokacije.naziv, |
88 |
org_jed.naziv,org_pod_jed.pod_naziv, |
org_jed.naziv,org_pod_jed.pod_naziv, |
89 |
lok_racunala,objekt,kat,soba,z_rac,umrezavanje |
lok_racunala,objekt,kat,soba,z_rac,umrezavanje, |
90 |
|
kontakt_osobe.e_mail,podesavanje |
91 |
from osobe |
from osobe |
92 |
where osobe.id in (".join(",",@osoba_id_za_print).") |
where osobe.id in (".join(",",@osoba_id_za_print).") |
93 |
and lokacija_id=lokacije.id and org_jed_id=org_jed.id |
and lokacija_id=lokacije.id and org_jed_id=org_jed.id |
94 |
and org_pod_jed_id=org_pod_jed.pod_id |
and org_pod_jed_id=org_pod_jed.pod_id |
95 |
and podesavanje=true |
and podesavanje=true |
96 |
|
and kontakt_osobe.id=kontakt_osoba_id |
97 |
order by lokacije.naziv,org_jed.naziv |
order by lokacije.naziv,org_jed.naziv |
98 |
") || die $dbh->errstr(); |
") || die $dbh->errstr(); |
99 |
$sth->execute() || die $sth->errstr(); |
$sth->execute() || die $sth->errstr(); |
110 |
my $bgcol=''; |
my $bgcol=''; |
111 |
my $mreza=''; |
my $mreza=''; |
112 |
my @za_ic; |
my @za_ic; |
113 |
|
my %mail4ko; |
114 |
|
|
115 |
while (my @arr = $sth->fetchrow_array() ) { |
while (my @arr = $sth->fetchrow_array() ) { |
116 |
push @za_ic,$arr[0]; |
push @za_ic,$arr[0]; |
117 |
|
$mail4ko{$arr[13]}.="\t$arr[1] $arr[2]"; |
118 |
|
$mail4ko{$arr[13]}.=" (bez podešavanja)" if ($arr[14] == 0); |
119 |
|
|
120 |
printf MAIL ("%3s %4s %-20s %4s %-30s %-20s\n",$rbr,$arr[0],"$arr[1] $arr[2]",$arr[3],$arr[4],"$arr[5] $arr[6]"); |
printf MAIL ("%3s %4s %-20s %4s %-30s %-20s\n",$rbr,$arr[0],"$arr[1] $arr[2]",$arr[3],$arr[4],"$arr[5] $arr[6]"); |
121 |
if ($lokacija ne $arr[4]) { |
if ($lokacija ne $arr[4]) { |
126 |
if ($arr[12] == 0) { |
if ($arr[12] == 0) { |
127 |
$mreza='umreženo'; |
$mreza='umreženo'; |
128 |
} else { |
} else { |
129 |
my $rows = $dbh->do("select max(status_tip_id) from status |
my $sth2 = $dbh->prepare("select count(status_tip_id) from status |
130 |
where osoba_id = $arr[0] and status_tip_id=8") || die $dbh->errstr(); |
where osoba_id = $arr[0] and status_tip_id=8") || |
131 |
if ($rows > 0) { |
die $dbh->errstr(); |
132 |
|
$sth2->execute() || die $sth2->errstr(); |
133 |
|
my ($nr_of_status8) = $sth2->fetchrow_array(); |
134 |
|
|
135 |
|
if ($nr_of_status8 > 0) { |
136 |
$mreza='<i>umrežavanje obavljeno</i>'; |
$mreza='<i>umrežavanje obavljeno</i>'; |
137 |
} else { |
} else { |
138 |
$mreza='<b>potrebno umrežavanje</b>'; |
$mreza='<b>potrebno umrežavanje</b>'; |
157 |
close(HTML); |
close(HTML); |
158 |
close(MAIL); |
close(MAIL); |
159 |
|
|
160 |
|
$dbh->disconnect; |
161 |
|
|
162 |
|
foreach my $email_ko (keys %mail4ko) { |
163 |
|
if (! $debug) { |
164 |
|
open(MAIL,"|/usr/lib/sendmail $email_ko") || die "sendmail: $!"; |
165 |
|
} else { |
166 |
|
open(MAIL,">> /tmp/debug.komail") || die "sendmail: $!"; |
167 |
|
} |
168 |
|
|
169 |
|
print MAIL 'From: PlivaNet Core Support Team <pcst@pliva.hr> |
170 |
|
Subject: otvoreni računi za e-mail |
171 |
|
|
172 |
|
Obavještavamo Vas da su otvoreni korisnički računi na intranet poslužitelju |
173 |
|
za slijedeće osobe: |
174 |
|
'; |
175 |
|
foreach my $ime_pr (split(/\t/,$mail4ko{$email_ko})) { |
176 |
|
print MAIL "\t$ime_pr\n"; |
177 |
|
} |
178 |
|
print MAIL ' |
179 |
|
Vaši korisnici dobiti će pristupno ime (login) i lozinku (password) internom |
180 |
|
poštom, a djelatnici odjela Informatika IC će izvršiti podešavanje korisničkog |
181 |
|
računala.'; |
182 |
|
|
183 |
|
close(MAIL); |
184 |
|
} |
185 |
|
|
186 |
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"; |