Return to tftpserver.pl CVS log

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

curl

    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 = 8997;     # just a default
   43: my $ipvnum = 4;      # default IP version of tftp server
   44: my $idnum = 1;       # default tftp server instance number
   45: my $proto = 'tftp';  # protocol the tftp server speaks
   46: my $pidfile;
   47: my $portfile;
   48: my $logfile;
   49: my $srcdir;
   50: my $fork;
   51: 
   52: my $flags  = "";
   53: my $path   = '.';
   54: my $logdir = $path .'/log';
   55: 
   56: while(@ARGV) {
   57:     if($ARGV[0] eq '--pidfile') {
   58:         if($ARGV[1]) {
   59:             $pidfile = $ARGV[1];
   60:             shift @ARGV;
   61:         }
   62:     }
   63:     elsif($ARGV[0] eq '--portfile') {
   64:         if($ARGV[1]) {
   65:             $portfile = $ARGV[1];
   66:             shift @ARGV;
   67:         }
   68:     }
   69:     elsif($ARGV[0] eq '--logfile') {
   70:         if($ARGV[1]) {
   71:             $logfile = $ARGV[1];
   72:             shift @ARGV;
   73:         }
   74:     }
   75:     elsif($ARGV[0] eq '--srcdir') {
   76:         if($ARGV[1]) {
   77:             $srcdir = $ARGV[1];
   78:             shift @ARGV;
   79:         }
   80:     }
   81:     elsif($ARGV[0] eq '--ipv4') {
   82:         $ipvnum = 4;
   83:     }
   84:     elsif($ARGV[0] eq '--ipv6') {
   85:         $ipvnum = 6;
   86:     }
   87:     elsif($ARGV[0] eq '--port') {
   88:         if($ARGV[1] =~ /^(\d+)$/) {
   89:             $port = $1;
   90:             shift @ARGV;
   91:         }
   92:     }
   93:     elsif($ARGV[0] eq '--id') {
   94:         if($ARGV[1] =~ /^(\d+)$/) {
   95:             $idnum = $1 if($1 > 0);
   96:             shift @ARGV;
   97:         }
   98:     }
   99:     elsif($ARGV[0] eq '--verbose') {
  100:         $verbose = 1;
  101:     }
  102:     else {
  103:         print STDERR "\nWarning: tftpserver.pl unknown parameter: $ARGV[0]\n";
  104:     }
  105:     shift @ARGV;
  106: }
  107: 
  108: if(!$srcdir) {
  109:     $srcdir = $ENV{'srcdir'} || '.';
  110: }
  111: if(!$pidfile) {
  112:     $pidfile = "$path/". server_pidfilename($proto, $ipvnum, $idnum);
  113: }
  114: if(!$logfile) {
  115:     $logfile = server_logfilename($logdir, $proto, $ipvnum, $idnum);
  116: }
  117: 
  118: $flags .= "--pidfile \"$pidfile\" ".
  119:     "--portfile \"$portfile\" ".
  120:     "--logfile \"$logfile\" ";
  121: $flags .= "--ipv$ipvnum --port $port --srcdir \"$srcdir\"";
  122: 
  123: exec("server/tftpd".exe_ext('SRV')." $flags");