rt/t/security/fake-sendmail

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 die "No \$RT_MAILLOGFILE set in environment"
   7     unless $ENV{RT_MAILLOGFILE};
   8 open LOG, ">", $ENV{RT_MAILLOGFILE}
   9     or die "Can't write to $ENV{RT_MAILLOGFILE}: $!";
  10
  11 my $needs_newline;
  12 for (@ARGV) {
  13     if (/^-/) {
  14         print LOG "\n" if $needs_newline++;
  15         print LOG $_;
  16     } else {
  17         print LOG " $_";
  18     }
  19 }
  20 print LOG "\n";
  21
  22 1 while $_ = <STDIN>;
  23
  24 exit 0;