sub ftp_move()
        {
        my $exempt=-1;
        my $code;

        $exempt=$_[0] if $_[0];

        &write_log("+ [$filename] interesting name, moving to incoming directory.",0);
        if($ftp->get($filename,$rvf_incoming.$filename))
                {
                $files_moved++;
                return 0;
                }

        $code=$ftp->code;
        if($code>=400)
                {
                &write_log("| [$filename] error getting from FTP site - ".$code." $@",0) if $code!=$exempt;
                $files_error++ if $code!=$exempt;
                return $code;
                }

        return 0;
        }