kolibrios-gitea/programs/network/netstat/ipcfg.inc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                                 ;;
;; Copyright (C) KolibriOS team 2010-2015. All rights reserved.    ;;
;; Distributed under terms of the GNU General Public License       ;;
;;                                                                 ;;
;;  Written by hidnplayr@kolibrios.org                             ;;
;;                                                                 ;;
;;          GNU GENERAL PUBLIC LICENSE                             ;;
;;             Version 2, June 1991                                ;;
;;                                                                 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ipcfg:

        mcall   40, EVM_MOUSE + EVM_MOUSE_FILTER + EVM_REDRAW + EVM_BUTTON + EVM_KEY + EVM_STACK

; Create the 'ip..' string with correct device number
        call    create_str_ini_int

; Try to read settings from .ini file
        invoke  ini.get_str, net_ini, str_ini_int, str_ini_ip_type, ini_buf, 16, sz_0
        test    eax, eax
        jz      @f
; If settings not found, use default settings from 'ip?' section
        mov     dword[str_ini_int], 'ip?'
  @@:

; Read ip/subnet/gateway type
        mov     [option_ip], op_ip_disabled
        invoke  ini.get_str, net_ini, str_ini_int, str_ini_ip_type, ini_buf, 16, sz_0
        test    eax, eax
        jnz     .ip_type_loaded
        mov     eax, dword[ini_buf]
        or      eax, 0x20202020
        cmp     eax, 'auto'
        jne     @f
;        cmp     byte[ini_buf+4], 0
;        jne     @f
        mov     [option_ip], op_ip_auto
        jmp     .ip_type_loaded
  @@:
        cmp     eax, 'dhcp'
        jne     @f
;        cmp     byte[ini_buf+4], 0
;        jne     @f
        mov     [option_ip], op_ip_auto
        jmp     .ip_type_loaded
  @@:
        cmp     eax, 'stat'
        jne     @f
;        mov     eax, dword[ini_buf+3]
;        or      eax, 0x202020
;        cmp     eax, 'tic'
;        jne     @f
        mov     [option_ip], op_ip_static
;        jmp     .ip_type_loaded
  @@:
  .ip_type_loaded:

; Read DNS type
        mov     [option_dns], op_dns_auto
        invoke  ini.get_str, net_ini, str_ini_int, str_ini_dns_type, ini_buf, 16, sz_0
        test    eax, eax
        jnz     @f
        mov     eax, dword[ini_buf]
        or      eax, 0x20202020
        cmp     eax, 'stat'
        jne     @f
;        mov     eax, dword[ini_buf+3]
;        or      eax, 0x202020
;        cmp     eax, 'tic'
;        jne     @f
        mov     [option_dns], op_dns_static
  @@:

; Read all IP addresses
        mov     [str_edit_ip], 0
        mov     [str_edit_subnet], 0
        mov     [str_edit_gateway], 0
        mov     [str_edit_dns], 0

        invoke  ini.get_str, net_ini, str_ini_int, str_ini_ip, str_edit_ip, 16, sz_0
        invoke  ini.get_str, net_ini, str_ini_int, str_ini_subnet, str_edit_subnet, 16, sz_0
        invoke  ini.get_str, net_ini, str_ini_int, str_ini_gateway, str_edit_gateway, 16, sz_0
        invoke  ini.get_str, net_ini, str_ini_int, str_ini_dns, str_edit_dns, 16, sz_0

        invoke  edit_set_text, edit_ip, str_edit_ip
        invoke  edit_set_text, edit_subnet, str_edit_subnet
        invoke  edit_set_text, edit_gateway, str_edit_gateway
        invoke  edit_set_text, edit_dns, str_edit_dns

  .parse_settings:
        call    toggle_editboxes

  .draw:
; get system colors
        mcall   48, 3, sc, 40

        mcall   12, 1

        mov     edx, [sc.work]
        or      edx, 0x34000000
        xor     esi, esi
        mov     edi, str_title
        mcall   0, 50 shl 16 + 200, 30 shl 16 + 200

        mov     ecx, 0x80000000
        or      ecx, [sc.work_text]
;        mov     ebx, 47 shl 16 + 25
;        mov     edx, str_mode
;        mcall
        mov     ebx, 59 shl 16 + 50
        mov     edx, sz_ip
        mcall   4
        mov     ebx, 5 shl 16 + 70
        mov     edx, sz_subnet
        mcall
        mov     ebx, 29 shl 16 + 90
        mov     edx, sz_gateway
        mcall
;        mov     ebx, 47 shl 16 + 95
;        mov     edx, str_mode
;        mcall
        mov     ebx, 53 shl 16 + 135
        mov     edx, sz_dns
        mcall

        invoke  edit_box_draw, edit_ip
        invoke  edit_box_draw, edit_subnet
        invoke  edit_box_draw, edit_gateway
        invoke  edit_box_draw, edit_dns

        invoke  option_box_draw, Option_boxs1
        invoke  option_box_draw, Option_boxs2

        mcall   8, 80 shl 16 + 100, 155 shl 16 + 16, 2, [sc.work_button]

        mov     ecx, 0x80000000
        or      ecx, [sc.work_button_text]
        mov     ebx, 112 shl 16 + 160
        mov     edx, sz_apply
        mcall   4

        mcall   12, 2

  .loop:
        mcall   10
        dec     eax
        jz      .draw
        dec     eax
        jz      .key
        dec     eax
        jz      .btn

        cmp     [edit_ip.color], 0xcacaca
        je      @f
        invoke  edit_box_mouse, edit_ip
        invoke  edit_box_mouse, edit_subnet
        invoke  edit_box_mouse, edit_gateway
  @@:

        cmp     [edit_dns.color], 0xcacaca
        je      @f
        invoke  edit_box_mouse, edit_dns
  @@:

        push    [option_ip] [option_dns]
        invoke  option_box_mouse, Option_boxs1
        invoke  option_box_mouse, Option_boxs2
        pop     ebx eax
        cmp     eax, [option_ip]
        jne     @f
        cmp     ebx, [option_dns]
        je      .loop
  @@:
        call    toggle_editboxes
        jmp     .draw

  .btn:
        mcall   17

        test    ah , ah
        jz      .loop

        cmp     ah, 2   ; apply
        jne     .exit

; Apply settings!
  .apply:
        xor     edi, edi

        cmp     [edit_ip.color], 0xcacaca
        je      .skip_ip
        mov     [edit_ip.color], 0xffffff
        mov     esi, str_edit_ip
        call    validate_ip
        test    eax, eax
        jz      @f
        mov     [edit_ip.color], 0xff4444
        inc     edi
  @@:

        mov     [edit_subnet.color], 0xffffff
        mov     esi, str_edit_subnet
        call    validate_ip
        test    eax, eax
        jz      @f
        mov     [edit_subnet.color], 0xff4444
        inc     edi
  @@:

        mov     [edit_gateway.color], 0xffffff
        mov     esi, str_edit_gateway
        call    validate_ip
        test    eax, eax
        jz      @f
        mov     [edit_gateway.color], 0xff4444
        inc     edi
  @@:
  .skip_ip:

        cmp     [edit_dns.color], 0xcacaca
        je      .skip_dns
        mov     [edit_dns.color], 0xffffff
        mov     esi, str_edit_dns
        call    validate_ip
        test    eax, eax
        jz      @f
        mov     [edit_dns.color], 0xff4444
        inc     edi
  @@:
  .skip_dns:

        test    edi, edi
        jnz     .draw

; Settings look valid, save them to the ini file
; Re-create 'ip..' string, we dont want to save to 'ip?' section.
        call    create_str_ini_int

        cmp     [option_ip], op_ip_auto
        jne     @f
        invoke  ini.set_str, net_ini, str_ini_int, str_ini_ip_type, sz_auto, 4
        jmp     .ip_type_ok
  @@:
        cmp     [option_ip], op_ip_static
        jne     @f
        invoke  ini.set_str, net_ini, str_ini_int, str_ini_ip_type, sz_static, 6
        jmp     .ip_type_ok
  @@:
;        cmp     [option_ip], op_ip_disabled
;        jne     @f
        invoke  ini.set_str, net_ini, str_ini_int, str_ini_ip_type, sz_disabled, 8
;  @@:
  .ip_type_ok:

        cmp     [option_dns], op_dns_auto
        invoke  ini.set_str, net_ini, str_ini_int, str_ini_dns_type, sz_auto, 4
        jmp     @f
  .dns_static:
        invoke  ini.set_str, net_ini, str_ini_int, str_ini_dns_type, sz_static, 6
  @@:

        invoke  ini.set_str, net_ini, str_ini_int, str_ini_ip, str_edit_ip, [edit_ip.size]
        invoke  ini.set_str, net_ini, str_ini_int, str_ini_subnet, str_edit_subnet, [edit_subnet.size]
        invoke  ini.set_str, net_ini, str_ini_int, str_ini_gateway, str_edit_gateway, [edit_gateway.size]
        invoke  ini.set_str, net_ini, str_ini_int, str_ini_dns, str_edit_dns, [edit_dns.size]

  .exit:
        mcall   -1

  .key:
        mcall   2

; Stupid editbox doesnt allow us to disable edit boxes nor filter input decently, so we do it here.
        cmp     ah, 13
        je      .apply
        cmp     ah, 8
        je      @f
        cmp     ah, '.'
        je      @f
        cmp     ah, '0'
        jb      .loop
        cmp     ah, '9'
        ja      .loop
  @@:
        cmp     [edit_ip.color], 0xffffff
        jne     @f
        invoke  edit_box_key, edit_ip
        invoke  edit_box_key, edit_subnet
        invoke  edit_box_key, edit_gateway
  @@:

        cmp     [edit_dns.color], 0xffffff
        jne     @f
        invoke  edit_box_key, edit_dns
  @@:

        jmp     .loop

toggle_editboxes:

        mov     [edit_ip.color], 0xffffff
        mov     [edit_subnet.color], 0xffffff
        mov     [edit_gateway.color], 0xffffff
        cmp     [option_ip], op_ip_static
        je      @f
        mov     [edit_ip.color], 0xcacaca
        mov     [edit_subnet.color], 0xcacaca
        mov     [edit_gateway.color], 0xcacaca
  @@:

        mov     [edit_dns.color], 0xcacaca
        cmp     [option_ip], op_ip_disabled
        je      @f
        cmp     [option_dns], op_dns_static
        jne     @f
        mov     [edit_dns.color], 0xffffff
  @@:

        ret


; in:   esi = ptr to ascii ip
; out:  eax = 0 - ok / -1 - error
validate_ip:
        xor     ecx, ecx        ; octet count
  .outer_loop:
        xor     ebx, ebx        ; current number
        inc     ecx
  .inner_loop:
        lodsb                   ; load one character from ascii string
        test    al, al
        je      .finish
        cmp     al, '.'
        je      .outer_loop
        ; Convert current digit from ascii to bin, if valid
        sub     al, '0'
        jb      .invalid
        cmp     al, 9
        ja      .invalid
        ; multiply current number by 10
        add     bl, bl
        jc      .invalid
        lea     ebx, [ebx + 4 * ebx]
        test    ebx, 0xffffff00
        jnz     .invalid
        ; add current digit to current number
        add     bl, al
        jc      .invalid
        jmp     .inner_loop
  .finish:
        cmp     cl, 4
        jne     .invalid
        xor     eax, eax
        ret

  .invalid:
        or      eax, -1
        ret

create_str_ini_int:
        movzx   eax, [device]
        mov     ebx, 10
        xor     edx, edx
        push    0
  @@:
        div     ebx
        add     dl, '0'
        push    edx
        test    eax, eax
        jnz     @r
  @@:
        mov     edi, str_ini_int+2
  @@:
        pop     eax
        stosb
        test    eax, eax
        jnz     @r

        ret


;-------------------------
; DATA

edit_ip         edit_box 100, 80, 45, 0xffffff, 0x6f9480, 0, 0, 0, 15, str_edit_ip, mouse_dd, 0, 0, 1
edit_subnet     edit_box 100, 80, 65, 0xffffff, 0x6f9480, 0, 0, 0, 15, str_edit_subnet, mouse_dd, 0, 0, 1
edit_gateway    edit_box 100, 80, 85, 0xffffff, 0x6f9480, 0, 0, 0, 15, str_edit_gateway, mouse_dd, 0, 0, 1

edit_dns        edit_box 100, 80, 130, 0xffffff, 0x6f9480, 0, 0, 0, 15, str_edit_dns, mouse_dd, 0, 0, 1

op_ip_disabled  option_box option_ip, 15, 5, 6, 12, 0xffffff, 0, 0, sz_disabled, 9
op_ip_auto      option_box option_ip, 15, 25, 6, 12, 0xffffff, 0, 0, sz_auto, 5
op_ip_static    option_box option_ip, 80, 25, 6, 12, 0xffffff, 0, 0, sz_static, 7

op_dns_auto     option_box option_dns, 15, 110, 6, 12, 0xffffff, 0, 0, sz_auto, 5
op_dns_static   option_box option_dns, 80, 110, 6, 12, 0xffffff, 0, 0, sz_static, 7

option_ip       dd op_ip_auto
option_dns      dd op_dns_auto
Option_boxs1    dd op_ip_disabled, op_ip_auto, op_ip_static, 0
Option_boxs2    dd op_dns_auto, op_dns_static, 0

net_ini         db '/sys/settings/network.ini', 0

str_ini_int     db 'ip1', 0
                rb 10
str_ini_ip      db 'ip', 0
str_ini_subnet  db 'subnet', 0
str_ini_gateway db 'gateway', 0
str_ini_dns     db 'dns', 0
str_ini_ip_type db 'ip_type', 0
str_ini_dns_type db 'dns_type', 0

str_title       db 'IP settings', 0
sz_0            db 0
sz_ip           db 'IP:', 0
sz_subnet       db 'Subnet mask:', 0
sz_gateway      db 'Gateway:', 0
sz_dns          db 'DNS:', 0
sz_auto         db 'Auto', 0
sz_static       db 'Static', 0
sz_disabled     db 'Disabled', 0
sz_apply        db 'Apply', 0

str_edit_ip     rb 16
str_edit_subnet rb 16
str_edit_gateway rb 16
str_edit_dns    rb 16

ini_buf         rb 16

mouse_dd        dd ?