def uploadrwdschedulefiles
  require 'net/ftp'
  BasicSocket.do_not_reverse_lookup = true 
   @rwdscheduleftpdisplays = ""
  begin
    ftp = Net::FTP::new($rwdschedule_ftpsite)
@rwdscheduleftpdisplay  = "files uploaded" + "\n" 
    
    fileListarray = Dir.new($rwdschedule_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /sch$/) }
    if fileListarray
      ftp.debug_mode = false
      ftp.login($rwdschedule_ftplogin, $rwdschedule_ftppassword)
      ftp.chdir($rwdschedule_ftpdirectory)
      print "I'm in the directory ", ftp.pwd(), "\n"
      fileListarray.each do |temp|
             tmpfilenametoupload = File.join($rwdschedule_directory,temp)
             ftp.puttextfile(tmpfilenametoupload  , temp)
             @rwdscheduleftpdisplay  =   @rwdscheduleftpdisplay + temp + "\n"   
        end
      end
   ftp.close
  
rescue
 
 if ftp
 ftp.close
end
print "ftp error"
end
end