- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
format ELF
include 'macros.inc'
public main
extrn printf
extrn puts
extrn exit
extrn strtok
extrn getenv
extrn strcmp
extrn strtol
extrn strcpy
; Функции для общения с БД
extrn get_version ; ремейк на mysql_get_client_info()
extrn get_product_by_single_name_ex
CGI_HEADER db "Content-Type: text/html", 13,10, "X-Powered-by: FASM (Flat Assembler 1.68)",13,10,0
QUERY_STRING db ?
REQUEST_METHOD db ?
query_str_env_req db "QUERY_STRING", 0
request_method_env_req db "REQUEST_METHOD", 0
RM_GET db "GET", 0
RM_POST db "POST",0
NO_ACTION_ERROR_MSG db "No action", 0
q_token db "="
r_token db "&"
; Константы ACTION
AC_VERSION equ 0; Инфа о версии и копирайте
AC_PRODUCT_ID_BY_SINGLE_NAME equ 1; ID продукта по полному совпадению имени
section '.text' executable
_start:
main:
ccall puts, CGI_HEADER
ccall getenv, request_method_env_req
push eax
;c
xor eax, eax
pop eax
ccall strcmp, eax, RM_GET ; TODO: ЗМЕНИТЬ НА POST!!!1111
cmp eax, 0
jne quit
;Что прислали в Action. ( ТОЛЬКО GET )
ccall getenv, query_str_env_req
ccall strcpy, QUERY_STRING, eax
ccall strtok, QUERY_STRING, q_token
push eax
ccall strcmp, eax, "act"
cmp eax, 0
jne no_act
je act
no_act:
ccall puts, NO_ACTION_ERROR_MSG
jmp quit
act:
; Узнаём, что за опция в act
pop eax;
ccall strtok, 0, q_token
ccall strtol, eax, 0, 10
cmp eax, AC_VERSION
je version_put
cmp eax, AC_PRODUCT_ID_BY_SINGLE_NAME
je product_id_by_single_name
jne quit
version_put:
; версия - из mysql
ccall puts, "Web kernel v0.1. (c) 2009 by Sergei V. Adoniew ( [email protected] ) with MySQL: "
ccall get_version
ccall puts, eax
jmp quit
product_id_by_single_name:
;НА Входе: name=%docname%
;НА Выходе id
; дробим строку на a=b разделителем &
ccall getenv, "QUERY_STRING"
;у нас в eax вся строка
Собственный пьяный высер на фасме ( FASM ).
Обратить внимание на ветвление:)