Lines Matching refs:full
3175 my $full = "";
3209 $full .= $input;
3212 next unless($full =~ /\r\n$/);
3215 $full =~ s/[\n\r]+$//;
3221 if(($full =~ /^([^ ]+) ([^ ]+) (.*)/) ||
3222 ($full =~ /^([^ ]+) ([^ ]+)/)) {
3228 elsif($full =~ /^\*$/) {
3234 elsif($full =~ /^[A-Z0-9+\/]*={0,2}$/i) {
3236 $FTPCMD=$full;
3240 sendcontrol "$full BAD Command\r\n";
3244 elsif($full =~ /^([A-Z]{3,4})(\s(.*))?$/i) {
3250 if($full =~ /^\*$/) {
3255 elsif($full =~ /^[A-Z0-9+\/]*={0,2}$/i) {
3256 $FTPCMD=$full;
3266 if($full =~ /^\*$/) {
3271 elsif($full =~ /^[A-Z0-9+\/]{0,512}={0,2}$/i) {
3272 $FTPCMD=$full;
3285 logmsg "< \"$full\"\n";
3288 print STDERR "IN: $full\n";
3291 $full = "";
