Lines Matching refs:ARGV

2988 while(@ARGV) {
2989     if($ARGV[0] eq '--verbose') {
2992     elsif($ARGV[0] eq '--srcdir') {
2993         if($ARGV[1]) {
2994             $srcdir = $ARGV[1];
2995             shift @ARGV;
2998     elsif($ARGV[0] eq '--id') {
2999         if($ARGV[1] && ($ARGV[1] =~ /^(\d+)$/)) {
3001             shift @ARGV;
3004     elsif($ARGV[0] eq '--proto') {
3005         if($ARGV[1] && ($ARGV[1] =~ /^(ftp|imap|pop3|smtp)$/)) {
3007             shift @ARGV;
3010             die "unsupported protocol $ARGV[1]";
3013     elsif($ARGV[0] eq '--pidfile') {
3014         if($ARGV[1]) {
3015             $pidfile = $ARGV[1];
3016             shift @ARGV;
3019     elsif($ARGV[0] eq '--portfile') {
3020         if($ARGV[1]) {
3021             $portfile = $ARGV[1];
3022             shift @ARGV;
3025     elsif($ARGV[0] eq '--logfile') {
3026         if($ARGV[1]) {
3027             $logfile = $ARGV[1];
3028             shift @ARGV;
3031     elsif($ARGV[0] eq '--logdir') {
3032         if($ARGV[1]) {
3033             $logdir = $ARGV[1];
3034             shift @ARGV;
3037     elsif($ARGV[0] eq '--ipv4') {
3041     elsif($ARGV[0] eq '--ipv6') {
3045     elsif($ARGV[0] eq '--port') {
3046         if($ARGV[1] =~ /^(\d+)$/) {
3048             shift @ARGV;
3051     elsif($ARGV[0] eq '--addr') {
3052         if($ARGV[1]) {
3053             my $tmpstr = $ARGV[1];
3061             shift @ARGV;
3065         print STDERR "\nWarning: ftpserver.pl unknown parameter: $ARGV[0]\n";
3067     shift @ARGV;