Lines Matching refs:ARGV
121 while(@ARGV) {
122 if($ARGV[0] eq '--verbose') {
125 elsif($ARGV[0] eq '--debugprotocol') {
129 elsif($ARGV[0] eq '--user') {
130 if($ARGV[1]) {
131 $username = $ARGV[1];
132 shift @ARGV;
135 elsif($ARGV[0] eq '--id') {
136 if($ARGV[1]) {
137 if($ARGV[1] =~ /^(\d+)$/) {
139 shift @ARGV;
143 elsif($ARGV[0] eq '--ipv4') {
147 elsif($ARGV[0] eq '--ipv6') {
151 elsif($ARGV[0] eq '--addr') {
152 if($ARGV[1]) {
153 my $tmpstr = $ARGV[1];
156 shift @ARGV;
161 shift @ARGV;
165 elsif($ARGV[0] eq '--pidfile') {
166 if($ARGV[1]) {
167 $pidfile = "$path/". $ARGV[1];
168 shift @ARGV;
171 elsif($ARGV[0] eq '--logdir') {
172 if($ARGV[1]) {
173 $logdir = "$path/". $ARGV[1];
174 shift @ARGV;
177 elsif($ARGV[0] eq '--sshport') {
178 if($ARGV[1]) {
179 if($ARGV[1] =~ /^(\d+)$/) {
181 shift @ARGV;
186 print STDERR "\nWarning: sshserver.pl unknown parameter: $ARGV[0]\n";
188 shift @ARGV;