/[informatika.old]/print/izvjestaj.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /print/izvjestaj.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by dpavlin, Wed May 10 08:55:50 2000 UTC revision 1.6 by dpavlin, Wed May 10 11:54:54 2000 UTC
# Line 21  if (! $debug) { Line 21  if (! $debug) {
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 '
# Line 86  print HTML "Otvorenih računa: ",$#osoba_ Line 86  print HTML "Otvorenih računa: ",$#osoba_
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();
# Line 108  print HTML '<table border=1> Line 110  print HTML '<table border=1>
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]) {
# Line 148  print HTML ' Line 153  print HTML '
153  close(HTML);  close(HTML);
154  close(MAIL);  close(MAIL);
155    
156    $dbh->disconnect;
157    
158    foreach my $email_ko (keys %mail4ko) {
159            if (! $debug) {
160                    open(MAIL,"|/usr/lib/sendmail $email_ko") || die "sendmail: $!";
161            } else {
162                    open(MAIL,">> /tmp/debug.komail") || die "sendmail: $!";
163            }
164    
165            print MAIL 'From: PlivaNet Core Support Team <pcst@pliva.hr>
166    Subject: otvoreni računi za e-mail
167    
168    Obavještavamo Vas da su otvoreni korisnički računi na intranet poslužitelju
169    za slijedeće osobe:
170    ';
171            foreach my $ime_pr (split(/\t/,$mail4ko{$email_ko})) {
172                    print MAIL "\t$ime_pr\n";
173            }
174            print MAIL '
175    Vaši korisnici dobiti će pristupno ime (login) i lozinku (password) internom
176    poštom, a djelatnici odjela Informatika IC će izvršiti podešavanje korisničkog
177    računala.';
178    
179            close(MAIL);
180    }
181    
182  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";
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.26