Lines Matching defs:cmd
171 my $cmd = shift;
173 $ftp->command( uc $cmd, @_);
693 my($ftp,$cmd,$local,$remote) = @_;
746 $sock = $ftp->_data_cmd($cmd, $remote) or
750 if 'STOU' eq uc $cmd;
794 if ('STOU' eq uc $cmd and $ftp->message =~ m/unique\s+file\s*name\s*:\s*(.*)\)|"(.*)"/)
863 my $cmd = uc shift;
866 return $hash->{$cmd}
867 if exists $hash->{$cmd};
869 return $hash->{$cmd} = 0
870 unless $ftp->_HELP($cmd);
880 $hash->{$cmd} = $text !~ /unimplemented/i;
883 $hash->{$cmd} ||= 0;
971 my $cmd = uc shift;
976 my $data = $ftp->_data_cmd($cmd,@_);
1008 my $cmd = uc shift;
1030 $ftp->command($cmd,@_);
1036 if $data && $cmd =~ /RETR|LIST|NLST/;
1055 $ftp->command($cmd,@_);
1069 if $data && $cmd =~ /RETR|LIST|NLST/;
1173 sub cmd { shift->command(@_)->response() }