summaryrefslogtreecommitdiff
path: root/Build/source/libs/curl/tests/httpserver.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/libs/curl/tests/httpserver.pl')
-rw-r--r--Build/source/libs/curl/tests/httpserver.pl17
1 files changed, 17 insertions, 0 deletions
diff --git a/Build/source/libs/curl/tests/httpserver.pl b/Build/source/libs/curl/tests/httpserver.pl
new file mode 100644
index 00000000000..7faef92f9b1
--- /dev/null
+++ b/Build/source/libs/curl/tests/httpserver.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+
+use strict;
+
+my $verbose=0; # set to 1 for debugging
+
+my $port = 8999; # just a default
+do {
+ if($ARGV[0] eq "-v") {
+ $verbose=1;
+ }
+ elsif($ARGV[0] =~ /^(\d+)$/) {
+ $port = $1;
+ }
+} while(shift @ARGV);
+
+exec("server/sws $port");