Code: Select all
bind pub - !adzan pub:sholat
bind RAW - 391 pub:waktureply
bind time - "00 * * * *" sholat
set multichan "#help #indowebster"
set sedangrunning "true"
set kodedaerah "Jakarta Pusat"
set daerah "308"
proc percetakan {} {
global kodedaerah daerah
cetak $daerah "$kodedaerah" ""
}
proc otomatis {} {
pub:pengecekan
percetakan
}
proc sholat {mins hours days months years} {
pub:pengecekan
percetakan
}
proc pub:sholat {nick uhost hand chan text} {
global daerah kodedaerah
set daerah ""
if {$text == ""} {
puthelp "NOTICE $nick :Gunakan: !adzan batam"
return 0
}
set namanih [string tolower $text]
switch -- $namanih {
"ambarawa" { set daerah "1"
set namadaerah "Ambarawa" }
"ambon" { set daerah "2"
set namadaerah "Ambon" }
"amlapura" { set daerah "3"
set namadaerah "Amlapura" }
"amuntai" { set daerah "4"
set namadaerah "Amuntai" }
"argamakmur" { set daerah "5"
set namadaerah "Argamakmur" }
"atambua" { set daerah "6"
set namadaerah "Atambua" }
"babo" { set daerah "7"
set namadaerah "Babo" }
"bagan siapiapi" { set daerah "8"
set namadaerah "Bagan Siapiapi" }
"bajawa" { set daerah "9"
set namadaerah "Bajawa" }
"balige" { set daerah "10"
set namadaerah "Balige" }
"balikpapan" { set daerah "11"
set namadaerah "Balikpapan" }
"banda aceh" { set daerah "12"
set namadaerah "Banda Aceh" }
"bandarlampung" { set daerah "13"
set namadaerah "Bandarlampung" }
"bandung" { set daerah "14"
set namadaerah "Bandung" }
"bangkalan" { set daerah "15"
set namadaerah "Bangkalan" }
"bangkinang" { set daerah "16"
set namadaerah "Bangkinang" }
"bangko" { set daerah "17"
set namadaerah "Bangko" }
"bangli" { set daerah "18"
set namadaerah "Bangli" }
"banjar" { set daerah "19"
set namadaerah "Banjar" }
"banjar baru" { set daerah "20"
set namadaerah "Banjar Baru" }
"banjarmasin" { set daerah "21"
set namadaerah "Banjarmasin" }
"banjarnegara" { set daerah "22"
set namadaerah "Banjarnegara" }
"bantaeng" { set daerah "23"
set namadaerah "Bantaeng" }
"banten" { set daerah "24"
set namadaerah "Banten" }
"bantul" { set daerah "25"
set namadaerah "Bantul" }
"banyuwangi" { set daerah "26"
set namadaerah "Banyuwangi" }
"barabai" { set daerah "27"
set namadaerah "Barabai" }
"barito" { set daerah "28"
set namadaerah "Barito" }
"barru" { set daerah "29"
set namadaerah "Barru" }
"batam" { set daerah "30"
set namadaerah "Batam" }
"batang" { set daerah "31"
set namadaerah "Batang" }
"batu" { set daerah "32"
set namadaerah "Batu" }
"baturaja" { set daerah "33"
set namadaerah "Baturaja" }
"batusangkar" { set daerah "34"
set namadaerah "Batusangkar" }
"baubau" { set daerah "35"
set namadaerah "Baubau" }
"bekasi" { set daerah "36"
set namadaerah "Bekasi" }
"bengkalis" { set daerah "37"
set namadaerah "Bengkalis" }
"bengkulu" { set daerah "38"
set namadaerah "Bengkulu" }
"benteng" { set daerah "39"
set namadaerah "Benteng" }
"biak" { set daerah "40"
set namadaerah "Biak" }
"bima" { set daerah "41"
set namadaerah "Bima" }
"binjai" { set daerah "42"
set namadaerah "Binjai" }
"bireuen" { set daerah "43"
set namadaerah "Bireuen" }
"bitung" { set daerah "44"
set namadaerah "Bitung" }
"blitar" { set daerah "45"
set namadaerah "Blitar" }
"blora" { set daerah "46"
set namadaerah "Blora" }
"bogor" { set daerah "47"
set namadaerah "Bogor" }
"bojonegoro" { set daerah "48"
set namadaerah "Bojonegoro" }
"bondowoso" { set daerah "49"
set namadaerah "Bondowoso" }
"bontang" { set daerah "50"
set namadaerah "Bontang" }
"boyolali" { set daerah "51"
set namadaerah "Boyolali" }
"brebes" { set daerah "52"
set namadaerah "Brebes" }
"bukit tinggi" { set daerah "53"
set namadaerah "Bukit Tinggi" }
"bulukumba" { set daerah "54"
set namadaerah "Bulukumba" }
"buntok" { set daerah "55"
set namadaerah "Buntok" }
"cepu" { set daerah "56"
set namadaerah "Cepu" }
"ciamis" { set daerah "57"
set namadaerah "Ciamis" }
"cianjur" { set daerah "58"
set namadaerah "Cianjur" }
"cibinong" { set daerah "59"
set namadaerah "Cibinong" }
"cilacap" { set daerah "60"
set namadaerah "Cilacap" }
"cilegon" { set daerah "61"
set namadaerah "Cilegon" }
"cimahi" { set daerah "62"
set namadaerah "Cimahi" }
"cirebon" { set daerah "63"
set namadaerah "Cirebon" }
"curup" { set daerah "64"
set namadaerah "Curup" }
"demak" { set daerah "65"
set namadaerah "Demak" }
"denpasar" { set daerah "66"
set namadaerah "Denpasar" }
"depok" { set daerah "67"
set namadaerah "Depok" }
"dili" { set daerah "68"
set namadaerah "Dili" }
"dompu" { set daerah "69"
set namadaerah "Dompu" }
"donggala" { set daerah "70"
set namadaerah "Donggala" }
"dumai" { set daerah "71"
set namadaerah "Dumai" }
"ende" { set daerah "72"
set namadaerah "Ende" }
"enggano" { set daerah "73"
set namadaerah "Enggano" }
"enrekang" { set daerah "74"
set namadaerah "Enrekang" }
"fakfak" { set daerah "75"
set namadaerah "Fakfak" }
"garut" { set daerah "76"
set namadaerah "Garut" }
"gianyar" { set daerah "77"
set namadaerah "Gianyar" }
"gombong" { set daerah "78"
set namadaerah "Gombong" }
"gorontalo" { set daerah "79"
set namadaerah "Gorontalo" }
"gresik" { set daerah "80"
set namadaerah "Gresik" }
"gunung sitoli" { set daerah "81"
set namadaerah "Gunung Sitoli" }
"indramayu" { set daerah "82"
set namadaerah "Indramayu" }
"jakarta barat" { set daerah "309"
set namadaerah "Jakarta Barat" }
"jakarta selatan" { set daerah "310"
set namadaerah "Jakarta Selatan" }
"jakarta timur" { set daerah "311"
set namadaerah "Jakarta Timur" }
"jakarta utara" { set daerah "312"
set namadaerah "Jakarta Utara" }
"jambi" { set daerah "83"
set namadaerah "Jambi" }
"jayapura" { set daerah "84"
set namadaerah "Jayapura" }
"jember" { set daerah "85"
set namadaerah "Jember" }
"jeneponto" { set daerah "86"
set namadaerah "Jeneponto" }
"jepara" { set daerah "87"
set namadaerah "Jepara" }
"jombang" { set daerah "88"
set namadaerah "Jombang" }
"kabanjahe" { set daerah "89"
set namadaerah "Kabanjahe" }
"kalabahi" { set daerah "90"
set namadaerah "Kalabahi" }
"kalianda" { set daerah "91"
set namadaerah "Kalianda" }
"kandangan" { set daerah "92"
set namadaerah "Kandangan" }
"karanganyar" { set daerah "93"
set namadaerah "Karanganyar" }
"karawang" { set daerah "94"
set namadaerah "Karawang" }
"kasungan" { set daerah "95"
set namadaerah "Kasungan" }
"kayuagung" { set daerah "96"
set namadaerah "Kayuagung" }
"kebumen" { set daerah "97"
set namadaerah "Kebumen" }
"kediri" { set daerah "98"
set namadaerah "Kediri" }
"kefamenanu" { set daerah "99"
set namadaerah "Kefamenanu" }
"kendal" { set daerah "100"
set namadaerah "Kendal" }
"kendari" { set daerah "101"
set namadaerah "Kendari" }
"kertosono" { set daerah "102"
set namadaerah "Kertosono" }
"ketapang" { set daerah "103"
set namadaerah "Ketapang" }
"kisaran" { set daerah "104"
set namadaerah "Kisaran" }
"klaten" { set daerah "105"
set namadaerah "Klaten" }
"kolaka" { set daerah "1"
set namadaerah "Kolaka" }
"kota baru pulau laut" { set daerah "107"
set namadaerah "Kota Baru Pulau Laut" }
"kota bumi" { set daerah "108"
set namadaerah "Kota Bumi" }
"kota jantho" { set daerah "109"
set namadaerah "Kota Jantho" }
"kotamobagu" { set daerah "110"
set namadaerah "Kotamobagu" }
"kuala kapuas" { set daerah "111"
set namadaerah "Kuala Kapuas" }
"kuala kurun" { set daerah "112"
set namadaerah "Kuala Kurun" }
"kuala pembuang" { set daerah "113"
set namadaerah "Kuala Pembuang" }
"kuala tungkal" { set daerah "114"
set namadaerah "Kuala Tungkal" }
"kudus" { set daerah "115"
set namadaerah "Kudus" }
"kuningan" { set daerah "116"
set namadaerah "Kuningan" }
"kupang" { set daerah "117"
set namadaerah "Kupang" }
"kutacane" { set daerah "118"
set namadaerah "Kutacane" }
"kutoarjo" { set daerah "119"
set namadaerah "Kutoarjo" }
"labuhan" { set daerah "120"
set namadaerah "Labuhan" }
"lahat" { set daerah "121"
set namadaerah "Lahat" }
"lamongan" { set daerah "122"
set namadaerah "Lamongan" }
"langsa" { set daerah "123"
set namadaerah "Langsa" }
"larantuka" { set daerah "124"
set namadaerah "Larantuka" }
"lawang" { set daerah "125"
set namadaerah "Lawang" }
"lhoseumawe" { set daerah "126"
set namadaerah "Lhoseumawe" }
"limboto" { set daerah "127"
set namadaerah "Limboto" }
"lubuk basung" { set daerah "128"
set namadaerah "Lubuk Basung" }
"lubuk linggau" { set daerah "129"
set namadaerah "Lubuk Linggau" }
"lubuk pakam" { set daerah "130"
set namadaerah "Lubuk Pakam" }
"lubuk sikaping" { set daerah "131"
set namadaerah "Lubuk Sikaping" }
"lumajang" { set daerah "132"
set namadaerah "Lumajang" }
"luwuk" { set daerah "133"
set namadaerah "Luwuk" }
"madiun" { set daerah "134"
set namadaerah "Madiun" }
"magelang" { set daerah "135"
set namadaerah "Magelang" }
"magetan" { set daerah "136"
set namadaerah "Magetan" }
"majalengka" { set daerah "137"
set namadaerah "Majalengka" }
"majene" { set daerah "138"
set namadaerah "Majene" }
"makale" { set daerah "139"
set namadaerah "Makale" }
"makassar" { set daerah "140"
set namadaerah "Makassar" }
"malang" { set daerah "141"
set namadaerah "Malang" }
"mamuju" { set daerah "142"
set namadaerah "Mamuju" }
"manna" { set daerah "143"
set namadaerah "Manna" }
"manokwari" { set daerah "144"
set namadaerah "Manokwari" }
"marabahan" { set daerah "145"
set namadaerah "Marabahan" }
"maros" { set daerah "146"
set namadaerah "Maros" }
"martapura kalsel" { set daerah "147"
set namadaerah "Martapura Kalsel" }
"masohi" { set daerah "148"
set namadaerah "Masohi" }
"mataram" { set daerah "149"
set namadaerah "Mataram" }
"maumere" { set daerah "150"
set namadaerah "Maumere" }
"medan" { set daerah "151"
set namadaerah "Medan" }
"mempawah" { set daerah "152"
set namadaerah "Mempawah" }
"menado" { set daerah "153"
set namadaerah "Menado" }
"mentok" { set daerah "154"
set namadaerah "Mentok" }
"merauke" { set daerah "155"
set namadaerah "Merauke" }
"metro" { set daerah "156"
set namadaerah "Metro" }
"meulaboh" { set daerah "157"
set namadaerah "Meulaboh" }
"mojokerto" { set daerah "158"
set namadaerah "Mojokerto" }
"muara bulian" { set daerah "159"
set namadaerah "Muara Bulian" }
"muara bungo" { set daerah "160"
set namadaerah "Muara Bungo" }
"muara enim" { set daerah "161"
set namadaerah "Muara Enim" }
"muara teweh" { set daerah "162"
set namadaerah "Muara Teweh" }
"muaro sijunjung" { set daerah "163"
set namadaerah "Muaro Sijunjung" }
"muntilan" { set daerah "164"
set namadaerah "Muntilan" }
"nabire" { set daerah "165"
set namadaerah "Nabire" }
"negara" { set daerah "166"
set namadaerah "Negara" }
"nganjuk" { set daerah "167"
set namadaerah "Nganjuk" }
"ngawi" { set daerah "168"
set namadaerah "Ngawi" }
"nunukan" { set daerah "169"
set namadaerah "Nunukan" }
"pacitan" { set daerah "170"
set namadaerah "Pacitan" }
"padang" { set daerah "171"
set namadaerah "Padang" }
"padang panjang" { set daerah "172"
set namadaerah "Padang Panjang" }
"padang sidempuan" { set daerah "173"
set namadaerah "Padang Sidempuan" }
"pagaralam" { set daerah "174"
set namadaerah "Pagaralam" }
"painan" { set daerah "175"
set namadaerah "Painan" }
"palangkaraya" { set daerah "176"
set namadaerah "Palangkaraya" }
"palembang" { set daerah "177"
set namadaerah "Palembang" }
"palopo" { set daerah "178"
set namadaerah "Palopo" }
"palu" { set daerah "179"
set namadaerah "Palu" }
"pamekasan" { set daerah "180"
set namadaerah "Pamekasan" }
"pandeglang" { set daerah "181"
set namadaerah "Pandeglang" }
"pangka_" { set daerah "182"
set namadaerah "Pangka_" }
"pangkajene sidenreng" { set daerah "183"
set namadaerah "Pangkajene Sidenreng" }
"pangkalan bun" { set daerah "184"
set namadaerah "Pangkalan Bun" }
"pangkalpinang" { set daerah "185"
set namadaerah "Pangkalpinang" }
"panyabungan" { set daerah "186"
set namadaerah "Panyabungan" }
"par_" { set daerah "187"
set namadaerah "Par_" }
"parepare" { set daerah "188"
set namadaerah "Parepare" }
"pariaman" { set daerah "189"
set namadaerah "Pariaman" }
"pasuruan" { set daerah "190"
set namadaerah "Pasuruan" }
"pati" { set daerah "191"
set namadaerah "Pati" }
"payakumbuh" { set daerah "192"
set namadaerah "Payakumbuh" }
"pekalongan" { set daerah "193"
set namadaerah "Pekalongan" }
"pekan baru" { set daerah "194"
set namadaerah "Pekan Baru" }
"pemalang" { set daerah "195"
set namadaerah "Pemalang" }
"pematangsiantar" { set daerah "196"
set namadaerah "Pematangsiantar" }
"pendopo" { set daerah "197"
set namadaerah "Pendopo" }
"pinrang" { set daerah "198"
set namadaerah "Pinrang" }
"pleihari" { set daerah "199"
set namadaerah "Pleihari" }
"polewali" { set daerah "200"
set namadaerah "Polewali" }
"pondok gede" { set daerah "201"
set namadaerah "Pondok Gede" }
"ponorogo" { set daerah "202"
set namadaerah "Ponorogo" }
"pontianak" { set daerah "203"
set namadaerah "Pontianak" }
"poso" { set daerah "204"
set namadaerah "Poso" }
"prabumulih" { set daerah "205"
set namadaerah "Prabumulih" }
"praya" { set daerah "2"
set namadaerah "Praya" }
"probolinggo" { set daerah "207"
set namadaerah "Probolinggo" }
"purbalingga" { set daerah "208"
set namadaerah "Purbalingga" }
"purukcahu" { set daerah "209"
set namadaerah "Purukcahu" }
"purwakarta" { set daerah "210"
set namadaerah "Purwakarta" }
"purwodadigrobogan" { set daerah "211"
set namadaerah "Purwodadigrobogan" }
"purwokerto" { set daerah "212"
set namadaerah "Purwokerto" }
"purworejo" { set daerah "213"
set namadaerah "Purworejo" }
"putussibau" { set daerah "214"
set namadaerah "Putussibau" }
"raha" { set daerah "215"
set namadaerah "Raha" }
"rangkasbitung" { set daerah "216"
set namadaerah "Rangkasbitung" }
"rantau" { set daerah "217"
set namadaerah "Rantau" }
"rantauprapat" { set daerah "218"
set namadaerah "Rantauprapat" }
"rantepao" { set daerah "219"
set namadaerah "Rantepao" }
"rembang" { set daerah "220"
set namadaerah "Rembang" }
"rengat" { set daerah "221"
set namadaerah "Rengat" }
"ruteng" { set daerah "222"
set namadaerah "Ruteng" }
"sabang" { set daerah "223"
set namadaerah "Sabang" }
"salatiga" { set daerah "224"
set namadaerah "Salatiga" }
"samarinda" { set daerah "225"
set namadaerah "Samarinda" }
"sambas, kalbar" { set daerah "313"
set namadaerah "Sambas, Kalbar" }
"sampang" { set daerah "226"
set namadaerah "Sampang" }
"sampit" { set daerah "227"
set namadaerah "Sampit" }
"sanggau" { set daerah "228"
set namadaerah "Sanggau" }
"sawahlunto" { set daerah "229"
set namadaerah "Sawahlunto" }
"sekayu" { set daerah "230"
set namadaerah "Sekayu" }
"selong" { set daerah "231"
set namadaerah "Selong" }
"semarang" { set daerah "232"
set namadaerah "Semarang" }
"sengkang" { set daerah "233"
set namadaerah "Sengkang" }
"serang" { set daerah "234"
set namadaerah "Serang" }
"serui" { set daerah "235"
set namadaerah "Serui" }
"sibolga" { set daerah "236"
set namadaerah "Sibolga" }
"sidikalang" { set daerah "237"
set namadaerah "Sidikalang" }
"sidoarjo" { set daerah "238"
set namadaerah "Sidoarjo" }
"sigli" { set daerah "239"
set namadaerah "Sigli" }
"singaparna" { set daerah "240"
set namadaerah "Singaparna" }
"singaraja" { set daerah "241"
set namadaerah "Singaraja" }
"singkawang" { set daerah "242"
set namadaerah "Singkawang" }
"sinjai" { set daerah "243"
set namadaerah "Sinjai" }
"sintang" { set daerah "244"
set namadaerah "Sintang" }
"situbondo" { set daerah "245"
set namadaerah "Situbondo" }
"slawi" { set daerah "246"
set namadaerah "Slawi" }
"sleman" { set daerah "247"
set namadaerah "Sleman" }
"soasiu" { set daerah "248"
set namadaerah "Soasiu" }
"soe" { set daerah "249"
set namadaerah "Soe" }
"solo" { set daerah "250"
set namadaerah "Solo" }
"solok" { set daerah "251"
set namadaerah "Solok" }
"soreang" { set daerah "252"
set namadaerah "Soreang" }
"sorong" { set daerah "253"
set namadaerah "Sorong" }
"sragen" { set daerah "254"
set namadaerah "Sragen" }
"stabat" { set daerah "255"
set namadaerah "Stabat" }
"subang" { set daerah "256"
set namadaerah "Subang" }
"sukabumi" { set daerah "257"
set namadaerah "Sukabumi" }
"sukoharjo" { set daerah "258"
set namadaerah "Sukoharjo" }
"sumbawa besar" { set daerah "259"
set namadaerah "Sumbawa Besar" }
"sumedang" { set daerah "260"
set namadaerah "Sumedang" }
"sumenep" { set daerah "261"
set namadaerah "Sumenep" }
"sungai liat" { set daerah "262"
set namadaerah "Sungai Liat" }
"sungai penuh" { set daerah "263"
set namadaerah "Sungai Penuh" }
"sungguminasa" { set daerah "264"
set namadaerah "Sungguminasa" }
"surabaya" { set daerah "265"
set namadaerah "Surabaya" }
"surakarta" { set daerah "266"
set namadaerah "Surakarta" }
"tabanan" { set daerah "267"
set namadaerah "Tabanan" }
"tahuna" { set daerah "268"
set namadaerah "Tahuna" }
"takalar" { set daerah "269"
set namadaerah "Takalar" }
"takengon" { set daerah "270"
set namadaerah "Takengon" }
"tamiang layang" { set daerah "271"
set namadaerah "Tamiang Layang" }
"tanah grogot" { set daerah "272"
set namadaerah "Tanah Grogot" }
"tangerang" { set daerah "273"
set namadaerah "Tangerang" }
"tanjung balai" { set daerah "274"
set namadaerah "Tanjung Balai" }
"tanjung enim" { set daerah "275"
set namadaerah "Tanjung Enim" }
"tanjung pandan" { set daerah "276"
set namadaerah "Tanjung Pandan" }
"tanjung pinang" { set daerah "277"
set namadaerah "Tanjung Pinang" }
"tanjung redep" { set daerah "278"
set namadaerah "Tanjung Redep" }
"tanjung selor" { set daerah "279"
set namadaerah "Tanjung Selor" }
"tapak tuan" { set daerah "280"
set namadaerah "Tapak Tuan" }
"tarakan" { set daerah "281"
set namadaerah "Tarakan" }
"tarutung" { set daerah "282"
set namadaerah "Tarutung" }
"tasikmalaya" { set daerah "283"
set namadaerah "Tasikmalaya" }
"tebing tinggi" { set daerah "284"
set namadaerah "Tebing Tinggi" }
"tegal" { set daerah "285"
set namadaerah "Tegal" }
"temanggung" { set daerah "286"
set namadaerah "Temanggung" }
"tembilahan" { set daerah "287"
set namadaerah "Tembilahan" }
"tenggarong" { set daerah "288"
set namadaerah "Tenggarong" }
"ternate" { set daerah "289"
set namadaerah "Ternate" }
"tolitoli" { set daerah "290"
set namadaerah "Tolitoli" }
"tondano" { set daerah "291"
set namadaerah "Tondano" }
"trenggalek" { set daerah "292"
set namadaerah "Trenggalek" }
"tual" { set daerah "293"
set namadaerah "Tual" }
"tuban" { set daerah "294"
set namadaerah "Tuban" }
"tulung agung" { set daerah "295"
set namadaerah "Tulung Agung" }
"ujung berung" { set daerah "296"
set namadaerah "Ujung Berung" }
"ungaran" { set daerah "297"
set namadaerah "Ungaran" }
"waikabubak" { set daerah "298"
set namadaerah "Waikabubak" }
"waingapu" { set daerah "299"
set namadaerah "Waingapu" }
"wamena" { set daerah "300"
set namadaerah "Wamena" }
"watampone" { set daerah "301"
set namadaerah "Watampone" }
"watansoppeng" { set daerah "302"
set namadaerah "Watansoppeng" }
"wates" { set daerah "303"
set namadaerah "Wates" }
"wonogiri" { set daerah "304"
set namadaerah "Wonogiri" }
"wonosari" { set daerah "305"
set namadaerah "Wonosari" }
"wonosobo" { set daerah "3"
set namadaerah "Wonosobo" }
"yogyakarta" { set daerah "307"
set namadaerah "Yogyakarta" }
default { set daerah "$daerah"
set namadaerah "$kodedaerah" }
}
cetak $daerah $namadaerah $chan
}
proc cetak {daerah namadaerah chan} {
global multichan waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya
set connect [::http::geturl http://www.jadwalsholat.org/adzan/daily.php?id=$daerah]
set files [::http::data $connect]
set l [regexp -all -inline -- {.*?<tr class="table_light" align="center"><td><b>.*?</b></td><td>.*?</td><td>(.*?)</td><td>.*?</td><td>.*?</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td></tr>.*?<tr class="table_block_title"><td colspan="9"><b> :: Parameter</b></td></tr>} $files]
if {[llength $l] != 0} {
foreach {black a b c d e} $l {
set a [string trim $a " \n"]
set b [string trim $b " \n"]
set c [string trim $c " \n"]
set d [string trim $d " \n"]
set e [string trim $e " \n"]
regsub -all {<.+?>} $a {} a
regsub -all {<.+?>} $b {} b
regsub -all {<.+?>} $c {} c
regsub -all {<.+?>} $d {} d
regsub -all {<.+?>} $e {} e
if {[llength $chan] != 0} {
puthelp "PRIVMSG $chan :\[\002Adzan $namadaerah\002\] Subuh: $a - Dzuhur: $b - Ashar: $c - Maghrib: $d - Isya: $e"
} else { putlog "loading dan copy dari web ..." }
set waktusubuh "$a:00"
set waktudzuhur "$b:00"
set waktuashar "$c:00"
set waktumaghrib "$d:00"
set waktuisya "$e:00"
}
}
}
set jam "00:00:xx"
set jamclean "00:00:00"
set waktu "xx xx xx"
set servtime "delta.ca.us.ayochat.or.id"
set parent ""
set jamcocok "00:00:00"
set cektiap 1
set sedangrunning "true"
set adzanrange "false"
proc konekserver {} {
global botnick servtime
putquick "TIME $servtime"
}
proc setwaktu { channel arguments } {
global botnick servtime waktu jam jamclean
set day [lindex [split $arguments] 2]
if {$day == ":Monday"} { set hari "Senin" }
if {$day == ":Tuesday"} { set hari "Selasa" }
if {$day == ":Wednesday"} { set hari "Rabu" }
if {$day == ":Thursday"} { set hari "Kamis" }
if {$day == ":Friday"} { set hari "Jum'at" }
if {$day == ":Saturday"} { set hari "Sabtu" }
if {$day == ":Sunday"} { set hari "Minggu" }
set tanggal [lindex [split $arguments] 4]
set month [lindex [split $arguments] 3]
if {$month == "January"} { set bulan "Januari" }
if {$month == "February"} { set bulan "Februari" }
if {$month == "March"} { set bulan "Maret" }
if {$month == "April"} { set bulan "April" }
if {$month == "May"} { set bulan "Mei" }
if {$month == "June"} { set bulan "Juni" }
if {$month == "July"} { set bulan "Juli" }
if {$month == "August"} { set bulan "Agustus" }
if {$month == "September"} { set bulan "September" }
if {$month == "October"} { set bulan "Oktober" }
if {$month == "November"} { set bulan "November" }
if {$month == "December"} { set bulan "Desember" }
set tahun [lindex [split $arguments] 5]
set jam [lindex [split $arguments] 7]
set temp1 [lindex [split $jam :] 0]
set temp2 [lindex [split $jam :] 1]
set jamclean "$temp1:$temp2:00"
set waktu "$hari - $tanggal $bulan $tahun - $jam WIB"
}
proc iscocok { text } {
global jamclean
if { $jamclean == $text } {
return 1
} else {
return 0
}
}
proc pub:waktureply { from keyword arguments } {
global multichan parent
setwaktu "help" $arguments
if { $parent == "showadzan" } {
pub:adzanstatus
}
}
proc pub:pengecekan {} {
global sedangrunning cektiap waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya multichan
if {[llength $waktusubuh] == 0} { percetakan }
if { $sedangrunning == "true" } {
konekserver
if { [iscocok $waktusubuh] } {
pub:showadzan "Subuh" $waktusubuh
}
if { [iscocok $waktudzuhur] } {
pub:showadzan "Dzuhur" $waktudzuhur
}
if { [iscocok $waktuashar] } {
pub:showadzan "Ashar" $waktuashar
}
if { [iscocok $waktumaghrib] } {
pub:showadzan "Maghrib" $waktumaghrib
}
if { [iscocok $waktuisya] } {
pub:showadzan "Isya" $waktuisya
}
timer [expr $cektiap] pub:pengecekan
}
}
proc pub:setkonekserver {} {
konekserver
}
proc pub:showadzan { text jamnya } {
global multichan adzanrange kodedaerah daerah
if { $adzanrange == "false" } {
foreach channel $multichan {
puthelp "PRIVMSG $channel : Allahu akbar.. Allahu akbar.."
puthelp "PRIVMSG $channel :Waktu tepat menunjukan pukul $jamnya WIB, waktunya utk melaksanakan ibadah solat $text untuk daerah $kodedaerah dan sekitar nya"
putquick "NOTICE $channel :$jamnya WIB - Sholat $text untuk $kodedaerah dan sekitarnya"
}
set adzanrange "true"
timer 2 turnoff:adzanrange
return 0
}
}
proc turnoff:adzanrange {} {
global adzanrange
set adzanrange "false"
}
proc pub:adzan { nick uhost hand chan text } {
global parent sedangrunning waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya
if { [llength $waktusubuh] != 0} {
set parent "adzan"
set text [string tolower $text]
if {[string match "#*" $text]} {
puthelp "NOTICE $nick :Gunakan: !adzan start , atau !adzan stop"
return 0
} elseif {$text == "start" && [isop $nick $chan] } {
set sedangrunning "true"
pub:pengecekan
puthelp "NOTICE $nick :Adzan diaktifkan"
} elseif {$text == "stop" && [isop $nick $chan] } {
set sedangrunning "false"
puthelp "NOTICE $nick :Adzan berhenti"
} elseif {$text == ""} {
konekserver
set parent "showadzan"
}
} else { percetakan }
}
proc pub:adzanstatus {} {
global multichan waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya waktu parent
set parent "adzanstatus"
foreach channel $multichan {
puthelp "PRIVMSG $channel :Jakarta Pusat: $waktu - Subuh: $waktusubuh - Dzuhur : $waktudzuhur - Ashar: $waktuashar - Maghrib : $waktumaghrib - Isya: $waktuisya"
}
}
set init-server {
global kodedaerah daerah
putlog "Init server dan lakukan pengecekan"
cetak $daerah "$kodedaerah" ""
set sedangrunning "true"
pub:pengecekan
}