2002-02-18 20:03:45 -05:00
|
|
|
#!/usr/bin/env perl
|
2000-11-13 03:02:02 -05:00
|
|
|
|
2002-02-18 20:03:45 -05:00
|
|
|
use strict;
|
2000-11-13 03:02:02 -05:00
|
|
|
|
2000-11-16 04:06:18 -05:00
|
|
|
my $verbose=0; # set to 1 for debugging
|
2000-11-13 03:02:02 -05:00
|
|
|
|
2004-02-12 09:40:08 -05:00
|
|
|
my $dir=".";
|
2000-11-16 04:06:18 -05:00
|
|
|
my $port = 8999; # just a default
|
2004-12-11 16:41:00 -05:00
|
|
|
my $ipv6;
|
2004-12-14 16:52:16 -05:00
|
|
|
my $pid=".http.pid"; # name of the pidfile
|
2000-11-16 04:06:18 -05:00
|
|
|
do {
|
|
|
|
if($ARGV[0] eq "-v") {
|
|
|
|
$verbose=1;
|
|
|
|
}
|
2004-02-12 09:40:08 -05:00
|
|
|
elsif($ARGV[0] eq "-d") {
|
|
|
|
$dir=$ARGV[1];
|
|
|
|
shift @ARGV;
|
|
|
|
}
|
2004-12-14 16:52:16 -05:00
|
|
|
elsif($ARGV[0] eq "-p") {
|
|
|
|
$pid=$ARGV[1];
|
|
|
|
shift @ARGV;
|
|
|
|
}
|
2000-11-16 04:06:18 -05:00
|
|
|
elsif($ARGV[0] =~ /^(\d+)$/) {
|
|
|
|
$port = $1;
|
|
|
|
}
|
2004-12-11 16:41:00 -05:00
|
|
|
elsif($ARGV[0] =~ /^ipv6/i) {
|
|
|
|
$ipv6="--ipv6 ";
|
|
|
|
}
|
2000-11-16 04:06:18 -05:00
|
|
|
} while(shift @ARGV);
|
2000-11-13 11:06:16 -05:00
|
|
|
|
2004-12-14 16:52:16 -05:00
|
|
|
exec("server/sws --pidfile $pid $ipv6$port $dir");
|