gestion 1.9.12

data/Views/Self/Chat.rb

@@ -0,0 +1,55 @@
+# To change this template, choose Tools | Templates
+# and open the template in the editor.
+
+class SelfChat < View
+  def layout
+    @@box_length = 40
+    @order = 100
+    @update = true
+    @auto_update_async = 5
+    @auto_update_send_values = false
+
+    gui_vboxg do
+      gui_vbox :nogroup do
+        show_html :replace
+        show_str :email
+        show_str :talk, :flexwidth => 1
+        show_button :send
+      end
+      gui_vboxg :nogroup do
+        show_text :discussion, :flexheight => 1, :flexwidth => 1
+      end
+    end
+
+    ChatMsgs.wait_max = 3
+  end
+
+  def rpc_update_view(session, args = nil)
+    super(session, args) +
+        if get_config(false, :multilogin)
+          reply(:update, :email => 'anonyme@profeda.org') +
+              reply(:update, :replace => '<h1>Ajoutez votre courriel!</h1>')
+        else
+          reply(:hide, [:replace, :email])
+        end
+  end
+
+  def rpc_update(session)
+    ChatMsgs.wait_counter_add
+    reply(:update, discussion: ChatMsgs.show_list) +
+        reply(:focus, :talk)
+  end
+
+  def rpc_button_send(session, data)
+    name, ret = if get_config(false, :multilogin)
+                  [data._email, if data._email != 'anonyme@profeda.org'
+                                  reply(:hide, :replace)
+                                end.to_a]
+                else
+                  [session.owner.login_name, []]
+                end
+    ChatMsgs.new_msg_send(name, data._talk)
+    ret + reply(:empty, [:talk]) +
+        rpc_update(session)
+  end
+end

data/Views/Self/Concours.rb

@@ -0,0 +1,109 @@
+class SelfConcours < View
+  def layout
+    @order = 10
+    @visible = true
+    @functions_need = [:quiz]
+
+    gui_vbox do
+      gui_vbox :nogroup do
+        show_html :welcome
+      end
+      gui_vbox :nogroup do
+        show_str :email, :width => 300
+        show_str :full_name, :width => 300
+      end
+      gui_hbox :nogroup do
+        gui_vbox :nogroup do
+          show_list_drop :q01_isoc_start, "%w( répondez 1980 1992 2000 )"
+          show_list_drop :q02_isoc_chad_start, "%w( répondez 2000 2003 2007 )"
+          show_list_drop :q03_internet_sat, "%w( répondez vrai faux )"
+          show_list_drop :q04_internet_like, "%w( répondez route avion eau )"
+          show_list_drop :q05_internet_needs, "%w( répondez portable fai disque_dur )"
+          show_list_drop :q06_fai_only_one, "%w( répondez vrai faux )"
+          show_list_drop :q07_price_free, "%w( répondez vrai faux )"
+          show_list_drop :q08_email_generic, "%w( répondez courriel yahoo gmail )"
+          show_list_drop :q09_service_surf, "%w( répondez ftp www e-mail )"
+          show_list_drop :q10_is_central, "%w( répondez vrai faux )"
+        end
+        gui_vbox :nogroup do
+          show_list_drop :q11_internet_start, "%w( répondez recherche commercial )"
+          show_list_drop :q12_what_standards, "%w( répondez ouvert payants )"
+          show_list_drop :q13_chapters_count, "%w( répondez 80 90 100 )"
+          show_list_drop :q14_isoc_members, "%w( répondez 57000 60000 55000 )"
+          show_list_drop :q15_domain_names, "%w( répondez IANA IAB ICANN )"
+          show_list_drop :q16_gives_ips, "%w( répondez IANA IAB ICANN )"
+          show_list_drop :q17_does_standards, "%w( répondez IANA IAB ICANN )"
+          show_list_drop :q18_we_work_with, "%w( répondez NTIC NPIC IPNT )"
+          show_list_drop :q19_website_chad, "%w( répondez isoc-tchad.org isoc-chad.org isoc.td )"
+          show_list_drop :q20_best_fai, "%w( répondez tigo airtel sotel prestabist tawali vsat )"
+        end
+      end
+      gui_vbox :nogroup do
+        show_button :send_replies
+      end
+      gui_window :error do
+        show_html :txt_error
+        show_button :ok
+      end
+      gui_window :finish do
+        show_html :txt_finish
+        show_button :yes, :no
+      end
+      gui_window :result do
+        show_html :txt
+        show_button :close
+      end
+    end
+  end
+
+  def rpc_show( session )
+    super( session ) +
+      reply( :update, :welcome => "<h1>مسابقة جمعية الانترنت التشادية</h1>" )
+      #reply( :update, :welcome => "<h1>ISOC-concours</h1>" )
+  end
+
+  def rpc_button_send_replies( session, data )
+    if not data['email'] or not data['full_name'] then
+      return reply( :window_show, :error ) +
+        reply( :update, :txt_error => "لم تدخل اسمك<br>أو البريدك الالكتروني" )
+        #reply( :update, :txt_error => "Vous n'avez pas entré un nom<br>ou un courriel" )
+    end
+    reply( :window_show, :finish ) +
+      reply( :update, :txt_finish => "هل تريد انهاء المسابقة<br>لو انهيتها لا تستطيع التعديل" )
+      #reply( :update, :txt_finish => "Voulez vous terminer votre essai?<br>Vous ne pourriez plus rien changer" )
+  end
+
+  def rpc_button_ok( session, data )
+    reply( :window_hide )
+  end
+
+  def rpc_button_no( session, data )
+    reply( :window_hide )
+  end
+
+  def rpc_button_yes( session, data )
+    replies = []
+    data.sort{|a,b| a[0] <=> b[0] }.each{|d|
+      dputs( 5 ){ "Data is #{d.inspect}" }
+      d[0] =~ /^q.._/ and replies.push d[1][0]
+    }
+    dputs( 2 ){ "replies is #{replies}" }
+    quiz = Quizs.create( :email => data['email'], :full_name => data['full_name'],
+      :reply => replies.join(",") )
+    greeting = case quiz.score
+    when 0..5 then "Oups"
+    when 6..10 then "Ca va"
+    when 11..15 then "Bien"
+    when 16..18 then "Très bien"
+    when 19 then "Excellent"
+    end
+    reply( :window_hide ) +
+      reply( :window_show, :result ) +
+      reply( :update, :txt => "<h2>#{greeting}, votre score est de</h2><br><div align='center'><h1>#{quiz.score}/19</h1>" )
+  end
+
+  def rpc_button_close( session, data )
+    reply( :window_hide ) +
+      rpc_show( session )
+  end
+end

data/Views/Self/Email.rb

@@ -0,0 +1,34 @@
+class SelfEmail < View
+  def layout
+    set_data_class :Persons
+    @update = true
+    @order = 100
+    @functions_need = [:network, :email]
+    @elements = %w( email acc_remote acc_pass acc_proto acc_port acc_supp )
+
+    gui_vbox do
+      show_str_ro :login_name
+      show_str :email, :width => 300
+      show_block :email_account
+      show_button :save
+    end
+  end
+
+  def rpc_update(session, client = nil)
+    person = session.owner
+    reply(:empty_nonlists) +
+        reply(:update, :login_name => person.login_name) +
+        reply(:update, Hash[*@elements.collect { |e|
+          [e.to_sym, person.data_get(e)] }.flatten(1)])
+  end
+
+
+  def rpc_button_save(session, data)
+    person = session.owner
+    @elements.each { |d|
+      person.data_set(d, data[d])
+    }
+    Persons.update_fetchmailrc
+  end
+
+end

data/Views/Self/Internet.rb

@@ -0,0 +1,255 @@
+class SelfInternet < View
+  include Network
+
+  def layout
+    set_data_class :Persons
+    @order = 10
+    @update = true
+    @auto_update_async = 5
+    @auto_update_send_values = false
+    @functions_need = [:internet, :internet_captive]
+    @functions_reject = [:internet_simple]
+
+    gui_hbox do
+      gui_vbox :nogroup do
+        show_html :connection_status
+        show_int_ro :internet_credit
+        show_int_ro :users_connected
+        show_int_ro :bytes_left
+        show_int_ro :bytes_left_today
+        show_html :connection, :width => 100
+        show_html :auto_connection
+        show_button :connect, :disconnect
+      end
+      gui_vbox :nogroup do
+        show_table :traffic, headings: %w(Name Day-2 Day-1 Today),
+                   widths: [100, 75, 75, 75]
+        show_button :disconnect_user
+      end
+    end
+  end
+
+  # 0 - yes
+  # 1 - no money left
+  # 2 - restrictions
+  # 3 - AccessGroups-rules
+  # 4 - no internet available
+  def can_connect(session)
+    noop = Internet.operator == nil
+    return 4 if noop
+    if not (ag = AccessGroups.allow_user_now(session.owner))[0]
+      return ag[1]
+    elsif Captive.restricted
+      return 2
+    elsif Internet.free(session.owner)
+      return 0
+    else
+      if session.owner and session.owner.internet_credit
+        cost_max = 20
+        if Internet.operator
+          cost_max = Internet.operator.user_cost_max
+        end
+        return (session.owner.internet_credit.to_i >= cost_max) ?
+            0 : 1
+      else
+        dputs(0) { "Error: Called with session.owner == nil! #{session.inspect}" }
+        return 1
+      end
+    end
+  end
+
+  def update_connection_status(session)
+    #dputs_func
+    return reply(:hide, :connection_status) unless session.owner.has_role(:cybermanager)
+    ret = []
+    cc = can_connect(session)
+    dputs(3) { "CanConnect is #{cc}" }
+    case cc
+      when 0
+        status, status_str = Internet.connection_status
+        dputs(3) { "Connection-status is #{status.inspect}" }
+        status = status.to_i
+        if (0..4).include? status.to_i
+          status_color = %w( ff0000 ff2200 ff5500 ffff88 88ff88 )
+          status_width = %w( 25 30 35 100 150 )
+          connection_status = "<td width='#{status_width[status]}" +
+              "' bgcolor='" +
+              status_color[status] + "'>" +
+              status_str + "</td><td bgcolor='ffffff'></td>"
+        else
+          dputs(0) { "Error: connection-status was #{status.inspect}" }
+          connection_status = 'Comm-error'
+        end
+
+        ret += reply(:update, :connection_status =>
+                                'Etat de la connexion:<br>' +
+                                    "<table width='150px'><tr>" +
+                                    connection_status +
+                                    '</tr></table>')
+      when 1
+        ret += reply(:update, :connection_status => 'Not enough money in account')
+      when 2
+        ret += reply(:update, :connection_status => 'Restricted access due to teaching')
+      when 3
+        ret += reply(:update, :connection_status => cc)
+      when 4
+        ret += reply(:update, :connection_status => 'No internet connection available')
+    end
+    return ret
+  end
+
+  def update_button(session, nobutton = false)
+    #dputs_func
+    if nobutton
+      return reply(:hide, :connect) +
+          reply(:hide, :disconnect) +
+          reply(:update, :connection =>
+                           "<img src='/Images/connection_wait.png' height='50'>")
+
+    end
+    if not session.owner
+      dputs(0) { "Error: no owner for session #{session.inspect}" }
+      return
+    end
+    show_button = :connect
+    connected = Captive.user_connected session.owner.login_name
+    dputs(3) { "User #{session.owner.login_name} is connected: #{connected} " +
+        "and can_connect = #{can_connect(session)}" }
+    if can_connect(session) == 0
+      dputs(3) { "User_connected #{session.owner.login_name}: #{connected.inspect}" }
+      if connected
+        dputs(4) { "Showing disconnect because we're connected" }
+        show_button = :disconnect
+      elsif Internet.operator &&
+          Internet.operator.has_promo && Internet.operator.internet_left <= 100_000
+        dputs(4) { 'Showing disconnect because there is no promotion left' }
+        show_button = :disconnect
+      end
+    else
+      dputs(3) { "User #{session.owner.login_name} has connected-status: #{connected.inspect}" }
+      show_button = :disconnect
+    end
+    if show_button == :disconnect && !connected
+      reply(:hide, [:connect, :disconnect])
+    else
+      reply_one_two(show_button == :connect, :connect, :disconnect)
+    end +
+        reply(:update, :connection =>
+                         "<img src='/Images/connection_#{connected ? 'yes' : 'no'}.png' height='50'>") +
+        reply_visible(session.owner.is_responsible?, :disconnect_user)
+  end
+
+  def update_isp(session)
+    promo = (Internet.operator && Internet.operator.has_promo)
+    dputs(3) { "promo is #{promo}: #{Internet.operator} - #{Internet.operator.has_promo.inspect}" }
+    reply_visible(promo && session.owner.is_staff?, :bytes_left) +
+        reply(:unhide, :connection_status)
+  end
+
+  def self.make_users_str(users)
+    users_str = [[]]
+    users.split.sort.each { |u|
+      if users_str.last.count > 3
+        users_str[-1] = users_str.last.join(', ')
+        users_str.push []
+      end
+      users_str.last.push u
+    }
+    users_str[-1] = users_str.last.join(', ')
+    users_str.join(',<br>')
+  end
+
+  def rpc_update_async(session)
+    rpc_update(session)
+  end
+
+  def traffic_rxtx(t)
+    t.collect { |r, t| r+t }.join('-')
+  end
+
+  def get_traffic(user)
+    return reply(:hide, :traffic) unless (t = Captive.traffic) && user.is_staff?
+    list = t.traffic.collect { |h, _k|
+      traffic = t.get_day(h, -3).collect { |r, t| ((r+t)/1000)/1000.0 }
+      [h, [h] + traffic]
+    }.select { |t| t[1][1..3].inject(:+) > 0
+    }.sort_by { |t| t[1][3] }.reverse
+    #list = [[:ineiti], [20, 30, 40]]
+    reply(:unhide, :traffic) +
+        reply(:update, traffic: list)
+  end
+
+  def rpc_update(session, nobutton = false)
+    if nobutton
+      nobutton = Internet.operator &&
+          Internet.operator.connection_type == Operator::CONNECTION_ONDEMAND
+    end
+    o = session.owner
+
+    users = Captive.users_connected
+    users_str = SelfInternet.make_users_str(users)
+    dputs(4) { "session is #{session.inspect}" }
+    if session.class != Session
+      dputs(0) { "Called rpc_update without a session! #{caller.inspect}" }
+    end
+    ret = reply(:update, update(session)) +
+        update_button(session, nobutton) +
+        update_connection_status(session) +
+        update_isp(session) +
+        reply(:update, :internet_credit => o.internet_credit.to_i) +
+        reply(:update, :users_connected => "#{users.count}: #{users_str}") +
+        reply_visible(!Internet.free(session.owner), :internet_credit)
+    if Internet.operator && Internet.operator.has_promo && o.is_staff?
+      left = Internet.operator.internet_left
+      ret += reply(:unhide, :bytes_left) +
+          reply(:update, :bytes_left => left.to_MB('Mo'))
+      if Recharges.enabled?
+        ret += reply(:unhide, :bytes_left_today) +
+            reply(:update, bytes_left_today: Recharge.left_today(left).to_MB('Mo'))
+      else
+        ret += reply(:hide, :bytes_left_today)
+      end
+    else
+      ret += reply(:hide, %w(bytes_left bytes_left_today))
+    end
+
+    Captive.user_keep o.login_name, ConfigBase.keep_idle_free.to_i, true
+    url = 'Bookmark for<br>'+ "<a href='http://#{session.web_req.header._host.first}/" +
+        "?user=#{o.login_name}&pass=#{o.password}'>" +
+        'Internet-connection</a>'
+
+    ret + reply(:update, auto_connection: url) +
+        get_traffic(o)
+  end
+
+  def rpc_show(session)
+    super(session) +
+        rpc_update(session)
+  end
+
+  def rpc_button_connect(session, data)
+    if session.web_req
+      log_msg :internet, "#{session.owner.login_name} connects with #{session.inspect}"
+      Internet.user_connect session.owner.login_name, session.client_ip
+      rpc_update(session, true)
+    end
+  end
+
+  def rpc_button_disconnect(session, data)
+    if session.web_req
+      log_msg :internet, "#{session.owner.login_name} disconnects"
+      Internet.user_disconnect session.owner.login_name
+      rpc_update(session, true)
+    end
+  end
+
+  def rpc_button_disconnect_user(session, data)
+    return unless session.owner.is_responsible?
+    data._traffic.each { |u|
+      log_msg :internet, "#{session.owner.login_name} disconnects #{u}"
+      Internet.user_disconnect u
+      rpc_update(session, true)
+    }
+  end
+
+end

data/Views/Self/Results.rb

@@ -0,0 +1,17 @@
+class SelfResults < View
+  def layout
+    @order = 10
+    @visible = true
+    @functions_need = [:quiz]
+
+    gui_vbox do
+      show_list :results, 'Quizs.results', :flexheight => 1
+      show_button :update
+    end
+  end
+
+  def rpc_button_update( session, data )
+    reply( :empty_nonlists, [ :results ] ) +
+    reply( :update, :results => Quizs.results )
+  end
+end

data/Views/Self/Services.rb

@@ -0,0 +1,85 @@
+class SelfServices < View
+  def layout
+    set_data_class :Persons
+    @update = true
+    @order = 30
+    @functions_need = [:accounting]
+    @visible = false
+    
+    gui_hbox do
+      gui_vbox do
+        gui_vbox :nogroup do
+          show_int :copies_laser, :callback => :calc
+          #show_int :heures_groupe_petit, :callback => :calc
+          show_int :heures_groupe_grand, :callback => :calc
+          show_int :CDs, :callback => :calc
+        end
+        gui_vbox :nogroup do
+          show_str :autres_text, :callback => :calc
+          show_int :autres_cfa, :callback => :calc
+        end
+        gui_vbox :nogroup do
+          show_int :services_total
+        end
+        show_button :add_cash
+      end
+      show_int_ro :account_total_due
+    end
+  end
+  
+  def calc_total( values )
+    dputs( 5 ){ "#{values.inspect}" }
+    services_total = 0
+    values.each{|k,v|
+      dputs( 5 ){ "Searching for #{k}: #{v}" }
+      case k
+      when "copies_laser"
+        services_total += v.to_i * 50
+      when "heures_groupe_petit"
+        services_total += v.to_f * 1000
+      when "heures_groupe_grand"
+        services_total += v.to_f * 2500
+      when "CDs"
+        services_total += v.to_i * 500
+      when "autres_cfa"
+        services_total += v.to_i
+      end
+    }
+    services_total
+  end
+  
+  def self.cash_msg( data )
+    "{" + 
+      data.collect{|k,v|
+      v.to_f > 0 and "\"#{k}\"=>\"#{v}\""
+    }.select{|m| m }.join(", ") + 
+      "}"
+  end
+  
+  # Adds the cash to the destination account, and puts the same amount into
+  # the AfriCompta-framework
+  def rpc_button_add_cash( session, data )
+    dputs( 5 ){ "data is #{data.inspect}" }
+    services_total = calc_total( data )
+    dputs( 5 ){ "which amounts to #{services_total} CFA" }
+    actor = session.owner
+    data.delete( "services_total" )
+    data.delete( "account_total_due" )
+    actor.pay_service( services_total, SelfServices.cash_msg( data ) )
+    reply( :empty_nonlists, nil ) + rpc_update( session )
+  end
+  
+  def rpc_update( session )
+    reply( :update, { :account_total_due => session.owner.account_total_due } )
+  end
+  
+  def rpc_update_with_values( session, values = nil )
+    dputs( 3 ){ "Got values: #{values.inspect}" }
+    reply( :update, { :services_total => calc_total( values ) } )
+  end
+  
+  def rpc_callback( session, name, data )
+    rpc_update_with_values( session, data )
+  end
+
+end

data/Views/Self/Show.rb

@@ -0,0 +1,47 @@
+# Allows to add, modify and delete persons
+
+class SelfShow < View
+  def layout
+    set_data_class :Persons
+    @order = 20
+    @update = true
+
+    gui_hbox do
+      show_block :address, :width => 150
+      show_button :save
+
+      gui_vbox :nogroup do
+        show_str :new_password
+        show_button :change_password
+
+        show_button :logout
+      end
+    end
+
+    dputs(5) { "#{@layout.inspect}" }
+  end
+
+  def rpc_button(session, name, data)
+    dputs(3) { "Pressed button #{name} with #{data.inspect}" }
+    person = session.owner
+    case name
+      when 'change_password'
+        person.password = data['new_password']
+      when 'save'
+        person.data_set_hash(data)
+      when 'logout'
+        return reply('reload')
+    end
+    return nil
+  end
+
+  def rpc_update(session)
+    if session.owner
+      reply(:empty_nonlists) +
+          reply(:update, session.owner.to_hash)
+    else
+      log_msg :SelfShow, 'Got empty session.owner, reloading'
+      reply(:reload)
+    end
+  end
+end

data/Views/Self/Tabs.rb

@@ -0,0 +1,5 @@
+class SelfTabs < View
+  def layout
+    @order = 100
+  end
+end

data/Views/Special/DFileEdit.rb

@@ -0,0 +1,13 @@
+class SpecialDFileEdit < View
+  def layout
+    @order = 100
+    @functions_need = [:files_manage]
+
+    gui_hbox do
+      gui_vbox do
+        show_button :mount_harddisk
+        show_button :contact_url
+      end
+    end
+  end
+end

data/Views/Special/PlugEdit.rb

@@ -0,0 +1,56 @@
+class SpecialPlug < View
+  include VTListPane
+
+  def layout
+    @order = 150
+    set_data_class :Plugs
+    @update = true
+
+    gui_hbox do
+      gui_vbox :nogroup do
+        vtlp_list :plugs, :center_name
+        show_button :delete, :new
+      end
+      gui_vbox :nogroup do
+        show_block :default
+        show_arg :internal_id, :width => 150
+        show_button :save
+      end
+      gui_vbox :nogroup do
+        show_text :stats, height: 300, width: 250
+        show_int_ro :operator
+        show_int_ro :credit_left
+        show_int :recharge_credit
+        show_str :cmd_str
+        show_button :recharge, :charge, :cmd
+      end
+    end
+  end
+
+  def rpc_update(session)
+    op, cl = if $MobileControl
+                [$MobileControl.operator_name,
+                $MobileControl.operator_missing? ? -1 : $MobileControl.operator.credit_left]
+             else
+               ['None', -1]
+             end
+    reply(:update, operator: op,
+          credit_left: cl)
+  end
+
+  def plugs(data)
+    Plugs.match_by_plug_id(data._plugs.first)
+  end
+
+  def rpc_button_recharge(session, data)
+    # dp data._plugs
+  end
+
+  def rpc_button_charge(session, data )
+    plugs(data).send_cmd_sms(:charge)
+  end
+
+  def rpc_button_cmd(session, data)
+    plugs(data).send_cmd_sms(data._cmd_str.split(/,\s*/))
+  end
+end

data/Views/Special/Tabs.rb

@@ -0,0 +1,6 @@
+class SpecialTabs < View
+  def layout
+    @order = 200
+    @functions_need = [:special]
+  end
+end