;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Copyright (C) KolibriOS team 2010-2024. 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 invoke edit_box_mouse, edit_ip invoke edit_box_mouse, edit_subnet invoke edit_box_mouse, edit_gateway 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 [option_ip], op_ip_static jne .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 [option_dns], op_dns_static jne .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 jne .dns_static 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 ; Editbox doesnt allow us to filter input decently, so we do it here. cmp ah, 13 je .apply cmp ah, 8 je @f cmp ah, 0xb0 ; left arrow je @f cmp ah, 0xb3 ; right arrow je @f cmp ah, '.' je @f cmp ah, '0' jb .loop cmp ah, '9' ja .loop @@: invoke edit_box_key, edit_ip invoke edit_box_key, edit_subnet invoke edit_box_key, edit_gateway invoke edit_box_key, edit_dns jmp .loop toggle_editboxes: and [edit_ip.flags], not ed_disabled and [edit_subnet.flags], not ed_disabled and [edit_gateway.flags], not ed_disabled cmp [option_ip], op_ip_static je @f or [edit_ip.flags], ed_disabled or [edit_subnet.flags], ed_disabled or [edit_gateway.flags], ed_disabled @@: or [edit_dns.flags], ed_disabled cmp [option_ip], op_ip_disabled je @f cmp [option_dns], op_dns_static jne @f and [edit_dns.flags], not ed_disabled @@: 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 ?