sbi.pl #2

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

use strict;

my $Log="$ENV{CBD_HOME}/logs/sbi.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`;

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

exit (1);

#	Change	User	Description
#2	14909	C. Thomas Tyler	Made 'p4 sbi' (show broker input) command more portable.
#1	13803	C. Thomas Tyler	Added 'p4 sbi' (show broker input) debugging utility.
//guest/perforce_software/cbd/main/scripts/sbi.pl
#1	13774	C. Thomas Tyler	Added 'p4 sbi' command - 'Show Broker Input', a debugging utility to see how the broker sees your command from its perspective.