# berita.tcl

# Konfigurasi
set saluran "      
set url_berita "https://www.fifa.com/id/tournaments/mens/worldcup/canadamexicousa2026/articles/jadwal-pertandingan-hasil-tim-stadion-piala-dunia-fifa-26"

# Fungsi untuk mengambil berita
proc ambil_berita {} {
  set token [::http::geturl $url_berita]
  set data [::http::data $token]
  ::http::cleanup $token
  return $data
}

# Fungsi untuk mengirim berita ke saluran
proc kirim_berita {} {
  set berita [ambil_berita]
  putserv "PRIVMSG $saluran :$berita"
}

# Bind perintah !berita
bind pub - !berita kirim_berita

# Fungsi untuk mengirim skor pertandingan
proc skor_pertandingan {} {
  set url_skor "https:                                        
  set token [::http::geturl $url_skor]
  set data [::http::data $token]
  ::http::cleanup $token
  putserv "PRIVMSG $saluran :Skor Pertandingan: $data"
}

                     
bind pub - !skor skor_pertandingan

                                           
proc jadwal_pertandingan {} {
  set url_jadwal "https://www.fifa.com/id/tournaments/mens/worldcup/canadamexicousa2026/articles/jadwal-pertandingan-hasil-tim-stadion-piala-dunia-fifa-26"
  set token [::http::geturl $url_jadwal]
  set data [::http::data $token]
  ::http::cleanup $token
  putserv "PRIVMSG $saluran :Jadwal Pertandingan: $data"
}

# Bind perintah !jadwal
bind pub - !jadwal jadwal_pertandingan