Günlük Yemek Kodu Socket

on $*:text:/^[.!]yemek$/i:#: {   if %yemekchan { return } | set -eu10 %yemekchan $chan | nextdatess | yemek  }
alias yemek { if $sock(yemek) { .sockclose yemek } | .sockopen yemek  $sit 80 }
on *:sockopen:yemek: {   $m GET / HTTP/1.0  | $m Host: $sit | $m Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 | $m Accept-Encoding: * | $m $crlf  }
on *:sockread:yemek:{
  var %yemek
  sockread -f %yemek
  var %pattern = /"endDate"\:" $+ $nextdate  18\:30\:00","type":1\}, $+ \{"foodName"\:\[(.+)\],"startDate"\:" $+ $bdate  $+ /
  if $regex(%yemek,%pattern) { msg %yemekchan  [Gunun Yemegi]  $karaktertemizle($karakterduzelt($regml(1))))  }
}
alias -l m return sockwrite -n $sockname
alias -l sit return  yemek.comu.edu.tr
alias -l bdate return $date(yyyy-mm-dd)
alias -l nextdate return $asctime($calc($ctime + %tatil__),yyyy-mm-dd)
alias -l nextdatess {  var %ll = $asctime($calc($ctime + 86400),dddd), %zz = set -eu5 % $+ tatil__  | if (%ll == Sunday) { %zz $calc(86400 *2) }  | if (%ll == Saturday) { %zz $calc(86400 *3) }  | else { %zz 86400  }  }
alias -l karakterduzelt return $replacex($$1-,$+($chr(41),"),-kcaL $+ $chr(41) $chr(32),$chr(44),$chr(32),\u00c7,C,\u0130,i,\u00e7,c,\u0131,i,\u015f,s,\u00f6,o,\u011f,g,\u015e,S,\u00fc,u)
alias -l karaktertemizle { return $remove($1-,$chr(34)) }