[excellency]

Kod:

; Tarihte Bugün Gösterici By Uyuss(AkIn) 
; www.bianet.org a teşekkürler 

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } } 
alias -l tarih { return $+($replace($gettok($date,2,$asc(/)),01,ocak,02,subat,03,mart,04,nisan,05,mayis,06,haziran,07,temmuz 
,08,agustos,09,eylul,10,ekim,11,kasim,12,aralik),_,$gettok($date,1,$asc(/)),.htm) } 
alias tbugun { dialog -m tarih tarih } 
on *:SockOpen:tarih*:{ 
sockwrite -n $sockname GET $+(/tarih_arsiv/,$tarih) HTTP/1.0 
sockwrite -n $sockname host: www.bianet.org $+ $crlf $+ $crlf 
} 
on *:SockRead:tarih*:{ 
var %a 
sockread %a 
if ($sockerr) { did -ra tarih 1 Bağlantı Hatası Lütfen Daha Sonra Tekrar Deneyin | return } 
if (%sjn == Ok!) && (sayfa başına !isin %a) && (dön</FONT> !isin %a) { did -a tarih 1 $htmlfree($replace($+(%a,$chr(160)),<BR>,$crlf)) } 
if (Tarihte bugün isin %a) { set %sjn Ok! | did -ra tarih 1 Tarihte Bugün $+ $crlf } 
} 
dialog tarih { 
title "Tarihte Bugün Gösterici" 
size -1 -1 133 169 
option dbu 
edit "Yükleniyor..", 1, 4 2 124 144, read multi return autovs vsbar 
button "Çıkış", 2, 47 151 37 12, ok 
} 
on *:dialog:tarih:init:*:{ 
unset %sjn 
sockclose tarih* 
sockopen $+(tarih,$r(1,999)) www.bianet.org 80 
} 

[özeltim20]

Emeğine Sağlık

[TiYLia]

Aaa bu güzelmiş özeltim20 söyle o devlet gibi arkanda olan abeyinede böyle bişe etsin

[özeltim20]

nıye abla sen dıyemırmısen her seyıde devletten beklememk lasım değelmi

[TiYLia]

Ben karar aldım artık muhatap olmuycam hele senle hiç hemen satirsen hıhhhh
Ayrıca herşeyin üstesinden gelirim diyen devlet gibi arkandayım diyen ben değilim

[TiaRa]

 

[özeltim20]