gestion 1.9.12

data/Views/Special/Vnc.rb

@@ -0,0 +1,39 @@
+class SpecialVNC < View
+  def layout
+    @order = 100
+    @auto_update = 5
+    @update = true
+    @functions_need = [:special_vnc]
+
+    gui_vbox do
+      show_str :ip
+      show_str :password
+      show_str_ro :status
+      show_button :start_x
+    end
+  end
+
+  def rpc_update(session)
+    reply(:update, password: @static._password) +
+        reply(:update, ip: session.client_ip) +
+        rpc_update_with_values(nil, nil)
+  end
+
+  def rpc_update_with_values(session, data)
+    reply(:update, status: System.run_str('pgrep -af vnc'))
+  end
+
+  def rpc_button_start_x(session, data)
+    @static._password = data._password
+    if Platform.system == :ArchLinux
+      System.run_str("echo #{data._password} | vncpasswd -f > /root/.vnc/passwd")
+      IO.write('/root/.xinitrc',
+               "xset -dpms; xset s off
+x0vncserver -passwordfile ~/.vnc/passwd &
+vncviewer -fullscreen -shared -viewonly -passwd=/root/.vnc/passwd #{data._ip}")
+      System.run_bool('killall -9 xinit')
+      System.run_bool('killall -9 Xorg')
+      Platform.start 'startx@root'
+    end
+  end
+end

data/Views/Task/Client.rb

@@ -0,0 +1,21 @@
+class TaskClient < View
+  include VTListPane
+  
+  def layout
+    set_data_class :Clients
+    
+    gui_hbox do
+      gui_vbox :nogroup do
+        vtlp_list :clients, 'name'
+        show_button :delete
+      end
+      gui_vbox :nogroup do
+        #show_find :name
+        show_block :prices
+        show_block :address
+        show_block :contact
+        show_button :new, :save
+      end
+    end
+  end
+end

data/Views/Task/Edit.rb

@@ -0,0 +1,33 @@
+class TaskEdit < View
+  include VTListPane
+  
+  def layout
+    set_data_class :Tasks
+    @update = true
+    
+    gui_hbox do
+      gui_vbox :nogroup do
+        vtlp_list :tasks, "tasks"
+        show_button :delete
+      end
+      gui_vbox :nogroup do
+        show_list_drop :client, "Entities.Clients.list_name"
+        show_list_drop :person, "Entities.Workers.list_full_name"
+        show_block :work
+        show_block :other
+        
+        show_button :save, :new
+      end
+    end
+  end
+  
+  def rpc_update( session )
+    vtlp_update_list( session )
+  end
+  
+  def rpc_button_save( session, data )
+    if data['date']
+      super( session, data )
+    end
+  end
+end

data/Views/Task/List.rb

@@ -0,0 +1,55 @@
+class TaskList < View
+  
+  def layout
+    set_data_class :Tasks
+    @update = true
+    
+    gui_hbox do
+      gui_vbox :nogroup do
+        show_list_drop :year, "View.TaskList.list_years"
+        show_list_drop :month, "1.upto(12).to_a"
+        show_list_drop :person, "Entities.Workers.list_full_name"
+        show_list_drop :client, "Entities.Clients.list_name"
+        show_button :list
+      end
+      gui_vbox :nogroup do
+        show_text :tasks_done
+        show_text :summary
+      end
+    end
+  end
+  
+  def list_years
+    to = from = Time.now.year
+    Entities.Tasks.list_date{|d|
+      year = d.sub( /.*\./, '' )
+      dputs( 5 ){ "date is #{d}, year is #{year}" }
+      from = [ from, year ].min
+      to = [ to, year ].max
+    }
+    dputs( 5 ){ "from #{from} to #{to}" }
+    from.upto( to ).to_a
+  end
+  
+  def rpc_button_list( session, data )
+    dputs( 3 ){ data.inspect }
+    worker = Entities.Workers.find_full_name( data["person"][0] )
+    dputs( 3 ){ worker.inspect }
+    client = Entities.Clients.match_by_name( data["client"][0] )
+    dputs( 3 ){ client.inspect }
+    list = Tasks.list_task_month( worker, data["year"][0], data["month"][0], client)
+    dputs( 3 ){ list.inspect }
+    tasks = ""
+    hours = 0.0
+    list.sort{|a,b| a[:date] <=> b[:date] }.each{|l|
+      duration = l[:duration_hours] 
+      tasks +=  "#{l[:date]} - #{duration} hour#{ duration.to_f < 2 ? '' : 's'}\n" +
+      "#{l[:work]}\n"
+      hours += l[:duration_hours].to_f
+    }
+    price = worker.function[0] == "assistant" ? client.price_assistant : client.price_expert
+    summary = "#{data['month']} #{hours} #{( hours * price.to_i ).to_i}"
+    reply( "update", { :tasks_done => tasks, :summary => summary } )
+  end
+  
+end

data/Views/Task/Tabs.rb

@@ -0,0 +1,9 @@
+class TaskTabs < View
+  def layout
+    @visible = false
+    
+    gui_vbox :nogroup do
+      show_button :new_task
+    end
+  end
+end

data/Views/Task/Worker.rb

@@ -0,0 +1,30 @@
+class TaskWorker < View
+  include VTListPane
+  
+  def layout
+    set_data_class :Workers
+    
+    gui_hbox do
+      gui_vbox :nogroup do
+        vtlp_list :workers, "login_name"
+        show_button :delete
+      end
+      gui_vbox :nogroup do
+        #show_find :login_name
+        #show_find :person_id
+        show_block :work
+        
+        show_button :new, :save
+      end
+    end
+  end
+  
+  # Standard search-field action to take
+  def rpc_find( session, field, data )
+    rep = Entities.Persons.find( field, data )
+    if not rep
+      rep = { "#{field}" => data }
+    end
+    reply( :update, rep ) + rpc_update( session )
+  end
+end

data/Views/Template/Activity.rb

@@ -0,0 +1,33 @@
+# To change this template, choose Tools | Templates
+# and open the template in the editor.
+
+class TemplateActivity < View
+  include VTListPane
+
+  def layout
+    #set_data_class :Activities
+    @order = 200
+
+    @functions_need = [:activities]
+
+    gui_hboxg do
+      gui_vboxg :nogroup do
+        vtlp_list :activity, 'name', :flexheight => 1
+        show_button :new, :delete
+      end
+
+      gui_vboxg :nogroup do
+        show_block :default
+        show_block :show
+        show_list_drop :card_filename, 'Activities.files.sort'
+        show_field :tags
+        show_field :internet_limit
+        show_button :save
+      end
+    end
+  end
+
+  def rpc_list_choice_internetClass(session, name, args)
+    # dp name, args
+  end
+end

data/Views/Template/CourseType.rb

@@ -0,0 +1,63 @@
+# To change this template, choose Tools | Templates
+# and open the template in the editor.
+
+class TemplateCourseType < View
+  include VTListPane
+
+  def layout
+    set_data_class :CourseTypes
+    @update = :before
+    @order = 100
+
+    @functions_need = [:courses]
+
+    gui_hboxg do
+      gui_vbox :nogroup do
+        vtlp_list :ctype, 'name', :flexheight => 1
+        show_button :new, :delete
+      end
+
+      gui_vboxg do
+        gui_hboxg :nogroup do
+          gui_vboxg :nogroup do
+            show_block :strings
+            show_block :long
+            show_block :accounting
+          end
+          gui_vbox :nogroup do
+            show_block :central
+            show_list_drop :file_diploma, 'CourseTypes.files.sort', :width => 200
+            show_list_drop :file_exam, 'CourseTypes.files.sort', :width => 200
+          end
+        end
+        gui_hboxg :nogroup do
+          gui_vboxg :nogroup do
+            show_int_ro :tests_nbr
+            show_text :tests_str, :flexheight => 1, :width => 200
+          end
+          gui_vboxg :nogroup do
+            show_int_ro :files_nbr
+            show_text :files_str, :flexheight => 1, :width => 200
+          end
+        end
+        gui_vbox :nogroup do
+          show_field :account_base
+          show_arg :account_base, :width => 400
+        end
+        show_button :save
+      end
+    end
+  end
+
+  def rpc_update_view(session)
+    super(session) +
+        reply(:empty_nonlists) +
+        reply(:select, account_base: AccountRoot.actual.listp_path) +
+        reply_visible(ConfigBase.has_function?(:accounting_courses),
+                      :account_base)
+  end
+
+  def rpc_update(session)
+    reply(:update, :account_base => [0])
+  end
+end

data/Views/Template/ScheduleType.rb

@@ -0,0 +1,29 @@
+class TemplateScheduleType < View
+  #include VTListPane
+
+  def layout
+    @order=400
+    @update = true
+    @visible = false
+
+    gui_hboxg do
+      #gui_vboxg :nogroup do
+        #vtlp_list :stype, :name, :flexheight => 1
+        #show_button :new, :delete
+      #end
+      gui_vboxg :nogroup do
+        show_html :choice, :flex => 1
+        show_button :save, :render
+      end
+    end
+  end
+
+  def rpc_update(session)
+    reply(:update, :choice => ScheduleTypes.get_html) +
+        reply(:eval, ScheduleTypes.get_script)
+  end
+
+  def rpc_button_render(session, data)
+    reply(:eval, 'add_days();add_hours();')
+  end
+end

data/Views/Template/Tabs.rb

@@ -0,0 +1,5 @@
+class TemplateTabs < View
+  def layout
+    @order = 50
+  end
+end

data/Views/Welcome.rb

@@ -0,0 +1,121 @@
+class Welcome < View
+  def dummy_for_translation
+    show_str :username
+    show_str :version
+    show_str :direct_connect
+    show_str :simple_connect
+  end
+
+  # Overwrite the standard rpc_show to speed up testing...
+  def rpc_show(session)
+    # GC.start
+    web_req = session.web_req
+    client_ip = RPCQooxdooHandler.get_ip(web_req)
+    person = if get_config(false, :autologin)
+               Entities.Persons.match_by_login_name(get_config(false, :autologin))
+             else
+               nil
+             end
+    if person
+      person and dputs(3) { "Found login #{person.data.inspect}" }
+      session = get_config(false, :multilogin) ? Sessions.find_by_owner(person.person_id) : nil
+      session ||= Sessions.create(person)
+      dputs(3) { "Session is #{session.inspect}" }
+      return reply(:session_id, person.session_id) +
+          View.rpc_list(session)
+    else
+      if session.web_req && ref = session.web_req.header._referer
+        user, pass = ref.first.match(/user=(.*)&pass=(.*)/).to_a[1..2]
+        if user && pass
+          return rpc_button_direct_connect(session, {username: user, password: pass})
+        end
+      end
+      Sessions.search_by_owner('[0-9]').each { |s|
+        if s.last_seen && Time.now.to_i - s.last_seen.to_i <= 15
+          log_msg :Welcome, "Found session #{s.inspect} from ip #{s.client_ip}"
+          if s.client_ip == client_ip
+            log_msg :Welcome, "Found session #{s.inspect} with correct ip"
+            #dp person = session.owner
+            #session = Sessions.create( person )
+            return direct_connect(s)
+          end
+        end
+      }
+      super +
+          reply(:update, :version => VERSION_GESTION) +
+          reply(:update, :links => ConfigBase.welcome_text) +
+          reply_visible(ConfigBase.has_function?(:internet_captive), :direct_connect)
+    end
+  end
+
+  # On pressing of the login-button, we search for the user and check the password
+  def rpc_button_simple_connect(session, args)
+    #dputs_func
+    dputs(3) { "args is #{args.inspect}" }
+    login_name, password = args._username.gsub(/ /, '').downcase, args._password
+    person = Persons.match_by_login_name(login_name)
+    if person
+      dputs(3) { "Person is #{person.inspect} and #{person.password}" }
+    end
+    if password.to_s.length == 0 then
+      return reply(:focus, :password)
+    elsif person and person.check_pass(password) then
+      web_req = session.web_req
+      session = Sessions.create(person)
+      session.web_req = web_req
+      session.client_ip = RPCQooxdooHandler.get_ip(web_req)
+      dputs(3) { "Found login #{person.data_get(:person_id)} for #{login_name}" }
+      dputs(3) { "Session is #{session.inspect}" }
+      log_msg :Welcome, "Authenticated person #{person.login_name} from " +
+                          "#{session.client_ip}"
+      return reply(:session_id, person.session_id) +
+          View.rpc_list(session)
+    else
+      reply(:window_show, :login_failed) +
+          reply(:update, :reason => person ? 'Password wrong' : "User doesn't exist")
+    end
+  end
+
+  def direct_connect(session)
+    if !session or !session.owner
+      return reply(:window_show, :login_failed) +
+          reply(:update, :reason => 'Please enter a valid login')
+    end
+
+    if View.SelfInternet.can_connect(session) == 0
+      dputs(2) { "Auto-connecting #{session.owner.login_name}" }
+      View.SelfInternet.rpc_button_connect(session, nil)
+    end
+
+    tabs = View.list(session)._views
+
+    dputs(3) { "Tabs starts as #{tabs.inspect}" }
+    selftabs = tabs.find { |v| v.first == 'SelfTabs' }
+    tabs.delete_if { |v| v.first == 'SelfTabs' }
+    if selftabs
+      tabs.unshift selftabs
+    end
+
+    dputs(3) { "Tabs is now #{tabs.inspect}" }
+    return reply(:session_id, session.sid) +
+        reply(:list, views: tabs) +
+        (session.s_data._sub_tabs_only ? View.reply(:bar_position, 'top') : [])
+  end
+
+  def rpc_button_direct_connect(session, args)
+    ret = rpc_button_simple_connect(session, args)
+    if ret.first._cmd == :window_show
+      return ret
+    else
+      session = Sessions.find_by_sid(ret.first._data)
+      return direct_connect(session)
+    end
+  end
+
+  # On logout
+  def rpc_button_logout(session)
+    session.close
+    return super.rpc_show(session)
+  end
+
+end

data/config.yaml.default

@@ -0,0 +1,36 @@
+# Uncomment to automatically login admin
+#autologin: admin
+# Together with autologin, allows for more than one at the same time,
+# for example for chat
+#multilogin: true
+
+StorageHandler:
+  Replace:
+    LDAP: CSV
+
+StorageType:
+  CSV:
+    backup_count: 5
+
+#profiling: profile.txt
+#  duration: 30
+
+Webrick:
+#  port: 3302
+
+Views:
+#  CourseTabs:
+#    order: 0
+
+# These can come in handy for a backup-system where data of an online system
+# are tested
+Entities:
+  Share:
+#    simulation: true
+  Persons:
+#    user_simulation: true
+
+LDAPConfig:
+#  array: host, base, root, group_users, password
+#  ldapscripts: /etc/ldapscripts/ldapscripts.conf
+#  ldapsecret: /etc/ldap.secret