on *:sockopen:mfbot*:{
  if ($sockerr) { return }
  else { 
    var %ifbot = sockwrite -nt $sockname
    %ifbot GET /external.php?type=rss $+ / HTTP/1.1
    %ifbot HOST: www.ircforumu.net
    %ifbot $crlf
  }
}
on *:sockread:mfbot*:{
  var %ifread
  sockread %mfread
  if (*<title>* iswm %ifread) {
    set %mfbaslik $remove(%mfread,</title>,<title>,<![CDATA[,]],<,>,$chr(9)))
  }
  if (*<description>* iswm %mfread) {
    set %mfaciklama $remove(%mfread,</description>,<description>,$chr(9),<![CDATA[,]]>)
  }
  if (*<link>* iswm %ifread) {
    set %mflink $remove(%mfread,</link>,<link>,$chr(9),<![CDATA[,]]>)
    set %mfbolum $remove($replace($gettok(%mflink,3,47),$chr(45),$chr(32)),$chr(9),<![CDATA[,]]>)
  }
  if (*<pubDate>* iswm %mfread) {
    set %mfzaman $remove(%mfread,</pubDate>,<pubDate>,GMT,$chr(9)))
  }
  if (*<dc:creator>* iswm %ifread) {
    set %mfkullanici $remove(%ifread,<dc:creator>,</dc:creator>,$chr(9),<![CDATA[,]]>)
    if (%mfbolum == $null) { halt }
    if (!$regex(%mflink,html$)) { halt }
    if (!$hfind(mircforum,%mflink,1,W).data)  { 
      $iif(!$window(@mircforum),window -e @mircforum) 
      echo @ircforumu.net 2[MF Forum] 2Bolum: %mfbolum 2Başlık: %mfbaslik 2Yazan: %mfkullanici * $+(,[,,$degistir(%mfzaman),,],) * 2 %mfaciklama * - %mflink  
      var %n = $left($calc($ctime * $rand(1000,9999)),7)
      if ($hfind(mircforum,%mflink,0,W).data) { halt }
      hadd -m mircforum %n %mflink
      hsave -o mircforum ircforumu.net      
    }
  }
}
alias degistir { 
  return $replace($1,Mon,Pazartesi,Tue,Salı,Wed,Çarşamba,Thu,Perşembe,Fri,Cuma,Sat,Cumartesi,Sun,Pazar,:,-,Jun,Ocak,Jan,Şubat,Mar,Mart,Apr,Nisan,May,Mayıs,Jul,Haziran,Aug,Ağustos,Sep,Temmuz,Oct,Ekim,Nov,Kasım,Dec,Aralık)
}
alias mircforum {
  var %socketismi $+(mfbot,$rand(1,99999))
  sockclose %socketismi
  sockopen %socketismi www.ircforumu.net 80
}
alias baslasin { 
  .timermircforum 0 5 /mircforum
}
on *:start:hmake mircforum | hmake rss | hload rss rss.06 | hload mircforum
ircforumu.net | baslasin