Return to rtspserver.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / curl / tests

Annotation of embedaddon/curl/tests/rtspserver.pl, revision 1.1

1.1     ! misho       1: #!/usr/bin/env perl
        !             2: #***************************************************************************
        !             3: #                                  _   _ ____  _
        !             4: #  Project                     ___| | | |  _ \| |
        !             5: #                             / __| | | | |_) | |
        !             6: #                            | (__| |_| |  _ <| |___
        !             7: #                             \___|\___/|_| \_\_____|
        !             8: #
        !             9: # Copyright (C) 1998 - 2020, Daniel Stenberg, <daniel@haxx.se>, et al.
        !            10: #
        !            11: # This software is licensed as described in the file COPYING, which
        !            12: # you should have received as part of this distribution. The terms
        !            13: # are also available at https://curl.haxx.se/docs/copyright.html.
        !            14: #
        !            15: # You may opt to use, copy, modify, merge, publish, distribute and/or sell
        !            16: # copies of the Software, and permit persons to whom the Software is
        !            17: # furnished to do so, under the terms of the COPYING file.
        !            18: #
        !            19: # This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
        !            20: # KIND, either express or implied.
        !            21: #
        !            22: #***************************************************************************
        !            23: 
        !            24: BEGIN {
        !            25:     push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
        !            26:     push(@INC, ".");
        !            27: }
        !            28: 
        !            29: use strict;
        !            30: use warnings;
        !            31: 
        !            32: use serverhelp qw(
        !            33:     server_pidfilename
        !            34:     server_logfilename
        !            35:     );
        !            36: 
        !            37: use sshhelp qw(
        !            38:     exe_ext
        !            39:     );
        !            40: 
        !            41: my $verbose = 0;     # set to 1 for debugging
        !            42: my $port = 8990;     # just a default
        !            43: my $ipvnum = 4;      # default IP version of rtsp server
        !            44: my $idnum = 1;       # default rtsp server instance number
        !            45: my $proto = 'rtsp';  # protocol the rtsp server speaks
        !            46: my $pidfile;         # rtsp server pid file
        !            47: my $portfile;
        !            48: my $logfile;         # rtsp server log file
        !            49: my $srcdir;
        !            50: 
        !            51: my $flags  = "";
        !            52: my $path   = '.';
        !            53: my $logdir = $path .'/log';
        !            54: 
        !            55: while(@ARGV) {
        !            56:     if($ARGV[0] eq '--pidfile') {
        !            57:         if($ARGV[1]) {
        !            58:             $pidfile = $ARGV[1];
        !            59:             shift @ARGV;
        !            60:         }
        !            61:     }
        !            62:     elsif($ARGV[0] eq '--portfile') {
        !            63:         if($ARGV[1]) {
        !            64:             $portfile = $ARGV[1];
        !            65:             shift @ARGV;
        !            66:         }
        !            67:     }
        !            68:     elsif($ARGV[0] eq '--logfile') {
        !            69:         if($ARGV[1]) {
        !            70:             $logfile = $ARGV[1];
        !            71:             shift @ARGV;
        !            72:         }
        !            73:     }
        !            74:     elsif($ARGV[0] eq '--srcdir') {
        !            75:         if($ARGV[1]) {
        !            76:             $srcdir = $ARGV[1];
        !            77:             shift @ARGV;
        !            78:         }
        !            79:     }
        !            80:     elsif($ARGV[0] eq '--ipv4') {
        !            81:         $ipvnum = 4;
        !            82:     }
        !            83:     elsif($ARGV[0] eq '--ipv6') {
        !            84:         $ipvnum = 6;
        !            85:     }
        !            86:     elsif($ARGV[0] eq '--port') {
        !            87:         if($ARGV[1] =~ /^(\d+)$/) {
        !            88:             $port = $1;
        !            89:             shift @ARGV;
        !            90:         }
        !            91:     }
        !            92:     elsif($ARGV[0] eq '--id') {
        !            93:         if($ARGV[1] =~ /^(\d+)$/) {
        !            94:             $idnum = $1 if($1 > 0);
        !            95:             shift @ARGV;
        !            96:         }
        !            97:     }
        !            98:     elsif($ARGV[0] eq '--verbose') {
        !            99:         $verbose = 1;
        !           100:     }
        !           101:     else {
        !           102:         print STDERR "\nWarning: rtspserver.pl unknown parameter: $ARGV[0]\n";
        !           103:     }
        !           104:     shift @ARGV;
        !           105: }
        !           106: 
        !           107: if(!$srcdir) {
        !           108:     $srcdir = $ENV{'srcdir'} || '.';
        !           109: }
        !           110: if(!$pidfile) {
        !           111:     $pidfile = "$path/". server_pidfilename($proto, $ipvnum, $idnum);
        !           112: }
        !           113: if(!$logfile) {
        !           114:     $logfile = server_logfilename($logdir, $proto, $ipvnum, $idnum);
        !           115: }
        !           116: 
        !           117: $flags .= "--pidfile \"$pidfile\" ".
        !           118:     "--portfile \"$portfile\" ".
        !           119:     "--logfile \"$logfile\" ";
        !           120: $flags .= "--ipv$ipvnum --port $port --srcdir \"$srcdir\"";
        !           121: 
        !           122: exec("server/rtspd".exe_ext('SRV')." $flags");