stump/etc/sanitise_and_quote_email.INO

   1 #!/usr/bin/perl -n
   2
   3 unless (m/^$/..0) {
   4     $skip= 0 unless m/^[ \t]/;
   5     $skip= 1 if m/^received\s*\:/i;
   6     next if $skip;
   7     s, %OURUSER% \+ [-+/0-9a-z]* \@ (\Q%DOMAIN%\E | \Q%SLIMYDOMAIN%\E) \b
   8                  ,%OURUSER%+?\@$1,igx;
   9 }
  10
  11 s/^/> /;
  12 print or die $!;