Günün sözü

alias gununsozu { if $sock(gununsozu) { echo 12 -a * /gununsozu: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen gununsozu www.mynet.com 80 } } on *:sockopen:gununsozu:{ var %c = sockwrite -n $sockname if ($sockerr) { echo $colour(info) -a * /gununsozu: Hata. | return } %c GET /soz.asp HTTP/1.1 | %c Host: mynet.com | %c Connection: Close $str($crlf,2) } on *:sockread:gununsozu:{ var %g | sockread %g | if *class=”f1001″>* iswm %g { echo 4 -a * Günün sözü; $htmlfree($v2) } } alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|\t|<[^>]*$)/g,$null)