|
Lines 1-6
Link Here
|
| 1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
| 2 |
use strict; |
2 |
use strict; |
| 3 |
#use warnings; FIXME - Bug 2505 |
3 |
#use warnings; FIXME - Bug 2505 |
|
|
4 |
use Carp; |
| 4 |
BEGIN { |
5 |
BEGIN { |
| 5 |
# find Koha's Perl modules |
6 |
# find Koha's Perl modules |
| 6 |
# test carefully before changing this |
7 |
# test carefully before changing this |
|
Lines 201-212
foreach my $num (@getnofifys) {
Link Here
|
| 201 |
'content-type' => 'text/html; charset="utf-8"', |
202 |
'content-type' => 'text/html; charset="utf-8"', |
| 202 |
); |
203 |
); |
| 203 |
# if we don't have any content for the mail, we don't launch mail, but notify it in a file |
204 |
# if we don't have any content for the mail, we don't launch mail, but notify it in a file |
| 204 |
if ($mailtext ne 'nonotifys') { |
205 |
if ($mailtext ne 'nonotifys') { |
| 205 |
sendmail(%mail); |
206 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
| 206 |
} |
207 |
} |
| 207 |
else { |
208 |
else { |
| 208 |
print OUT $email ; |
209 |
print OUT $email ; |
| 209 |
} |
210 |
} |
| 210 |
|
211 |
|
| 211 |
# now deal with the debarred mode |
212 |
# now deal with the debarred mode |
| 212 |
# if ($debarred eq 1) { |
213 |
# if ($debarred eq 1) { |