Lines Matching refs:ARGV

51 while(@ARGV) {
52     if($ARGV[0] eq '--pidfile') {
53         if($ARGV[1]) {
54             $pidfile = $ARGV[1];
55             shift @ARGV;
58     elsif($ARGV[0] eq '--logfile') {
59         if($ARGV[1]) {
60             $logfile = $ARGV[1];
61             shift @ARGV;
64     elsif($ARGV[0] eq '--srcdir') {
65         if($ARGV[1]) {
66             $srcdir = $ARGV[1];
67             shift @ARGV;
70     elsif($ARGV[0] eq '--ipv4') {
73     elsif($ARGV[0] eq '--ipv6') {
76     elsif($ARGV[0] eq '--port') {
77         if($ARGV[1] =~ /^(\d+)$/) {
79             shift @ARGV;
82     elsif($ARGV[0] eq '--id') {
83         if($ARGV[1] =~ /^(\d+)$/) {
85             shift @ARGV;
88     elsif($ARGV[0] eq '--verbose') {
92         print STDERR "\nWarning: tftpserver.pl unknown parameter: $ARGV[0]\n";
94     shift @ARGV;