gestion 1.9.12

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: c703ebb9634b23eca593fe1bead1f71131c21e74
+  data.tar.gz: 0baed7d2aa22c8db5e57f79228817306b22ddeea
+SHA512:
+  metadata.gz: 603c7563f4291c3875f64994ba97e05546820a8d479f4cfa0dc9ac52c5400932d3911b59f52df443ac2feb4e7339b1f0828bf4da4437568dd2a3002b7415c1c9
+  data.tar.gz: 7731a40cc07cb311da39e987a5092024205f191af4395c106d549df8011c338a0439ce1907128ee8985d13c98027926f62862afa3c506c9aaab2a1a81f671822

data/.gitignore

@@ -0,0 +1,48 @@
+*\.tgz
+*\.csv
+*\.log
+\.external.*
+
+.DS_Store
+.~lock*
+.hg*
+.settings*
+.idea*
+
+config.yaml
+
+*data*/*
+ldap*conf
+Test/data/*
+Test/data2/*
+Test/Diplomas/*
+Test/Exas/*
+Test/Exams/*
+Test/log
+Test/run
+Diplomas/*/*
+Diplomas.Profeda*
+Diplomas.Man
+old/*
+Exas/
+Exams/
+po/*mo
+po/*pot
+tmp/
+po/*/*
+Binaries/onetimers/data
+Binaries/onetimers/Diplomas
+Binaries/onetimers/Exas
+Binaries/onetimers/config.yaml
+
+Test/share_test
+Doc/.backup
+ac_work
+Test/reports
+Diplomas
+Diplomas.src/*/*
+.bundle
+vendor
+
+gestion.conf
+Gestion.pkgrel

data/.project

@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>Gestion</name>
+	<comment></comment>
+	<projects>
+		<project>QooxView</project>
+	</projects>
+	<buildSpec>
+	</buildSpec>
+	<natures>
+		<nature>com.aptana.ruby.core.rubynature</nature>
+		<nature>com.aptana.projects.webnature</nature>
+	</natures>
+</projectDescription>

data/Binaries/adduser_to_buzz

@@ -0,0 +1,15 @@
+#!/bin/bash
+
+if [ ! "$1" ]; then
+  echo Syntax is: $0 username
+  exit 1
+fi
+
+USER=$1
+ldapaddusertogroup $USER cyber_club
+
+#if rsync -Paiv /home/$USER root@buzz.wifi:/home; then
+#  exit
+#else
+#  exit 2
+#fi

data/Binaries/backup

@@ -0,0 +1,7 @@
+#!/bin/bash
+. $( dirname $0 )/lib_backup
+cd $WDIR
+DATE=$( date +%Y-%m-%d_%H.%M.%S )
+
+DIRS="data config.yaml Exas Diplomas*"
+tar --exclude LibreOffice -chzf $BACKUP_DIR/${1}backup_$DATE.tgz $DIRS

data/Binaries/check_gestion

@@ -0,0 +1,8 @@
+#!/bin/bash
+
+if [ ! "$( pgrep -f 'ruby.*Gestion' )" ]; then
+  logger Not found Gestion - restarting
+#  /var/www/Gestion/Binaries/start_gestion
+else
+  logger Gestion here
+fi

data/Binaries/gestion.gnumail

@@ -0,0 +1,22 @@
+/var/log/gestion/gestion.log {
+  daily
+  copytruncate
+  rotate 30
+  mail root@localhost
+  postrotate
+    /var/profeda/Gestion/Binaries/log_scan_errors
+  endscript
+  nocompress
+}
+
+/var/log/gestion/events.log {
+  daily
+  copytruncate
+  rotate 30
+  mail root@localhost
+  prerotate
+    cat /var/log/gestion/events.log | mail -s "Events from $( hostname )" root@localhost
+  endscript
+  nocompress
+}
+

data/Binaries/gestion.logrotate

@@ -0,0 +1,34 @@
+/var/log/gestion/gestion.log {
+  daily
+  copytruncate
+  rotate 30
+  mail root@localhost
+  #nomail
+  postrotate
+    /opt/gestion/Binaries/log_scan_errors
+  endscript
+  nocompress
+}
+
+/var/log/gestion/events.log {
+  daily
+  copytruncate
+  rotate 30
+  mail root@localhost
+  prerotate
+    /opt/gestion/Binaries/sort_events /var/log/gestion/events.log /tmp/gestion_events.log
+    SUBJ="Events from $( hostname )"
+    #if [ -x /usr/bin/mutt ]; then
+    #  echo "Gestion log-file" | mutt -s "$SUBJ" -a /tmp/gestion_events.log -- root@localhost
+    #else
+      MAIL=/usr/bin/bsd-mailx
+      if [ ! -x $MAIL ]; then
+        MAIL=/usr/bin/mail
+      fi
+      cat /tmp/gestion_events.log | $MAIL -s "$SUBJ" root@localhost
+    #fi
+    rm /tmp/gestion_events.log
+  endscript
+  nocompress
+}
+

data/Binaries/gestion.service

@@ -0,0 +1,12 @@
+[Unit]
+Description=Gestion of cultural centers
+Requires=network.target
+After=network.target
+
+[Service]
+ExecStart=/usr/bin/sudo -i /opt/gestion/Gestion
+ExecStop=/usr/bin/pkill -15 -f "ruby ./Gestion.rb"
+ExecStop=/usr/bin/sleep 10
+
+[Install]
+WantedBy=multi-user.target

data/Binaries/gestion_update.rb

@@ -0,0 +1,183 @@
+#!/usr/bin/env ruby
+require 'bundler/setup'
+require 'helper_classes'
+require 'net/http'
+require 'fileutils'
+
+include HelperClasses
+include HelperClasses::DPuts
+
+@file_update = '/tmp/gestion.update'
+@file_switch_versions = '/tmp/gestion.switch_versions'
+@html_txt = []
+@html_dir = '/srv/http/local'
+@pacman_lock = '/var/lib/pacman/db.lck'
+@html_file = "#{@html_dir}/update_progress.html"
+DEBUG_LVL = 2
+
+def reverse_update
+  return unless File.exists?(@file_update)
+  "#{Time.now.to_s }<br><textarea rows='20' cols='100'>" +
+      IO.read(@file_update).split("\n").reverse.join("\n") +
+      '</textarea>'
+end
+
+def main
+  begin
+    update_content = ''
+    if !File.exists? @file_switch_versions
+      if !File.exists? @file_update
+        update_html("Didn't find #{@file_update}", '0')
+        exit
+      end
+      file = IO.read(@file_update)
+      update_html('Stopping Gestion')
+      Platform.stop('gestion')
+      update_html("Updating using file #{file}")
+      update_html "Calling pacman to update #{file}"
+      update = Thread.new {
+        System.run_str '/usr/bin/killall -9 pacman'
+        puts @pacman_lock
+        File.exists?(@pacman_lock) and
+            FileUtils.rm(@pacman_lock)
+        puts System.run_str("/usr/bin/pacman --noconfirm --force -U #{file} > "+
+                                @file_update)
+      }
+      while update.alive?
+        dputs(3) { 'Update is alive' }
+        update_html(reverse_update, true)
+        sleep 4
+      end
+      dputs(3) { 'Update should be done' }
+      update_content = reverse_update
+      FileUtils.rm @file_update
+    else
+      update_content = reverse_update
+      FileUtils.rm @file_switch_versions
+      while File.exists? @file_update
+        sleep 1
+      end
+      Platform.stop('gestion')
+    end
+    update_html update_content
+    update_html 'Starting Gestion'
+    Platform.reload
+    Platform.start('gestion')
+    i = 0
+    uri = URI('http://localhost:3302')
+    loop do
+      sleep 4
+      i += 1
+      begin
+        Net::HTTP.get(uri)
+        update_html("OK, we're good")
+        break
+      rescue Errno::ECONNREFUSED => e
+        update_html("Count: #{i} - gestion not yet up and running", true)
+      end
+    end
+    update_html('Hope the update went well -
+                 <a href="http://admin.profeda.org" target="other">Login</a>',
+                refresh: '86400',
+                script: "setTimeout(function(){
+                           window.open('http://admin.profeda.org', '_blank');
+                         }, 5000 );")
+  rescue StandardError => e
+    update_html("Error: #{e.to_s} - #{e.inspect}")
+    update_html("Error: #{caller.inspect}")
+  end
+  System.run_str "cat #{@html_file} | mail -s 'update gestion on $(hostname)' root@localhost"
+end
+
+def update_html(msg, noadd = false, refresh: '5', script: '')
+  return unless Dir.exists? @html_dir
+  p msg unless noadd
+  @html_txt.push msg
+  IO.write("#{@html_file}.tmp", "
+<html>
+<head>
+<META http-equiv='refresh' content='#{refresh}'>
+  <meta http-equiv='Content-Type' content='text/html; charset=utf-8'/>
+  <title>Update of Gestion</title>
+  <style>
+      body {
+          background-color: #607860;
+      }
+
+      .center {
+          text-align: center;
+      }
+
+      .right {
+          text-align: right;
+      }
+
+      .main {
+          margin-left: auto;
+          margin-right: auto;
+          padding: 10px;
+          width: 70%;
+          background-color: #b0deb0;
+      }
+
+      textarea {
+          background-color: #d0ded0;
+      }
+
+      a:link {
+          text-decoration: underline;
+          color: #6666AA;
+      }
+
+      a:visited {
+          text-decoration: underline;
+          color: #6666AA;
+      }
+
+      a:hover {
+          text-decoration: underline;
+          color: #66AA66;
+      }
+
+      a:active {
+          text-decoration: underline;
+      }
+
+      .big {
+          font-size: 30px;
+      }
+
+      .medium {
+          font-size: 20px;
+      }
+
+      .small {
+          font-size: 10px;
+      }
+  </style>
+</head>
+<body>
+<div class='main'>
+<div class='center'>
+<h1>Updating Gestion - please be patient</h1>
+</div>
+<ul>
+#{@html_txt.collect { |t| "<li>#{t}</li>" }.join("\n")}
+</ul>
+</div>
+<script type='text/javascript'>
+#{script}
+</script>
+</body>
+</html>
+")
+  FileUtils.mv "#{@html_file}.tmp", @html_file
+  noadd and @html_txt.pop
+end
+
+if ARGV.length > 0
+  IO.write(@file_update, ARGV.first)
+  update_html('Waiting to begin update')
+else
+  main
+end

data/Binaries/gestion_update.service

@@ -0,0 +1,10 @@
+[Unit]
+Description=Updating gestion
+Requires=network.target
+After=network.target
+
+[Service]
+ExecStart=/usr/bin/sudo -i /opt/gestion/Gestion update
+
+[Install]
+WantedBy=multi-user.target

data/Binaries/get_compta

@@ -0,0 +1,11 @@
+#!/bin/bash
+
+COMPTA_DB=/Users/foo/.camping.db
+
+sqlite3 sql.db 'DROP TABLE "stsql_accounts";'
+sqlite3 $COMPTA_DB ".dump compta_accounts" | sed -e 's/"compta_accounts"/"stsql_accounts"/' | 
+sed -e 's/^\(CREATE TABLE.*\)"id"\(.*\)"account_id"/\1"account_id"\2"parent_id"/' | sqlite3 sql.db
+
+sqlite3 sql.db 'DROP TABLE "stsql_movements";'
+sqlite3 $COMPTA_DB ".dump compta_movements" | sed -e 's/"compta_movements"/"stsql_movements"/' | 
+sed -e 's/^\(CREATE TABLE.*\)"id"/\1"movement_id"/' | sqlite3 sql.db

data/Binaries/kill_gestion

@@ -0,0 +1,16 @@
+#!/bin/bash
+STOP=/tmp/stop_gestion
+
+logger -s "Stopping Gestion"
+touch $STOP
+cd $( dirname $0 )/..
+logger -s "Killing old Gestion"
+pkill -f ruby.*Gestion
+pkill -f tee.*gestion
+logger -s "Waiting for 10 seconds"
+sleep 10
+logger -s "Killing old Gestion with -9"
+pkill -9 -f loop_gestion
+pkill -9 -f ruby.*Gestion
+pkill -9 -f tee.*gestion
+screen -wipe

data/Binaries/ldap/add_indexes

@@ -0,0 +1,51 @@
+#!/bin/bash
+
+cat > index.ldif <<EOF
+dn: olcDatabase={1}hdb,cn=config
+changetype: modify
+add: olcDbIndex
+olcDbIndex: cn pres,sub,eq
+-
+add: olcDbIndex
+olcDbIndex: sn pres,sub,eq
+-
+add: olcDbIndex
+olcDbIndex: uid pres,sub,eq
+-
+add: olcDbIndex
+olcDbIndex: displayName pres,sub,eq
+-
+add: olcDbIndex
+olcDbIndex: default sub
+-
+add: olcDbIndex
+olcDbIndex: uidNumber eq
+-
+add: olcDbIndex
+olcDbIndex: gidNumber eq
+-
+add: olcDbIndex
+olcDbIndex: mail,givenName eq,subinitial
+-
+add: olcDbIndex
+olcDbIndex: dc eq
+-
+add: olcDbIndex
+olcDbIndex: uniqueMember eq
+-
+EOF
+cat > index.ldif <<EOF
+dn: olcDatabase={1}hdb,cn=config
+changetype: modify
+add: olcDbIndex
+olcDbIndex: memberUid eq
+EOF
+
+sudo ldapadd -Y EXTERNAL -H ldapi:/// -f index.ldif
+rm index.ldif
+/etc/init.d/slapd stop
+slapindex
+chown -R openldap:openldap /var/lib/ldap
+/etc/init.d/slapd start
+
+

data/Binaries/ldap/backup

@@ -0,0 +1,2 @@
+#!/bin/bash
+slapcat > ldap.backup

data/Binaries/ldap/install_ldap

@@ -0,0 +1,92 @@
+#!/bin/bash
+#aptitude install slapd ldap-utils pwgen samba-doc
+
+if [ "$1" ]; then
+  HOST=$1
+else
+  read -p "Name of host [profeda]: " HOST
+  HOST=${HOST:-profeda}
+fi
+if [ "$2" ]; then
+  PASSWD=$2
+else
+  pass=$( pwgen -1 )
+  read -p "Password [$pass]: " PASSWD
+  PASSWD=${PASSWD:-$pass}
+fi
+
+TLD=wifi
+
+echo
+echo "Creating the ldap for host $HOST.$TLD with password '$PASSWD'"
+echo "Press <ENTER> to confirm"
+read
+
+echo Preparing samba.ldif
+zcat /usr/share/doc/samba-doc/examples/LDAP/samba.schema.gz > /etc/ldap/schema/samba.schema
+cat > /tmp/samba.conf <<EOF
+include          /etc/ldap/schema/core.schema
+include          /etc/ldap/schema/cosine.schema
+include          /etc/ldap/schema/nis.schema
+include          /etc/ldap/schema/inetorgperson.schema
+include          /etc/ldap/schema/samba.schema
+EOF
+mkdir -p /tmp/slapd.d
+slaptest -f /tmp/samba.conf -F /tmp/slapd.d/
+cp /tmp/slapd.d/cn=config/cn=schema/cn=\{4\}samba.ldif /etc/ldap/schema/samba.ldif
+rm -rf /tmp/samba.conf /tmp/slapd.d
+
+for a in cosine nis inetorgperson samba; do
+  if ls /etc/ldap/slapd.d/cn\=config/cn\=schema/*$a.ldif > /dev/null 2>&1; then
+    echo $a does already exist
+  else
+    echo Installing schema $a
+    sudo ldapadd -Y EXTERNAL -H ldapi:/// -f /etc/ldap/schema/$a.ldif
+  fi
+done
+
+exit
+echo Adding rights for admin $HOST $TLD
+cat > backend.ldif <<EOF
+dn: olcDatabase={2}hdb,cn=config
+objectClass: olcDatabaseConfig
+objectClass: olcHdbConfig
+olcDatabase: {2}hdb
+olcSuffix: dc=$HOST,dc=$TLD
+olcDbDirectory: /var/lib/ldap
+olcRootDN: cn=admin,dc=$HOST,dc=$TLD
+olcRootPW: $PASSWD
+olcDbIndex: cn,sn,uid pres,eq,approx,sub
+olcDbIndex: objectClass eq
+olcAccess: to attrs=userPassword
+  by self write
+  by anonymous auth
+  by dn.base="cn=admin,dc=$HOST,dc=$TLD" write
+  by * none
+olcAccess: to *
+  by self write
+  by dn.base="cn=admin,dc=$HOST,dc=$TLD" write
+  by * read
+EOF
+
+#sudo ldapadd -Y EXTERNAL -H ldapi:/// -f backend.ldif
+rm backend.ldif
+
+echo And populating database
+
+cat > init.ldif <<EOF
+dn: ou=Users,dc=$HOST,dc=$TLD
+objectClass: organizationalUnit
+ou: Users
+
+dn: ou=Groups,dc=$HOST,dc=$TLD
+objectClass: organizationalUnit
+ou: Groups
+EOF
+
+sudo ldapadd -x -D cn=admin,dc=$HOST,dc=$TLD -w $PASSWD -f init.ldif
+rm init.ldif
+
+echo Finally making the indexes a bit faster
+
+add_indexes

data/Binaries/ldap/restore

@@ -0,0 +1,7 @@
+#!/bin/bash
+
+/etc/init.d/slapd stop
+rm /var/lib/ldap/*
+egrep -v "(samba|displayName|MaN|structuralObjectClass|^ )" ldap.backup | slapadd -c
+chown -R openldap.openldap /var/lib/ldap
+/etc/init.d/slapd start

data/Binaries/lib_backup

@@ -0,0 +1,5 @@
+#!/bin/bash
+
+WDIR=$( dirname ${BASH_SOURCE[0]} )/..
+BACKUP_DIR=$WDIR/Backups
+test -d $BACKUP_DIR || mkdir -p $BACKUP_DIR

data/Binaries/log_scan_errors

@@ -0,0 +1,8 @@
+#!/bin/bash
+
+LOG=/var/log/gestion/gestion.log.1
+
+if grep -q "^:0:" $LOG; then
+  grep "^:0:" -A 20 -B 20 $LOG | mail -s "$( hostname ): Error-logs for $( date )" root@localhost
+fi
+

data/Binaries/loop_gestion

@@ -0,0 +1,64 @@
+#!/bin/bash
+LOGR=""
+
+cd $( dirname $0 )/..
+
+log(){
+  echo $( date ) $@ >> $LOG
+}
+
+biglog(){
+  echo "
+
+            ****            ****            ****            ****
+$( date )
+            ****            ****            ****            ****
+
+" >> $LOG
+}
+
+mkdir -p /var/log/gestion
+LOG=/var/log/gestion/gestion.log
+if ! touch $LOG; then
+  LOG=gestion.log
+fi
+if [ "$LOGR" ]; then
+  if [ -f $LOG ]; then
+    mv $LOG $LOG.1
+    gzip -f $LOG.1
+  fi
+fi
+
+#log "$( set )"
+#set
+#while sleep 1; do date; done
+#exit
+
+STOP=/tmp/stop_gestion
+rm $STOP
+touch $LOG
+pkill -9 -f "tail -f $LOG"
+tail -f $LOG &
+while [ ! -f $STOP ]; do
+  now=$( date +%s )
+  if which unbuffer > /dev/null; then
+    PRE="unbuffer"
+  elif which stdbuf >  /dev/null; then
+    PRE="stdbuf -oL -eL"
+  else
+    PRE=""
+  fi
+  #$PRE ./Gestion 2>&1 >> $LOG
+  #./Gestion
+  ./Gestion 2>&1 >> $LOG
+  #./Gestion 2>&1
+  biglog Oups - quit Gestion after $(( quit - now )) seconds
+  quit=$( date +%s )
+  if [ $(( quit - now )) -lt 60 ]; then
+    log This seems to be quite bad... not restarting >> $LOG
+    #tail -n 30 $LOG | mail -s "Gestion crashed on short notice" root@localhost
+    exit
+  fi
+done
+pkill -9 -f "tail -f $LOG"
+biglog Stopped because of $STOP >> $LOG