NNT: Always create the -sentdata.txt file.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@91301 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Daniel Dunbar
2009-12-14 17:58:27 +00:00
parent e2f65ee4b1
commit 1b54d423aa

View File

@ -393,10 +393,8 @@ sub CopyFile { #filename, newfile
# to our central server via the post method # to our central server via the post method
# #
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub SendData { sub WriteSentData {
$host = $_[0]; $variables = $_[0];
$file = $_[1];
$variables = $_[2];
# Write out the "...-sentdata.txt" file. # Write out the "...-sentdata.txt" file.
@ -406,6 +404,12 @@ sub SendData {
$sentdata.= "$x => $value\n"; $sentdata.= "$x => $value\n";
} }
WriteFile "$Prefix-sentdata.txt", $sentdata; WriteFile "$Prefix-sentdata.txt", $sentdata;
}
sub SendData {
$host = $_[0];
$file = $_[1];
$variables = $_[2];
if (!($SUBMITAUX eq "")) { if (!($SUBMITAUX eq "")) {
system "$SUBMITAUX \"$Prefix-sentdata.txt\""; system "$SUBMITAUX \"$Prefix-sentdata.txt\"";
@ -797,6 +801,9 @@ my %hash_of_data = (
'a_file_sizes' => "" 'a_file_sizes' => ""
); );
# Write out the "...-sentdata.txt" file.
WriteSentData \%hash_of_data;
if ($SUBMIT || !($SUBMITAUX eq "")) { if ($SUBMIT || !($SUBMITAUX eq "")) {
my $response = SendData $SUBMITSERVER,$SUBMITSCRIPT,\%hash_of_data; my $response = SendData $SUBMITSERVER,$SUBMITSCRIPT,\%hash_of_data;
if( $VERBOSE) { print "============================\n$response"; } if( $VERBOSE) { print "============================\n$response"; }