ftp_paradise 1.4.5 → 1.5.4

data/lib/ftp_paradise/{interactive_ftp → shell}/menu.rb

@@ -2,228 +2,196 @@
 # Encoding: UTF-8
 # frozen_string_literal: true
 # =========================================================================== #
-# require 'ftp_paradise/interactive_ftp/menu.rb'
+# require 'ftp_paradise/shell/menu.rb'
 # =========================================================================== #
 module FtpParadise
 
-class InteractiveFtp
-
-  require 'ftp_paradise/interactive_ftp/upload.rb'
-
-  begin
-    require 'verbose_truth'
-  rescue LoadError; end
+class Shell # === FtpParadise::Shell
 
   begin
-    require 'rcfiles/requires/require_the_expand_cd_aliases.rb'
+    require 'rcfiles/directory_aliases/directory_aliases.rb'
   rescue LoadError; end
 
-  require 'ftp_paradise/toplevel_methods/ftp_object.rb'
-
-  # ========================================================================= #
-  # === vte
-  # ========================================================================= #
-  def vt(i)
-    VerboseTruth[i].to_s
-  end
-
-  # ========================================================================= #
-  # === esystem
-  # ========================================================================= #
-  def esystem(i)
-    e i
-    system i
-  end
-
   # ========================================================================= #
   # === menu                                                       (menu tag)
   #
-  # Do note that @user_input will always be an Array.
+  # Take note that @internal_hash[:user_input] will always be an Array.
   # ========================================================================= #
   def menu(
-      i = @user_input
+      i = user_input?
     )
     if i.is_a? Array
       i.each {|entry| menu(entry) }
     else
+      i = i.to_s.dup.strip
       # ===================================================================== #
       # Handle arguments first. We have to check if our input contains
       # any ' ' characters or not.
       # ===================================================================== #
       if i.include? ' '
-        @splitted = i.split(' ')
-        @first_argument       = @splitted[1]
-        @s = @second_argument = @splitted[2]
-        @all_arguments        = @splitted[1..-1] # This here does not contain the first argument.
-        i                     = @splitted[0]
+        @internal_hash[:splitted] = i.split(' ')
+        @internal_hash[:first_argument]  = @internal_hash[:splitted][1]
+        @internal_hash[:second_argument] = @internal_hash[:splitted][2]
+        @internal_hash[:all_arguments]   = @internal_hash[:splitted][1..-1] # This here does not contain the first argument.
+        i = @internal_hash[:splitted][0]
       else
         # =================================================================== #
         # Reset again here so that we have a clean initial state.
         # =================================================================== #
         reset_instance_variables_that_hold_all_arguments
       end
-      f = @first_argument
-      case i # case tag
+      f = first_argument_for_the_menu_interface?
+      case i # (case tag)
       # ===================================================================== #
-      # === toshevy
+      # === iftp download
       #
-      # This is my "convenience" login.
-      # ===================================================================== #
-      when /^-?-?toshevy$/,
-           /^-?-?shevy$/i,
-           'shev', # Login as shevy.
-           'iftp',
-           'remote'
-        do_login_to_shevy_and_consider_showing_the_remote_files
-      # ===================================================================== #
-      # === uniwien_homepage
-      # ===================================================================== #
-      when /^-?-?uniwien(_|-)?homepage$/
-        do_login(:uniwien_homepage)
-        if SHOW_REMOTE_FILES_UPON_SUCCESSFUL_LOGIN
-          show_remote_files :also_show_filesize # Also display this since as of March 2015.
-        end
-      # ===================================================================== #
-      # === login
+      # This entry point allows us to download a remote file, via
+      # ruby's FTP interface.
       # ===================================================================== #
-      when 'login',
-           'log',
-           'cto',
-           'con',
-           'connect_to',
-           'do_login',
-           'conn',
-           'connectto',
-           'connect2',
-           /^-?-?do(_|-)?connect$/i,
-           'connect' # ← easier alias for now.
-        do_login(f) { :be_verbose }
+      when /^-?-?download$/, # === download
+           /^-?-?remote(-|_| )?download$/i,
+           'get',
+           'down',
+           'do',
+           'dow',
+           'dload',
+           'dl',
+           'wget',
+           'wg'
+        download_remote_file(f)
       # ===================================================================== #
-      # === set_url
+      # === list?
       # ===================================================================== #
-      when /^-?-?set(_|-)?url$/i
-        e 'Setting to the remote host called '+sfancy(f)+'.'
-        set_url(f)
+      when 'list?',
+           'list',
+           /remote(-|_)?list/i
+        pp ftp_connection?.list?
       # ===================================================================== #
-      # === set_password
+      # === move_remote_file
       # ===================================================================== #
-      when 'set_password',
-           'setpassword',
-           'password'
-        set_password(f)
+      when /move_?remote_?file/,
+           'rmv',
+           'mmv',
+           'remote_mv',
+           /remote(-|_)?move$/i,
+           /move(-|_)?remote$/i
+        move_remote_file(a?)
       # ===================================================================== #
-      # === setname
+      # === remote_ls
       #
-      # This entry point allows us to set the name of the user.
+      # This entry point will show which remote files exist.
       # ===================================================================== #
-      when 'setname',
-           'set_name',
-           'set_user',
-           'setuser',
-           'set_user_name',
-           'username'
-        set_name(f)
+      when 'remote_ls',
+           'remotell',
+           'listing',
+           'lll',
+           'lls',
+           'llll',
+           'remotecontent?',
+           '3l','show_remote_files','l?',
+           'listing?',
+           'rls',
+           '3list',
+           'rll',
+           'remotels',
+           /remote_?listing/,
+           /remote(_|-)?host\??/,
+           'showremotecontent',
+           'showremote'
+        e "The remote file listing at #{sfancy(remote_host?)} is:"
+        show_remote_files
       # ===================================================================== #
-      # === everything
-      #
-      # Can also be invoked via show_host_user_name_port_and_password.
+      # === is_file?
       # ===================================================================== #
-      when 'everything',
-           /show_?host_?user_?name_?port_?and_?password/,
-           'username?',
-           'uname?',
-           'user?'
-        show_host_user_name_port_and_password
+      when /is_?file\??/
+        f = convert_number_to_file(f)
+        e ftp_connection?.is_file?(f).to_s
       # ===================================================================== #
-      # === chmod
+      # === history
       # ===================================================================== #
-      when 'chmod'
-        filename = 'htop-2.2.0.tar.xz'
-        try_to_chmod_this_remote_file(filename)
+      when 'history','history?'
+        show_history
       # ===================================================================== #
-      # === remote_host?
+      # === cat
       # ===================================================================== #
-      when /^remote(_|-)host\??/
-        e sfancy(FtpParadise.remote_host?)
+      when 'cat'
+        display_file(f)
       # ===================================================================== #
-      # === vim
+      # === time
       # ===================================================================== #
-      when /^vim/
-        esystem "vim #{f}"
+      when 'time','time?'
+        e return_time
       # ===================================================================== #
-      # === set_editor
+      # === rcd
+      #
+      # This entry point allows us to change to a remote directory.
+      #
+      # Invocation example:
+      #
+      #   rcd htdocs
       #
-      # This entry point allows us to specify a different editor.
       # ===================================================================== #
-      when /^set(-|_| )?editor$/ # === set_editor vim
-        set_editor(f)
+      when 'rcd',
+           /^-?-?remote(-|_| )?change(-|_| )?directory$/,
+           'rchange_dir','lcd','remotecd','rc',
+           'remote_cd'
+        remote_change_directory(f, :show_remote_file_listing)
       # ===================================================================== #
-      # === editor?
+      # === show_user_and_password
       # ===================================================================== #
-      when 'editor?',
-           /^report(-|_| )?which(-|_| )?editor(-|_| )?is(-|_| )?in(-|_| )?use$/i
-        report_which_editor_is_in_use
+      when /show_?user_?and_?password/
+        show_user_and_password
       # ===================================================================== #
-      # === edit
+      # === show_hosts
       # ===================================================================== #
-      when 'edit',
-           'bluefish',
-           'bl',
-           'open',
-           /^open(-|_| )?this(-|_| )?file(-|_| )?in(-|_| )?editor$/,
-           'open?'
-        open_this_file_in_editor(f)
+      when /^-?-?show_?hosts/,'hosts?'
+        show_hosts
       # ===================================================================== #
-      # === binary_upload
+      # === download_binary_file
       # ===================================================================== #
-      when /^binary(-|_| )?upload$/,
-           /^upload(-|_| )?binary$/,
-           'bupload',
-        do_use_binary_mode
-        upload(f)
+      when 'download_binary_file',
+           'downloadbinaryfile',
+           'getbinaryfile'
+        ftp_connection?.download_binary_file(f)
       # ===================================================================== #
-      # === upload_this_file
-      #
-      # This entry point allows us to upload a local file to a remote
-      # host.
-      #
-      # Invocation example:
-      #
-      #   upload /Depot/j/test.md
-      #
+      # === local_files
       # ===================================================================== #
-      when /^-?-?upload(-|_| )?this(-|_| )?file$/,
-           'upload',
-           'upoad',
-           'upl',
-           'up',
-           'icopy', # copy all from local to remote dir
-           'uload'
-        upload(@all_arguments) # bl $FTP_PARADISE/
+      when 'local_files','localfiles'
+        show_local_files(true) # true for dirs-only.
       # ===================================================================== #
-      # === iftp download
-      #
-      # This entry point allows us to download a remote file, via
-      # ruby's FTP interface.
+      # === set
       # ===================================================================== #
-      when /^-?-?download$/,'get','down','do','dow','dload','dl',
-           'wget','wg'
-        download_remote_file(f)
+      when 'set','set_file','setfile','file','assign'
+        if @internal_hash[:first_argument].to_s =~ /^\d+/ # upload only a specific number.
+          @internal_hash[:first_argument] = Dir['*'][@internal_hash[:first_argument].to_i + 1]
+        end
+        if be_verbose
+          e "Setting @internal_hash[:file] to `#{sfile(file?)}` now."
+        end
+        set_file(f)
       # ===================================================================== #
-      # === remote_dirs?
+      # === uniwien_homepage
       # ===================================================================== #
-      when 'remote_dirs?','dirs?','dir?','dir','dirs','onlydirs',
-           'remotedirs?',
-           /^-?-?show(-|_| )?remote(-|_| )?directories$/
-        show_remote_directories
+      when /^-?-?uniwien(_|-)?homepage$/
+        do_login(:uniwien_homepage)
+        if SHOW_REMOTE_FILES_UPON_SUCCESSFUL_LOGIN
+          show_remote_files :also_show_filesize # Also display this since as of March 2015.
+        end
       # ===================================================================== #
-      # === rpwd
+      # === login
       # ===================================================================== #
-      when 'rpwd',
-           /^remote(-|_| )?pwd/,
-          'remote_pwd?','remote_path?','remote_dir?','rdir',
-           'lpwd','rpwd?','rcd?'
-        report_remote_directory
+      when 'login',
+           'log',
+           'cto',
+           'con',
+           'connect_to',
+           'do_login',
+           'conn',
+           'connectto',
+           'connect2',
+           /^-?-?do(_|-)?connect$/i,
+           'connect' # ← easier alias for now.
+        do_login(f) { :be_verbose }
       # ===================================================================== #
       # === upload_directory
       # ===================================================================== #
@@ -236,18 +204,24 @@ class InteractiveFtp
       # holds our remote connection.
       # ===================================================================== #
       when /^raw(_|-)?list$/
-        pp ftp?.raw_list
+        pp ftp_connection?.raw_list
       # ===================================================================== #
       # === raw
       # ===================================================================== #
-      when 'raw','@array_file_listing','array_file_listing',
-           'l1','list_content','raw?'
-        pp ftp?.array_file_listing
+      when 'raw','@array_file_listing',
+           'array_file_listing',
+           'l1',
+           'list_content',
+           'raw?'
+        pp ftp_connection?.array_file_listing
       # ===================================================================== #
       # === remote_remove
       # ===================================================================== #
       when 'remote_remove','rrmdir','remove_remote_directory','removeremove',
-           'rremove','rrmfile','rrm','remove_remote','remote_rm','remoterm',
+           'rremove',
+           'rrmfile','rrm','remove_remote',
+           'remote_rm',
+           'remoterm',
            'remove_remote_file',
            'rrem',
            'removeremotedirectory',
@@ -262,34 +236,15 @@ class InteractiveFtp
            'deldir'
         _ = a?
         if user_input?.first.include?(' ') and
-          _.last.end_with?('.pdf','.pdf"') # <-- Yup, hackish. For now we only make an exception for .pdf files.
+          _.last.end_with?('.pdf','.pdf"') # ←- Yup, hackish. For now we only make an exception for .pdf files.
           _ = _.join(' ')
         end
         remote_remove(_)
       # ===================================================================== #
-      # === nlst
-      # ===================================================================== #
-      when 'nlst','nls','nlst?'
-        e ftp?.nlst
-      # ===================================================================== #
-      # === list?
-      # ===================================================================== #
-      when 'list?','list'
-        pp ftp?.list?
-      # ===================================================================== #
-      # === q
-      # ===================================================================== #
-      when *ARRAY_VALID_OPTIONS_FOR_EXITING_THE_SHELL, :break
-        :break # quit tag
-      # ===================================================================== #
-      # === @_
-      # ===================================================================== #
-      when '@_','@_?','__','ftp?','ftp_object?','ftpobject?'
-        pp ftp?
-      # ===================================================================== #
       # === FtpParadise.dataset?
       # ===================================================================== #
-      when 'FtpParadise.dataset?','dataset?'
+      when 'FtpParadise.dataset?',
+           'dataset?'
         pp FtpParadise.dataset?
       # ===================================================================== #
       # === ll
@@ -302,95 +257,59 @@ class InteractiveFtp
            'local','l'
         show_local_entries
       # ===================================================================== #
-      # === remote_ls
-      #
-      # This entry point will show which remote files exist.
-      # ===================================================================== #
-      when 'remote_ls',
-           'remotell',
-           'listing',
-           'lll',
-           'lls',
-           'llll',
-           'remotecontent?',
-           '3l','show_remote_files','l?','listing?',
-           'rls',
-           '3list',
-           'rll',
-           'remotels',
-           /remote_?listing/,
-           'showremotecontent','showremote'
-        e "The remote file listing at #{sfancy(remote_host?)} is:"
-        show_remote_files
-      # ===================================================================== #
-      # === rcd
-      #
-      # This entry point allows us to change to a remote directory.
-      #
-      # Invocation example:
-      #
-      #   rcd htdocs
-      #
-      # ===================================================================== #
-      when 'rcd',
-           /^-?-?remote(-|_| )?change(-|_| )?directory$/,
-           'rchange_dir','lcd','remotecd','rc','remote_cd'
-        remote_change_directory(f, :show_remote_file_listing)
-      # ===================================================================== #
-      # === anonymous
-      # ===================================================================== #
-      when 'anonymous','anon'
-        enable_anonymous_login
-      # ===================================================================== #
-      # === port?
-      # ===================================================================== #
-      when 'port?', /report_?port/
-        report_port
-      # ===================================================================== #
-      # === mode?
-      # ===================================================================== #
-      when 'mode?','mode','transfermode?'
-        e 'The mode for InteractiveFtp is: '+sfancy(@mode.to_s)
-      # ===================================================================== #
-      # === show_user_and_password
-      # ===================================================================== #
-      when /show_?user_?and_?password/
-        show_user_and_password
-      # ===================================================================== #
-      # === show_hosts
+      # === set_url
       # ===================================================================== #
-      when /^-?-?show_?hosts/,'hosts?'
-        show_hosts
+      when /^-?-?set(_|-)?url$/i
+        e 'Setting to the remote host called '+sfancy(f)+'.'
+        set_url(f)
       # ===================================================================== #
-      # === move_remote_file
+      # === set_password
       # ===================================================================== #
-      when /move_?remote_?file/,'rmv','mmv','remote_mv'
-        move_remote_file(a)
+      when 'set_password',
+           'setpassword',
+           'password'
+        set_password(f)
       # ===================================================================== #
-      # === download_binary_file
+      # === toshevy
+      #
+      # This is my "convenience" login.
       # ===================================================================== #
-      when 'download_binary_file','downloadbinaryfile',
-           'getbinaryfile'
-        ftp?.download_binary_file(f)
+      when /^-?-?toshevy$/,
+           /^-?-?shevy$/i,
+           'shev', # Login as shevy.
+           'iftp',
+           'remote'
+        do_login_to_shevy_and_consider_showing_the_remote_files
       # ===================================================================== #
-      # === file?
+      # === rpwd
       # ===================================================================== #
-      when 'file?','upload?','f?'
-        consider_reporting_file
+      when 'rpwd',
+           /^remote(-|_| )?pwd/,
+          'remote_pwd?',
+          'remote_path?',
+          'remote_dir?',
+          'rdir',
+           'lpwd',
+           'rpwd?',
+           'rcd?'
+        report_remote_directory
       # ===================================================================== #
-      # === www
+      # === nlst
       # ===================================================================== #
-      when 'www','sinatra','show_www_component','www?'
-        show_www_component
+      when 'nlst','nls','nlst?'
+        e ftp_connection?.nlst
       # ===================================================================== #
       # === binary?
       # ===================================================================== #
       when 'binary?'
-        e vt(@mode == :binary)
+        e vt(ftp_transfer_mode? == :binary)
       # ===================================================================== #
       # === is_directory?
       # ===================================================================== #
-      when 'is_directory?','isdirectory?','isdir?','is_a_directory?'
+      when 'is_directory?',
+           'isdirectory?',
+           'isdir?',
+           'is_a_directory?'
         e is_dir(f).to_s
       # ===================================================================== #
       # === active
@@ -410,7 +329,8 @@ class InteractiveFtp
       # ===================================================================== #
       # === stat
       # ===================================================================== #
-      when 'stat','stat?'
+      when 'stat',
+           'stat?'
         stat_remote_file(f)
       # ===================================================================== #
       # === a1?
@@ -435,7 +355,11 @@ class InteractiveFtp
       # ===================================================================== #
       # === info
       # ===================================================================== #
-      when 'info','debug','deb','debug_it','debugit'
+      when 'info',
+           'debug',
+           'deb',
+           'debug_it',
+           'debugit'
         debug_it
       # ===================================================================== #
       # === show_full_names
@@ -447,223 +371,372 @@ class InteractiveFtp
            'show_names'
         toggle_show_full_names
       # ===================================================================== #
-      # === base_dir?
+      # === available?
       # ===================================================================== #
-      when 'base_dir?','basedir?'
-        e PROJECT_BASE_DIRECTORY
+      when 'available?','show_available_connections'
+        show_available_connections
       # ===================================================================== #
-      # === config?
+      # === localdir?
       # ===================================================================== #
-      when 'config?','configuration?','ccc','config'
-        display_configuration_options
-        pp @config
+      when 'localdir?','ldir'
+        report_local_dir
       # ===================================================================== #
-      # === local_files
+      # === yaml?
       # ===================================================================== #
-      when 'local_files','localfiles'
-        show_local_files(true) # true for dirs-only.
+      when 'yaml?'
+        show_ftp_yaml_file
       # ===================================================================== #
-      # === set
+      # === remove_local
       # ===================================================================== #
-      when 'set','set_file','setfile','file','assign'
-        if @first_argument.to_s =~ /^\d+/ # upload only a specific number.
-          @first_argument = Dir['*'][@first_argument.to_i + 1]
-        end
-        set_file(f)
-        e "Setting @file to `#{sfile(file?)}` now." if be_verbose
+      when 'remove_local',
+           'delete',
+           'rm',
+           'remove',
+           'rem'
+        remove_local(f)
       # ===================================================================== #
-      # === available?
+      # === status?
       # ===================================================================== #
-      when 'available?','show_available_connections'
-        show_available_connections
+      when 'status?',
+           'info?',
+           'stats?',
+           's?',
+           'status'
+        show_status
       # ===================================================================== #
-      # === toggle2
+      # === remotemkdir
       # ===================================================================== #
-      when 'toggle2','toggle_modes','togglemodes','t2' # toggle the mode.
-        toggle_modes
+      when 'rmkdir',
+           'remote_mkdir',
+           'remotemkdir',
+           'mkdir_remote'
+        create_remote_directory(f)
       # ===================================================================== #
-      # === last
+      # === touch
       # ===================================================================== #
-      when 'last'
-        last_action = @history.last
-        check_against_menu(last_action)
+      when 'touch'
+        create_file(f)
       # ===================================================================== #
-      # === localdir?
+      # === dated?
       # ===================================================================== #
-      when 'localdir?','ldir'
-        report_local_dir
+      when 'dated?','dated'
+        show_date_sorted_entries
       # ===================================================================== #
-      # === binary
+      # === help
       # ===================================================================== #
-      when 'binary'
-        use_binary_mode(true)
+      when /help/
+        show_help
       # ===================================================================== #
-      # === yaml?
+      # === list2
       # ===================================================================== #
-      when 'yaml?'
-        show_ftp_yaml_file
+      when 'list2','rlist' # Debug here.
+        ftp_connection?.list
       # ===================================================================== #
-      # === remove_local
+      # === date?
       # ===================================================================== #
-      when 'remove_local','delete','rm','remove','rem'
-        remove_local(f)
+      when 'date?','date'
+        e return_time+' '+return_date
+      # ===================================================================== #
+      # === welcome
+      # ===================================================================== #
+      when 'welcome','show_welcome_message','welcome?','welc'
+        show_ftp_server_welcome
+      # ===================================================================== #
+      # === show_ftp_docu
+      # ===================================================================== #
+      when 'show_ftp_docu','ftp_docu?','docu?','ftp_docu'
+        show_ftp_docu
+      # ===================================================================== #
+      # === enable_readline
+      # ===================================================================== #
+      when /^-?-?enable(_|-)?readline$/
+        enable_readline
+      # ===================================================================== #
+      # === disconnect
+      # ===================================================================== #
+      when 'disconnect','dconnect','out'
+        disconnect
+      # ===================================================================== #
+      # === last_response?
+      # ===================================================================== #
+      when 'last_response?','last_response','lastresponse','lastresponse?',
+           'lastconnected','laststatus'
+        report_last_response
+      # ===================================================================== #
+      # === readline?
+      # ===================================================================== #
+      when 'readline?'
+        e verbose_truth(use_readline?)
+      # ===================================================================== #
+      # === iftp --no-readline
+      # ===================================================================== #
+      when /^-?-?no(-|_)?readline$/,
+           /^-?-?do(-|_| )?not(-|_| )?use(-|_| )?readline$/
+        do_not_use_readline
+      # ===================================================================== #
+      # === datafile?
+      # ===================================================================== #
+      when 'datafile?'
+        e datafile?
+      # ===================================================================== #
+      # === delete
+      #
+      # Invocation example:
+      #
+      #   delete files for your website should be uploaded here!
+      #
+      # ===================================================================== #
+      when /^-?-?delete$/,
+           /^-?-?del$/
+        remote_remove_file(all_arguments?.join(' ').strip)
+      # ===================================================================== #
+      # === quiet
+      # ===================================================================== #
+      when 'quiet','be_quiet'
+        ConvertGlobalEnv.be_quiet # So that it will be silent.
+      # ===================================================================== #
+      # === password?
+      # ===================================================================== #
+      when 'password?',
+           'pw?'
+        e password?
+      # ===================================================================== #
+      # === rename
+      # ===================================================================== #
+      when 'rename','remote_rename','remoterename','remotemv'
+        rename(f?, s?)
+      # ===================================================================== #
+      # === remote_remove
+      # ===================================================================== #
+      when 'mv','move_file','movefile','move_lovel_file'
+        move_local_file(f, s?)
+      # ===================================================================== #
+      # === last?
+      # ===================================================================== #
+      when 'last?'
+        e history?.last
+      # ===================================================================== #
+      # === base_dir?
+      # ===================================================================== #
+      when 'base_dir?','basedir?'
+        e PROJECT_BASE_DIRECTORY
+      # ===================================================================== #
+      # === config?
+      # ===================================================================== #
+      when 'config?','configuration?','ccc','config'
+        display_configuration_options
+        pp config?
+      # ===================================================================== #
+      # === colours?
+      # ===================================================================== #
+      when 'colours?','show_colours'
+        e 'Will we use colours: '+
+           vt(use_colours?)        
+        show_colours
+      # ===================================================================== #
+      # === toggle
+      # ===================================================================== #
+      when 'toggle'
+        toggle(f)
       # ===================================================================== #
       # === site?
       # ===================================================================== #
       when 'site?'
-        e ftp?.site
-      # ===================================================================== #
-      # === mdtm
-      # ===================================================================== #
-      when 'mdtm','modtime?','modtime','modification_time_of?',
-           'show_modtime_of','showmodtimeof','mtime?' # mtime? is probably only temporary.
-        show_modtime_of(f)
+        e ftp_connection?.site
       # ===================================================================== #
       # === downloaded?
       # ===================================================================== #
       when 'downloaded?'
         show_which_files_we_did_download_so_far
       # ===================================================================== #
-      # === set_login
-      # ===================================================================== #
-      when /set_?login/,'login='
-        set_login(a?)
-      # ===================================================================== #
       # === cd
       # ===================================================================== #
-      when 'cd','change_dir'
+      when 'cd',
+           /^change(-|_| )?dir/
         change_directory(f)
       # ===================================================================== #
-      # === status?
+      # === mkdir
       # ===================================================================== #
-      when 'status?','info?','stats?','s?','status'
-        show_status
+      when 'mkdir'
+        create_directory(f, :be_verbose)
       # ===================================================================== #
-      # === connected_to?
+      # === anonymous
       # ===================================================================== #
-      when 'connected?','c?','remote?','host?',
-           'connected_to?','url?','cto?','?'
-        connected_to?
+      when 'anonymous',
+           'anon'
+        enable_anonymous_login
       # ===================================================================== #
-      # === remotemkdir
+      # === port?
       # ===================================================================== #
-      when 'rmkdir','remote_mkdir','remotemkdir','mkdir_remote'
-        create_remote_directory(f)
+      when 'port?', /report_?port/
+        report_port
       # ===================================================================== #
-      # === is_file?
+      # === mode?
       # ===================================================================== #
-      when /is_?file\??/
-        f = convert_number_to_file(f)
-        e ftp?.is_file?(f).to_s
-     # ===================================================================== #
-      # === change
+      when 'mode?','mode','transfermode?'
+        e 'The mode for InteractiveFtp is: '+
+           sfancy(ftp_transfer_mode?.to_s)
       # ===================================================================== #
-      when 'change'
-        change @first_argument
+      # == set_port
       # ===================================================================== #
-      # === full
+      when 'set_port','setport','port'
+        set_port(f) # setport 33791
       # ===================================================================== #
-      when 'full'
-        e 'We will show the full path.'
-        do_show_full_names
+      # === debug?
       # ===================================================================== #
-      # === full_names?
+      when 'debug?'
+        e verbose_truth(config?.debug.to_s)
+        ftp_connection?.status?
       # ===================================================================== #
-      when 'full_names?','full?','names?','name?','fullnames?',
-           'full_path?','fullpath?'
-        will_we_show_full_names
+      # === file?
       # ===================================================================== #
-      # === rename
+      when 'file?',
+           'upload?',
+           'f?'
+        consider_reporting_file
       # ===================================================================== #
-      when 'rename','remote_rename','remoterename','remotemv'
-        rename(f?, @s)
+      # === www
       # ===================================================================== #
-      # === remote_remove
+      when 'www','sinatra','show_www_component','www?'
+        show_www_component
       # ===================================================================== #
-      when 'mv','move_file','movefile','move_lovel_file'
-        move_local_file(f, @s)
+      # === setname
+      #
+      # This entry point allows us to set the name of the user.
       # ===================================================================== #
-      # === last?
+      when /^set(-|_| )?name/i,
+           'set_user',
+           'setuser',
+           'set_user_name',
+           'username'
+        set_name(f)
       # ===================================================================== #
-      when 'last?'
-        e @history.last
+      # === chmod
       # ===================================================================== #
-      # === history
+      when 'chmod'
+        filename = 'htop-2.2.0.tar.xz'
+        try_to_chmod_this_remote_file(filename)
       # ===================================================================== #
-      when 'history','history?'
-        show_history
+      # === editor?
       # ===================================================================== #
-      # === cat
+      when 'editor?',
+           /^report(-|_| )?which(-|_| )?editor(-|_| )?is(-|_| )?in(-|_| )?use$/i
+        report_which_editor_is_in_use
       # ===================================================================== #
-      when 'cat'
-        display_file(f)
+      # === upload_this_file
+      #
+      # This entry point allows us to upload a local file to a remote
+      # host.
+      #
+      # Invocation example:
+      #
+      #   upload /Depot/j/test.md
+      #
       # ===================================================================== #
-      # === touch
+      when /^-?-?upload(-|_| )?this(-|_| )?file$/,
+           'upload',
+           'upoad',
+           'upl',
+           'up',
+           'icopy', # copy all from local to remote dir
+           'uload'
+        upload(all_arguments?) # bl $FTP_PARADISE/
       # ===================================================================== #
-      when 'touch'
-        create_file(f)
+      # === everything
+      #
+      # Can also be invoked via show_host_user_name_port_and_password.
       # ===================================================================== #
-      # === mkdir
+      when 'everything',
+           /show_?host_?user_?name_?port_?and_?password/,
+           'username?',
+           'uname?',
+           'user?'
+        show_host_user_name_port_and_password
       # ===================================================================== #
-      when 'mkdir'
-        create_directory(f, :be_verbose)
+      # === change
       # ===================================================================== #
-      # == set_port
+      when 'change'
+        change first_argument?
       # ===================================================================== #
-      when 'set_port','setport','port'
-        set_port(f) # setport 33791
+      # === full
       # ===================================================================== #
-      # === debug?
+      when 'full'
+        e 'We will show the full path.'
+        do_show_full_names
       # ===================================================================== #
-      when 'debug?'
-        e verbose_truth(@config.debug.to_s)
-        ftp?.status?
+      # === full_names?
       # ===================================================================== #
-      # === help?
+      when 'full_names?','full?','names?','name?','fullnames?',
+           'full_path?','fullpath?'
+        will_we_show_full_names
       # ===================================================================== #
-      when *ARRAY_HELP_OPTIONS
-        show_help
+      # === toggle2
       # ===================================================================== #
-      # === dated?
+      when 'toggle2','toggle_modes','togglemodes','t2' # toggle the mode.
+        toggle_modes
       # ===================================================================== #
-      when 'dated?','dated'
-        show_date_sorted_entries
+      # === last
       # ===================================================================== #
-      # === date?
+      when 'last'
+        last_action = history?.last
+        check_against_menu(last_action)
       # ===================================================================== #
-      when 'date?','date'
-        e return_time+' '+return_date
+      # === edit
       # ===================================================================== #
-      # === welcome
+      when 'edit',
+           'bluefish',
+           'bl',
+           'open',
+           /^open(-|_| )?this(-|_| )?file(-|_| )?in(-|_| )?editor$/,
+           'open?'
+        open_this_file_in_editor(f)
       # ===================================================================== #
-      when 'welcome','show_welcome_message','welcome?','welc'
-        show_ftp_server_welcome
+      # === binary_upload
       # ===================================================================== #
-      # === show_ftp_docu
+      when /^binary(-|_| )?upload$/,
+           /^upload(-|_| )?binary$/,
+           'bupload',
+        do_use_binary_mode
+        upload(f)
       # ===================================================================== #
-      when 'show_ftp_docu','ftp_docu?','docu?','ftp_docu'
-        show_ftp_docu
+      # === remote_host?
       # ===================================================================== #
-      # === enable_readline
+      when /^remote(_|-)host\??/
+        e sfancy(FtpParadise.remote_host?)
       # ===================================================================== #
-      when /^-?-?enable(_|-)?readline$/
-        enable_readline
+      # === vim
       # ===================================================================== #
-      # === disconnect
+      when /^vim/
+        esystem "vim #{f}"
       # ===================================================================== #
-      when 'disconnect','dconnect','out'
-        disconnect
+      # === set_editor
+      #
+      # This entry point allows us to specify a different editor.
       # ===================================================================== #
-      # === toggle
+      when /^set(-|_| )?editor$/ # === set_editor vim
+        set_editor(f)
       # ===================================================================== #
-      when 'toggle'
-        toggle(f)
+      # === binary
       # ===================================================================== #
-      # === colours?
+      when 'binary'
+        use_binary_mode(true)
       # ===================================================================== #
-      when 'colours?','show_colours'
-        e 'Will we use colours: '+vt(use_colours?)        
-        show_colours
+      # === set_login
+      # ===================================================================== #
+      when /set_?login/,
+           'login='
+        set_login(a?)
+      # ===================================================================== #
+      # === mdtm
+      # ===================================================================== #
+      when 'mdtm',
+           'modtime?',
+           'modtime',
+           'modification_time_of?',
+           'show_modtime_of',
+           'showmodtimeof',
+           'mtime?' # mtime? is probably only temporary.
+        show_modtime_of(f)
       # ===================================================================== #
       # === nofull
       # ===================================================================== #
@@ -674,15 +747,10 @@ class InteractiveFtp
       # === last_response_code?
       # ===================================================================== #
       when 'last_response_code?','last_response_code','lastresponsecode',
-           'lastresponsecode?','report_last_response_code'
+           'lastresponsecode?',
+           'report_last_response_code'
         report_last_response_code
       # ===================================================================== #
-      # === last_response?
-      # ===================================================================== #
-      when 'last_response?','last_response','lastresponse','lastresponse?',
-           'lastconnected','laststatus'
-        report_last_response
-      # ===================================================================== #
       # === noop
       # ===================================================================== #
       when 'noop'
@@ -691,40 +759,35 @@ class InteractiveFtp
       # ===================================================================== #
       # === pwd
       # ===================================================================== #
-      when 'pwd','pwd?','pw'
+      when 'pwd',
+           'pwd?',
+           'pw'
         report_local_directory
       # ===================================================================== #
-      # === readline?
-      # ===================================================================== #
-      when 'readline?'
-        e verbose_truth(use_readline?)
-      # ===================================================================== #
-      # === iftp --no-readline
-      # ===================================================================== #
-      when /^-?-?no(-|_)?readline$/,
-           /^-?-?do(-|_| )?not(-|_| )?use(-|_| )?readline$/
-        do_not_use_readline
-      # ===================================================================== #
-      # === datafile?
+      # === coloured_remote_host?
       # ===================================================================== #
-      when 'datafile?'
-        e datafile?
+      when 'coloured_remote_host?'
+        e coloured_remote_host?
       # ===================================================================== #
-      # === delete
-      #
-      # Invocation example:
-      #   delete files for your website should be uploaded here!
+      # === connected_to?
       # ===================================================================== #
-      when /^-?-?delete$/,
-           /^-?-?del$/
-        remote_remove_file(@all_arguments.join(' ').strip)
+      when 'connected?','c?',
+           'remote?',
+           'host?',
+           'connected_to?',
+           'url?',
+           'cto?',
+           '?'
+        connected_to?
       # ===================================================================== #
       # === remote_remove_file
       #
       # This entry point allows us to remove a (or several) remote file(s).
       #
       # Usage example:
+      #
       #   rcd htdocs; remote-remove index2.html
+      #
       # ===================================================================== #
       when /^-?-?remote(-|_| )?remove(-|_| )?files?$/,
            /^-?-?remote(-|_| )?remove$/
@@ -736,50 +799,102 @@ class InteractiveFtp
            /^-?-?remote(-|_| )?mkdir$/
         remote_create_directory(a?)
       # ===================================================================== #
-      # === quiet
+      # === version?
       # ===================================================================== #
-      when 'quiet','be_quiet'
-        ConvertGlobalEnv.be_quiet # So that it will be silent.
+      when 'version?',
+           /^report(_|-)?version/
+        report_version
       # ===================================================================== #
-      # === password?
+      # === ''
       # ===================================================================== #
-      when 'password?',
-           'pw?'
-        e password?
+      when ''
+        e
+        display_prompt
       # ===================================================================== #
-      # === help
+      # === help?
       # ===================================================================== #
-      when /help/
+      when *ARRAY_HELP_OPTIONS
         show_help
       # ===================================================================== #
-      # === list2
+      # === remote_dirs?
       # ===================================================================== #
-      when 'list2','rlist' # Debug here.
-        ftp?.list
+      when 'remote_dirs?',
+           'dirs?',
+           'dir?',
+           'dir',
+           'dirs',
+           'onlydirs',
+           'remotedirs?',
+           /^-?-?show(-|_| )?remote(-|_| )?directories$/
+        show_remote_directories
       # ===================================================================== #
-      # === time
+      # === remote_ls
       # ===================================================================== #
-      when 'time','time?'
-        e return_time
+      when /^-?-?remote(-|_)?ls/,
+           /^-?-?ls/
+        cliner_seagreen
+        connection?.show_remote_files
+        cliner_seagreen
       # ===================================================================== #
-      # === version?
+      # === connection?
       # ===================================================================== #
-      when 'version?',/^report(_|-)?version/
-        report_version
-      else # else tag.
-        _ = Rcfiles::ExpandCdAliases.new(i) # To expand our cd-aliases.
-        if _._ # If we have found it.
-          change_directory(_._) # My cd-aliases go in here.
+      when /^-?-?connection\??/,
+           '@_','@_?',
+           '__',
+           'ftp?',
+           'ftp_object?',
+           'ftpobject?'
+        pp connection?
+      # ===================================================================== #
+      # === nlst
+      # ===================================================================== #
+      when /^-?-?nlst\??/
+        connection?.nlst?
+      # ===================================================================== #
+      # === remote_status?
+      # ===================================================================== #
+      when /^-?-?remote(-|_)?status\??/
+        e 'The remote status is:'
+        e
+        connection?.remote_status?
+        e
+      # ===================================================================== #
+      # === info?
+      # ===================================================================== #
+      when /^-?-?info\??/
+        pp FtpParadise.info?
+      # ===================================================================== #
+      # === exit                                                   (quit tag)
+      #
+      # Use this entry point to quit from the interactive FTP-shell again.
+      # ===================================================================== #
+      when *ARRAY_VALID_OPTIONS_FOR_EXITING_THE_SHELL,
+           :break
+        @internal_hash[:may_we_exit] = true
+      else # else tag
+        if Rcfiles::DirectoryAliases.is_included?(i)
+          target_directory = Rcfiles::DirectoryAliases[i]
+          if File.directory? target_directory
+            change_directory(target_directory) # My cd-aliases go in here.
+          end
         elsif i =~ /^\d+$/
           remote_cd(i) # perform a remote cd here.
-        elsif i[0,1] == '?' # If has leading '?'
+        elsif i.start_with?('?') # If has leading '?'
           stat_remote_file(i[1..-1])
         else
+          e 'Unknown command instruction: '+
+             steelblue(i)
           display_prompt # Else display the prompt by default.
         end
+        # e steelblue('The user input was: ')+
+        #   tomato(i) unless i.empty?
+        # ^^^^ what to do with this here?
       end
+      # ===================================================================== #
+      # Clean up the instance-variables set in the menu() interface next:
+      # ===================================================================== #
       reset_instance_variables_that_hold_all_arguments
-      return @run_mode
+      return @internal_hash[:run_mode]
     end
   end; alias check_against_menu menu # === check_against_menu