JuLiet Admin
Mesaj Sayısı : 113 Kayıt tarihi : 03/05/10 Yaş : 37 Nerden : iStanbuL
| Konu: İsim Anlamaları Cuma Mayıs 14, 2010 1:37 pm | |
| - Kod:
-
- alias anlam { sockclose isim sockopen isim www.isimbul.net 80 set -e %isim $1 } on *:sockopen:isim:{ sockwrite -n $sockname GET / $+ %isim $+ / HTTP/1.1 sockwrite -n $sockname Host: $+( www.isimbul.net,$str($crlf,2)) sockwrite -n $sockname } on *:sockread:isim:{ var %temp sockread %temp if (*Hata*404*Sayfa*Bulunamad* iswm %temp) { echo 4 -a Kayıt bulunamadı. | sockclose isim } if (* ** iswm %temp) && !$regex(%temp,/(isimbul\.net|Yoruma kapal)/) { echo 3 -a $htmlfree(%temp) | sockclose isim } } alias htmlfree { var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return %x } Kodu remote kısmına ekledikten sonra; /anlam isim (Örnek: /anlam Ahmet) | |
|