diff options
Diffstat (limited to 'Build/source/libs/curl/tests/httpserver.pl')
-rw-r--r-- | Build/source/libs/curl/tests/httpserver.pl | 17 |
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"); |