From 89311131d6da8b7fe450ea730b2536de2a081540 Mon Sep 17 00:00:00 2001 From: Michael Ang Date: Fri, 12 Feb 2010 03:20:42 +0000 Subject: [PATCH] Remove hack for host name. Write results into changeset directory. --- BookReaderIA/sendtoswarm.pl | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/BookReaderIA/sendtoswarm.pl b/BookReaderIA/sendtoswarm.pl index 8498395..0485106 100755 --- a/BookReaderIA/sendtoswarm.pl +++ b/BookReaderIA/sendtoswarm.pl @@ -175,17 +175,13 @@ if ( ! $rev ) { "&urls[]=" . clean($SUITES{$suite}); } - # XXX hacking in host header for now - #print "curl -d \"$query\" $SWARM\n" if ( $DEBUG ); - #my $results = `curl -d "$query" $SWARM`; - my $cmd = 'curl -H "Host: test.archive.org" -d "' . $query . '" ' . $SWARM; - print $cmd . '\n' if ( $DEBUG ); - my $results = `$cmd`; + print "curl -d \"$query\" $SWARM\n" if ( $DEBUG ); + my $results = `curl -d "$query" $SWARM`; print "Results: $results\n" if ( $DEBUG ); if ( $results ) { - open( my $fh, '>', "$rev/results.txt" ) or die "$rev/results.txt : $!"; + open( my $fh, '>', "results.txt" ) or die "$rev/results.txt : $!"; print $fh "$SWARM$results"; close( $fh ); -- 2.20.1