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) { |