my $dir=".";
my $port = 8999; # just a default
my $ipv6;
+my $pid=".http.pid"; # name of the pidfile
do {
if($ARGV[0] eq "-v") {
$verbose=1;
$dir=$ARGV[1];
shift @ARGV;
}
+ elsif($ARGV[0] eq "-p") {
+ $pid=$ARGV[1];
+ shift @ARGV;
+ }
elsif($ARGV[0] =~ /^(\d+)$/) {
$port = $1;
}
}
} while(shift @ARGV);
-exec("server/sws $ipv6$port $dir");
+exec("server/sws --pidfile $pid $ipv6$port $dir");
$nameext="-ipv6";
}
-
$pid = checkserver($pidfile);
# verify if our/any server is running on this port
if($dir) {
$flag .= "-d \"$dir\" ";
}
- $cmd="$perl $srcdir/httpserver.pl $flag $port $ipv6 &";
+ $cmd="$perl $srcdir/httpserver.pl -p $pidfile $flag $port $ipv6 &";
system($cmd);
if($verbose) {
print "CMD: $cmd\n";
int sock, msgsock, flag;
unsigned short port = DEFAULT_PORT;
FILE *pidfile;
+ char *pidname= (char *)".http.pid";
struct httprequest req;
int rc;
+ int arg=1;
- if(argc>1) {
- int arg=1;
+ while(argc>arg) {
if(!strcmp("--version", argv[arg])) {
printf("sws IPv4%s\n",
#ifdef ENABLE_IPV6
);
return 0;
}
- if(!strcmp("--ipv6", argv[arg])) {
+ else if(!strcmp("--pidfile", argv[arg])) {
+ arg++;
+ if(argc>arg)
+ pidname = argv[arg++];
+ }
+ else if(!strcmp("--ipv6", argv[arg])) {
#ifdef ENABLE_IPV6
use_ipv6=TRUE;
#endif
arg++;
}
- if(argc>arg) {
+ else if(argc>arg) {
if(atoi(argv[arg]))
port = (unsigned short)atoi(argv[arg++]);
if(argc>arg)
- path = argv[arg];
-
+ path = argv[arg++];
}
}
exit(1);
}
- pidfile = fopen(".http.pid", "w");
+ pidfile = fopen(pidname, "w");
if(pidfile) {
fprintf(pidfile, "%d\n", (int)getpid());
fclose(pidfile);