File: httpserver.pl

package info (click to toggle)
curl-ssl 7.9.5-2
  • links: PTS
  • area: main
  • in suites: woody
  • size: 3,668 kB
  • ctags: 2,393
  • sloc: ansic: 21,881; sh: 7,135; perl: 1,533; yacc: 917; makefile: 397; lisp: 3; cpp: 2
file content (17 lines) | stat: -rwxr-xr-x 277 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/env perl

use strict;

my $verbose=0; # set to 1 for debugging

my $port = 8999; # just a default
do {
    if($ARGV[0] eq "-v") {
        $verbose=1;
    }
    elsif($ARGV[0] =~ /^(\d+)$/) {
        $port = $1;
    }
} while(shift @ARGV);

exec("server/sws $port");