--- print/izvjestaj.pl 2000/04/27 10:57:11 1.2 +++ print/izvjestaj.pl 2000/04/27 12:21:29 1.3 @@ -2,7 +2,7 @@ use strict; -my $debug=1; +my $debug=0; use DBI; use POSIX qw(strftime); @@ -19,8 +19,8 @@ open(HTML,"> $html_file") || die "html: $!"; open(MAIL,"|/usr/lib/sendmail biljana.gombar\@pliva.hr,izvjestaji\@support.pliva.hr") || die "sendmail: $!"; } else { -open(HTML,"> /tmp/debug$$.html") || die "html: $!"; -open(MAIL,"> /tmp/debug$$.mail") || die "sendmail: $!"; +open(HTML,"> /tmp/debug.html") || die "html: $!"; +open(MAIL,"> /tmp/debug.mail") || die "sendmail: $!"; } print HTML ' @@ -59,9 +59,9 @@ print MAIL "Otvorenih računa: ",$#osoba_id_za_print+1," Datum i vrijeme generiranja izvještaja: $currdate -Izvještaj se nalazi i na +Izvještaj za štampanje se nalazi na http://support.pliva.hr/$html_file -(npr. za ispis na štampaču) +sa potpunim podacima o umrežavanju, lokaciji računala i osobe "; print HTML "Otvorenih računa: ",$#osoba_id_za_print+1," @@ -70,26 +70,47 @@ $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 + lok_racunala,objekt,kat,soba,z_rac,umrezavanje 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 order by lokacije.naziv,org_jed.naziv ") || die $dbh->errstr(); $sth->execute() || die $sth->errstr(); my $rbr=1; +my $lokacija=''; printf MAIL ("%3s %4s %-20s %4s %-30s %-20s\n","rbr","id","ime i prezime","tel","lokacija","org.jed"); print HTML '
rbr | id | ime i prezime | tel | lokacija | org.jed |
---|---|---|---|---|---|
lokacija računala, mreža | ž | objekat / kat / soba | |||
$rbr | $arr[0] | $arr[1] $arr[2] | $arr[3] | $arr[4] | $arr[5] $arr[6] |
$lokacija | |||||
$rbr | $arr[0] | $arr[1] $arr[2] | tel: $arr[3] | $arr[4] | $arr[5] $arr[6] |
$arr[7] $mreza | ž-$arr[11] | $arr[8] / $arr[9] / $arr[10] |