diff --git a/rc2mail.pl b/rc2mail.pl index 57613560..055f8eee 100644 --- a/rc2mail.pl +++ b/rc2mail.pl @@ -148,9 +148,12 @@ sub send_file { warn "No content for $title\n" unless $item->{description}; my $link = $item->{link}; my $sub = "$root?action=subscriptions"; - print $fh qq(

Visit $title) + my $text = qq(

Visit $title) . qq( or manage your subscriptions.


) . $item->{description}; + # prevent 501 Syntax error - line too long + $text =~ s/<(p|h[1-6]|[duo]l|pre|li|form|div|blockquote|hr|table|tr)>/\r\n<$1>/gi; + print $fh $text; $fh->close; foreach my $subscriber (@subscribers) { send_mail($subscriber, $title, $fh);