parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

Может кому надо?

AleXp 21.09.2005 09:57

http://www.opensea.tv/295/fonts.gif - шрифт.

http://www.opensea.tv/295/forum.jpg - в действии

Скрипт:
### Фигня v 1.0 ###
# .htaccess в директории:
#------------------------------------------
#<IfModule mod_mime.c>
#        AddType parsed-html .jpg
#</IfModule>
#------------------------------------------
###########################################



# screen.gif - прозрачный gif файл размеров 250x20
$imageScreen[^image::load[screen.gif]]
# fonts.gif - шрифт формата gif для надписей
^imageScreen.font[абвгдежзиклмнопрстуфхцчшщъыьэюяabcdefghijklmnopqrstuvwxyz1234567890/()!?%.:,;fonts.gif](5)

$stringIP[$env:REMOTE_ADDR]

$UA[$env:HTTP_USER_AGENT]

^if(^UA.pos[MSIE]>=0){$stringResult[ваш ip адрес: $stringIP, браузер: i.explorer]}
^if(^UA.pos[Netscape]>=0){$stringResult[ваш ip адрес: $stringIP, браузер: netscape]}
^if(^UA.pos[Opera]>=0){$stringResult[ваш ip адрес: $stringIP, браузер: opera]}
^if(^UA.pos[Avant]>=0){$stringResult[ваш ip адрес: $stringIP, браузер: avant]}

$stringLength(^imageScreen.length[$stringResult])

^imageScreen.text(^eval(($imageScreen.width-$stringLength)/2);^eval(($imageScreen.height-3)/2))[$stringResult]

$fileScreen[^imageScreen.gif[]]
^fileScreen.save[binary;outside.gif]

$response:body[
        $.file[outside.gif]
        $.name[ip.gif]
]