gestion 1.9.12

data/Gemfile.dev.lock

@@ -0,0 +1,127 @@
+PATH
+  remote: ../AfriCompta
+  specs:
+    africompta (1.9.11)
+      prawn (= 1.0.0)
+      qooxview (= 1.9.11)
+
+PATH
+  remote: ../HelperClasses
+  specs:
+    helper_classes (0.3.5)
+
+PATH
+  remote: ../HilinkModem
+  specs:
+    hilink_modem (0.3.5)
+      activesupport (~> 5.1)
+      serialport (~> 1.3)
+
+PATH
+  remote: ../Network
+  specs:
+    network (0.3.5)
+      chunky_png (= 1.3.4)
+      helper_classes (= 0.3.5)
+      hilink_modem (= 0.3.5)
+      i18n (= 0.7.0)
+      multi_json (= 1.0.3)
+      serial_modem (= 0.3.5)
+
+PATH
+  remote: ../QooxView
+  specs:
+    qooxview (1.9.11)
+      activemodel (= 5.1.0)
+      activerecord (= 5.1.0)
+      activesupport (= 5.1.0)
+      arel (= 8.0)
+      chunky_png (= 1.3.4)
+      docsplit (= 0.7.6)
+      gettext (= 3.0.0)
+      helper_classes (= 0.3.5)
+      i18n (= 0.7.0)
+      iconv (= 1.0.3)
+      iniparse (= 1.4.0)
+      json (= 2.1.0)
+      locale (= 2.0.8)
+      multi_json (= 1.0.3)
+      net-ldap (= 0.16)
+      rqrcode (= 0.4.2)
+      rqrcode-with-patches (= 0.5.4)
+      rubyzip (= 1.1.7)
+      serialport (= 1.3.1)
+      sqlite3 (= 1.3.10)
+      test-unit (= 3.2.3)
+      text (= 1.2.3)
+
+PATH
+  remote: ../SerialModem
+  specs:
+    serial_modem (0.3.5)
+      serialport (= 1.3.1)
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    activemodel (5.1.0)
+      activesupport (= 5.1.0)
+    activerecord (5.1.0)
+      activemodel (= 5.1.0)
+      activesupport (= 5.1.0)
+      arel (~> 8.0)
+    activesupport (5.1.0)
+      concurrent-ruby (~> 1.0, >= 1.0.2)
+      i18n (~> 0.7)
+      minitest (~> 5.1)
+      tzinfo (~> 1.1)
+    arel (8.0.0)
+    chunky_png (1.3.4)
+    concurrent-ruby (1.0.5)
+    docsplit (0.7.6)
+    gettext (3.0.0)
+      locale (>= 2.0.5)
+      text
+    i18n (0.7.0)
+    iconv (1.0.3)
+    iniparse (1.4.0)
+    json (2.1.0)
+    locale (2.0.8)
+    minitest (5.10.2)
+    multi_json (1.0.3)
+    net-ldap (0.16.0)
+    pdf-core (0.2.2)
+    power_assert (1.0.2)
+    prawn (1.0.0)
+      pdf-core (~> 0.2.2)
+      ttfunk (~> 1.1.1)
+    rqrcode (0.4.2)
+    rqrcode-with-patches (0.5.4)
+      chunky_png
+    rubyzip (1.1.7)
+    serialport (1.3.1)
+    sqlite3 (1.3.10)
+    test-unit (3.2.3)
+      power_assert
+    text (1.2.3)
+    thread_safe (0.3.6)
+    ttfunk (1.1.1)
+    tzinfo (1.2.3)
+      thread_safe (~> 0.1)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  africompta!
+  helper_classes!
+  hilink_modem!
+  network!
+  pdf-core (= 0.2.2)
+  prawn (= 1.0.0)
+  qooxview!
+  serial_modem!
+  ttfunk (= 1.1.1)
+
+BUNDLED WITH
+   1.15.0

data/Gemfile.lock

@@ -0,0 +1,127 @@
+PATH
+  remote: ../AfriCompta
+  specs:
+    africompta (1.9.11)
+      prawn (= 1.0.0)
+      qooxview (= 1.9.11)
+
+PATH
+  remote: ../HelperClasses
+  specs:
+    helper_classes (0.3.5)
+
+PATH
+  remote: ../HilinkModem
+  specs:
+    hilink_modem (0.3.5)
+      activesupport (~> 5.1)
+      serialport (~> 1.3)
+
+PATH
+  remote: ../Network
+  specs:
+    network (0.3.5)
+      chunky_png (= 1.3.4)
+      helper_classes (= 0.3.5)
+      hilink_modem (= 0.3.5)
+      i18n (= 0.7.0)
+      multi_json (= 1.0.3)
+      serial_modem (= 0.3.5)
+
+PATH
+  remote: ../QooxView
+  specs:
+    qooxview (1.9.11)
+      activemodel (= 5.1.0)
+      activerecord (= 5.1.0)
+      activesupport (= 5.1.0)
+      arel (= 8.0)
+      chunky_png (= 1.3.4)
+      docsplit (= 0.7.6)
+      gettext (= 3.0.0)
+      helper_classes (= 0.3.5)
+      i18n (= 0.7.0)
+      iconv (= 1.0.3)
+      iniparse (= 1.4.0)
+      json (= 2.1.0)
+      locale (= 2.0.8)
+      multi_json (= 1.0.3)
+      net-ldap (= 0.16)
+      rqrcode (= 0.4.2)
+      rqrcode-with-patches (= 0.5.4)
+      rubyzip (= 1.1.7)
+      serialport (= 1.3.1)
+      sqlite3 (= 1.3.10)
+      test-unit (= 3.2.3)
+      text (= 1.2.3)
+
+PATH
+  remote: ../SerialModem
+  specs:
+    serial_modem (0.3.5)
+      serialport (= 1.3.1)
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    activemodel (5.1.0)
+      activesupport (= 5.1.0)
+    activerecord (5.1.0)
+      activemodel (= 5.1.0)
+      activesupport (= 5.1.0)
+      arel (~> 8.0)
+    activesupport (5.1.0)
+      concurrent-ruby (~> 1.0, >= 1.0.2)
+      i18n (~> 0.7)
+      minitest (~> 5.1)
+      tzinfo (~> 1.1)
+    arel (8.0.0)
+    chunky_png (1.3.4)
+    concurrent-ruby (1.0.5)
+    docsplit (0.7.6)
+    gettext (3.0.0)
+      locale (>= 2.0.5)
+      text
+    i18n (0.7.0)
+    iconv (1.0.3)
+    iniparse (1.4.0)
+    json (2.1.0)
+    locale (2.0.8)
+    minitest (5.10.2)
+    multi_json (1.0.3)
+    net-ldap (0.16.0)
+    pdf-core (0.2.2)
+    power_assert (1.0.2)
+    prawn (1.0.0)
+      pdf-core (~> 0.2.2)
+      ttfunk (~> 1.1.1)
+    rqrcode (0.4.2)
+    rqrcode-with-patches (0.5.4)
+      chunky_png
+    rubyzip (1.1.7)
+    serialport (1.3.1)
+    sqlite3 (1.3.10)
+    test-unit (3.2.3)
+      power_assert
+    text (1.2.3)
+    thread_safe (0.3.6)
+    ttfunk (1.1.1)
+    tzinfo (1.2.3)
+      thread_safe (~> 0.1)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  africompta!
+  helper_classes!
+  hilink_modem!
+  network!
+  pdf-core (= 0.2.2)
+  prawn (= 1.0.0)
+  qooxview!
+  serial_modem!
+  ttfunk (= 1.1.1)
+
+BUNDLED WITH
+   1.15.0

data/Gemfile.prod

@@ -0,0 +1,8 @@
+source 'https://rubygems.org'
+
+gem 'qooxview', git: 'https://github.com/ineiti/QooxView'
+gem 'africompta', git: 'https://github.com/ineiti/AfriCompta'
+gem 'network', git: 'https://github.com/ineiti/Network'
+gem 'helper_classes', git: 'https://github.com/ineiti/HelperClasses'
+gem 'hilink_modem', git: 'https://github.com/ineiti/HilinkModem'
+gem 'serial_modem', git: 'https://github.com/ineiti/SerialModem'

data/Gestion

@@ -0,0 +1,35 @@
+#!/bin/bash
+
+WDIR=$( dirname ${BASH_SOURCE[0]} )
+cd $WDIR
+if [ "$1" = "update" ]; then
+  Binaries/gestion_update.rb
+  exit
+fi
+
+echo ""
+mkdir -p Backups
+if [ "$( which ruby )" ]; then
+  if [ ! -f /etc/gestion.conf ]; then
+    if [ "$( whoami )" = "root" ]; then
+      echo "Copying gestion.conf to /etc - please edit to your needs"
+      BASE=$( pwd | sed -e "s/.Gestion$//" )
+      sed -e "s:.opt.profeda:$BASE:" gestion.conf > /etc/gestion.conf
+    else
+      echo "Not started as root, doing nothing"
+    fi
+  fi
+  if [ ! -e Diplomas ]; then
+    cp -a Diplomas.src Diplomas
+  fi
+  if [ -f dorestore ]; then
+    RESTORE=restore_$( date +%Y-%m-%d_%H.%M.%S )
+    for d in data config.yaml Exas Diplomas*; do
+      mv $d $RESTORE
+    done
+    tar xf Backups/$( cat dorestore )
+    rm dorestore
+  fi
+  ./Gestion.rb $@
+fi
+echo

data/Gestion.rb

@@ -0,0 +1,220 @@
+#!/usr/bin/env ruby
+# encoding: UTF-8
+
+if ARGV == %w(-p)
+  DEBUG_LVL = 0
+else
+  DEBUG_LVL = 2
+end
+
+require 'bundler/setup'
+require 'helper_classes'
+include HelperClasses
+include System
+$LOAD_PATH.push __dir__
+
+Encoding.default_external = Encoding::UTF_8
+
+# Gestion - a frontend for different modules developed in Markas-al-Nour
+# N'Djaména, Tchad.
+
+VERSION_GESTION='1.9.13' +
+    (File.exists?('Gestion.pkgrel') ? '-' + IO.read('Gestion.pkgrel') : '')
+require 'fileutils'
+
+GESTION_DIR=File.dirname(__FILE__)
+$config_file='config.yaml'
+if not FileTest.exists? $config_file
+  puts "Config-file doesn't exist, copying a standard one"
+  FileUtils.cp 'config.yaml.default', 'config.yaml'
+end
+
+begin
+  require 'qooxview'
+  require 'africompta'
+  #ACQooxView.load_entities(false)
+  %w( Modules Paths ).each { |dir|
+    Dir.glob("#{dir}/*").each { |d| require d }
+  }
+rescue Exception => e
+  puts "#{e.inspect}"
+  puts "#{e.to_s}"
+  puts e.backtrace
+  exit
+end
+
+begin
+  # Our default-permission is to only login!
+  Permission.add('default', ',Welcome,SelfShow')
+  Permission.add('quiz', 'SelfChat,SelfConcours,SelfResults', '')
+  Permission.add('internet', 'SelfInternet,SelfChat', 'default')
+  Permission.add('student', '', 'internet')
+  Permission.add('librarian', 'LibraryPerson,FlagInternetFree', 'student')
+  Permission.add('assistant', 'TaskEdit,FlagInternetFree', 'student')
+  Permission.add('teacher', 'CourseGrade,PersonModify,NetworkRestriction,CoursePrint,' +
+                              'FlagResponsible', 'assistant')
+  Permission.add('center_director', '', 'center')
+  Permission.add('secretary', 'CourseModify,FlagPersonAdd,FlagPersonDelete,' +
+                                'PersonModify,CourseDiploma,FlagCourseGradeAll,Cashbox.*,' +
+                                'FlagAddInternet,CourseStats,CoursePrint,' +
+                                'CourseStudents,PersonCourse', 'assistant,cybermanager')
+  Permission.add('accounting', 'ComptaTransfer,FlagAccounting,' +
+                                 'ComptaReport,ComptaShow,ComptaEdit.*,Cashbox.*,Report.*,' +
+                                 'ComptaCheck', 'secretary')
+  Permission.add('maintenance', 'Inventory.*,AdminBackup,AdminPower,AdminFiles.*', 'default')
+  Permission.add('cybermanager', 'CashboxCredit,FlagAddInternet,' +
+                                   'FlagPersonAdd,CashboxService,InternetMobile,' +
+                                    'CashboxActivity', '')
+  Permission.add('manager', 'Template.*,Internet.*',
+                              'director')
+  Permission.add('director', 'FlagAdminCourse,FlagAdminPerson,' +
+                               'PersonAdmin,PersonCourse,InternetConnection,CourseStats,Report.*,' +
+                 'secretary,cybermanager,teacher')
+  Permission.add('center', 'CourseModify,FlagAdminCourse,CourseGrade,' +
+                             'FlagPersonAdd,FlagPersonDelete,PersonModify,CourseDiploma,' +
+                             'FlagRemoteCourse,SelfShow,SelfChat,FlagAdminPerson,' +
+                             'PersonCenter,FlagDeletePerson', '')
+  Permission.add('admin', '.*', '.*')
+  Permission.add('email', 'SelfEmail', '')
+
+  QooxView::init('Entities', 'Views')
+
+  # Look for admin, create if it doesn't exist
+  admin = Entities.Persons.match_by_login_name('admin')
+  if not admin
+    dputs(1) { 'OK, creating admin' }
+    admin = Entities.Persons.create(:login_name => 'admin', :password => 'super123', :permissions => ["admin"],
+                                    :internet_credit => '100')
+  else
+    admin.permissions = ['admin'];
+  end
+
+rescue Exception => e
+  case e.to_s
+    when /UpdatePot|MakeMo|PrintHelp|value_entity_uncomplete/
+    else
+      puts e.inspect
+      puts e.backtrace
+      dputs(0) { "Error: Couldn't load things!" }
+      dputs(0) { "#{e.inspect}" }
+      dputs(0) { "#{e.to_s}" }
+      puts e.backtrace
+  end
+  exit
+end
+
+webrick_port = get_config(3302, :Webrick, :port)
+dputs(2) { "Starting at port #{webrick_port}" }
+
+$profiling = get_config(nil, :profiling)
+if $profiling
+  dputs(1) { 'Starting Profiling' }
+  require 'rubygems'
+  require 'perftools'
+  PerfTools::CpuProfiler.start("/tmp/#{$profiling}") do
+    QooxView::startWeb webrick_port, get_config(30, :profiling, :duration)
+    dputs(1) { 'Finished profiling' }
+  end
+
+  if $profiling
+    puts "Now run the following:
+pprof.rb --pdf /tmp/#{$profiling} > /tmp/#{$profiling}.pdf
+open /tmp/#{$profiling}.pdf
+CPUPROFILE_FREQUENCY=500
+    "
+  end
+else
+  # Autosave every 2 minutes
+  if ConfigBase.autosave == %w(true)
+    dputs(1) { 'Starting autosave' }
+    $autosave = Thread.new {
+      loop {
+        sleep ConfigBase.autosave_timer.to_i
+        rescue_all "Error: couldn't save all" do
+          Entities.save_all
+        end
+      }
+    }
+  end
+
+  # Initialize network and listen for new devices
+  if ConfigBase.has_function? :network
+    if !get_config(false, :Simulation)
+      Network::Device.start
+    end
+  end
+
+  # Start up internet-handling (traffic and credit)
+  if ConfigBase.has_function? :internet
+    dputs(1) { 'Starting internet' }
+    Internet.setup
+    $internet = Thread.new {
+      loop {
+        rescue_all "Couldn't take internet-money" do
+          # Simple debug-routine to make it faster to test
+          if false
+            dputs(0) { 'Internet-sleep is on 5!' }
+            sleep 5
+            Internet.update_traffic
+          else
+            (1..6).each {
+              sleep 10
+              Internet.update_traffic
+            }
+          end
+          Internet.take_money
+        end
+      }
+    }
+  end
+
+  # Shows time every minute in the logs
+  if get_config(false, :showTime)
+    dputs(1) { 'Showing time' }
+    $show_time = Thread.new {
+      loop {
+        sleep 60
+        dputs(1) { 'It is now: ' + Time.now.strftime('%Y-%m-%d %H:%M') }
+      }
+    }
+  end
+
+  # Trying to debug mysterious slowdown
+  if false
+    $test_hash = {a: 1, b: 2, c: 3}
+    $test_hash_big = (1..100).collect { |i| ["value#{i}", i] }.to_h
+    $show_time = Thread.new {
+      loop {
+        Timing.measure('Small hash') { $test_hash._a }
+        Timing.measure('Big hash') { $test_hash_big['value50'] }
+        Timing.measure('Big method_missing') { $test_hash_big._value50 }
+        sleep 10
+      }
+    }
+  end
+
+  # Catch SIGINT signal so we can save everything before quitting
+  trap('SIGINT') {
+    throw :ctrl_c
+  }
+
+  # Finally start QooxView
+  catch :ctrl_c do
+    rescue_all 'Error: QooxView aborted' do
+      log_msg :main, "Started Gestion on port #{webrick_port}"
+      images_path = File.join(File.expand_path(File.dirname(__FILE__)), 'Images')
+      RPCQooxdooHandler.add_file_path(:Images, images_path)
+      QooxView::startWeb webrick_port
+    end
+  end
+
+  # Clean up all threads
+  if get_config(true, :autosave)
+    $autosave.kill
+  end
+  $internet and $internet.kill
+  $show_time and $show_time.kill
+
+  # And finally save all before quitting
+  Entities.save_all
+end

data/INSTALL

@@ -0,0 +1,40 @@
+This package depends on QooxView, AfriCompta and LibNet. There should be a 
+directory holding all directories:
+
+# ls
+QooxView  Gestion  AfriCompta  LibNet
+
+
+# Gestion/Gestion
+
+This will try to download all missing packets (down to ruby).
+
+Short, it will do about:
+
+# sudo apt-get install ruby rubygems libreoffice pdftk psutils sqlite \
+# libsqlite3-dev default-jdk gettext
+
+And then it will compile sqlite3-support, so a gcc-compiler should be present. 
+A standard Lubuntu, LinuxMint or Debian-Squeezy installation seem to run 
+it well.
+
+Once it's running, you can point your browser to
+
+http://localhost:3302
+
+and log in using admin/super123
+
+======== Further installation
+
+If you want to use it more thoroughly, I propose you go into
+
+LibNet/tools
+
+and run ./install there. This will copy some links around the system.
+
+
+======== Slowness on connection
+
+if the system reacts very slowly whenever there is a connection, check that the
+DNS-server doesn't send out private reverse-requests (--bogus-priv on dnsmasq) and
+also some other requests (--filterwin2k on dnsmasq)

data/Paths/Exas.rb

@@ -0,0 +1,13 @@
+class Exas < RPCQooxdooPath
+  def self.parse_req_res(req, res)
+    dputs(4) { "Exas: #{req.inspect}" }
+    path, query, addr = req.path, req.query.to_sym, RPCQooxdooHandler.get_ip(req)
+    if req.request_method == 'GET'
+      filename = RPCQooxdooPath.sanitize(path.sub(/^.[^\/]*./, ''))
+      res['content-type'] = 'data/binary'
+      dputs(4) { "Request is #{req.inspect}" }
+      dputs(3) { "filename is #{filename} - content-type is #{res['content-type']}" }
+      return IO.read("#{Courses.dir_exams}/#{filename}")
+    end
+  end
+end

data/Paths/Files.rb

@@ -0,0 +1,19 @@
+
+class Files < RPCQooxdooPath
+  def self.parse_req_res( req, res )
+    dputs( 4 ){ "Files: #{req.inspect}" }
+    path, query, addr = req.path, req.query.to_sym, RPCQooxdooHandler.get_ip( req )
+    if req.request_method == 'GET'
+      filename = RPCQooxdooPath.sanitize(path.sub( /^.[^\/]*./, '' ))
+      res['content-type'] = case filename
+      when /js$/i
+        'text/javascript'
+      when /html$/i
+        'text/html'
+      end
+      dputs(4){"Request is #{req.inspect}" }
+      dputs(3){"filename is #{filename} - content-type is #{res['content-type']}" }
+      return IO.read( 'Files/' + filename )
+    end
+  end
+end

data/Paths/GetDiplomas.rb

@@ -0,0 +1,20 @@
+
+class GetDiplomas < RPCQooxdooPath
+  def self.parse_req_res( req, res )
+    dputs( 4 ){ "GetDiplomas: #{req.inspect}" }
+    path, query, addr = req.path, req.query.to_sym, RPCQooxdooHandler.get_ip( req )
+    if req.request_method == 'GET'
+      filename = RPCQooxdooPath.sanitize(path.sub( /^.[^\/]*./, '' ))
+      res['content-type'] = case filename
+      when /pdf$/i
+        'application/pdf'
+      when /png$/i
+        'image/png'
+      end
+      dputs(4){"Request is #{req.inspect}" }
+      dputs(3){"filename is #{filename} - content-type is #{res['content-type']}" }
+      return IO.read( Courses.dir_diplomas + '/' + filename ).
+        force_encoding('ASCII-8BIT')
+    end
+  end
+end