2002-02-19 02:03:45 +01:00
|
|
|
#!/usr/bin/env perl
|
2000-11-13 09:02:02 +01:00
|
|
|
|
2002-02-19 02:03:45 +01:00
|
|
|
use strict;
|
2000-11-13 09:02:02 +01:00
|
|
|
|
2000-11-16 10:06:18 +01:00
|
|
|
my $verbose=0; # set to 1 for debugging
|
2000-11-13 09:02:02 +01:00
|
|
|
|
2000-11-16 10:06:18 +01:00
|
|
|
my $port = 8999; # just a default
|
|
|
|
|
do {
|
|
|
|
|
if($ARGV[0] eq "-v") {
|
|
|
|
|
$verbose=1;
|
|
|
|
|
}
|
|
|
|
|
elsif($ARGV[0] =~ /^(\d+)$/) {
|
|
|
|
|
$port = $1;
|
|
|
|
|
}
|
|
|
|
|
} while(shift @ARGV);
|
2000-11-13 17:06:16 +01:00
|
|
|
|
2002-02-19 02:03:45 +01:00
|
|
|
exec("server/sws $port");
|
