tests/httpserver.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4
   5 my $verbose=0; # set to 1 for debugging
   6
   7 my $port = 8999; # just a default
   8 do {
   9     if($ARGV[0] eq "-v") {
  10         $verbose=1;
  11     }
  12     elsif($ARGV[0] =~ /^(\d+)$/) {
  13         $port = $1;
  14     }
  15 } while(shift @ARGV);
  16
  17 exec("server/sws $port");