File: httpserver.pl

package info (click to toggle)
curl 7.18.2-8lenny6
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 11,704 kB
  • ctags: 7,399
  • sloc: ansic: 62,107; sh: 9,764; perl: 5,298; makefile: 668; cpp: 178; awk: 48; lisp: 33
file content (36 lines) | stat: -rwxr-xr-x 695 bytes parent folder | download | duplicates (4) 
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
 
#!/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;
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);

exec("server/sws --pidfile $pid$fork $ipv6$port $dir");