gestion 1.9.12

data/Views/Admin/FilesManage.rb

@@ -0,0 +1,219 @@
+# AdminFilesManage offers an interface to add files to the files.profeda.org
+# site. Files are stored in a two-level structure: first os, then
+# categories. A possible structure is as follows:
+# Windows/Antivirus
+# Windows/Office
+# Mac/Office
+# Mac/Utils
+# Each file in the directory is accompanied by a .file that holds information
+# about it like description, URL, tags.
+
+class AdminFilesManage < View
+  attr_accessor :files_dir
+
+  def layout
+    @order = 50
+    @update = true
+    @functions_need = [:files_manage]
+
+    @files_dir = '/opt/Files'
+    gui_vbox do
+      gui_hboxg :nogroup do
+        gui_vbox :nogroup do
+          gui_vbox :nogroup do
+            show_list_single :dirs_os, callback: true, flexheight: 1
+            show_button :dirs_os_add, :dirs_os_del
+          end
+
+          gui_vbox :nogroup do
+            show_list_single :dirs_type, callback: true, flexheight: 1
+          end
+        end
+
+        gui_vbox :nogroup do
+          show_list_single :files_stored, '[]', callback: true, flexheight: 1
+          show_button :file_del
+        end
+
+        gui_vbox :nogroup do
+          show_str_ro :name, width: 300
+          show_str_ro :url_file
+          show_str :url_page
+          show_str :description
+          show_str :tags
+          show_button :file_save, :file_rename
+        end
+
+        gui_window :win_chose do
+          show_list :win_list
+          show_button :win_add_os
+        end
+
+        gui_window :win_rename do
+          show_str :new_name, width: 300
+          show_button :rename_ok, :cancel
+        end
+
+        gui_window :win_update do
+          show_html :update_txt
+          show_button :update_ok
+        end
+      end
+      gui_vbox :nogroup do
+        show_button :files_search, :files_update
+      end
+    end
+  end
+
+  def list_dirs(base)
+    Dir.glob("#{base}/*").collect { |d| d.gsub(/^#{base}\//, '') }.sort
+  end
+
+  def rpc_button_dirs_os_del(session, data)
+    dir = FMDirs.search_by_path(data._dirs_os.first)
+    return unless dir
+    dir.delete
+    rpc_update(session)
+  end
+
+  def rpc_button_dirs_os_add(session, data)
+    dirs = list_dirs(@files_dir)
+    FMDirs.base_dirs.each { |d|
+      dirs.delete(d._name)
+    }
+    reply(:window_show, :win_chose) +
+        reply(:empty_update, win_list: dirs)
+  end
+
+  def rpc_button_win_add_os(session, data)
+    data._win_list.each { |name|
+      if FMDirs.search_by_name(name).size == 0
+        FMDirs.create({name: name})
+      else
+        dputs(1) { "Os-dir #{name} already exists" }
+      end
+    }
+    reply(:window_hide) +
+        rpc_update(nil)
+  end
+
+  def rpc_button_files_update(session, data)
+    Thread.start {
+      System.run_bool "#{FMDirs.dir_base}/update_files do_dokuwiki"
+    }
+    rpc_update(session) +
+        reply(:window_show, :win_update) +
+        reply(:update, update_txt: 'Update might take quite some time<br>'+
+                         'Check on <a href="http://local.bardai.profeda.org" target="other">local.bardai.profeda.org</a>')
+  end
+
+  def rpc_button_files_search(session, data)
+    FMDirs.base_dirs.each { |d|
+      d.update_dirs
+      d.sub_dirs.each { |sub|
+        sub.update_files
+      }
+    }
+  end
+
+  def rpc_button_update_ok(session, data)
+    reply(:window_hide)
+  end
+
+  def rpc_button_file_save(session, data)
+    file = get_file(data)
+    return unless file
+    data._tags = (data._tags || '').split(/,/).map { |t| t.sub(/^ */, '') }
+    in_file { |f| file.data_set(f, data[f]) }
+    file.save_file(true)
+    rpc_list_choice_files_stored(session, data)
+  end
+
+  def rpc_button_file_del(session, data)
+    file = get_file(data)
+    return unless file
+    file.delete
+    rpc_list_choice_dirs_type(session, data)
+  end
+
+  def rpc_button_file_rename(session, data)
+    file = get_file(data)
+    return unless file
+    reply(:update, new_name: file.file_name) +
+        reply(:window_show, :win_rename)
+  end
+
+  def rpc_button_rename_ok(session, data)
+    file = get_file(data)
+    return unless file
+    file.rename(data._new_name)
+    reply(:window_hide) +
+        rpc_list_choice_dirs_type(session, data)
+  end
+
+  def rpc_button_cancel(session, data)
+    reply(:window_hide)
+  end
+
+  def rpc_update(session)
+    empty_fields(3) +
+        reply(:update, dirs_os: FMDirs.base_dirs.map { |f| f._name }.sort)
+  end
+
+
+  def rpc_list_choice_dirs_os(session, data)
+    return [] unless data._dirs_os.length > 0
+    dir = data._dirs_os.first
+    dirs = FMDirs.sub_dirs(dir).map { |f| f._name }.sort
+    empty_fields(2) +
+        reply(:update, dirs_type: dirs)
+  end
+
+  def rpc_list_choice_dirs_type(session, data)
+    return [] unless data._dirs_type.length > 0
+    dir = FMDirs.search_by_path(data._dirs_type.first, data._dirs_os.first)
+    entries = FMEntries.search_by_directory(dir)
+    empty_fields(1) +
+        reply(:update, files_stored: entries.map { |e| e._name }.sort)
+  end
+
+  def rpc_list_choice_files_stored(session, data)
+    file = get_file(data)
+    fields = {}
+    in_file { |f| fields[f] = file.data_get(f) }
+    fields._tags = fields._tags.join(', ')
+    empty_fields(0) +
+        reply(:update, fields)
+  end
+
+  def empty_fields(lvl)
+    rep = %w(name url_file url_page description tags)
+    if lvl > 0
+      rep.push :files_stored
+    end
+    if lvl > 1
+      rep.push :dirs_type
+    end
+    if lvl > 2
+      rep.push :dirs_os
+    end
+    reply(:empty, rep)
+  end
+
+  def get_file(data)
+    unless data._dirs_type.length > 0 && data._dirs_os.length > 0 &&
+        data._files_stored.length > 0
+      return nil
+    end
+    dir = FMDirs.search_by_path(data._dirs_type.first, data._dirs_os.first)
+    FMEntries.search_by_name(data._files_stored.first).find { |e|
+      e._directory == dir
+    }
+  end
+
+  def in_file
+    %w(name url_file url_page description tags).each { |f|
+      yield f
+    }
+  end
+end

data/Views/Admin/Function.rb

@@ -0,0 +1,39 @@
+class AdminFunction < View
+  def layout
+    @order = 700
+    @update = true
+    set_data_class(:ConfigBases)
+
+    gui_vbox do
+      gui_hboxg :nogroup do
+        gui_vboxg :nogroup do
+          show_field :functions, :flexheight => 1
+        end
+        gui_vbox :nogroup do
+          show_field :welcome_text, :width => 400, :flexheight => 1
+        end
+      end
+      show_button :save
+    end
+  end
+
+  def rpc_update(session)
+    reply(:empty_nonlists) +
+        update_form_data(ConfigBases.singleton)
+  end
+
+  def rpc_button_save(session, data)
+    ConfigBase.store(data.to_sym)
+    dputs(3) { "Configuration is now #{ConfigBase.get_functions.inspect}" }
+
+    rpc_update(session)
+  end
+
+  def list_usage
+    index = 0
+    @@usages.collect { |c|
+      index += 1
+      [index, c.to_sym]
+    }
+  end
+end

data/Views/Admin/Power.rb

@@ -0,0 +1,49 @@
+# Permits a reboot of both the Gestion and the Dreamplug itself
+
+class AdminPower < View
+  def layout
+    @order = 400
+
+    gui_vbox do
+      gui_vbox do
+        show_button :reboot_gestion
+      end
+      gui_vbox do
+        show_button :reboot_dreamplug
+      end
+      gui_vbox do
+        show_button :update_files
+      end
+      gui_window :reload do
+        show_html :txt
+        show_button :OK
+      end
+    end
+  end
+
+  def rpc_button(session, name, data)
+    msg = ''
+    case name
+      when /reboot_gestion/ then
+        Thread.new {
+          Platform.restart('gestion')
+        }
+        msg = '<h1>Recharger le navigateur avec ctrl+r ou F5</h1>'
+      when /reboot_dreamplug/ then
+        Thread.new {
+          System.run_bool "#{GESTION_DIR}/Binaries/reboot"
+        }
+        msg = '<h1>Recharger le navigateur avec ctrl+r ou F5</h1><br>' +
+            '<h2>Attention: il faudra attendre au moins 2 minutes!</h2>'
+      when /update_files/ then
+        Thread.new {
+          System.run_bool('nohup /home/ftp/Files/update_files')
+        }
+        msg = '<h1>Les fichiers vont être mises à jour - patience</h1>'
+      when /OK/ then
+        return reply(:window_hide)
+    end
+    reply(:window_show, :reload) +
+        reply(:update, :txt => msg)
+  end
+end

data/Views/Admin/Printer.rb

@@ -0,0 +1,37 @@
+class AdminPrinter < View
+  def layout
+    @order = 550
+    @cups_dir = '/etc/cups'
+    @visible = false
+
+    gui_hbox do
+      gui_vbox do
+        show_list :printers, :single, :flexheight => 1
+        show_button :delete, :add
+      end
+      gui_vbox do
+        show_str :cups_name
+        show_str :device
+        show_str :driver
+        show_button :save
+      end
+    end
+  end
+
+  def get_printers
+    printers = "#{cups_dir}/printers.conf"
+    return [] unless File.exists? printers
+    config = IO.read(printers).split(/^<\/Printer>/)
+    config.collect{|c|
+      cl = c.split("\n")
+      name = cl.select{|l| l =~ /^<Printer/}.match(/^<Printer (.*)>/)[0]
+      device = cl.select{|l| l =~ /^DeviceURI/}.match(/^DeviceURI (.*)>/)[0]
+      driver = cl.select{|l| l =~ /^DeviceURI/}.match(/^DeviceURI (.*)>/)[0]
+    }
+  end
+
+  def rpc_show(session)
+    reply(:empty_all) +
+        reply(:update, :printers => get_printers )
+  end
+end

data/Views/Admin/Server.rb

@@ -0,0 +1,252 @@
+class AdminServer < View
+  def layout
+    @functions_need = [:course_client]
+    @order = 300
+
+    gui_vbox do
+      show_button :import_ctypes
+      show_button :import_courses
+
+      gui_window :win_import do
+        show_html :status
+        show_list :import_list
+        show_button :download, :close
+      end
+    end
+  end
+
+  def check_availability(t)
+    if ConfigBase.server_url.to_s.length == 0
+      [false, 'No server defined, aborting']
+    else
+      if Persons.center
+        [true, "Fetching #{t} from server"]
+      else
+        [false, 'There is no center defined, aborting']
+      end
+    end
+  end
+
+  def status_list(show_status, status: '', list: [])
+    reply_one_two(show_status, :close, :download) +
+        reply_one_two(show_status, :status, :import_list) +
+        if show_status
+          reply(:update, status: status)
+        else
+          reply(:empty, :import_list) + reply(:update, import_list: list)
+        end
+  end
+
+  def rpc_button_import_ctypes(session, data)
+    ms = MakeSteps.new(session, -1) { |session, data, step|
+      case step
+        when 0
+          ms.auto_update = -1
+          downloading, status = check_availability(:CourseTypes)
+          reply(:window_show, :win_import) +
+              if downloading
+                status_list(true, status: status)
+              else
+                ms.step = 3
+                status_list(true, status: "Error: #{status}")
+              end
+        when 1
+          res = ICC.get(:CourseTypes, :list)
+          if res._code == 'Error'
+            ms.step = 3
+            status_list(true, status: "Error: #{res._msg}")
+          else
+            ms.auto_update = 0
+            status_list(false, list: res._msg)
+          end
+        when 2
+          ms.auto_update = -1
+          if (cts_names = data._import_list).length == 0
+            log_msg :CourseType, 'Nothing to download'
+            status_list(true, status: 'Nothing to download')
+          else
+            ms.status = status_list(true, status: "Downloading #{cts_names.length} CourseTypes")
+            data._import_list.each { |ct|
+              get_ctype(ct, ms)
+            }
+            ms.auto_update = 0
+            status_list(true, status: "Downloaded #{cts_names.length} CourseTypes")
+          end
+        when 3
+          ms.auto_update = 0
+          reply(:window_hide)
+      end
+    }
+
+    ms.make_step(session, data)
+  end
+
+  def get_ctype(name, ms)
+    ms.status = status_list(true, status: "Downloading CourseType #{name}")
+    cts = ICC.get(:CourseTypes, :fetch,
+                  args: {course_type_names: name.to_a})
+    if cts._code == 'Error'
+      raise StandardError(cts._msg)
+    end
+
+    log_msg :CourseType, "Downloaded #{name}"
+    ct = cts._msg.first
+    ct = if ct_exist = CourseTypes.match_by_name(ct._name)
+           log_msg :CourseType, "Updating CourseType #{ct._name}"
+           ct_exist.data_set_hash(ct)
+         else
+           log_msg :CourseType, "Creating CourseType #{ct._name}"
+           CourseTypes.create(ct)
+         end
+    [ct._file_diploma, ct._file_exam].compact.each { |f|
+      file = f.first
+      if file.length > 0
+        ms.status = status_list(true, status: "Downloading file #{file}")
+        rep = ICC.get(:CourseTypes, :_file, args: {name: [file]})
+        if rep._code == 'OK'
+          data = rep._msg
+          log_msg :CourseType, "Got file #{file} with length #{data.length}"
+          IO.write("#{ConfigBase.template_dir}/#{file}", data)
+        else
+          log_msg :CourseType, "Got error #{rep._msg}"
+        end
+      end
+    }
+    ct
+  end
+
+  def rpc_update_with_values(session, data)
+    MakeSteps.make_step(session, data)
+  end
+
+  def rpc_button_download(session, data)
+    MakeSteps.make_step(session, data)
+  end
+
+  def get_person(name, ms)
+    if p = Persons.match_by_login_name(name)
+      return p
+    end
+    ms.status = status_list(true, status: "Fetching person #{name}")
+    person = ICC.get(:Persons, :get, args: {center: Persons.center, name: [name]})
+    if person._code == 'Error'
+      raise StandardError(person._msg)
+    end
+    Persons.create(person._msg.to_sym)
+  end
+
+  def rpc_button_import_courses(session, data)
+    ms = MakeSteps.new(session, -1) { |session, data, step|
+      # dputs_func
+      case step
+        when 0
+          ms.auto_update = -1
+          downloading, status = check_availability(:Courses)
+          ms.step = (downloading ? 1 : 10)
+          reply(:window_show, :win_import) +
+              status_list(true, status: status)
+        when 1
+          ms.auto_update = 0
+          ms.data = ICC.get(:Courses, :courses, args: {center: Persons.center})
+          if ms.data._code == 'Error'
+            ms.step = 10
+            status_list(true, status: "Error: #{ms.data._msg}")
+          elsif ms.data._msg
+            status_list(false, list: ms.data._msg.collect { |c| [c._course_id, c._name] })
+          else
+            ms.step = 10
+            ms.auto_update = 0
+            ms.status = status_list(true, status: 'Nothing received')
+          end
+        when 2
+          ms.auto_update = -1
+          data._import_list.each { |id|
+            course = ms.data._msg.find { |d| d._course_id == id }
+            ms.status = status_list(true, status: "Checking CourseType for #{course._name}")
+            sleep 2
+            if !ctype = CourseTypes.find_by_name(course._ctype)
+              ms.status = status_list(true, status: "Fetching CourseType #{course._ctype}")
+              sleep 2
+              begin
+                ctype = get_ctype(course._ctype, ms)
+              rescue StandardError => e
+                ms.step = 10
+                ms.auto_update = 0
+                ms.status = status_list(true, status: "Error: #{e.inspect}")
+                return
+              end
+            end
+            course._ctype = ctype
+            sleep 2
+            begin
+              %w(teacher responsible assistant).each { |p|
+                person = course[p]
+                if person.to_s.length == 0 || person.first == 0
+                  course[p] = 0
+                  next
+                end
+                dputs(3) { "Fetching person #{person} for #{p}" }
+                course[p] = Persons.match_by_login_name(person) || get_person(person, ms)
+              }
+              course._students.each { |p|
+                next if p.to_s.length == 0
+                next if p.first == 0
+                next if Persons.match_by_login_name(p)
+                dputs(3) { "Fetching student #{p}" }
+                get_person(p, ms)
+              }
+              course = Courses.create(course)
+
+              # Fetch grades
+              m = ICC.get(:Courses, :grades_get, args: {course: course._name,
+                                                        center: Persons.center._login_name})
+              if m._code == 'OK'
+                m._msg.each { |g|
+                  student = Persons.find_by_login_name(g._student)
+                  if !student
+                    dputs(0) { "Got grade #{g} with unexisting student" }
+                  else
+                    grade = Grades.match_by_course_person(course, student)
+                    if grade
+                      dputs(3) { "Updating for #{g}" }
+                      grade.means = g._means
+                      grade.remark = g._remark
+                      grade.random = g._random
+                    else
+                      dputs(3) { "Making new grade with #{g}" }
+                      g.delete('grade_id')
+                      g._course = course
+                      g._student = student
+                      g._center = nil
+                      grade = Grades.create(g)
+                    end
+                    dputs(3) { "Grade is now #{grade}" }
+                  end
+                }
+              else
+                ms.step = 10
+                ms.status = status_list(true, status: "Error while fetching grades #{m._msg}")
+                return
+              end
+            rescue StandardError => e
+              ms.step = 10
+              ms.auto_update = 0
+              ms.status = status_list(true, status: "Couldn't fetch person - #{e}")
+              return
+            end
+
+            log_msg :AdminServer, "Created course #{course}"
+          }
+          ms.auto_update = 0
+          ms.step = 10
+          status_list(true, status: 'Everything downloaded')
+        when 10
+          ms.step = -1
+          reply(:window_hide)
+      end
+    }
+
+    ms.make_step(session, data)
+  end
+
+end

data/Views/Admin/Tabs.rb

@@ -0,0 +1,5 @@
+class AdminTabs < View
+  def layout
+    @order = 40
+  end
+end

data/Views/Admin/Update.rb

@@ -0,0 +1,73 @@
+class AdminUpdate < View
+  def layout
+    @order = 550
+    @update = true
+
+    gui_hbox do
+      gui_vbox :nogroup do
+        show_list_single :update_files, width: 300
+        show_upload :upload_update, callback: true
+        show_button :update, :delete
+      end
+
+      gui_window :confirm_win do
+        show_html :confirm_html
+        show_button :confirm_ok, :close
+      end
+    end
+  end
+
+  def list_http
+    []
+  end
+
+  def list_usb
+    []
+  end
+
+  def list_tmp
+    Dir.glob('/tmp/*.pkg.tar.*z').collect { |f| "file://#{f}" }
+  end
+
+  def list_files
+    list_http + list_usb + list_tmp
+  end
+
+  def rpc_update(_session, select = [])
+    reply(:empty_update, update_files: (list_files + select)) +
+        reply(:update, upload_update: 'Upload')
+  end
+
+  def rpc_button_update(session, data)
+    reply(:window_show, :confirm_win) +
+        reply(:update, confirm_html: '<h1>Updating - Danger!</h1>' +
+                         'Are you sure you want to update with<br>' +
+                         "<strong>#{data._update_files.first}</strong>?") +
+        reply(:select, update_files: [data._update_files.first])
+  end
+
+  def rpc_button_confirm_ok(session, data)
+    file = data._update_files.first
+    log_msg :AdminUpdate, "Preparing update with #{file}"
+    Entities.save_all
+    log_msg :backup, 'Creating new backup'
+    System.run_bool "#{GESTION_DIR}/Binaries/backup"
+    System.run_bool "#{GESTION_DIR}/Binaries/gestion_update.rb #{file}"
+    Platform.start 'gestion_update'
+    reply(:eval, "document.location.href='http://local.profeda.org/update_progress.html'")
+  end
+
+  def rpc_button_delete(session, data)
+    return unless session.owner.permissions.index :admin
+    case data._update_files
+      when /^file:\/\/(.*)/
+        File.exists? $1 and FileUtils.rm $1
+    end
+  end
+
+  def rpc_button_upload_update(session, data)
+    file = ["file:///tmp/#{data._filename}"]
+    rpc_update(session, file) +
+        rpc_button_update(session, update_files: file)
+  end
+end

data/Views/Admin/UpdateSystem.rb

@@ -0,0 +1,26 @@
+class AdminUpdateSystem < View
+  def layout
+    @order = 60
+    @functions_need = [:files_manage]
+    @visible = false
+
+    gui_vbox do
+      show_upload :update, :callback => true
+    end
+  end
+
+  def rpc_button_update(session, data)
+    file = UploadFiles.escape_chars(data._filename)
+    return unless File.exists?("/tmp/#{file}")
+    dir = /^[^-]*-(.*)-files.*/.match(file)[1].gsub(/_/, '/')
+    if dir =~ /\./
+      dputs(0){"Error: tried to upload file to #{dir}"}
+      return reply(:window_hide)
+    end
+    files_dir = View.AdminFilesSave.files_dir
+    FileUtils.rm_rf("#{files_dir}/#{dir}")
+    System.run_str("tar xf /tmp/#{file} -C #{files_dir}")
+    log_msg :Files, "Installed #{file}"
+    reply(:window_hide)
+  end
+end