gestion 1.9.12

data/Entities/Activity.rb

@@ -0,0 +1,178 @@
+class Activities < Entities
+
+  PAYMENTS = %w( daily weekly monthly yearly )
+  START = %w( payment period period_overlap )
+
+  def setup_data
+    value_str :name
+
+    value_block :show
+    value_str :description
+    value_int :cost
+    value_list_drop :payment_period, 'Activities::PAYMENTS'
+    value_list_drop :start_type, 'Activities::START'
+    value_int :overlap
+
+    value_block :hidden
+    value_str :card_filename
+    value_list :tags, '%w( library internet club )'
+    value_entity_internetClass_empty_all :internet_limit, :drop, :name
+  end
+
+  def files
+    ConfigBase.templates.collect { |f| f.cut(/^.*\//) }
+  end
+
+  def tagged(*tags)
+    tags.inspect
+    Activities.search_all_.select { |a|
+      (tags - a.tags).length == 0
+    }
+  end
+
+  def tagged_users(tags, date = Date.today)
+    #dputs_func
+    tagged(tags).collect { |a|
+      aps = ActivityPayments.search_by_activity(a)
+      dputs(3) { "Found #{aps.inspect} for tag #{a}" }
+      ActivityPayments.active_now(aps, date).collect { |ap|
+        dputs(3) { "Found #{ap.inspect} active for now" }
+        ap.person_paid
+      }
+    }.flatten.uniq
+  end
+end
+
+
+class Activity < Entity
+  attr_accessor :print_card
+
+  def setup_instance
+    if card_filename != nil
+      @print_card = OpenPrint.new("#{ConfigBase.template_dir}/#{card_filename.first}")
+    end
+  end
+
+  def start_end(s, d = Date.today)
+    ActivityPayments.search_by_person_paid(s).select { |ap|
+      ap.date_start <= d && d <= ap.date_end && ap.activity == self
+    }.collect { |ap| [ap.date_start, ap.date_end] }.pop || [nil, nil]
+  end
+
+  def cost_mov
+    self._cost.to_i / 1000.0
+  end
+end
+
+class ActivityPayments < Entities
+  def setup_data
+    value_entity_activity :activity
+    value_entity_person :person_paid
+    value_entity_person :person_cashed
+    value_entity_movement :movement
+    value_date :date_start
+    value_date :date_end
+  end
+
+  def self.week_start(date)
+    date - date.cwday
+  end
+
+  def self.get_one_period(date, period, ceil = false)
+    [date,
+     case period.to_s
+       when /daily/
+         date + 1
+       when /weekly/
+         (ceil ? week_start(date) + 7 : date) + 7
+       when /monthly/
+         (ceil ? Date.new(date.year, date.month + 1) : date).next_month
+       when /yearly/
+         (ceil ? Date.new(date.year + 1) : date).next_year
+       else
+         raise("Unknown period #{period[0].to_s}!")
+         fail
+     end - 1]
+  end
+
+  # Get start and end of a period respecting overlap lesser periods before
+  def self.get_period(date, period, overlap=0)
+    case period.to_s
+      when /daily/
+        return [date - overlap, date]
+      when /weekly/
+        ceil = (date + overlap >= week_start(date) + 7)
+        start = ceil ? date : week_start(date)
+      when /monthly/
+        ceil = (date + overlap * 7 >= Date.new(date.year, date.month + 1))
+        start = ceil ? date : Date.new(date.year, date.month)
+      when /yearly/
+        ceil = (date.next_month(overlap) >= Date.new(date.year + 1))
+        start = ceil ? date : Date.new(date.year)
+    end
+    get_one_period(start, period, ceil)
+  end
+
+  def self.pay(act, p_paid, p_cashed, d_today = Date.today)
+    if !p_cashed.account_due
+      dputs(0) { "Couldn't make #{p_cashed} pay, as he doesn't have an account_due" }
+      return
+    end
+    mov = Movements.create("#{p_paid.login_name} paid #{p_cashed.login_name} #{act.cost} "+
+                               "for #{act.name}", Date.today, act.cost_mov,
+                           p_cashed.account_due, ConfigBase.account_activities)
+    date_start, date_end =
+        case act.start_type.to_s
+          when /payment/
+            get_one_period(d_today, act.payment_period)
+          when /period/, /period_overlap/
+            get_period(d_today, act.payment_period, act.overlap.to_i)
+        end
+
+    log_msg :ActivityPayments, "#{date_start} - #{date_end}: #{mov.inspect}"
+    ActivityPayments.create(activity: act, person_paid: p_paid, person_cashed: p_cashed,
+                            movement: mov, date_start: date_start, date_end: date_end)
+  end
+
+  def self.active_now(actp, d = Date.today)
+    return [] unless actp
+    actp.select { |ap|
+      ap.date_start <= d and d <= ap.date_end
+    }
+  end
+
+  def self.active_for(s, d = Date.today)
+    active_now(for_user(s), d)
+  end
+
+  def self.for_user(s)
+    s == nil and return []
+    ActivityPayments.matches_by_person_paid(s)
+  end
+end
+
+class ActivityPayment < Entity
+  def date_start
+    Date.from_db(self._date_start)
+  end
+
+  def date_end
+    Date.from_db(self._date_end)
+  end
+
+  def print
+    st = person_paid
+    date = System.run_str('LC_ALL=fr_FR.UTF-8 date +"%d %B %Y"')
+    replace = {NAME1: st.first_name, NAME2: st.family_name,
+               BDAY: st.birthday, ADDRESS: st.address, TOWN: st.town,
+               TEL: st.phone, UNAME: st.login_name, PASS: st.password_plain,
+               EMAIL: st.email, PROFESSION: st.profession, STUDY_LEVEL: st.school_grade,
+               DATE: date, PRICE: activity.cost,
+               DATE_START: date_start, DATE_END: date_end, ID: activitypayment_id}
+
+    fname = "#{st.person_id.to_s.rjust(6, '0')}-#{st.full_name.gsub(/ /, '_')}"
+    dputs(3) { "Replace is #{replace.inspect} - fname is #{fname}" }
+
+    activity.print_card.print_hash(replace, nil, fname)
+  end
+end

data/Entities/ChatMsg.rb

@@ -0,0 +1,142 @@
+class ChatMsgs < Entities
+  def setup_data
+    value_time :time
+    value_str :msg
+    value_entity_person :center
+    value_str :login
+
+    @max_msgs ||= 200
+    @static._client_times ||= {}
+    @wait_counter = 0
+    @wait_max = 5
+  end
+
+  # Pushes a message to the server and returns eventual new messages
+  # tr holds the following keys:
+  # center: hash with {login, pass} keys
+  # person: login-name of person
+  # msg: the message written
+  #
+  # It returns the results from icc_msg_pull
+  def icc_msg_push(tr)
+    return 'Error: no course_server' unless ConfigBase.has_function?(:course_server)
+    return unless tr && tr._center
+    center = Persons.check_login(tr._center._login, tr._center._pass)
+    if center && center.has_permission?(:center)
+      new_msg(tr._person, tr._msg, center)
+    else
+      return "Error: center #{center.inspect} has wrong password or is not a center"
+    end
+    icc_msg_pull(tr)
+  end
+
+  # Gets new messages since last call
+  # tr holds the following keys:
+  # center: hash with {login, pass} keys
+  def icc_msg_pull(tr)
+    return 'Error: not a server here' unless ConfigBase.has_function?(:course_server)
+    return unless tr && tr._center
+    center = Persons.check_login(tr._center._login, tr._center._pass)
+    if !center || !center.has_permission?(:center)
+      return "Error: center #{center.inspect} has wrong password or is not a center"
+    end
+    @static._client_times ||= {}
+    last_time = @static._client_times[center.login_name] || Time.new(2000, 1, 1)
+    @static._client_times[center.login_name] = Time.now
+    search_all_.
+        select { |msg| msg.time > last_time && msg.center != center }.
+        collect { |msg|
+      center = msg.center ? msg.center.login_name : Persons.master_center_login_name
+      msg.to_hash.merge(center: center)
+    }
+  end
+
+  def center_hash
+    return {} unless center = Persons.center
+    {center: {login: center.login_name, pass: center.password_plain}}
+  end
+
+  def add_remote_msg(ret)
+    dputs(3) { "Got reply #{ret.inspect}" }
+    if ret._code =~ /^error/i
+      dputs(0) { "Error #{ret._msg} while fetching chat-messages" }
+    else
+      ret._msg.each { |m|
+        dputs(2) { "Got message #{m.inspect}" }
+        new_msg("#{m._login}@#{m._center}", m._msg, nil, m._time)
+      }
+    end
+  end
+
+  def is_remote?
+    ConfigBase.has_function?(:remote_chat) &&
+        ConfigBase.server_url.to_s.length > 0 &&
+        (!ConfigBase.has_function?(:course_server))
+  end
+
+  def new_msg(person, msg, center = nil, time = Time.now)
+    create(time: time, msg: msg, center: center,
+           login: person)
+    log_msg :ChatMsgs, "#{person} from #{center ? center.login_name : 'here'} " +
+                         "says - #{msg}"
+    if @data.length > @max_msgs
+      get_data_instance(@data.keys.first).delete
+    end
+  end
+
+  def new_msg_send(person, msg)
+    if is_remote?
+      log_msg :ChatMsgs, "Sending msg from #{person} to server"
+      arg = center_hash.merge(person: person, msg: msg)
+      # As we'll get the new messages, no need to fetch them again
+      wait_counter_reset
+      (!$MobileControl || $MobileControl.is_connected) and
+          add_remote_msg(ICC.get(:ChatMsgs, :msg_push, args: arg))
+    end
+    new_msg(person, msg)
+  end
+
+  def wait_max=(max)
+    @wait_max = max
+  end
+
+  # if @wait_counter is bigger or equal to @wait_counter, it checks for
+  # new messages.
+  # That way we save precious bandwith
+  def wait_counter_add
+    is_remote? or return
+    @wait_counter += 1
+    if @wait_counter >= @wait_max &&
+        (!$MobileControl || $MobileControl.is_connected)
+      add_remote_msg(ICC.get(:ChatMsgs, :msg_pull, args: center_hash))
+      wait_counter_reset
+    end
+  end
+
+  def wait_counter_reset
+    @wait_counter = 0
+  end
+
+  def show_list(max = 100)
+    date = ''
+    search_all_.reverse[0...max].collect { |cm|
+      t = cm.time.class == Time ? cm.time : Time.parse(cm.time)
+      name = (ConfigBase.has_function?(:course_server) && cm.center) ?
+          "#{cm.login}@#{cm.center.login_name}" : "#{cm.login}"
+      d = "#{t.strftime('%Y-%m-%d')}\n"
+      if d != date
+        date = d
+      else
+        d = ''
+      end
+      "#{d}#{t.strftime('%H:%M')} - #{name}: #{cm.msg}"
+    }.join("\n")
+  end
+
+  def load
+    super
+    ChatMsgs.search_all_.each { |cm|
+      cm.time = Time.parse(cm.time)
+    }
+  end
+end

data/Entities/Classroom.rb

@@ -0,0 +1,11 @@
+# A classroom has:
+# - different courses
+# - inventory (desks, blackboard, computers)
+
+class Classrooms < Entities
+  def setup_data
+    value_str :name
+    value_int :max_students
+    value_int :computers
+  end
+end

data/Entities/Client.rb

@@ -0,0 +1,19 @@
+class Clients < Entities
+  def setup_data
+    value_block :name
+    value_str :name
+
+    value_block :address
+    value_str :addr1
+    value_str :addr2
+    value_str :country
+    
+    value_block :prices
+    value_int :price_assistant
+    value_int :price_expert
+    
+    value_block :contact
+    value_str :email
+    value_str :phone
+  end
+end

data/Entities/Computer.rb

@@ -0,0 +1,21 @@
+# A classroom has:
+# - different courses
+# - inventory (desks, blackboard, computers)
+
+class Computers < Entities
+  def setup_data
+    value_block :identity
+    value_str :name_service
+    value_entity_room_all :room, :drop, :name
+    value_str :name_place
+    
+    value_block :performance
+    value_str :brand
+    value_int :RAM_MB
+    value_int :HD_GB
+    value_int :CPU_GHz
+
+    value_block :ticket
+    value_text :comment
+  end
+end

data/Entities/ConfigBase.rb

@@ -0,0 +1,280 @@
+class ConfigBases < Entities
+  self.needs %w(Accounts)
+
+  def add_config
+    @convert_values = true
+
+    value_block :vars_narrow
+    value_list_drop :show_passwords, '%w(always lesser students never)'
+    value_list_drop :autosave, '%w(true false)'
+    value_int :autosave_timer
+    value_list_drop :samba_simul, '%w(true false)'
+    value_str :samba_config
+    value_list_drop :persons_add_del_users, '%w(true false)'
+    value_str :persons_adduser_cmd
+    value_str :persons_addeduser_cmd
+
+    value_block :vars_wide
+    value_str :server_url
+    value_str :label_url
+    value_str :html_title
+    value_str :upload_files
+    value_str :connection_status_log
+
+    value_block :templates
+    value_str :template_dir
+    value_str :diploma_dir
+    value_str :exam_dir
+    value_str :presence_sheet
+    value_str :presence_sheet_small
+    value_str :card_student
+    value_str :card_responsible
+
+    value_block :captive_conn
+    value_str :keep_idle_free
+    value_str :keep_idle_minutes
+    value_str :captive_dev
+
+    value_block :captive
+    value_str :prerouting
+    value_str :http_proxy
+    value_str :allow_dst
+    value_str :internal_ips
+    value_str :captive_dnat
+    value_str :openvpn_allow_double
+    value_str :allow_src_direct
+    value_str :allow_src_proxy
+    value_str :allow_double
+
+    value_block :operator
+    value_int :cost_base
+    value_int :cost_shared
+    value_list_drop :allow_free, '%w(false true all)'
+    value_str :phone_main
+    value_str :start_loaded
+
+    value_block :internet
+    value_entity_internetClass_empty_all :iclass_default, :drop, :name
+
+    value_block :mobilecontrol
+    value_text :connection_cmds_up
+    value_text :connection_cmds_down
+    value_str :connection_services_up
+    value_str :connection_services_down
+    value_str :connection_vpns
+
+    value_block :accounts
+    value_entity_account :account_activities, :drop, :path
+    value_entity_account :account_services, :drop, :path
+    value_entity_account :account_lending, :drop, :path
+    value_entity_account :account_cash, :drop, :path
+
+    @@functions = %w( network share network_pro
+    courses course_server course_client
+    files_manage
+    internet internet_simple internet_captive
+    internet_free_course internet_free_staff
+    internet_cyber
+    internet_mobile internet_mobile_autocharge
+    inventory accounting quiz accounting_courses accounting_old
+    plug_admin special special_vnc remote_chat
+    cashbox email usage_report activities library ).sort.to_sym
+    @@functions_base = {:network => [:internet, :share, :internet_only, :email,
+                                     :internet_mobile, :network_pro],
+                        :internet => [:internet_simple, :internet_captive,
+                                      :internet_free_course, :internet_free_staff,
+                                      :internet_mobile, :internet_cyber],
+                        :courses => [:course_server, :course_client, :accounting_courses],
+                        :accounting => [:accounting_courses, :cashbox],
+                        :cashbox => [:accounting_courses, :internet_cyber, :activities],
+                        :activities => [:library],
+                        :special => [:plug_admin, :special_vnc],
+                        :internet_mobile => [:internet_mobile_autocharge]
+    }
+    @@functions_conflict = [[:course_server, :course_client]]
+  end
+
+  def migration_10(c)
+    c.allow_free = [c.allow_free]
+    c.account_activities = c.account_services
+  end
+
+  def migration_9(c)
+    c.diploma_dir = get_config('Diplomas', :Entities, :Courses, :dir_diplomas)
+    c.template_dir = get_config('Diplomas', :Entities, :Courses, :dir_diplomas)
+    c.exam_dir = get_config('Exams', :Entities, :Courses, :dir_exas)
+    # Old installation had default directory of 'Exas'
+    File.exists?('Exas') && c.exam_dir != 'Exas' and FileUtils.mv('Exas', c.exam_dir)
+    c.presence_sheet = get_config('presence_sheet.ods',
+                                  :Entities, :Courses, :presence_sheet).to_a
+    c.presence_sheet_small = get_config('presence_sheet_small.ods',
+                                        :Entities, :Courses, :presence_sheet_small).to_a
+    c.card_student = get_config('student_card.odg', :Entities, :Persons, :student_card)
+    c.persons_adduser_cmd = get_config('', :Entities, :Persons, :adduser_cmd)
+    c.persons_addeduser_cmd = get_config('', :Entities, :Persons, :cmd_after_new)
+    c.dputs_logall = '/var/log/gestion/gestion.log'
+    c.dputs_logfile = '/var/log/gestion/events.log'
+    c.dputs_show_time = %w(min)
+    c.dputs_silent = %w(false)
+    c.dputs_terminal_width = 160
+    c.html_title = 'Gestion from Profeda'
+    c.autosave = %w(true)
+    c.autosave_timer = get_config(60, :autosave, :timer)
+    c.openprint_simul = %w(false)
+    c.openprint_search = get_config('.*', :OpenPrint, :search_remote)
+    c.upload_files = get_config('/tmp', :UploadFiles, :path)
+    c.captive_dev = ''
+    c.connection_cmds_up = "postqueue -f\n/usr/local/bin/dnsmasq-internet.sh"
+    c.connection_cmds_down = '/usr/local/bin/dnsmasq-catchall.sh'
+    c.connection_services_up = 'ntpd fetchmail'
+    c.connection_services_down = 'fetchmail'
+    c.connection_vpns = if (vpns = Dir.glob('/etc/openvpn/vpn-profeda*conf')).length > 0
+                          vpns.collect { |v| File.basename v, '.conf' }.join(' ')
+                        else
+                          nil
+                        end
+  end
+
+  def migration_8(c)
+    c.show_passwords = %w(lesser)
+  end
+
+  def migration_7(c)
+    c.replace_function(:sms_control, :internet_mobile)
+    c.replace_function(:sms_control_autocharge, :internet_mobile_autocharge)
+  end
+
+  def migration_6(c)
+    c._use_printing = c._use_printing.to_i > 0
+  end
+
+  def migration_5(c)
+    c.account_services = Accounts.get_by_path_or_create(
+        get_config('Root::Income::Services', :Accounting, :service))
+    c.account_lending = Accounts.get_by_path_or_create(
+        get_config('Root::Lending', :Accounting, :lending))
+    c.account_cash = Accounts.get_by_path_or_create(
+        get_config('Root::Cash', :Accounting, :cash))
+    #dp c
+  end
+
+  def migration_4(c)
+    if c._functions.index(:internet_libnet)
+      c._functions -= [:internet_libnet]
+      c._functions += [:internet_captive]
+    end
+    if !c.welcome_text || c.welcome_text == ''
+      c.welcome_text = get_config('', :welcome_text)
+    end
+  end
+
+  def migration_3(c)
+    c.cost_base = 0
+    c.cost_shared = 0
+    c.allow_free = 'false'
+  end
+
+  def migration_2(c)
+    c.keep_idle_free = 5
+    c.keep_idle_minutes = 3
+    c.server_url = 'icc.profeda.org'
+    c.label_url = 'label.profeda.org'
+  end
+
+  # Migration_1 is taken by QooxView-ConfigBase!
+end
+
+class ConfigBase < Entity
+  def send_config
+    save_block_to_object :captive, Network::Captive
+    Network::Captive.clean_config
+    ConfigBase.has_function?(:internet_captive) and Network::Captive.setup
+    save_block_to_object :operator, Network::Operator
+    Network::Operator.clean_config
+    if ConfigBase.samba_simul.to_s == "false"
+      if ConfigBase.has_function?(:share)
+        Platform.enable_start(:samba)
+      else
+        Platform.stop_disable(:samba)
+      end
+    end
+    if ConfigBase.has_function?(:internet_mobile)
+      start_mobile_control
+      save_block_to_object :mobilecontrol, $MobileControl
+      $MobileControl.autocharge = ConfigBase.has_function?(:internet_mobile_autocharge)
+    else
+      stop_mobile_control
+    end
+    if ConfigBase.has_function?(:accounting) && Entities.is_setup?(:Person)
+      Persons.search_by_permissions('secretary').each{|p|
+        p.update_accounts
+      }
+    end
+  end
+
+  def replace_function(old, new)
+    func = self.functions.to_sym
+    if func.index(old.to_sym)
+      func -= [old.to_sym]
+      func += [new.to_sym]
+    end
+    self.functions = func
+  end
+
+  def start_mobile_control
+    return if $MobileControl
+    dputs(1) { 'Starting mobile-control' }
+    $MobileControl = Network::MobileControl.new
+
+    @mobile_thread = Thread.new {
+      state = nil
+      loop {
+        rescue_all 'Error with MobileControl' do
+          $MobileControl.check_connection
+          if state != $MobileControl.state_to_s
+            dputs(2) { "#{Time.now.strftime('%y%m%d-%H%M')}: #{state = $MobileControl.state_to_s}" }
+          end
+          sleep 10
+        end
+      }
+    }
+  end
+
+  def stop_mobile_control
+    if @mobile_thread
+      @mobile_thread.kill
+      @mobile_thread.join
+      @mobile_thread = nil
+    end
+    $MobileControl = nil
+  end
+
+  def server_uri
+    server_url =~ /^http/ ? server_url : "http://#{server_url}"
+  end
+
+  def get_url(url)
+    if url.class == Symbol
+      url = ConfigBase.data_get(url)
+    end
+    url =~ /^https{0,1}:\/\// ? url : "http://#{url}"
+  end
+
+  def templates
+    Dir.glob("#{template_dir}/*.od?").
+        collect { |f| f.sub(/^.*\//, '') }.
+        sort
+  end
+
+  def template_path(t)
+    return '' unless template_dir && card_student && card_responsible
+    "#{template_dir}/" +
+        case t
+          when :card_student
+            card_student.first.to_s
+          when :card_responsible
+            card_responsible.first.to_s
+        end
+  end
+
+end