← Back to branch summary

~ubuntu-branches/ubuntu/edgy/curl/edgy-proposed

« back to all changes in this revision

Viewing changes to tests/httpserver.pl

  • Committer: Bazaar Package Importer
  • Author(s): Domenico Andreoli
  • Date: 2002-03-12 19:06:21 UTC
  • Revision ID: james.westby@ubuntu.com-20020312190621-iqx7k9cipo5d0ifr
Tags: upstream-7.9.5
Import upstream version 7.9.5

Show diffs side-by-side

added added

removed removed

Lines of Context:
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");