sbi_win.pl #1

#!perl -w

use strict;

my $Log="C:\\p4\\1\\logs\\sbi.log";
my $Output;

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

while (<STDIN>) {
   print LOG;
}

close (LOG);

$Output = `TYPE $Log 2>&1`;

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

exit (1);

#	Change	User	Description
#3	15093	C. Thomas Tyler	Adjusted SDP Instance for CBD Testing on Windows.
#2	15050	C. Thomas Tyler	Merging using perforce_software-cbd-ntx64
#1	13812	C. Thomas Tyler	Ported 'p4 sbi' utility to Windows.