Tarihte Bugün Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
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 } |