gestion 1.9.12

data/Binaries/onetimers/sync_courses_from_compta.rb

@@ -0,0 +1,74 @@
+#!/usr/bin/env ruby
+%w( QooxView AfriCompta LibNet Network/lib Hilink/lib HelperClasses/lib Gestion ).each { |l|
+  $LOAD_PATH.push "../../../#{l}"
+}
+$LOAD_PATH.push "."
+
+=begin
+Due to a problem in the CSV-save module, most of the CSV-data hasn't been saved!!
+This was mostly a problem for the sign-ups of the students that were missing
+in the courses.
+=end
+
+DEBUG_LVL=1
+$config_file='config.yaml'
+
+require 'QooxView'
+require 'ACQooxView'
+require 'LibNet'
+require 'Label'
+ACQooxView.load_entities
+
+unless File.exists? 'data/'
+  dputs(0) { "Didn't find data/-directory, aborting" }
+  exit -1
+end
+
+QooxView.init('../../Entities', '../../Views')
+
+course_accounts = []
+
+CourseTypes.search_all().each { |ct|
+  if ct.account_base
+    ct.account_base.accounts.each { |a|
+      course_accounts.push a
+    }
+  end
+}
+
+course_accounts.uniq!
+
+Courses.search_all().each { |c|
+  if ca = c.entries
+    if course_accounts.index ca
+      course_accounts.delete ca
+      puts "Linked: #{c.name}"
+      puts "Students    before: #{c.students.sort.to_s}"
+      std = ca.movements.select { |m| m.desc =~ /^For student/ }.map{|m|
+      m.desc.match( /.* ([^ :]*):.*/ )[1]}.uniq
+      puts "Students in compta: #{std.sort.to_s}"
+      c.students = ( c.students + std ).sort.uniq
+      puts "Merged            : #{c.students.sort.to_s}"
+    else
+      puts "Not linked: #{c.name}"
+    end
+  elsif c.name =~ /_14/
+    puts "Missing link: #{c.name}"
+  end
+}
+
+Entities.save_all
+
+begin
+course_accounts.each { |ca|
+  if ca.path =~ /14/ and ca.movements.length > 0
+    puts "Not linked: #{ca.path}"
+    if c = Courses.match_by_name( ca.name )
+      puts "Late finding: #{ca.path} - #{c.name}"
+    end
+    ca.movements.each{|m|
+      puts m.to_json
+    }
+  end
+}
+end

data/Binaries/onetimers/transfer_cash_from_ldap_to_csv

@@ -0,0 +1,26 @@
+#!/bin/bash
+if [ ! -f Persons.csv ]; then
+  echo Please run in data-directory!
+  exit
+fi
+
+cp Persons.csv Persons.csv.backup.$( date +%Y%m%d-%M%H )
+
+# First we read everything in
+slapcat | egrep "(^MaN-Internet-Cash|^cn|^uidNumber)" | grep -B 2 MaN | grep -v -- "--" > cash
+
+# Then we clean up Persons.csv
+perl -pi -e "s/.credit_due[^,]*,//" Persons.csv 
+
+# Finally we set every cash
+while read one; do
+  read two
+  read three
+  echo -e "$one\n$two\n$three" | sort | sed -e "s/.* //" > cash.tmp
+  while read cn; do
+    read cash
+    read uid
+    echo cn is $cn with uid=$uid and $cash CFAs;
+    perl -pi -e "s/(.person_id..$uid[^0-9])/\"credit\":$cash,\1/" Persons.csv
+  done < cash.tmp
+done < cash

data/Binaries/reboot

@@ -0,0 +1,5 @@
+#!/bin/bash
+
+sleep 2
+pkill -9 -f ruby.*Gestion
+reboot

data/Binaries/restore

@@ -0,0 +1,3 @@
+#!/bin/bash
+
+nohup $( dirname $0 )/restore_do $1 &

data/Binaries/restore_do

@@ -0,0 +1,22 @@
+#!/bin/bash
+
+. $( dirname $0 )/lib_backup
+. /etc/gestion.conf
+DATE=$1
+
+#sleep 2
+#touch /tmp/stop_gestion
+#$WDIR/Binaries/kill_gestion
+#sleep 2
+
+systemctl stop gestion
+sleep 5
+touch /tmp/stop_gestion
+$WDIR/Binaries/kill_gestion
+echo Going to restore $BACKUP_DIR/$DATE > /tmp/restore
+tar -C ${DATADIR:-/var/lib/gestion} -Pxzf $BACKUP_DIR/$DATE
+
+sleep 5
+systemctl start gestion
+
+#$WDIR/Binaries/start_gestion

data/Binaries/sort_events

@@ -0,0 +1,31 @@
+#!/bin/bash
+
+ORDER="chat course_payment ActivityPayments AddCash cashbox_course grade grades diploma \
+course person Welcome"
+
+if [ ! "$1" -o ! "$2" ]; then
+  echo Syntax: $0 in.log out.log
+  exit 1
+fi
+
+EVENTS_IN=$1
+EVENTS_OUT=$2
+
+if [ ! -f $EVENTS_IN ]; then
+  echo "$EVENTS_IN doesn't exist"
+  exit 1
+fi
+
+SRC=/tmp/events_src.log
+OTHER=/tmp/events_dst.log
+cp $EVENTS_IN $SRC
+rm -f $EVENTS_OUT
+
+for field in $ORDER; do
+  # echo Sorting for field $field
+  grep " $field: " $SRC >> $EVENTS_OUT
+  grep -v " $field: " $SRC > $OTHER
+  mv $OTHER $SRC
+done
+echo "-----------------------" >> $EVENTS_OUT
+sort -k 3 $SRC >> $EVENTS_OUT

data/Binaries/start_gestion

@@ -0,0 +1,18 @@
+#!/bin/bash
+
+test -x /etc/init.d/blink-fast && /etc/init.d/blink-fast start
+. /etc/environment
+export LANG
+export LC_ALL
+date >> /var/log/start_gestion
+set >> /var/log/start_gestion
+logger -s "Starting Gestion"
+sleep 2
+cd $( dirname $0 )/..
+pwd >> /var/log/start_gestion
+if pgrep -f ruby.*Gestion; then
+  Binaries/kill_gestion
+fi
+logger -s "Starting new Gestion"
+sudo -i screen -S Gestion -d -s /usr/bin/bash -m $( pwd )/Binaries/loop_gestion
+echo $! > /var/run/gestion.pid

data/Binaries/swipe_gestion

@@ -0,0 +1,18 @@
+#!/bin/bash
+
+WDIR=$( dirname ${BASH_SOURCE[0]} )
+
+if [ "$1" = "-f" ]; then
+  shift
+  $WDIR/kill_gestion
+  sleep 2
+  mv $WDIR/../data /var/tmp/data.$( date +%s )
+  if [ "$1" ]; then
+    $WDIR/restore $1
+  else
+    $WDIR/start_gestion
+  fi
+else
+  echo Not doing swipe - use the '-f' parameter
+  exit 1
+fi

data/Binaries/update_africompta

@@ -0,0 +1,21 @@
+#!/bin/bash
+
+echo This is not used for the moment - just kept for
+echo future reference in case the column-names need
+echo to change...
+
+exit 1
+
+cp db.testGestion.orig db.testGestion
+
+cat - > sqlite.cmd <<EOF
+PRAGMA writable_schema = 1;
+UPDATE SQLITE_MASTER SET SQL = 'CREATE TABLE "compta_accounts" ("account_id" INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, "parent_id" integer, "name" varchar(255), "desc" text, "global_id" varchar(255), "total" varchar(255), "multiplier" float, "index" integer)' WHERE NAME = 'compta_accounts';
+UPDATE SQLITE_MASTER SET SQL = 'CREATE TABLE "compta_movements" ("movement_id" INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, "account_src_id" integer NOT NULL, "account_dst_id" integer NOT NULL, "value" real, "desc" varchar(255), "date" date, "revision" integer, "global_id" varchar(255), "index" integer)' WHERE NAME = 'compta_movements';
+UPDATE SQLITE_MASTER SET SQL = 'CREATE TABLE "compta_users" ("user_id" INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, "name" varchar(255), "full" varchar(255), "pass" varchar(255), "account_index" integer, "movement_index" integer)' WHERE NAME = 'compta_users';
+PRAGMA writable_schema = 0;
+.quit
+EOF
+echo .quit | sqlite3 -init sqlite.cmd $1
+
+echo .dump | sqlite3 $1

data/Binaries/update_users

@@ -0,0 +1,3 @@
+!/bin/bash
+wget -q -O- --post-data "username=$1&password=$2" http://cours.markas-al-nour.org/login/index.php > /dev/null
+echo $@ >> /tmp/update_users

data/Doc/Compta-cash.mm

@@ -0,0 +1,179 @@
+<map version="0.9.0">
+<!--To view this file, download free mind mapping software Freeplane from http://freeplane.sourceforge.net -->
+<node TEXT="Compta" ID="ID_1373652054" CREATED="1375460748765" MODIFIED="1375460753057">
+<hook NAME="MapStyle" max_node_width="600"/>
+<node TEXT="Views" POSITION="right" ID="ID_1258978740" CREATED="1375460753836" MODIFIED="1375460755120">
+<node TEXT="ComptaCourse" ID="ID_1947432729" CREATED="1375460758941" MODIFIED="1375460761120">
+<node TEXT="Search by course" ID="ID_1172449143" CREATED="1375460762461" MODIFIED="1375460809029">
+<richcontent TYPE="NOTE">
+<html>
+  <head>
+    
+  </head>
+  <body>
+    <p>
+      offer list like CourseTab
+    </p>
+  </body>
+</html></richcontent>
+</node>
+<node TEXT="Search by student" ID="ID_892630374" CREATED="1375460813003" MODIFIED="1375461037857">
+<richcontent TYPE="NOTE">
+<html>
+  <head>
+    
+  </head>
+  <body>
+    <p>
+      Updated if clicked on course
+    </p>
+  </body>
+</html></richcontent>
+</node>
+<node TEXT="Pay" ID="ID_1998407710" CREATED="1375461037850" MODIFIED="1375461049048">
+<richcontent TYPE="NOTE">
+<html>
+  <head>
+    
+  </head>
+  <body>
+    <p>
+      prints receit
+    </p>
+  </body>
+</html></richcontent>
+</node>
+<node TEXT="Add manual receit" ID="ID_338147804" CREATED="1375461050161" MODIFIED="1375461053813"/>
+</node>
+<node TEXT="ComptaService" ID="ID_662432531" CREATED="1375460758941" MODIFIED="1375461066626">
+<node TEXT="Pay" ID="ID_13579623" CREATED="1375461037850" MODIFIED="1375461049048">
+<richcontent TYPE="NOTE">
+<html>
+  <head>
+    
+  </head>
+  <body>
+    <p>
+      prints receit
+    </p>
+  </body>
+</html></richcontent>
+</node>
+<node TEXT="Move PersonCash" ID="ID_1926602512" CREATED="1375461086039" MODIFIED="1375461091096"/>
+<node TEXT="Move SelfServices" ID="ID_1990164522" CREATED="1375461091662" MODIFIED="1375461096490"/>
+<node TEXT="Add manual receit" ID="ID_919067297" CREATED="1375461050161" MODIFIED="1375461053813"/>
+</node>
+<node TEXT="ComptaCash" ID="ID_1584009219" CREATED="1375461111714" MODIFIED="1375461115734">
+<node TEXT="Print" ID="ID_1536490968" CREATED="1375461116211" MODIFIED="1375461121590">
+<node TEXT="Daily checklist" ID="ID_1033771005" CREATED="1375461121923" MODIFIED="1375461145248">
+<richcontent TYPE="NOTE">
+<html>
+  <head>
+    
+  </head>
+  <body>
+    <p>
+      With signature for &quot;OK&quot;
+    </p>
+    <p>
+      Allow for printing of days, weeks
+    </p>
+  </body>
+</html></richcontent>
+</node>
+<node TEXT="Course-lists" ID="ID_1102569461" CREATED="1375461145242" MODIFIED="1375461154495">
+<richcontent TYPE="NOTE">
+<html>
+  <head>
+    
+  </head>
+  <body>
+    <p>
+      only print changed courses
+    </p>
+  </body>
+</html></richcontent>
+</node>
+<node TEXT="Library-lists" ID="ID_313754190" CREATED="1375461154489" MODIFIED="1375461169062">
+<richcontent TYPE="NOTE">
+<html>
+  <head>
+    
+  </head>
+  <body>
+    <p>
+      only print last sheet
+    </p>
+  </body>
+</html></richcontent>
+</node>
+<node TEXT="Move SelfCash" ID="ID_604769849" CREATED="1375461169233" MODIFIED="1375461180348"/>
+</node>
+</node>
+<node TEXT="ComptaAdmin" ID="ID_1188322166" CREATED="1379581289830" MODIFIED="1379581291833">
+<node TEXT="Print manual sheets" ID="ID_397624358" CREATED="1379581365278" MODIFIED="1379581381208"/>
+<node TEXT="Manage lost sheets" ID="ID_999379367" CREATED="1379581381862" MODIFIED="1379581387728"/>
+</node>
+<node TEXT="CourseCompta" ID="ID_892736667" CREATED="1375461216487" MODIFIED="1375461220346">
+<node TEXT="Change money per course" ID="ID_1386173998" CREATED="1375461220855" MODIFIED="1375461224200"/>
+<node TEXT="Move students to other courses" ID="ID_503441439" CREATED="1375461225229" MODIFIED="1375461229706"/>
+</node>
+<node TEXT="AdminService" ID="ID_58796879" CREATED="1375461234942" MODIFIED="1375461240600">
+<node TEXT="Change costs for services" ID="ID_179134349" CREATED="1375461241150" MODIFIED="1375461249593"/>
+<node TEXT="add and remove new services" ID="ID_1111616537" CREATED="1375461250414" MODIFIED="1375461303693">
+<richcontent TYPE="NOTE">
+<html>
+  <head>
+    
+  </head>
+  <body>
+    <p>
+      Have once (special fee), multiple (CDs, print, ...), daily, weekly services
+    </p>
+  </body>
+</html></richcontent>
+</node>
+</node>
+<node TEXT="AdminAccounts" ID="ID_260369204" CREATED="1379588717973" MODIFIED="1379588721280">
+<node TEXT="Edit different accounts for different services" ID="ID_657135979" CREATED="1379588721741" MODIFIED="1379588733240"/>
+</node>
+<node TEXT="CourseDiploma" ID="ID_1841349214" CREATED="1375461311313" MODIFIED="1375461315545">
+<node TEXT="Add column &quot;paid&quot;" ID="ID_686128343" CREATED="1375461315960" MODIFIED="1375461323562"/>
+</node>
+<node TEXT="CourseTabs" ID="ID_1657862182" CREATED="1379583222647" MODIFIED="1379583227978">
+<node TEXT="When adding, add also the corresponding account" ID="ID_1585632095" CREATED="1379583228559" MODIFIED="1379583241997"/>
+</node>
+</node>
+<node TEXT="Payments" POSITION="left" ID="ID_1876632421" CREATED="1375461332330" MODIFIED="1375461333920">
+<node TEXT="Receits" ID="ID_612380965" CREATED="1375461334372" MODIFIED="1375461336503">
+<node TEXT="Is always printed out twice" ID="ID_116581679" CREATED="1375461339093" MODIFIED="1375461355658">
+<richcontent TYPE="NOTE">
+<html>
+  <head>
+    
+  </head>
+  <body>
+    <p>
+      One for the archives, one for the student
+    </p>
+  </body>
+</html></richcontent>
+</node>
+<node TEXT="Fields" ID="ID_1523419689" CREATED="1375461355652" MODIFIED="1375461360982">
+<node TEXT="Name of student" ID="ID_1076775739" CREATED="1375461361500" MODIFIED="1375461365278"/>
+<node TEXT="Name of receiver" ID="ID_576269462" CREATED="1375461366211" MODIFIED="1375461372126"/>
+<node TEXT="Subject" ID="ID_529830863" CREATED="1375461376537" MODIFIED="1375461382734"/>
+<node TEXT="Date" ID="ID_291785192" CREATED="1375461383115" MODIFIED="1375461384565"/>
+<node TEXT="Amount" ID="ID_129543000" CREATED="1375461384875" MODIFIED="1375461386029"/>
+<node TEXT="Id" ID="ID_859282044" CREATED="1375461386282" MODIFIED="1375461389358"/>
+<node TEXT="QRcode for verification" ID="ID_1373775432" CREATED="1375461389866" MODIFIED="1375461393965"/>
+</node>
+</node>
+<node TEXT="Manual receits" ID="ID_1017256078" CREATED="1375461398730" MODIFIED="1375461401571">
+<node TEXT="Only printable from accountant" ID="ID_937775751" CREATED="1375461402170" MODIFIED="1375461410357"/>
+<node TEXT="in case of malfunctioning" ID="ID_1382316541" CREATED="1375461411306" MODIFIED="1375461426142"/>
+<node TEXT="Have signature and stamp instead of QRcode" ID="ID_677144629" CREATED="1375461426971" MODIFIED="1375461435166"/>
+</node>
+</node>
+</node>
+</map>

data/Entities/AccessGroups.rb

@@ -0,0 +1,117 @@
+# Defines groups for access to the internet
+
+class AccessGroups < Entities
+  def setup_data
+    value_str :name
+    value_list_single :members
+    value_list_drop :action, '%w( allow allow_else_block block )'
+    value_int :priority
+    value_int :limit_day_mo
+    value_list_single :access_times, '[]'
+  end
+
+  def listp_name
+    search_all_.sort { |a, b|
+      b.priority.to_i <=> a.priority.to_i
+    }.collect { |ag|
+      ag.priority ||= '10'
+      [ag.accessgroup_id, "#{ag.priority.rjust(2, '0')}:#{ag.name}"]
+    }
+  end
+
+  def self.allow_user(user, time)
+    dputs(4) { "Searching for #{user} at #{time}" }
+    if user.class == Person
+      user = user.login_name
+    end
+    search_all_.sort { |a, b|
+      b.priority.to_i <=> a.priority.to_i
+    }.each { |ag|
+      match_user = true
+      if ag.members.class == Array and ag.members.size > 0
+        dputs(5) { "members.index is #{ag.members.index(user).inspect}" }
+        match_user = ag.members.index(user) != nil
+      end
+      match_time = ag.time_in_atimes(time)
+      limit_ok = true
+      if (limit = ag.limit_day_mo.to_i) > 0
+        limit_ok = Network::Captive.usage_daily.to_i / 1e6 <= limit
+      end
+      dputs(4) { "Checking #{ag.name}, u,t = #{match_user},#{match_time}" }
+      dputs(4) { "Action is #{ag.action[0].inspect}, members = #{ag.members.inspect}" }
+      case ag.action[0]
+        when /allow_else_block/
+          dputs(4) { 'allow_else_block' }
+          return [true, "#{ag.name}"] if (match_time and match_user and limit_ok)
+          return [false, "Over limit of #{ag.limit_day_mo}Mo in rule **#{ag.name}**"] if not limit_ok
+          return [false, "Blocked by rule **#{ag.name}**"] if match_user
+        when /block/
+          dputs(4) { 'block' }
+          return [false, "Blocked by rule **#{ag.name}**"] if (match_time and match_user)
+        when /allow/
+          dputs(4) { 'allow' }
+          return [true, "#{ag.name}"] if (match_time and match_user and limit_ok)
+      end
+    }
+    dputs(4) { 'Nothing found - must be OK' }
+    return [true, 'default']
+  end
+
+  def self.allow_user_now(user)
+    self.allow_user(user, Time.now)
+  end
+end
+
+class AccessGroup < Entity
+
+  def self.time_in_atime(t, a)
+    dow_raw, start_raw, stop_raw = a.split(';')
+    {:di => 0, :lu => 1, :ma => 2, :me => 3, :je => 4, :ve => 5, :sa => 6}.each { |k, v|
+      dow_raw.gsub!(/#{k}/, "#{v}")
+    }
+    dputs(4) { "dow_raw is #{dow_raw}" }
+    dow = []
+    dow_raw.split(',').each { |d|
+      if d =~ /(.)-(.)/
+        b, e = $1.to_i, $2.to_i
+        if e < b
+          e += 7
+        end
+        (b..e).each { |i|
+          dow.push(i % 7)
+        }
+      else
+        dow.push d.to_i
+      end
+    }
+    start_raw = start_raw.split(':')
+    start = start_raw[0].to_i * 60 + start_raw[1].to_i
+    stop_raw = stop_raw.split(':')
+    stop = stop_raw[0].to_i * 60 + stop_raw[1].to_i
+    if stop == 0
+      stop = 24 * 60
+    end
+    time = t.hour * 60 + t.min
+    time_dow = t.wday
+    dputs(4) { "dow:#{dow.inspect} - start:#{start} - stop:#{stop}" }
+    dputs(4) { "time: #{time} - time_dow:#{time_dow}" }
+
+    # If we start in the evening and end in the morning...
+    if start > stop and time < stop
+      return (dow.index((time_dow + 6) % 7)) != nil
+    end
+    (dow.index(time_dow) and start <= time and time < stop) == true
+  end
+
+  def time_in_atimes(t)
+    if access_times
+      ret = false
+      access_times.each { |a|
+        ret = (ret or AccessGroup.time_in_atime(t, a))
+      }
+      return ret
+    else
+      return true
+    end
+  end
+end