projects
/
bookreader.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c6a1fa5
)
Remove hack for host name. Write results into changeset directory.
author
Michael Ang
<testflip@home.us.archive.org>
Fri, 12 Feb 2010 03:20:42 +0000
(
03:20
+0000)
committer
Michael Ang
<testflip@home.us.archive.org>
Fri, 12 Feb 2010 03:20:42 +0000
(
03:20
+0000)
BookReaderIA/sendtoswarm.pl
patch
|
blob
|
history
diff --git
a/BookReaderIA/sendtoswarm.pl
b/BookReaderIA/sendtoswarm.pl
index
8498395
..
0485106
100755
(executable)
--- a/
BookReaderIA/sendtoswarm.pl
+++ b/
BookReaderIA/sendtoswarm.pl
@@
-175,17
+175,13
@@
if ( ! $rev ) {
"&urls[]=" . clean($SUITES{$suite});
}
"&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 ) {
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 );
print $fh "$SWARM$results";
close( $fh );