Sign in
fuchsia
/
third_party
/
curl
/
refs/tags/curl-7_9_5-pre4
/
.
/
tests
/
httpserver.pl
blob: 7faef92f9b1f2b67b9f2edf6d01e2712287d0b38 [
file
] [
log
] [
blame
]
#!/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"
);