Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4

Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4

Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4

Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4

Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4

Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
#!/usr/bin/perl # Filters mail through clamav. Intented to be used as a maildrop xfilter, # So it takes care to exit 0 on success, and nonzero on error. Adds a # X-Virii-Status header. # Contributed by Joey Hess to be used with procmail use strict; use warnings; $/=undef; my $msg=<>; open (CLAM, "| clamscan --quiet -") || die "cannot run clamscan: $!"; # The --mbox support is flakey and requires a From header as in a real # mbox. print CLAM "From foo\n"; print CLAM $msg; close CLAM; # Returns status of 1 for virii. my $status= ($? >> 8 == 1) ? "yes" : "no"; #print STDERR "status: ".($? >> 8)." $!\n"; open (FORMAIL, "|formail -i 'X-Virii-Status: $status'") || die "cannot run formail: $!!"; print FORMAIL $msg || die "cannot write to formail: $!"; close FORMAIL || die "formail failed: $!"; exit 0;