Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;                                                      ;

;    Tiny HTTP Server v 0.4 for MenuetOS               ;

;                                                      ;

;    License GPL / See file COPYING for details.       ;

;    Copyright 2003 Ville Turjanmaa                    ;

;                                                      ;

;    Compile with FASM for Menuet                      ;

;                                                      ;

;    Request /TinyStat for server statistics           ;

;    Request /TinyBoard for server message board       ;

;                                                      ;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

version  equ  '0.4'

use32

                org     0x0

                db      'MENUET01'              ; 8 byte id

                dd      0x01                    ; required os

                dd      START                   ; program start

                dd      I_END                   ; program image size

                dd      0x400000                ; required amount of memory

                dd      0x20000

                dd      0,0                     ; reserved=no extended header

include 'lang.inc'

include "macros.inc"

; 0x0+       - program image

; 0x1ffff    - stack

; 0x20000+   - message board

; 0x100000+  - requested file

filel:

   dd   0x0,0x0,50000/512,0x20000,0x70000

   db   '/rd/1/board.htm',0

files:

   dd   0x1,0x0,0x0,0x20000,0x70000

   db   '/rd/1/board.htm',0

START:                          ; start of execution

    mov  eax,58

    mov  ebx,filel

    int  0x40

    mov  [board_size],ebx

    cmp  eax,0

    je   board_found

    mov  [board_size],board_end-board

    mov  esi,board

    mov  edi,0x20000

    mov  ecx,[board_size]

    cld

    rep  movsb

   board_found:

    mov  eax,58

    mov  ebx,files

    mov  ecx,[board_size]

    mov  [files+8],ecx

    int  0x40

    mov  [status],-1

    mov  [last_status],-2

    call clear_input

    call draw_window            ; at first, draw the window

;    call ops

still:

    call check_status

    cmp  [status],4

    je   start_transmission

    cmp  [status],0

    jne  nnn

    cmp  [server_active],1

    jne  nnn

    call ops

   nnn:

    mov  eax,5

    mov  ebx,1

    int  0x40

    mov  eax,11

    int  0x40

    call check_events

    jmp  still

 reb:  ; boot

    mov  eax,18

    mov  ebx,1

    int  0x40

    jmp  $

last_status   dd   0x0

check_events:

    cmp  eax,1                  ; redraw request ?

    jz   red

    cmp  eax,2                  ; key in buffer ?

    jz   key

    cmp  eax,3                  ; button in buffer ?

    jz   button

    ret

red:                           ; redraw

    call draw_window

    ret

key:                           ; Keys are not valid at this part of the

    mov  eax,2                 ; loop. Just read it and ignore

    int  0x40

    ret

button:                         ; button

    mov  eax,17                 ; get id

    int  0x40

    cmp  ah,1                   ; close

    jnz  tst2

    mov  eax,53

    mov  ebx,8

    mov  ecx,[socket]

    int  0x40

    mov  eax,-1

    int  0x40

  tst2:

    cmp  ah,2                   ; button id=2 ?

    jnz  tst3

    ; open socket

  ops:

    mov  eax,53

    mov  ebx,5

    mov  ecx,80     ; local port # - http

    mov  edx,0      ; no remote port specified

    mov  esi,0      ; no remote ip specified

    mov  edi,0      ; PASSIVE open

    int  0x40

    mov  [socket], eax

    mov  [posy],1

    mov  [posx],0

    call check_for_incoming_data

    call clear_input

    call draw_data

    mov  [server_active],1

    call check_status

;    cmp  [status],0

;    je   reb

    ret

  tst3:

    cmp  ah,4                   ; button id=4 ?

    jnz  no4

    mov  [server_active],0

  close_socket:

    mov  eax,53

    mov  ebx,8

    mov  ecx,[socket]

    int  0x40

    mov  eax,5

    mov  ebx,2

    int  0x40

    mov  eax,53

    mov  ebx,8

    mov  ecx,[socket]

    int  0x40

    cmp  [server_active],1

    jne  no_re_open

    mov  eax,53

    mov  ebx,5

    mov  ecx,80     ; local port # - http

    mov  edx,0      ; no remote port specified

    mov  esi,0      ; no remote ip specified

    mov  edi,0      ; PASSIVE open

    int  0x40

    mov  [socket], eax

  no_re_open:

    mov  edi,input_text+256*15+1

    mov  [edi+2],dword ':  :'

    call set_time

    mov  edi,input_text+256*16+1

    mov  [edi+2],dword '.  .'

    call set_date

    mov  eax,[documents_served]

    mov  ecx,9

    mov  edi,input_text+256*15+12

    call set_value

    mov  eax,[bytes_transferred]

    mov  ecx,9

    mov  edi,input_text+256*16+12

    call set_value

    call draw_data

    mov  esp,0x1ffff

    jmp  still

  no4:

    cmp  ah,6                   ; read directory

    je   read_string

    ret

clear_input:

    mov  edi,input_text

    mov  eax,0

    mov  ecx,256*30

    cld

    rep  stosb

    ret

retries  dd 50

start_transmission:

    mov  [posy],1

    mov  [posx],0

    call clear_input

    mov  [retries],50

  wait_for_data:

    call check_for_incoming_data

    cmp  [input_text+256+1],dword 'GET '

    je   data_received

    cmp  [input_text+256+1],dword 'POST'

    je   data_received

    mov  eax,5

    mov  ebx,1

    int  0x40

    dec  [retries]

    jnz  wait_for_data

    jmp  no_http_request

  data_received:

    mov  eax,0x100000

    mov  ebx,0x2f0000 / 512

    call read_file

    call wait_for_empty_slot

    call send_header

    mov  [filepos],0x100000

    mov  [fileadd],700

    call check_status

    call draw_data

  newblock:

    call wait_for_empty_slot

    mov  edx,[fileadd]

    cmp  edx,[file_left]

    jbe  file_size_ok