blob: 22b79159be5948394e1a3e2885f9105d65c68a73 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#!/usr/bin/env perl
use strict;
my $verbose=0; # set to 1 for debugging
my $dir=".";
my $port = 8999; # just a default
my $ipv6;
my $pid=".http.pid"; # name of the pidfile
my $fork;
my $flags = "";
do {
if($ARGV[0] eq "-v") {
$verbose=1;
}
elsif($ARGV[0] eq "-d") {
$dir=$ARGV[1];
shift @ARGV;
}
elsif($ARGV[0] eq "-p") {
$pid=$ARGV[1];
shift @ARGV;
}
elsif($ARGV[0] eq "--fork") {
$fork = $ARGV[0];
shift @ARGV;
}
elsif($ARGV[0] =~ /^(\d+)$/) {
$port = $1;
}
elsif($ARGV[0] =~ /^ipv6/i) {
$ipv6="--ipv6 ";
}
} while(shift @ARGV);
$flags .= "--pidfile \"$pid\" ";
$flags .= "--fork " if(defined($fork));
$flags .= "--ipv6 " if(defined($ipv6));
$flags .= "--port $port --srcdir \"$dir\"";
exec("server/sws $flags");
|
