tftpserver.pl 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110
  1. #!/usr/bin/env perl
  2. #***************************************************************************
  3. # _ _ ____ _
  4. # Project ___| | | | _ \| |
  5. # / __| | | | |_) | |
  6. # | (__| |_| | _ <| |___
  7. # \___|\___/|_| \_\_____|
  8. #
  9. # Copyright (C) 1998 - 2010, 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 http://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. BEGIN {
  24. push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
  25. push(@INC, ".");
  26. }
  27. use strict;
  28. use warnings;
  29. use serverhelp qw(
  30. server_pidfilename
  31. server_logfilename
  32. );
  33. my $verbose = 0; # set to 1 for debugging
  34. my $port = 8997; # just a default
  35. my $ipvnum = 4; # default IP version of tftp server
  36. my $idnum = 1; # dafault tftp server instance number
  37. my $proto = 'tftp'; # protocol the tftp server speaks
  38. my $pidfile; # tftp server pid file
  39. my $logfile; # tftp server log file
  40. my $srcdir;
  41. my $fork;
  42. my $flags = "";
  43. my $path = '.';
  44. my $logdir = $path .'/log';
  45. while(@ARGV) {
  46. if($ARGV[0] eq '--pidfile') {
  47. if($ARGV[1]) {
  48. $pidfile = $ARGV[1];
  49. shift @ARGV;
  50. }
  51. }
  52. elsif($ARGV[0] eq '--logfile') {
  53. if($ARGV[1]) {
  54. $logfile = $ARGV[1];
  55. shift @ARGV;
  56. }
  57. }
  58. elsif($ARGV[0] eq '--srcdir') {
  59. if($ARGV[1]) {
  60. $srcdir = $ARGV[1];
  61. shift @ARGV;
  62. }
  63. }
  64. elsif($ARGV[0] eq '--ipv4') {
  65. $ipvnum = 4;
  66. }
  67. elsif($ARGV[0] eq '--ipv6') {
  68. $ipvnum = 6;
  69. }
  70. elsif($ARGV[0] eq '--port') {
  71. if($ARGV[1] =~ /^(\d+)$/) {
  72. $port = $1;
  73. shift @ARGV;
  74. }
  75. }
  76. elsif($ARGV[0] eq '--id') {
  77. if($ARGV[1] =~ /^(\d+)$/) {
  78. $idnum = $1 if($1 > 0);
  79. shift @ARGV;
  80. }
  81. }
  82. elsif($ARGV[0] eq '--verbose') {
  83. $verbose = 1;
  84. }
  85. else {
  86. print STDERR "\nWarning: tftpserver.pl unknown parameter: $ARGV[0]\n";
  87. }
  88. shift @ARGV;
  89. }
  90. if(!$srcdir) {
  91. $srcdir = $ENV{'srcdir'} || '.';
  92. }
  93. if(!$pidfile) {
  94. $pidfile = "$path/". server_pidfilename($proto, $ipvnum, $idnum);
  95. }
  96. if(!$logfile) {
  97. $logfile = server_logfilename($logdir, $proto, $ipvnum, $idnum);
  98. }
  99. $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
  100. $flags .= "--ipv$ipvnum --port $port --srcdir \"$srcdir\"";
  101. exec("server/tftpd $flags");