#!/p4/common/perl/bin/perl -w

use strict;

my $Log="/p4/1/logs/so.log";
my $Output;

open (LOG, ">$Log") or die "\nError: Log is bogus!\n";

while (<STDIN>) {
   print LOG;
}

close (LOG);

$Output = `/bin/cat $Log 2>&1`;
#$Output =~ s/\n/ /g;

print "action: REJECT\n";
print "message: \"$Output\"\n";

exit (1);