gestion 1.9.12

data/Views/Internet/Mobile.rb

@@ -0,0 +1,213 @@
+require 'network'
+require 'helper_classes'
+
+class InternetMobile < View
+  include Network
+
+  def layout
+    @functions_need = [:internet_mobile]
+    @order = 100
+    @update = true
+    @auto_update_async = 10
+    @auto_update_send_values = false
+    @umts_netctl = '/etc/netctl/umts'
+    if !File.exists?(@umts_netctl)
+      # For testing purposes
+      @umts_netctl = '/tmp/umts'
+    end
+    i=0
+    @umts_modes = %w(None 3Gpref 3Gonly GPRSpref GPRSonly).map { |m| [i+=1, m] }
+
+    gui_hboxg do
+      gui_vbox :nogroup do
+        gui_vbox :nogroup do
+          show_str_ro :operator
+          show_int_ro :credit
+          show_int_ro :promotion
+          show_int_ro :promotion_left
+          show_str_ro :state_now
+          show_str_ro :state_goal
+          show_str_ro :emails
+          show_str_ro :vpn
+          show_list_drop :umts_connection, 'View.InternetMobile.umts_connection',
+                         :callback => true
+          show_button :connect, :disconnect, :reload
+          show_split_button :recharge, []
+        end
+        gui_vbox :nogroup do
+          show_str :sms_number
+          show_str :sms_text
+          show_button :send_sms
+        end
+        gui_vbox :nogroup do
+          show_str :ussd
+          show_button :send_ussd, :add_credit
+        end
+      end
+      gui_vboxg :nogroup do
+        show_text :sms_received, :flexheight => 1
+        show_text :ussd_received, :flexheight => 1
+      end
+    end
+  end
+
+  def umts_connection
+    ret = @umts_modes
+    if File.exists?(@umts_netctl)
+      mode = IO.readlines(@umts_netctl).
+          select { |l| l =~ /^\#{0,1}Mode/ }.first.
+          match(/.*=(.*)/)[1]
+      index = @umts_modes.select { |i, m| m == mode }.first[0]
+      index ? ret + [index] : ret
+    else
+      ret
+    end
+  end
+
+  def rpc_list_choice_umts_connection(session, data)
+    if File.exists?(@umts_netctl)
+      file = IO.readlines(@umts_netctl).map { |l|
+        if l =~ /^(\#{0,1}Mode)/
+          "#{$1}=#{@umts_modes[data._umts_connection.first-1][1]}"
+        else
+          l.chomp
+        end
+      }
+      IO.write(@umts_netctl, file.join("\n"))
+    end
+  end
+
+  def s_unknown(i)
+    i == -1 ? 'Unknown' : i
+  end
+
+  def s_status(i)
+    case i
+      when Device::CONNECTED
+        'Connected'
+      when Device::CONNECTING
+        'Connecting'
+      when Device::DISCONNECTING
+        'Disconnecting'
+      when Device::DISCONNECTED
+        'Disconnected'
+      when Device::ERROR_CONNECTION
+        'Error'
+      when -1
+        'Unknown'
+    end
+  end
+
+  def recharges_list
+    return 'No recharge possible' if $MobileControl.operator_missing?
+    list = $MobileControl.operator.internet_cost_available.reverse.
+        collect { |c, v|
+      "#{c} CFAs for #{(v.to_i/1_000_000).separator} MB" }
+    list.size == 0 ? 'No recharge possible' : list
+  end
+
+  def rpc_update(session)
+    return unless $MobileControl
+    cl, il, recharge = if $MobileControl.operator_missing?
+                         [-1, -1, 'No recharge possible']
+                       else
+                         [$MobileControl.operator.credit_left,
+                          $MobileControl.operator.internet_left,
+                          recharges_list]
+                       end
+    #cl, il = s_unknown(cl), s_unknown(il)
+    emails = System.exists?('postqueue') ?
+        System.run_str('postqueue -p | tail -n 1') : 'n/a'
+    vpns = System.exists?('systemctl') ?
+        System.run_str('systemctl list-units --no-legend openvpn@* | '+
+                           'sed -e "s/OpenVPN.*//"') :
+        System.run_str('pgrep openvpn')
+    vpns = vpns.scan(/.{20}/).join("\n")
+    ussds = $MobileControl.device ? $MobileControl.device.ussd_list : 'Down'
+    services = $MobileControl.operator_missing? ? [] : $MobileControl.operator.services
+    {connection: %i(connect disconnect),
+     sms: %i(sms_number sms_text send_sms sms_received),
+     ussd: %i(ussd send_ussd add_credit recharge ussd_received),
+     credit: %i(credit),
+     promotion: %i(promotion promotion_left recharge),
+     umts: %i(umts_connection)}.collect { |service, fields|
+      reply_visible(services.index(service), fields)
+    }.flatten +
+        reply(:update,
+              :state_now => s_status($MobileControl.state_now),
+              :state_goal => s_status($MobileControl.state_goal),
+              :credit => cl,
+              :promotion => il.separator,
+              :promotion_left => Recharge.left_today(il).separator,
+              :emails => emails, :vpn => vpns,
+              :sms_received => SMSs.last(5).reverse.collect { |sms|
+                "#{sms.date}::#{sms.phone}:: ::#{sms.text}"
+              }.join("\n"),
+              :ussd_received => ussds,
+              :recharge => recharge,
+              :operator => $MobileControl.operator_name) +
+        reply_visible(Recharges.enabled?, :promotion_left)
+  end
+
+  def rpc_update_async(session)
+    rpc_update(session)
+  end
+
+
+  def rpc_button_send_sms(session, data)
+    if data._sms_number.to_s.length == 0
+      $MobileControl.device.sms_inject(data._sms_text)
+    else
+      $MobileControl.device.sms_send(data._sms_number, data._sms_text)
+    end
+  end
+
+  def rpc_button_connect(session, data)
+    $MobileControl.connect(true)
+    rpc_update(session)
+  end
+
+  def rpc_button_disconnect(session, data)
+    $MobileControl.disconnect
+    rpc_update(session)
+  end
+
+  def rpc_button_send_ussd(session, data)
+    if data._ussd.to_s.delete(' ').length == 13
+      rpc_button_add_credit(session, data)
+    else
+      $MobileControl.device.ussd_send(data._ussd)
+      rpc_update(session)
+    end
+  end
+
+  def rpc_button_add_credit(session, data)
+    $MobileControl.recharge_hold = true
+    $MobileControl.operator.credit_add(data._ussd)
+    rpc_update(session)
+  end
+
+  def rpc_button_recharge(session, data)
+    if data._menu.to_s.length == 0
+      if $MobileControl.operator_missing?
+        credit = 0
+      else
+        credit = $MobileControl.operator.internet_cost_available.reverse.first[0].to_i
+      end
+    else
+      credit = data._menu.match(/^[0-9]*/)[0].to_i
+    end
+    if credit > 0
+      log_msg :NetworkMobile, "Asking for recharge of #{credit}"
+      $MobileControl.recharge_hold = false
+      $MobileControl.recharge_all(credit)
+    end
+    rpc_update(session)
+  end
+
+  def rpc_button_reload(session, data)
+    $MobileControl.update_left
+    rpc_update(session)
+  end
+
+end

data/Views/Internet/Recharges.rb

@@ -0,0 +1,49 @@
+class InternetRecharges < View
+  def layout
+    @order = 600
+    @update = true
+    @functions_need = [:internet_mobile, :network_pro]
+    set_data_class :Recharges
+
+    gui_hbox do
+      gui_vbox :nogroup do
+        show_entity_recharge_all :recharges, :single, :time,
+                                 width: 200, callback: true
+        show_button :new, :delete
+      end
+      gui_vbox :nogroup do
+        show_block :default, width: 200
+        show_button :save
+      end
+    end
+  end
+
+  def rpc_update(_session, select = nil)
+    recharges = Recharges.search_all_.collect { |r| [r.recharge_id, r.time] }.reverse
+    select and recharges.push(select)
+    reply(:empty_all) +
+        reply(:update, recharges: recharges)
+  end
+
+  def rpc_button_new(session, data)
+    rpc_update(session)
+  end
+
+  def rpc_button_save(session, data)
+    recharges = data._recharges
+    recharges.class == Array and recharges = Recharges.create(time: data._time)
+    recharges.data_set_hash(data)
+    rpc_update(session, recharges.recharge_id)
+  end
+
+  def rpc_button_delete(session, data)
+    return unless data._recharges.class == Recharge
+    data._recharges.delete
+    rpc_update(session)
+  end
+
+  def rpc_list_choice_recharges(session, data)
+    reply(:empty_nonlists) +
+        reply(:update, data._recharges.to_hash)
+  end
+end

data/Views/Internet/Tabs.rb

@@ -0,0 +1,6 @@
+class InternetTabs < View
+  def layout
+    @order = 57
+    @functions_need = [:network, :internet]
+  end
+end

data/Views/Inventory/Computer.rb

@@ -0,0 +1,24 @@
+class InventoryComputer < View
+  include VTListPane
+  def layout
+    set_data_class :Computers
+    
+    gui_hbox do
+      gui_vbox :nogroup do
+        vtlp_list :computer_list, 'name_service', :width => 100
+        show_button :new, :delete
+      end
+
+      gui_hbox :nogroup do
+        gui_vbox :nogroup do
+          show_block :identity, :width => 150
+          show_block :performance
+          show_button :save
+        end
+        gui_vbox :nogroup do
+          show_block :ticket
+        end
+      end
+    end
+  end
+end

data/Views/Inventory/Room.rb

@@ -0,0 +1,18 @@
+class InventoryRoom < View
+  include VTListPane
+  def layout
+    set_data_class :Rooms
+    
+    gui_hbox do
+      gui_vbox :nogroup do
+        vtlp_list :rooms, 'name'
+        show_button :new, :delete
+      end
+
+      gui_vbox :nogroup do
+        show_block :all, :width => 200
+        show_button :save
+      end
+    end
+  end
+end

data/Views/Inventory/Tabs.rb

@@ -0,0 +1,9 @@
+class InventoryTabs < View
+  def layout
+    @order = 40
+    @functions_need = [:inventory]
+
+    gui_vboxg :nogroup do
+    end
+  end
+end

data/Views/Inventory/TicketClosed.rb

@@ -0,0 +1,7 @@
+class InventoryTicketClosed < View
+  include VTListPane
+  include TicketLayout
+  def layout
+    t_layout( :closed )
+  end
+end

data/Views/Inventory/TicketOpen.rb

@@ -0,0 +1,23 @@
+class InventoryTicketOpen < View
+  include VTListPane
+  include TicketLayout
+  def layout
+    t_layout( :opened )
+  end
+  
+  def rpc_button_save_ticket( session, data )
+    if not data['created_by']
+      data['created_by'] = session.owner.full_name
+    end
+    rpc_button_save( session, data )
+  end
+  
+  def rpc_update( session )
+    reply( :update, :created_by => session.owner.full_name )    
+  end
+  
+  def rpc_button_new_ticket( session, data )
+    rpc_button_new( session, data ) +
+      rpc_update( session )
+  end
+end

data/Views/Library/Person.rb

@@ -0,0 +1,36 @@
+class LibraryPerson < View
+  def layout
+    @order = 100
+    @update = true
+
+    gui_hboxg do
+      gui_vboxg :nogroup do
+        show_entity_person :users, :single, :to_list_id,
+                                :callback => true, :flexheight => 1
+      end
+      gui_vboxg :nogroup do
+        show_block :address, :flexwidth => 1
+        show_button :save
+      end
+    end
+  end
+
+  def library_users(owner)
+    Activities.tagged_users('library').to_frontend(owner)
+  end
+
+  def rpc_update(session)
+    reply(:empty, :users) +
+        reply(:update, users: library_users(session.owner) )
+  end
+
+  def rpc_list_choice_users(session, data)
+    reply(:empty_nonlists) +
+        reply(:update, data._users.to_hash)
+  end
+
+  def rpc_button_save(session, data)
+    return unless data._users
+    data._users.data_set_hash(data)
+  end
+end

data/Views/Library/Tabs.rb

@@ -0,0 +1,7 @@
+class LibraryTabs < View
+  def layout
+    @order = 100
+    @functions_need = [:library]
+  end
+  
+end

data/Views/Network/Block.rb

@@ -0,0 +1,87 @@
+class NetworkBlock < View
+  def layout
+    @functions_need = [:network]
+    @order = 100
+    @blocking = Entities.Statics.get(:NetworkBlock)
+    @blocking.data_str.class != Array and @blocking.data_str = []
+    update_block(@blocking.data_str)
+
+    @hosts = Entities.Statics.get(:NetworkBlockHosts)
+    @hosts.data_str.class != String and @hosts.data_str = ''
+
+    gui_hbox do
+      gui_vboxg :nogroup do
+        show_text :hosts, flexheight: 1
+        show_button :update
+        show_list :blocked, 'View.NetworkBlock.list_dhcp', :width => 400
+        show_button :block
+      end
+    end
+  end
+
+  def update_block(ips)
+    Network::Captive.block ips.collect { |ip| ip.sub(/ .*/, '') }
+  end
+
+  def write_block(file, l)
+    #dputs_func
+    list = l.to_s.split("\n").collect { |s| s.gsub(/ /, '') }
+    dputs(3) { "Writing block #{list.inspect}" }
+    file.write(list.compact.collect { |h|
+                 address = "address=/#{h}/127.0.0.1\n"
+                 dputs(3) { "Outputting #{address}" }
+                 address
+               }.join)
+  end
+
+  def update_dnsmasq_file(list, file)
+    block_wrote = false
+    tmpfile = "/tmp/#{File.basename(file)}.tmp"
+    FileUtils.cp file, tmpfile
+    File.open(file, 'w') { |f|
+      IO.readlines(tmpfile).each { |li|
+        l = li.chomp
+        dputs(3) { "Doing line #{l}" }
+        case l
+          when /^(#*)address.*(\/[^\/]*)$/
+            dputs(3) { "#{$1} - #{$2} - #{l}" }
+            f.write(l + "\n") if ($1 == '#' || $2 != '/127.0.0.1')
+            write_block(f, list) unless block_wrote
+            block_wrote = true
+          else
+            f.write(l + "\n")
+        end
+      }
+      # Add to end of file if not written yet
+      write_block(f, list) unless block_wrote
+    }
+  end
+
+  def update_dnsmasq(list)
+    #dputs_func
+    %w( /etc/dnsmasq.conf.orig /etc/dnsmasq.conf /tmp/dns.test).each do |f|
+      if File.exists? f
+        dputs(3) { "Found dnsmasq at #{f}" }
+        update_dnsmasq_file(list, f)
+      end
+    end
+  end
+
+  def list_dhcp
+    System.run_str('cut -d " " -f 3,4 /var/lib/misc/dnsmasq.leases').split("\n")
+  end
+
+  def rpc_update_view(session)
+    super(session) +
+        reply(:update, :blocked => @blocking.data_str, :hosts => @hosts.data_str)
+  end
+
+  def rpc_button_block(session, data)
+    update_block(@blocking.data_str = data._blocked)
+  end
+
+  def rpc_button_update(session, data)
+    update_dnsmasq(@hosts.data_str = data._hosts)
+    Platform.restart :dnsmasq
+  end
+end

data/Views/Network/Netdevs.rb

@@ -0,0 +1,21 @@
+class NetworkNetdevs < View
+  include VTListPane
+
+  def layout
+    @order = 200
+    @functions_need = [:network_pro]
+
+    set_data_class :Netdevs
+
+    gui_hbox do
+      gui_vbox :nogroup do
+        vtlp_list :netdevs, :name
+        show_button :delete, :new
+      end
+      gui_vbox :nogroup do
+        show_block :default
+        show_button :save
+      end
+    end
+  end
+end

data/Views/Network/Restriction.rb

@@ -0,0 +1,37 @@
+class NetworkRestriction < View
+  include Network
+
+  def layout
+    @update = true
+    @functions_need = [:internet]
+    @visible = Persons.center && Persons.center.login_name == 'man'
+
+    gui_vbox do
+      show_html :state
+      show_button :remove_restriction, :restrict_info1, :restrict_info2
+    end
+  end
+
+  def rpc_update( session )
+    if restricted = Captive.restricted
+      reply( :update, :state => "Restricted internet, only allowed for:<br><pre>#{ restricted }</pre>" )
+    else
+      reply( :update, :state => 'No restriction in place')
+    end
+  end
+
+  def rpc_button_remove_restriction( session, args )
+    Captive.restriction_set( nil )
+    rpc_update( session )
+  end
+
+  def rpc_button_restrict_info1( session, args )
+    Captive.restriction_set 'info1'
+    rpc_update( session )
+  end
+
+  def rpc_button_restrict_info2( session, args )
+    Captive.restriction_set 'info2'
+    rpc_update( session )
+  end
+end