 | | Re: spamcake collection
|
| (...) ...and finally handles spam on not-the-first-line: BREAKAGE: while( $lineIn = <STDIN> ) { if( $lineIn =~ m/\bTom McD\b/ ) { while( $msgIn = <STDIN> ) { chomp $msgIn; $spamcake = $msgIn; if( $msgIn !~ m/^>/ ) { chomp $msgIn; while( $sigIn = (...) (25 years ago, 17-Jul-99, to lugnet.off-topic.geek)
| | | | | Re: spamcake collection
|
| (...) ...and starts spamcake sigs immediately after the /\bTom McD\b/ instead on the next line: BREAKAGE: while( $lineIn = <STDIN> ) { if( $lineIn =~ m/\bTom McD\b\.?\s*/ ) { $spamcake = $'; chomp $spamcake; while( $msgIn = <STDIN> ) { chomp $msgIn; (...) (25 years ago, 17-Jul-99, to lugnet.off-topic.geek)
| |
