Lines Matching refs:ARGV
2989 while(@ARGV) {
2990 if($ARGV[0] eq '--verbose') {
2993 elsif($ARGV[0] eq '--srcdir') {
2994 if($ARGV[1]) {
2995 $srcdir = $ARGV[1];
2996 shift @ARGV;
2999 elsif($ARGV[0] eq '--id') {
3000 if($ARGV[1] && ($ARGV[1] =~ /^(\d+)$/)) {
3002 shift @ARGV;
3005 elsif($ARGV[0] eq '--proto') {
3006 if($ARGV[1] && ($ARGV[1] =~ /^(ftp|imap|pop3|smtp)$/)) {
3008 shift @ARGV;
3011 die "unsupported protocol $ARGV[1]";
3014 elsif($ARGV[0] eq '--pidfile') {
3015 if($ARGV[1]) {
3016 $pidfile = $ARGV[1];
3017 shift @ARGV;
3020 elsif($ARGV[0] eq '--portfile') {
3021 if($ARGV[1]) {
3022 $portfile = $ARGV[1];
3023 shift @ARGV;
3026 elsif($ARGV[0] eq '--logfile') {
3027 if($ARGV[1]) {
3028 $logfile = $ARGV[1];
3029 shift @ARGV;
3032 elsif($ARGV[0] eq '--logdir') {
3033 if($ARGV[1]) {
3034 $logdir = $ARGV[1];
3035 shift @ARGV;
3038 elsif($ARGV[0] eq '--ipv4') {
3042 elsif($ARGV[0] eq '--ipv6') {
3046 elsif($ARGV[0] eq '--port') {
3047 if($ARGV[1] =~ /^(\d+)$/) {
3049 shift @ARGV;
3052 elsif($ARGV[0] eq '--addr') {
3053 if($ARGV[1]) {
3054 my $tmpstr = $ARGV[1];
3062 shift @ARGV;
3066 print STDERR "\nWarning: ftpserver.pl unknown parameter: $ARGV[0]\n";
3068 shift @ARGV;