1

devtools/bin/buildtest.pl

@@ -0,0 +1,83 @@
+use strict;
+
+sub DoBuild
+{
+	my @output;
+	my $buildtype = shift;
+	if( $buildtype eq "release" )
+	{
+		open BUILD, "dev_build_all.bat|";
+	}
+	elsif( $buildtype eq "debug" )
+	{
+		open BUILD, "dev_build_all.bat debug|";
+	}
+	else
+	{
+		die;
+	}
+	my $buildfailed = 0;
+	while( <BUILD> )
+	{
+		if( /Build Errors\!/ )
+		{
+			$buildfailed = 1;
+		}
+		print;
+		push @output, $_;
+	}
+	close build;
+
+	if( $buildfailed )
+	{
+		open CHANGES, "p4 changes -m 10 -s submitted //ValveGames/main/src/...|";
+		my @changes = <CHANGES>;
+		close CHANGES;
+		open EMAIL, ">email.txt";
+		print EMAIL "LAST 10 SUBMITS TO MAIN:\n";
+		print EMAIL @changes;
+		print EMAIL "\n";
+		my $line;
+		foreach $line ( @output )
+		{
+			if( $line =~ m/error/i )
+			{
+				print EMAIL $line;
+			}
+		}
+		print EMAIL "--------------------------------------------\n\n\n\n";
+		print EMAIL @output;
+		close EMAIL;
+		system "devtools\\bin\\smtpmail.exe -to srcdev\@valvesoftware.com -from srcdev\@valvesoftware.com -subject \"FIX THE BUILD\! ($buildtype)\" -verbose email.txt";
+#		system "devtools\\bin\\smtpmail.exe -to gary\@valvesoftware.com -from srcdev\@valvesoftware.com -subject \"FIX THE BUILD\! ($buildtype)\" -verbose email.txt";
+	}
+}
+
+while( 1 )
+{
+	$ENV{"USE_INCREDIBUILD"} = "1";
+	system "p4 sync > sync.txt 2>&1";
+	my $hasChange = 1;
+	my $line;
+	open SYNC, "<sync.txt";
+	while( <SYNC> )
+	{
+		if( m/File\(s\) up-to-date/ )		
+		{
+			$hasChange = 0;
+		}
+		print;
+	}
+	close SYNC;
+	if( $hasChange )
+	{
+		print "changes checked in\n";
+		&DoBuild( "release" );
+		&DoBuild( "debug" );
+	}
+	else
+	{
+		print "no changes checked in\n";
+		sleep 30;
+	}
+}