6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-14 11:32:34 +00:00
Code Issues Projects Releases Wiki Activity

NightlyTest: Write "sentdata.txt" files and run the -submit-aux script before

Browse Source 
sending data to the server.
 - Otherwise if the server connection fails the external script never runs.

Also, create content before initiating connection to try and decrease time we
are connected to llvm.org.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@72532 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Daniel Dunbar 2009-05-28 18:31:40 +00:00
parent dd4694b519
commit 94a37a41eb
1 changed files with 25 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
utils/NewNightlyTest.pl
View File

@ -445,14 +445,21 @@ sub SendData{
$file = $_[1];
$variables=$_[2];
$port=80;
$socketaddr= sockaddr_in $port, inet_aton $host or die "Bad hostname\n";
socket SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp') or
die "Bad socket\n";
connect SOCK, $socketaddr or die "Bad connection\n";
select((select(SOCK), $| = 1)[0]);
# Write out the "...-sentdata.txt" file.
my $sentdata="";
foreach $x (keys (%$variables)){
$value = $variables->{$x};
$sentdata.= "$x => $value\n";
}
WriteFile "$Prefix-sentdata.txt", $sentdata;
if (!($SUBMITAUX eq "")) {
system "$SUBMITAUX \"$Prefix-sentdata.txt\"";
}
# Create the content to send to the server.
#creating content here
my $content;
foreach $key (keys (%$variables)){
$value = $variables->{$key};
@ -460,6 +467,17 @@ sub SendData{
$content .= "$key=$value&";
}
# Send the data to the server.
#
# FIXME: This code should be more robust?
$port=80;
$socketaddr= sockaddr_in $port, inet_aton $host or die "Bad hostname\n";
socket SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp') or
die "Bad socket\n";
connect SOCK, $socketaddr or die "Bad connection\n";
select((select(SOCK), $| = 1)[0]);
$length = length($content);
my $send= "POST $file HTTP/1.0\n";
@ -475,17 +493,6 @@ sub SendData{
}
close(SOCK);
my $sentdata="";
foreach $x (keys (%$variables)){
$value = $variables->{$x};
$sentdata.= "$x => $value\n";
}
WriteFile "$Prefix-sentdata.txt", $sentdata;
if (!($SUBMITAUX eq "")) {
system "$SUBMITAUX \"$Prefix-sentdata.txt\"";
}
return $result;
}