1

devtools/bin/test_linux_compile.pl

@@ -0,0 +1,64 @@
+#perl
+
+#! perl
+
+use Getopt::Long;
+
+$mail = 1;
+$mailto="cgreen";
+$mailfrom="cgreen\@valvesoftware.com";
+$branch="main";
+
+
+$result = GetOptions(
+					 "nosync" => \$nosync,
+					 "clean" => \$clean,
+					 "mailto:s" => \$mailto,
+					 "branch:s" => \$branch,
+					 "mailfrom:s" => \$mailfrom,
+					 "mail" => \$mail );
+
+print STDERR `p4 sync` unless ($nosync);
+print STDERR `perl devtools/bin/vpc2linuxmake.pl`;
+print STDERR `make clean` if ($clean);
+
+open(ERROROUT, "./linux_makeinorder.sh 2>&1 |" ) || die "can't create pipe to compile";
+while(<ERROROUT>)
+  {
+	my $iserror = /error:/;
+	$iserror = 1 if (/^.*:\d+:\d+:/);
+	$errtxt .= $_ if ($iserror );
+	print $_;
+  }
+if (length($errtxt) )
+  {
+	if ($mail)
+	  {
+		use Net::SMTP;
+		
+		open CHANGES, "p4 changes -m 10 -s submitted //ValveGames/$branch/src/...|";
+		my @changes = <CHANGES>;
+		close CHANGES;
+		
+		$smtp = Net::SMTP->new('exchange2.valvesoftware.com');
+		$smtp->mail($mailfrom);
+		$smtp->to($mailto);
+		
+		$smtp->data();
+		$smtp->datasend("To: $mailto\n");
+		$smtp->datasend("Subject: [$branch broken in linux]\n");
+		$smtp->datasend("\nThere are errors building $branch for linux.\nSome help is available at http://intranet.valvesoftware.com/wiki/index.php/Writing_code_that_is_compatible_between_gcc_and_visual_studio\n\n$errtxt");
+		$smtp->datasend("-" x 75);
+		$smtp->datasend("\nLAST 10 SUBMITS TO MAIN:\n");
+		$smtp->datasend(join("",@changes ) );
+		$smtp->dataend();
+		$smtp->quit;
+	  }
+	else
+	  {
+		print STDERR "*****ERRORS****\n$errtxt\n";
+	  }
+  }
+
+
+