Lines Matching refs:ARGV

105 while(@ARGV) {
106     if($ARGV[0] eq '--verbose') {
109     elsif($ARGV[0] eq '--debugprotocol') {
113     elsif($ARGV[0] eq '--user') {
114         if($ARGV[1]) {
115             $username = $ARGV[1];
116             shift @ARGV;
119     elsif($ARGV[0] eq '--id') {
120         if($ARGV[1]) {
121             if($ARGV[1] =~ /^(\d+)$/) {
123                 shift @ARGV;
127     elsif($ARGV[0] eq '--ipv4') {
131     elsif($ARGV[0] eq '--ipv6') {
135     elsif($ARGV[0] eq '--addr') {
136         if($ARGV[1]) {
137             my $tmpstr = $ARGV[1];
140                 shift @ARGV;
145                 shift @ARGV;
149     elsif($ARGV[0] eq '--pidfile') {
150         if($ARGV[1]) {
151             $pidfile = "$path/". $ARGV[1];
152             shift @ARGV;
155     elsif($ARGV[0] eq '--sshport') {
156         if($ARGV[1]) {
157             if($ARGV[1] =~ /^(\d+)$/) {
159                 shift @ARGV;
164         print STDERR "\nWarning: sshserver.pl unknown parameter: $ARGV[0]\n";
166     shift @ARGV;