Subversion Repositories Kolibri OS

Rev

Rev 6904 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6904 Rev 6905
Line 48... Line 48...
48 
    mov [write_to_file.current_offset], eax
 48 
    mov [write_to_file.current_offset], eax
49 
    mov [write_to_file.bufsize], eax
 49 
    mov [write_to_file.bufsize], eax
50 
    mov [write_to_file.bufptr], eax
 50 
    mov [write_to_file.bufptr], eax
Line 51... Line 51...
51 
 
 51 
 
52 
    DEBUGF 1, "---- HTTP : Getting %s\n", [targeturl]
 52 
    DEBUGF 1, "---- HTTP : Getting %s\n", [targeturl]
53 
    invoke  HTTP_get, [targeturl], 0, FLAG_KEEPALIVE, 0
 53 
    invoke  HTTP_get, [targeturl], 0, FLAG_KEEPALIVE or FLAG_BLOCK, 0
54 
    cmp     eax, 0
 54 
    cmp     eax, 0
55 
    je .http_error
 55 
    je .http_error
Line 56... Line 56...
56 
	mov [httpstruct], eax
 56 
    mov [httpstruct], eax
Line 61... Line 61...
61 
    cmp eax, 0
 61 
    cmp eax, 0
62 
    jne .file_error
 62 
    jne .file_error
Line 63... Line 63...
63 
 
 63 
 
64 
    .http_receive_loop:
 64 
    .http_receive_loop:
65 
		DEBUGF 1, "---- Receiving over http.\n"
 - 
 
66 
     	DEBUGF 1, "---- Invoking http receive.\n"
 65 
        DEBUGF 1, "---- Receiving over http.\n"
- 
 
 66 
        invoke HTTP_receive, [httpstruct]
67 
        invoke HTTP_receive, [httpstruct]
 67 
 
68 
        cmp eax, 0
 68 
        cmp eax, 0
Line -... Line 69...
- 
 
 69 
        je .http_transfer_done
69 
        je .http_transfer_done
 70 
 
70 
 
 71 
 
71 
	    mov ebp, [httpstruct]
 72 
        mov ebp, [httpstruct]
72 
		DEBUGF 1, "---- http flags = 0x%x.\n", 	[ebp + http_msg.flags]
 73 
        DEBUGF 1, "---- http flags = 0x%x.\n",     [ebp + http_msg.flags]
Line 163... Line 164...
163 
    popa
 164 
    popa
164 
    ret
 165 
    ret
165 
endp
 166 
endp
Line 166... Line 167...
166 
 
 167 
 
167 
START:
 168 
START:
Line 168... Line 169...
168 
    mcall   68, 11                  ; init heap so we can allocate memory dynamically
 169 
    mcall   68, 11                  ; init heap
169 
 
 170 
 
170 
; load libraries
 171 
; load libraries
171 
    stdcall dll.Load, @IMPORT
 172 
    stdcall dll.Load, @IMPORT
Line -... Line 173...
- 
 
 173 
    test    eax, eax
- 
 
 174 
    jnz     .all_files_done_error
- 
 
 175 
 
172 
    test    eax, eax
 176 
    DEBUGF 2, "-------------------------\n"
173 
    jnz     .all_files_done_error
 177 
    DEBUGF 2, "NETSURF INSTALLER.\n"
174 
 
 178 
 
175 
	stdcall make_new_folder, dirname_res
 179 
    stdcall make_new_folder, dirname_res
Line -... Line 180...
- 
 
 180 
    stdcall make_new_folder, dirname_res_pointers
176 
	stdcall make_new_folder, dirname_res_pointers
 181 
    stdcall make_new_folder, dirname_res_throbber
177 
	stdcall make_new_folder, dirname_res_throbber
 182 
    stdcall make_new_folder, dirname_res_icons
178 
	stdcall make_new_folder, dirname_res_icons
 183 
 
Line 179... Line 184...
179 
 
 184 
 
Line 217... Line 222...
217 
    movsb
 222 
    movsb
218 
    mov [filelistoffset], esi
 223 
    mov [filelistoffset], esi
Line 219... Line 224...
219
224 
 
220 
    ;; current_filename is now set to the name of the file
 225 
    ;; current_filename is now set to the name of the file
221 
    ;; current_url is now set to the name of the file we will get after download
 226 
    ;; current_url is now set to the name of the file we will get after download
222 
	DEBUGF 2, "-------- [START] Fetching : %s\n", current_url
 227 
    DEBUGF 2, "Fetching : %s", current_filename
223 
	stdcall get_file_over_http, current_url, current_filename
 228 
    stdcall get_file_over_http, current_url, current_filename
224 
	DEBUGF 2, "-------- [END] Fetching : %s\n", current_url
229 
    DEBUGF 2, "...DONE!\n"
Line 225... Line 230...
225 
	jmp .get_next_file
 230 
    jmp .get_next_file
226 
 
 231 
 
227 
.all_files_done:
 232 
.all_files_done:
- 
 
 233 
    DEBUGF 2, "-------------------------\n"
- 
 
 234 
    DEBUGF 2, "NETSURF INSTALLED. Enjoy!\n"
228 
	DEBUGF 1, "-------------------------\n"
 235 
    DEBUGF 2, "-------------------------\n"
Line 229... Line 236...
229 
	DEBUGF 1, "NETSURF INSTALLED. Enjoy!\n"
 236 
    mcall -1
230 
    ;; Inform user that all files are done
 237 
    ;; Inform user that all files are done
231 
 
 238 
 
Line 309... Line 316...
309 
         db 'res/icons/stop_g.png', 0
 316 
         db 'res/icons/stop_g.png', 0
310 
         db 'res/icons/home.png', 0
 317 
         db 'res/icons/home.png', 0
311 
         db 'res/icons/reload.png', 0
 318 
         db 'res/icons/reload.png', 0
312 
         db 0
 319 
         db 0
Line 313... Line -...
313 
 
 - 
 
314 
current_url      rb URLMAXLEN
 320 
 
315 
filelistoffset   dd filelist
 - 
 
316 
current_filename rb FILENAMEMAXLEN
 321 
filelistoffset   dd filelist
Line 317... Line 322...
317 
httpstruct       dd 0
 322 
httpstruct       dd 0
318 
 
 323 
 
319 
create_new_file	dd 2, 0, 0, 0, 0
 324 
create_new_file    dd 2, 0, 0, 0, 0
Line 329... Line 334...
329 
 .bufsize        dd 0
 334 
 .bufsize        dd 0
330 
 .bufptr         dd 0
 335 
 .bufptr         dd 0
331 
                 db 0
 336 
                 db 0
332 
                 dd current_filename
 337 
                 dd current_filename
Line -... Line 338...
- 
 
 338 
 
- 
 
 339 
socketdata       rb 4096
- 
 
 340 
current_url      rb URLMAXLEN
333
341 
current_filename rb FILENAMEMAXLEN