Lines Matching refs:ARGV

58 while(@ARGV) {
59     if($ARGV[0] eq '--pidfile') {
60         if($ARGV[1]) {
61             $pidfile = $ARGV[1];
62             shift @ARGV;
65     elsif($ARGV[0] eq '--portfile') {
66         if($ARGV[1]) {
67             $portfile = $ARGV[1];
68             shift @ARGV;
71     elsif($ARGV[0] eq '--logfile') {
72         if($ARGV[1]) {
73             $logfile = $ARGV[1];
74             shift @ARGV;
77     elsif($ARGV[0] eq '--logdir') {
78         if($ARGV[1]) {
79             $logdir = $ARGV[1];
80             shift @ARGV;
83     elsif($ARGV[0] eq '--srcdir') {
84         if($ARGV[1]) {
85             $srcdir = $ARGV[1];
86             shift @ARGV;
89     elsif($ARGV[0] eq '--ipv4') {
92     elsif($ARGV[0] eq '--ipv6') {
95     elsif($ARGV[0] eq '--port') {
96         if($ARGV[1] =~ /^(\d+)$/) {
98             shift @ARGV;
101     elsif($ARGV[0] eq '--id') {
102         if($ARGV[1] =~ /^(\d+)$/) {
104             shift @ARGV;
107     elsif($ARGV[0] eq '--verbose') {
111         print STDERR "\nWarning: tftpserver.pl unknown parameter: $ARGV[0]\n";
113     shift @ARGV;