log.pl
changeset 59 c5570cbcee3c
parent 56 3c33846e5686
child 62 9d3ec0d441a7
equal deleted inserted replaced
58:8c7ffc9be48d 59:c5570cbcee3c
   299     chomp($r);
   299     chomp($r);
   300     return $r;
   300     return $r;
   301 }
   301 }
   302 
   302 
   303 sub mailto() {
   303 sub mailto() {
   304     return join(", ", @config::mailto) if @config::mailto;
   304     return join(", ", grep defined => @config::mailto);
   305     return "";
       
   306 }
   305 }
   307 
   306 
   308 sub word_encoded($) {
   307 sub word_encoded($) {
   309     my $line = shift;
   308     my $line = shift;
   310 
   309