gestion 1.9.12

data/Test/ge_usage.rb

@@ -0,0 +1,168 @@
+require 'test/unit'
+require 'benchmark'
+
+class TC_Usage < Test::Unit::TestCase
+
+  def setup
+    Entities.delete_all_data()
+  end
+
+  def teardown
+
+  end
+
+  def new_usage(name, dir, glob, filter)
+    Usages.create(:name => name, :file_dir => dir,
+                  :file_glob => glob, :file_filter => filter)
+  end
+
+  def test_none
+    dp "Usage is missing the 'reports/'-directory"
+  end
+
+  def tes_usage
+    grep = "g\\.html HTTP\n"
+    fname = "fname::.*?([0-9\\.]{7,15}).*\n"
+    name = '192.168.99.146'
+    fdate = "fdate::.*\\[(.*)\\].*::%d/%b/%Y:%H:%M:%S\n"
+    time = Time.strptime('2014-09-05 20:49:02 +0100',
+                         '%Y-%m-%d %H:%M:%S')
+    felement = "felement::.*GET.*wiki.(.*) HTTP.*\n"
+    element = 'Portal%253AContents/Portals.html'
+
+    f_name_element = "fname,element::.*?([0-9\\.]{7,15}).*.*GET.*wiki.(.*) HTTP.*\n"
+
+    u1 = new_usage('wiki', 'reports', 'test.log', grep + fname)
+    assert_equal({name: name}, u1.filter_files.first)
+
+    u1.file_filter = grep + fdate
+    assert_equal({date: time}, u1.filter_files.first)
+
+    u1.file_filter = grep + felement
+    assert_equal({element: element}, u1.filter_files.first)
+
+    u1.file_filter = grep + fname + felement
+    assert_equal({name: name, element: element}, u1.filter_files.first)
+
+    u1.file_filter = grep + f_name_element
+    assert_equal({name: name, element: element}, u1.filter_files.first)
+  end
+
+  def tes_filter_line
+    logline = 'wiki.profeda.org is the URL'
+    logurl = 'wiki.profeda.org'
+    assert_equal logurl,
+                 Usage.filter_line(logline, 's/ .*//')
+
+    assert_nil Usage.filter_line(logline, 'ghtml')
+    assert_not_nil Usage.filter_line(logline, 'gwiki')
+
+    assert_nil Usage.filter_line(logline, 'vwiki')
+    assert_not_nil Usage.filter_line(logline, 'vhtml')
+
+    assert_nil Usage.filter_line(logline, 'gis The')
+    assert_not_nil Usage.filter_line(logline, 'gis the')
+  end
+
+  def tes_filter_field
+    name = 'foo'
+    assert_equal({},
+                 Usage.filter_field("name is - #{name}",
+                                    'name', '.*:(.*)'))
+
+    name = 'foo'
+    assert_equal({name: name},
+                 Usage.filter_field("name is - #{name}",
+                                    'name', '.*- (.*)'))
+    date = Date.today
+    assert_equal({date: date.to_time},
+                 Usage.filter_field("Date is - #{date.strftime('%Y%M%D')}",
+                                    'date', '.*- (.*)', '%Y%M%D'))
+
+    element = 'one two three'
+    assert_equal({element: element},
+                 Usage.filter_field("These are my elements - #{element}",
+                                    'element', '.*- (.*)'))
+
+    assert_equal({element: element, name: name},
+                 Usage.filter_field("#{name}:#{element}",
+                                    'name,element', '(.*):(.*)'))
+
+  end
+
+  def tes_speed
+    #dputs_func
+
+    results = ''
+    dputs(1) { 'Benchmarking different search strategies' }
+    dputs(1) { '   total   description' }
+    dputs(1) { Benchmark.measure('finding with grep') {
+      results = System.run_str("grep 'GET /Files' reports/report_long")
+      assert_equal 31, results.split("\n").count
+    }.format('%t  %n') }
+
+    dputs(1) { Benchmark.measure('finding with grep') {
+      results = System.run_str("grep 'GET /Files' reports/report_long")
+      assert_equal 31, results.split("\n").count
+    }.format('%t  %n') }
+
+    results = []
+    dputs(1) { Benchmark.measure('Searching with =~') {
+      File.open('reports/report_long', 'r') { |f|
+        f.readlines.each { |l|
+          results.push l if l =~ /GET \/Files/
+        }
+      }
+      assert_equal 31, results.length
+    }.format('%t  %n') }
+
+    results = []
+    dputs(1) { Benchmark.measure('Searching with =~ and variable') {
+      File.open('reports/report_long', 'r') { |f|
+        term = /GET \/Files/
+        f.readlines.each { |l|
+          results.push l if l =~ term
+        }
+      }
+      assert_equal 31, results.length
+    }.format('%t  %n') }
+
+    results = []
+    grep = 'gGET /Files'
+    dputs(1) { Benchmark.measure('Searching with =~ in case') {
+      File.open('reports/report_long', 'r') { |f|
+        f.readlines.each { |l|
+          case grep
+            when /^g/
+              results.push l if l =~ /GET \/Files/
+          end
+        }
+      }
+      assert_equal 31, results.length
+    }.format('%t  %n') }
+
+    results = []
+    dputs(1) { Benchmark.measure('Searching with index') {
+      File.open('reports/report_long', 'r') { |f|
+        f.readlines.each { |l|
+          results.push l if l.index('GET /Files')
+        }
+      }
+      assert_equal 31, results.length
+    }.format('%t  %n') }
+
+    results = []
+    u = Usages.create( name: 'test', file_dir: 'reports', file_glob: 'report_long',
+                       file_filter: "gGET /Files\nfname::(.*)")
+    dputs(1) { Benchmark.measure('Searching with Usages') {
+      results = u.filter_file( 'reports/report_long')
+      assert_equal 31, results.length
+    }.format('%t  %n') }
+
+    results = []
+    dputs(1) { Benchmark.measure('Searching with Usages a gzip-file') {
+      results = u.filter_file( 'reports/report_long.gz')
+      assert_equal 31, results.length
+    }.format('%t  %n') }
+  end
+end

data/Test/ge_view.rb

@@ -0,0 +1,46 @@
+require 'test/unit'
+
+class TC_View < Test::Unit::TestCase
+
+  def setup
+    Entities.delete_all_data()
+    @admin = Entities.Persons.create(:login_name => 'admin', :password => 'super123',
+                                     :permissions => ['default'])
+    @foo = Entities.Persons.create(:login_name => 'foo', :password => 'bar',
+                                     :permissions => %w(default internet admin))
+  end
+
+  def teardown
+
+  end
+
+  def get_reply(service, method, session, arguments = [])
+    #dp RPCQooxdooService::services
+    s = RPCQooxdooService::services["View.#{service}"]
+    m = "rpc_#{method}"
+    parsed = s.parse_request(m, session, arguments)
+    s.parse_reply(m, session, parsed)
+  end
+
+  def test_speed_login
+    Struct.new('Webreq', :header, :peeraddr)
+    (1..200).each { |i|
+      Timing.measure("Measure #{i}", 3) {
+        session = Sessions.create
+        session.web_req = Struct::Webreq.new({host: 'nil'}, [0, 0, 0, '192.168.1.1'])
+        ret = get_reply(:Welcome, :button, session,
+                        ['simple_connect', {'username' => 'foo', 'password' => 'bar'}])
+        session = Sessions.match_by_sid(ret[0]._data)
+        get_reply(:SelfTabs, :show, session, [])
+        get_reply(:SelfTabs, :list_tabs, session, [])
+        get_reply(:SelfInternet, :show, session, [])
+        get_reply(:PersonTabs, :show, session)
+        get_reply(:PersonTabs, :list_tabs, session)
+        get_reply(:PersonModify, :show, session)
+        if i % 10 == 0
+          Entities.save_all
+        end
+      }
+    }
+  end
+end

data/Test/multiconf-captive

@@ -0,0 +1,29 @@
+#!/bin/bash
+
+# Example of a captive-configuration
+
+# The ISP - for the moment we have Prestabist, Tigo and Simul(ation)
+ISP=simul
+
+ISP_FILE=$( dirname $BASH_SOURCE )/multiconf-captive-$ISP
+if [ -f $ISP_FILE ]; then
+  . $ISP_FILE
+fi
+
+# The table where to attache the captive - has to be linked with PREROUTING
+#PREROUTING=PREROUTING
+
+# Where the HTTP-proxy resides - this has to be a transparent proxy
+#HTTP_PROXY=192.168.1.1:3128
+
+# Destinations to allow always
+#ALLOW_DST=""
+
+# Override internal IP detection
+#INTERNAL_IPS=""
+
+# Set to space to disallow DHCP-requests - if empty, will allow anyway
+#ALLOW_DHCP=" "
+
+# Where to redirect the packets for non-authenticated users
+#CAPTIVE_DNAT=""

data/Test/test.conf

@@ -0,0 +1,7 @@
+# Configuration-file for Gestion
+# This gives the basic configuration
+
+# Where the programm is installed
+BASE=/opt/gestion
+DATA_DIR=.
+

data/Test/test.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/env ruby
+require 'bundler/setup'
+require 'test/unit'
+require 'fileutils'
+FileUtils.rm_rf Dir.glob('data*')
+
+$config_file='config_test.yaml'
+DEBUG_LVL=0
+
+require 'qooxview'
+require 'network'
+require 'africompta'
+#ACQooxView.load_entities
+
+def permissions_init
+  Permission.clear
+  Permission.add('default', 'View,Welcome')
+  Permission.add('admin', '.*', '.*')
+  Permission.add('internet', 'Internet,PersonShow', 'default')
+  Permission.add('student', '', 'internet')
+  Permission.add('teacher', 'FlagResponsible', 'student')
+  Permission.add('secretary', 'PersonModify,FlagAddInternet,CashboxCredit',
+                 'teacher')
+  Permission.add('accountant', 'FlagAccounting')
+  Permission.add('center', 'FlagAddCenter', 'teacher')
+  Permission.add('director', 'FlagAddCenter', 'teacher')
+end
+
+permissions_init
+
+dir = File.expand_path('..', __dir__)
+QooxView.init("#{dir}/Entities", "#{dir}/Views")
+
+tests = Dir.glob('ge_*.rb')
+# tests = %w( activity )
+#tests = %w( compta )
+# tests = %w( internet )
+# tests = %w( usage )
+# tests = %w( configbase )
+
+$LOAD_PATH.push '.'
+tests.each { |t|
+  begin
+    require "ge_#{t}"
+  rescue LoadError => e
+    dputs(1){"Found error #{e}"}
+    require t
+  end
+}

data/VERSION

@@ -0,0 +1,140 @@
+Important notices for versions:
+
+- 150514: 1.9.9
+  - now using bundler to put everything into place
+
+- 150331: 1.9.6
+  - made more granularity in internet-functions, check what you need!
+
+- 150313: 1.9.5
+  - lots of bug-fixes
+  - added update and first version with pacman-support!
+
+- 150203: 1.9.4
+  - better account-updates with much fewer traffic to AfriCompta
+  - use tables and naming in Course::Grades
+
+- 150122: 1.9.3
+  - lots of work on Network-part with regard to USB-keys
+
+- 150109: 1.9.2
+  - small improvements with regard to accounts and reports
+
+- 141219: 1.9.1
+  - Added ComptaCheck and different fixes for account-setup for new installations
+
+- 141210: 1.9.0
+  - changed accounts for Persons ! Might break !
+
+- 141204: 1.8.4
+  - better handling of lots of the Airtel-implementation
+
+- 141126: 1.8.3
+  - first more or less usable Airtel-implementation
+  - fixed QooxView::Storages::CSV - again
+
+- 141113: 1.8.2
+  - much better integration of serialmodems
+  - correctly using network::captive
+
+- 141031: 1.8.1
+  - Saving-error in QooxView::Storages::CSV - again. Looking forward to migrate to
+    ActiveRecord one day - cleaned up the data/-directory, should be more nice now.
+
+- 141023: 1.8.0
+  - Good-bye LibNet. It's been nice, but complicated. Hello to Network! You still have
+    a lot to learn...
+
+- 141014: 1.7.0
+  - added librarian
+  - added activities
+  - synchronisation of exams
+  - _id of 0 should not be used anymore! Unfortunately this is difficult to
+   update... Migrate with vi/sed
+
+- 140830: 1.5.3
+  - reworked synchronisation of exams when only some changed
+  - BIG BAD SAVE BUG!
+
+- 140428: 1.4.3
+  - Important update due to bad reworking of reply( :update, ... )
+
+- 140402: 1.4.0
+  - Working Cashbox-theme
+  - Replaced Config::Acounting::Courses by entry in CourseType
+
+- 140319: 1.3.7
+  - Started to move stuff out of config.yaml and into ConfigBase:
+    - libnet_uri
+    - debug_lvl
+    - internet_cash
+    - locale_force
+    - version_local
+    - welcome_text
+
+- 140303: 1.3.6
+  - Changes in config.yaml - :log and :terminal_width moved under :DPuts
+
+- 131028: 1.2.2-alpha
+  - Changes in QooxView: needs to run Config/install, for different docsplit-libs
+
+- 130819: 1.1.15
+  - changes in LibNet: now you need to compile a small tool "msgtool", so that
+   the ruby-part and the bash-part can communicate
+
+- 130627: 1.1.11
+  - changes of names in templates for diplomas:
+    - MENTION -> GRADE
+  - fiche_presence.ods is defined now in Config::Entities:Courses:presence_sheet and
+    presence_sheet_small
+  - carte_etudiant.odg is defined now in Config::Entities:Persons:student_card
+  - views are chosen according to AdminFunction
+  - Config::OpenPrint:search_remote defaults to "none"
+  - Config::Courses:* are moved to Config::Entities:Courses
+  - Renamed in Config::Courses
+    - diploma_dir -> dir_diplomas
+    - exas_dir -> dir_exas
+    - exas_share -> dir_exas_share
+  - All config-variables are 
+    - CamelCased and start with a capital for the categories
+    - start with a lowercase and are seperated with "_" for the values
+  - PersonAdd and CourseAdd have been moved to a button, the views-admins have
+    been moved to FlagAdminPerson (add and delete), FlagAdminCourse (add and delete)
+
+- 130425: 1.0.3
+  - config-vars
+    DiplomaDir -> Courses::DiplomaDir
+    -- -> Courses::ExaDir
+
+- 130420: 1.0.2
+  - Different changes to LibNet/multiconf-*, verify that all is OK
+
+- 130401: 1.0.0
+  - Made the jump to a 1.0.0-version
+
+- 130323: 0.9.6
+  - Added Network-access-control and Samba-shares
+  - LibNet/Tools-directory with lots of useful files
+
+- 130221: 0.9.4
+  - Renaming of some config-vars:
+    - compta_due::src,dst -> 
+      Accounting::Lending - where the secretaries write how much they owe
+      Accounting::Service - where the center sees how much came in
+      Accounting::Cash - where the accountant stores its cash
+
+- 121210: 0.9.2
+  - Renaming of some views:
+    AdminAccess / Admin/ControlAccess -> AdminRestriction / Admin/Restriction
+    AdminInternet / Admin/InternetSimple -> ../ Admin/Internet
+    AdminTigo / Admin/InternetTigo -> .. / Admin/Tigo
+    InventoryComputers / Inventory/Computers -> InventoryComputer / Inventory/Computer
+    InventoryRoom / Inventory/Rooms -> .. / Inventory/Room
+
+- 121101: 0.9.1
+  - version at AlTatawwur
+
+- 120928: 
+  - base_gestion needs to have all items inbetween "-" instead of "_"
+  - base_gestion now takes -DESC1- and -DESC2-
+

data/Views/Admin/Backup.rb

@@ -0,0 +1,91 @@
+# Presents a simple interface to allow for backup and restore
+#
+# The following functions are implemented:
+# do_backup - call Binaries/backup to save files in data, Exas and Diplomas
+# do_restore - re-starts Gestion which will restore the backupped data
+# upload_backup - send a backup-file to the server
+# download_backup - get a backup-file from the server
+
+class AdminBackup < View
+  def layout
+    @order = 200
+    @update = true
+
+    gui_hbox :nogroup do
+      gui_vbox do
+        show_list_single :backups, 'View.AdminBackup.list_backups', :width => 400
+        show_upload :upload_backup, callback: true
+        show_button :do_backup, :do_restore, :do_download
+      end
+
+      gui_window :status do
+        show_html :txt
+        show_button :restore, :close
+      end
+    end
+  end
+
+  def rpc_update(session)
+    reply(:update, upload_backup: 'Upload backup')
+  end
+
+  def rpc_button_upload_backup(session, data)
+    file = data._filename
+    if file =~ /\.tgz$/
+      FileUtils.mv "/tmp/#{file}", "#{GESTION_DIR}/Backups"
+      reply(:empty_update, backups: list_backups) +
+          reply(:select, backups: [file]) +
+          reply(:window_show, :status) +
+          reply(:unhide, %w(close restore)) +
+          reply(:update, txt: "Do you want to restore #{file}?")
+    else
+      reply(:window_show, :status) +
+          reply_show_hide(:close, :restore) +
+          reply(:update, txt: "#{file} does not end in .tgz")
+    end
+  end
+
+  def rpc_button_restore(session, data)
+    rpc_button_do_restore(session, data)
+  end
+
+  def rpc_button_do_download(session, data)
+    if file = data._backups[0]
+      FileUtils.cp "#{GESTION_DIR}/Backups/#{file}", "/tmp/#{file}"
+      reply(:eval, "window.open('/tmp/#{file}', '_blank');") +
+          reply(:window_show, :status) +
+          reply_show_hide(:close, :restore) +
+          reply(:update, txt: 'If the file is not downloaded, click the following link:' +
+                           "<br><a href='/tmp/#{file}' target='_blank'>#{file}</a>")
+    else
+      reply(:window_show, :status) +
+          reply_show_hide(:close, :restore) +
+          reply(:update, txt: 'Please chose a backup first')
+    end
+  end
+
+  def rpc_button_do_backup(session, data)
+    Entities.save_all
+    log_msg :backup, 'Creating new backup'
+    System.run_bool "#{GESTION_DIR}/Binaries/backup"
+    reply(:empty_update, backups: list_backups)
+  end
+
+  def rpc_button_do_restore(session, data)
+    file = data['backups'][0]
+    if File::exists? "Backups/#{file}"
+      dputs(1) { "Going to call restore for #{file}" }
+      File.open('dorestore', 'w') { |f| f.write file }
+      Thread.new {
+        Platform.restart('gestion')
+      }
+      reply(:window_show, :status) +
+          reply(:hide, %w(restore close)) +
+          reply(:update, :txt => '<h1>Recharger le navigateur avec ctrl+r ou F5</h1>')
+    end
+  end
+
+  def list_backups
+    System.run_str('ls Backups').split("\n").sort { |a, b| b <=> a }
+  end
+end

data/Views/Admin/Configuration.rb

@@ -0,0 +1,44 @@
+class AdminConfiguration < View
+  def layout
+    @order = 600
+    @update = true
+    set_data_class(:ConfigBases)
+
+    gui_vbox do
+      gui_hbox :nogroup do
+        gui_vbox :nogroup do
+          show_str :dputs_logfile
+          show_str :dputs_logall
+          show_block :vars_wide
+          show_field :template_dir
+          show_field :diploma_dir
+          show_field :exam_dir
+          show_list_drop :card_student, 'ConfigBase.templates'
+          show_list_drop :card_responsible, 'ConfigBase.templates'
+          show_list_drop :presence_sheet, 'ConfigBase.templates'
+          show_list_drop :presence_sheet_small, 'ConfigBase.templates'
+          show_arg :server_url, :width => 300
+        end
+        gui_vbox :nogroup do
+          show_block :narrow
+        end
+        gui_vbox :nogroup do
+          show_block :vars_narrow
+        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
+end

data/Views/Admin/Credit.rb

@@ -0,0 +1,32 @@
+# Unused function to import credits from another LDAP-file
+
+class AdminCredit < View
+  def layout
+    @order = 300
+    @visible = false
+		
+    gui_vbox do
+      show_text :user_credit
+      show_button :update_credits
+    end
+  end
+	
+  def rpc_button_update_credits( session, data )
+    data['user_credit'].split(/\n/).each{|l|
+      u, c = l.split
+      if user = Persons.match_by_login_name(u)
+        log_msg :admincredit, "Setting credit of #{u}:#{user.full_name} to #{c}"
+        user.internet_credit = c.to_i
+        if not user.permissions 
+          user.permissions = ['internet']
+        elsif not user.permissions.index('internet')
+          user.permissions.push 'internet'
+        end
+      else
+        dputs(0){"Error: Didn't find #{u}"}
+      end
+    }
+    Entities.save_all
+    reply( :empty_nonlists )
+  end
+end