Tarihte Bugün

; Tarihte Bugün Gösterici By SCouNDReL
; www.bianet.org a teşekkürler

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | 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
}