Lines Matching refs:ARGV

102 while(@ARGV) {
103     if($ARGV[0] eq '--verbose') {
106     elsif($ARGV[0] eq '--debugprotocol') {
110     elsif($ARGV[0] eq '--user') {
111         if($ARGV[1]) {
112             $username = $ARGV[1];
113             shift @ARGV;
116     elsif($ARGV[0] eq '--id') {
117         if($ARGV[1]) {
118             if($ARGV[1] =~ /^(\d+)$/) {
120                 shift @ARGV;
124     elsif($ARGV[0] eq '--ipv4') {
128     elsif($ARGV[0] eq '--ipv6') {
132     elsif($ARGV[0] eq '--addr') {
133         if($ARGV[1]) {
134             my $tmpstr = $ARGV[1];
137                 shift @ARGV;
142                 shift @ARGV;
146     elsif($ARGV[0] eq '--pidfile') {
147         if($ARGV[1]) {
148             $pidfile = "$path/". $ARGV[1];
149             shift @ARGV;
152     elsif($ARGV[0] eq '--sshport') {
153         if($ARGV[1]) {
154             if($ARGV[1] =~ /^(\d+)$/) {
156                 shift @ARGV;
160     elsif($ARGV[0] eq '--socksport') {
161         if($ARGV[1]) {
162             if($ARGV[1] =~ /^(\d+)$/) {
164                 shift @ARGV;
169         print STDERR "\nWarning: sshserver.pl unknown parameter: $ARGV[0]\n";
171     shift @ARGV;