/shoutcast.tcl

https://bitbucket.org/thesky/shoutcastbot-eggdrop · TCL · 945 lines · 748 code · 53 blank · 144 comment · 188 complexity · fda1dfc12ed5c95a88e1b07fe4e7de4b MD5 · raw file 

    

  1. ###############################																		

    2. 

  2. ###Shoutcast Radio Bot by Sky##					

    3. 

  3. ###############################                                                                   

    4. 

  4. 

    5. 

  5. 

    6. 

  6. # We need to grab stuff from the internet

    7. 

  7. package require http

    8. 

  8. 

    9. 

  9. # Set Variables to Shoutcast Webpages

    10. 

  10. set siteurl "http://216.104.37.26:9005"

    11. 

  11. set listenurl "http://216.104.37.26:9005/listen.pls"

    12. 

  12. set lastplayed "http://216.104.37.26:9005/played.html"

    13. 

  13. 

    14. 

  14. # Channels Names (Log Channel, DJ Channel, Radio Channel, Main Channel)

    15. 

  15. set djchan "#dj"

    16. 

  16. set mainchan "#main"

    17. 

  17. set logchan "#log"

    18. 

  18. set radiochan "#radio"

    19. 

  19. 

    20. 

  20. # Set Variables to Database Info

    21. 

  21. set dbhost "localhost"

    22. 

  22. set dbuser "user"

    23. 

  23. set dbpass "password"

    24. 

  24. set dbname "db"

    25. 

  25. 

    26. 

  26. # AutoDJ's Name

    27. 

  27. set autodj "AutoDj"

    28. 

  28. 

    29. 

  29. sset song 0

    30. 

  30. 

    31. 

  31. # Binding ! commands to fucntions

    32. 

  32. bind pub -|- !lst lastsessions

    33. 

  33. bind pub -|- !start starttimers 

    34. 

  34. bind pub -|- !lp songlist

    35. 

  35. bind pub -|- !server serverinfo

    36. 

  36. bind pub -|- !clearlist clearlist

    37. 

  37. bind pub -|- !reqlist requestlist

    38. 

  38. bind pub -|- !np nowplaying

    39. 

  39. bind pub -|- !request request

    40. 

  40. bind pub -|- !peak peak

    41. 

  41. bind pub -|- !dj deejay

    42. 

  42. bind pub -|- !genre genre

    43. 

  43. bind pub -|- !listen pls

    44. 

  44. bind pub -|- !log getlog

    45. 

  45. bind pub -|- !topdj toplog

    46. 

  46. bind pub -|- !url site

    47. 

  47. bind pub -|- !commands commands

    48. 

  48. 

    49. 

  49. # Functions: Start and Stop Timer

    50. 

  50. proc hasTimers {} {

    51. 

  51. 	set timerList [timers];

    52. 

  52. 	return [llength $timerList];

    53. 

  53. }

    54. 

  54. 

    55. 

  55. proc stop {} {

    56. 

  56. 	set timerList [timers];

    57. 

  57. 	foreach timer $timerList {

    58. 

  58. 		killtimer [lindex $timer 2];

    59. 

  59. 	}

    60. 

  60. }

    61. 

  61. 

    62. 

  62. ## Functions for if DJ is Online

    63. 

  63. proc djonline {} {

    64. 

  64. 	global dj

    65. 

  65. 	return [info exists dj]

    66. 

  66. }

    67. 

  67. 

    68. 

  68. proc djauto {} {

    69. 

  69. 	global dj

    70. 

  70. 	if {![djonline]} { return 0 }

    71. 

  71. 	return [isautodj $dj]

    72. 

  72. }

    73. 

  73. 

    74. 

  74. proc isautodj {string} {

    75. 

  75. 	global autodj

    76. 

  76. 	expr {$string == $autodj}

    77. 

  77. }

    78. 

  78. 

    79. 

  79. ## Refreshing bot resets timers

    80. 

  80. proc start {} {

    81. 

  81. 	global logchan

    82. 

  82. 	if {[hasTimers] == 0} {

    83. 

  83. 		putnow "PRIVMSG $logchan :No Timers Active. Activating Timer Now."

    84. 

  84. 	#Starting Check DJ Timer

    85. 

  85. 		checkdj

    86. 

  86. 	#Starting Check Peak Timer

    87. 

  87. 		maxlisteners

    88. 

  88. 	#Starting Advertisment Timer

    89. 

  89. 		#run_periodically #TI-Radio

    90. 

  90. 	#Starting Advertisement Timer

    91. 

  91. 		#run_periodically #Torrent-Invites

    92. 

  92. 	#Starting Delete Request Timer

    93. 

  93. 		deletereq

    94. 

  94. 		set firstad 0

    95. 

  95. 	} else {

    96. 

  96. 		putnow "PRIVMSG $logchan :Timer Active Already. Killing Active Timer Now."

    97. 

  97. 	# Stop All Timers 2

    98. 

  98. 		stop

    99. 

  99. 		putnow "PRIVMSG $logchan :Activating Timer Now"

    100. 

  100. 	#Starting Check DJ Timer

    101. 

  101. 		checkdj

    102. 

  102. 	#Starting Check Peak Timer

    103. 

  103. 		maxlisteners

    104. 

  104. 	#Starting Advertisment Timer

    105. 

  105. 		#run_periodically #Torrent-Invites

    106. 

  106. 	#Starting Advertisement Timer

    107. 

  107. 		#run_periodically #TI-Radio

    108. 

  108. 	#Starting Delete Request Timer

    109. 

  109. 		deletereq

    110. 

  110. 		set firstad 0

    111. 

  111. 	}

    112. 

  112. }

    113. 

  113. 

    114. 

  114. ## Advertisments for who is !NP

    115. 

  115. # proc run_periodically {chan} {

    116. 

  116. # 	if {[validchan #BotDev] && [botonchan #BotDev]} {

    117. 

  117. # 		global siteurl djchan title dj logchan listenurl radiochan dj song genre firstad autodj

    118. 

  118. # 		::http::config -useragent "Mozilla/5.0; Shoutinfo"

    119. 

  119. # 		timer 60 [list run_periodically $chan]

    120. 

  120. # 		set http_req [::http::geturl $siteurl -timeout 2000]

    121. 

  121. # 		if {[::http::status $http_req] != "ok"} {

    122. 

  122. # 			putnow "PRIVMSG $logchan :ABORT ABORT"

    123. 

  123. # 		} else {

    124. 

  124. # 			set data [::http::data $http_req]

    125. 

  125. # 			::http::cleanup $http_req

    126. 

  126. # 			if {[regexp {<font class=default>Stream Title: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {

    127. 

  127. # 				set dj $title

    128. 

  128. # 			} else {

    129. 

  129. # 				catch {unset dj}

    130. 

  130. # 			}

    131. 

  131. # 			if {[regexp {<font class=default>Stream Genre: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {

    132. 

  132. # 				set genre $title

    133. 

  133. # 			} else {

    134. 

  134. # 				catch {unset genre}

    135. 

  135. # 			}

    136. 

  136. # 			if {[regexp {<font class=default>Current Song: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {

    137. 

  137. # 				set song $title

    138. 

  138. # 			} else {

    139. 

  139. # 				catch {unset song}

    140. 

  140. # 			}

    141. 

  141. # 				if {$dj == $autodj || $song == 0 || $dj == 0 || $dj == 0} {

    142. 

  142. # 					putnow "PRIVMSG $logchan :AutoDJ is On or Server is Offline."

    143. 

  143. # 				} else {

    144. 

  144. # 					if {[string match *c* [lindex [split [getchanmode $chan]] 0]]} {

    145. 

  145. # 						set a "\002$dj is live on the TI-Radio\002 || \002Genre\002: $genre || "

    146. 

  146. # 						set b  "\002Now Playing\002: $song || \002Listen @ $listenurl \002"

    147. 

  147. # 						putnow "PRIVMSG $chan : $a$b"

    148. 

  148. # 					} else {

    149. 

  149. # 						set c "\002\00303$dj is live on the TI-Radio\002\00303\00307 ||  "

    150. 

  150. # 						set d "\00307\003\002Genre\002: $genre \003\00307|| \00307\003\002Now Playing"

    151. 

  151. # 						set e "\002: $song \003\00307||\00307 \003\00304\002 Listen @ $listenurl \002\00304"

    152. 

  152. # 						putnow "PRIVMSG $chan : $c$d$e"

    153. 

  153. # 					}

    154. 

  154. # 				}

    155. 

  155. # 			}

    156. 

  156. # 		}

    157. 

  157. # 		return 1;

    158. 

  158. # 	}

    159. 

  159. 

    160. 

  160. ## Checks if DJ has changed - 10s 

    161. 

  161. proc checkdj {} {

    162. 

  162. 	global dj logchan siteurl newdj djchan

    163. 

  163. 	if {![validchan #BotDev] || ![botonchan #BotDev]} { return }

    164. 

  164. 	::http::config -useragent "Mozilla/5.0; Shoutinfo"

    165. 

  165. 	set http_req [::http::geturl $siteurl -timeout 2000]

    166. 

  166. 	after 10000 [list checkdj]

    167. 

  167. 	if {[::http::status $http_req] != "ok"} {

    168. 

  168. 		# we assume the server is offline

    169. 

  169. 		putnow "PRIVMSG $logchan :Assumption: Server is Offline or Lagging"

    170. 

  170. 		return

    171. 

  171. 	}

    172. 

  172. 	set data [::http::data $http_req]

    173. 

  173. 	::http::cleanup $http_req

    174. 

  174. 	if {![regexp {<font class=default>Stream Title: </font></td><td><font class=default><b>([^<]+)</b>} $data x newdj]} {

    175. 

  175. 		if {[djonline]} {

    176. 

  176. 			#Online -> Offline

    177. 

  177. 			if {[djauto]} {

    178. 

  178. 				#Auto DJ -> Offline

    179. 

  179. 				serveroffline

    180. 

  180. 				catch {unset dj}

    181. 

  181. 			} elseif {![isautodj $newdj]} {

    182. 

  182. 				#Real DJ -> Offline

    183. 

  183. 				offair

    184. 

  184. 				finishsave $dj

    185. 

  185. 				catch {unset dj}

    186. 

  186. 			}

    187. 

  187. 		}

    188. 

  188. 		return

    189. 

  189. 	}

    190. 

  190. 

    191. 

  191. 	if {![djonline]} {

    192. 

  192. 		# Offline -> Online

    193. 

  193. 		if {![isautodj $newdj]} {

    194. 

  194. 			#Offline -> Real DJ

    195. 

  195. 			onair

    196. 

  196. 			set dj $newdj

    197. 

  197. 			startsave $dj

    198. 

  198. 		} else {

    199. 

  199. 			#Offline -> Auto DJ

    200. 

  200. 			set dj $newdj

    201. 

  201. 			autodjon

    202. 

  202. 		}

    203. 

  203. 	} elseif {$dj != $newdj} {

    204. 

  204. 		# Generic state change

    205. 

  205. 		if {[djauto]} {

    206. 

  206. 			#AutoDJ -> Real DJ

    207. 

  207. 			set dj $newdj

    208. 

  208. 			startsave $dj

    209. 

  209. 			onair

    210. 

  210. 		} elseif {[isautodj $newdj]} {

    211. 

  211. 			#Real DJ -> AutoDJ

    212. 

  212. 			finishsave $dj

    213. 

  213. 			autooffair

    214. 

  214. 			set dj $newdj

    215. 

  215. 		} else {

    216. 

  216. 			#Real DJ -> Real DJ

    217. 

  217. 			tempoffair

    218. 

  218. 			finishsave $dj

    219. 

  219. 			set dj $newdj

    220. 

  220. 			startsave $dj

    221. 

  221. 			onair

    222. 

  222. 		}

    223. 

  223. 	}

    224. 

  224. 	return

    225. 

  225. }

    226. 

  226. 

    227. 

  227. ## Checks if peaked in listeners 

    228. 

  228. proc maxlisteners {} {

    229. 

  229. 	global logchan siteurl peakfile djchan

    230. 

  230. 	::http::config -useragent "Mozilla/5.0; Shoutinfo"

    231. 

  231. 	set http_req [::http::geturl $siteurl -timeout 2000]

    232. 

  232. 	after 100000 [list maxlisteners]

    233. 

  233. 	if {[::http::status $http_req] != "ok"} {

    234. 

  234. 		putnow "PRIVMSG $logchan :Assumption: Server is Offline or Lagging"

    235. 

  235. 	} else {

    236. 

  236. 		set data [::http::data $http_req]

    237. 

  237. 		::http::cleanup $http_req

    238. 

  238. 		if {[regexp {<font class=default>Listener Peak: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {

    239. 

  239. 			set testdata $title

    240. 

  240. 			set peakfile [open "peak.txt" r]

    241. 

  241. 			gets $peakfile line

    242. 

  242. 			set peakhigh $line

    243. 

  243. 			close $peakfile

    244. 

  244. 			if {$testdata > $peakhigh} {

    245. 

  245. 				# Create a Timestamp for the file

    246. 

  246. 				set timestamp [clock format [clock seconds] -format {%Y%m%d%H%M%S}]

    247. 

  247. 				set filename "peak.txt"

    248. 

  248. 				# Create a Temp and Backup File

    249. 

  249. 				set temp $filename.new.$timestamp

    250. 

  250. 				# Set In/Out to Open Peak.txt in Read-Only/Write-Only

    251. 

  251. 				set in [open $filename r]

    252. 

  252. 				set out [open $temp w]

    253. 

  253. 				while {[gets $in line] != -1} {

    254. 

  254. 					set line $testdata

    255. 

  255. 					puts $out $line

    256. 

  256. 				}

    257. 

  257. 				putnow "PRIVMSG $djchan :Max Viewers has increased :D! Good job."

    258. 

  258. 				# Close Both Files

    259. 

  259. 				close $in

    260. 

  260. 				close $out

    261. 

  261. 				# Rename Temp to Original File Name

    262. 

  262. 				file rename -force $temp $filename

    263. 

  263. 			}

    264. 

  264. 		}

    265. 

  265. 	}

    266. 

  266. }

    267. 

  267. 

    268. 

  268. ## Command to Start Timers 

    269. 

  269. proc starttimers {nick uhost hand chan arg} {

    270. 

  270. 	global djchan

    271. 

  271. 	if {$chan == $djchan} {

    272. 

  272. 		if {[isop $nick $djchan] == 1 || [ishalfop $nick $djchan] == 1} {

    273. 

  273. 			putserv "PRIVMSG $chan :$nick started the timers."

    274. 

  274. 			putlog "$nick started the timers."

    275. 

  275. 			start

    276. 

  276. 		}

    277. 

  277. 	}

    278. 

  278. }

    279. 

  279. 

    280. 

  280. 

    281. 

  281. ## Command to get Last Played List

    282. 

  282. proc songlist {nick uhost hand chan arg} {

    283. 

  283. 	global dj logchan siteurl newdj lastplayed 

    284. 

  284. 	if {![validchan #BotDev] || ![botonchan #BotDev]} { return }

    285. 

  285. 	::http::config -useragent "Mozilla/5.0; Shoutinfo"

    286. 

  286. 	set http_req [::http::geturl $lastplayed -timeout 2000]

    287. 

  287. 	if {[::http::status $http_req] != "ok"} {

    288. 

  288. 		# we assume the server is offline

    289. 

  289. 		putnow "PRIVMSG $logchan : Unable to connect"

    290. 

  290. 		return

    291. 

  291. 	}

    292. 

  292. 	set data [::http::data $http_req]

    293. 

  293. 	::http::cleanup $http_req

    294. 

  294. 	set testvalue 0

    295. 

  295. 	foreach {x length title} [regexp -all -inline {<td>(\d\d:\d\d:\d\d)</td><td>([^<]+-[^<]+)<} $data] {

    296. 

  296. 		if {$testvalue != 0} {

    297. 

  297. 			putnow "notice $nick :#$testvalue: $length | $title"

    298. 

  298. 			incr testvalue

    299. 

  299. 		} else {

    300. 

  300. 			putnow "notice $nick :\002Current Song\002: $length | $title "

    301. 

  301. 			incr testvalue

    302. 

  302. 		}

    303. 

  303. 

    304. 

  304. 	}

    305. 

  305. }

    306. 

  306. 

    307. 

  307. ## Advert the Request List 

    308. 

  308. proc requestlist {nick uhost hand chan arg} {

    309. 

  309. 	global djchan

    310. 

  310. 	putnow "NOTICE $nick :\002\The OLDEST request will be deleted every 10 minutes.\002"

    311. 

  311. 	if {$chan == $djchan} {

    312. 

  312. 		set reqnumber 0

    313. 

  313. 		set filename "requestlist.txt"

    314. 

  314. 		set in [open $filename r]

    315. 

  315. 		while {1} {

    316. 

  316. 			set line [gets $in]

    317. 

  317. 			if {$line == ""} {

    318. 

  318. 				putnow "PRIVMSG $djchan :There are no requests at the moment."

    319. 

  319. 				break

    320. 

  320. 			} else {

    321. 

  321. 				if {[eof $in]} {

    322. 

  322. 					putnow "PRIVMSG $djchan :Oldest: $line"

    323. 

  323. 					close $in

    324. 

  324. 					break

    325. 

  325. 				}

    326. 

  326. 				if {$reqnumber == 0} {

    327. 

  327. 					putnow "PRIVMSG $djchan :Newest: $line"

    328. 

  328. 					incr reqnumber

    329. 

  329. 				} else {

    330. 

  330. 					putnow "PRIVMSG $djchan :$reqnumber: $line"

    331. 

  331. 					incr reqnumber

    332. 

  332. 				}

    333. 

  333. 			}

    334. 

  334. 		}

    335. 

  335. 	}

    336. 

  336. }

    337. 

  337. 

    338. 

  338. ## Clear the Request List 

    339. 

  339. proc clearlist {nick uhost hand chan arg} {

    340. 

  340. 	global djchan

    341. 

  341. 	if {$chan == $djchan} {

    342. 

  342. 		if {[isop $nick $chan] == 1 || [ishalfop $nick $chan] == 1} {

    343. 

  343. 			set filename "requestlist.txt"

    344. 

  344. 			set out [open $filename w]

    345. 

  345. 			set line ""

    346. 

  346. 			puts $out $line

    347. 

  347. 			putnow "PRIVMSG $djchan :$nick has cleared the request list."

    348. 

  348. 			close $out

    349. 

  349. 		}

    350. 

  350. 	}

    351. 

  351. }

    352. 

  352. 

    353. 

  353. ## Delete Request Func + Timer

    354. 

  354. proc requestproc {reqitem} {

    355. 

  355. 	set filename "requestlist.txt"

    356. 

  356. 	set testin [open $filename r]

    357. 

  357. 	set line [gets $testin]

    358. 

  358. 	close $testin

    359. 

  359. 	if {$line == ""} {

    360. 

  360. 		set out [open $filename [list RDWR APPEND CREAT]]

    361. 

  361. 		set newline $reqitem

    362. 

  362. 		puts -nonewline $out $newline

    363. 

  363. 		close $out

    364. 

  364. 	} else {

    365. 

  365. 		# Create a Timestamp for the file

    366. 

  366. 		set timestamp [clock format [clock seconds] -format {%Y%m%d%H%M%S}]

    367. 

  367. 		# Create a Temp and Backup File

    368. 

  368. 		set temp $filename.new.$timestamp

    369. 

  369. 		# Set In/Out to Open Peak.txt in Read-Only/Write-Only

    370. 

  370. 		set in [open $filename r]

    371. 

  371. 		set out [open $temp [list RDWR APPEND CREAT]]

    372. 

  372. 		set line $reqitem

    373. 

  373. 		puts $out $line

    374. 

  374. 		set file_data [read $in]

    375. 

  375. 		puts -nonewline $out $file_data

    376. 

  376. 		close $in

    377. 

  377. 		close $out

    378. 

  378. 		file rename -force $temp $filename

    379. 

  379. 	}

    380. 

  380. }

    381. 

  381. 

    382. 

  382. ## Command to Show Now Playing 

    383. 

  383. proc nowplaying {nick uhost hand chan arg} {

    384. 

  384. 	global siteurl radiochan mainchan

    385. 

  385. 	set radiochan [string tolower $radiochan]

    386. 

  386. 	::http::config -useragent "Mozilla/5.0; Shoutinfo"

    387. 

  387. 	set http_req [::http::geturl $siteurl -timeout 2000]

    388. 

  388. 	if {[::http::status $http_req] != "ok"} {

    389. 

  389. 		putnow "PRIVMSG $chan :Stream is unavailable";

    390. 

  390. 	}

    391. 

  391. 	set data [::http::data $http_req]

    392. 

  392. 	::http::cleanup $http_req

    393. 

  393. 	if {[regexp {<font class=default>Current Song: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {

    394. 

  394. 		putnow "PRIVMSG $chan :\002Current Song\002: $title"

    395. 

  395. 	} else {

    396. 

  396. 		if {$chan != $mainchan} {

    397. 

  397. 			putnow "PRIVMSG $chan :Couldn't receive any information, checking server status..."

    398. 

  398. 		} else {

    399. 

  399. 			putnow "NOTICE $nick :Couldn't receive any information, checking server status..."

    400. 

  400. 		}

    401. 

  401. 	}

    402. 

  402. 

    403. 

  403. }

    404. 

  404. 

    405. 

  405. ## Command to show who is DJ

    406. 

  406. proc deejay {nick uhost hand chan arg} {

    407. 

  407. 	global siteurl radiochan dj mainchan

    408. 

  408. 	set radiochan [string tolower $radiochan]

    409. 

  409. 	::http::config -useragent "Mozilla/5.0; Shoutinfo"

    410. 

  410. 	set http_req [::http::geturl $siteurl -timeout 2000]

    411. 

  411. 	if {[::http::status $http_req] != "ok"} {

    412. 

  412. 		putnow "PRIVMSG $chan :Stream is unavailable";

    413. 

  413. 	}

    414. 

  414. 	set data [::http::data $http_req]

    415. 

  415. 	::http::cleanup $http_req

    416. 

  416. 	if {[regexp {<font class=default>Stream Title: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {

    417. 

  417. 		if {$chan != $mainchan} {

    418. 

  418. 			putnow "PRIVMSG $chan :\002DJ\002: $title"

    419. 

  419. 			set dj $title

    420. 

  420. 		} else {

    421. 

  421. 			putnow "NOTICE $nick :\002DJ\002: $title"

    422. 

  422. 			set dj $title

    423. 

  423. 		}

    424. 

  424. 	} else {

    425. 

  425. 		if {$chan != $mainchan} {

    426. 

  426. 			putnow "PRIVMSG $chan :Couldn't receive any information, checking server status..."

    427. 

  427. 		} else {

    428. 

  428. 			putnow "NOTICE $nick :Couldn't receive any information, checking server status..."

    429. 

  429. 		}

    430. 

  430. 	}

    431. 

  431. }

    432. 

  432. 

    433. 

  433. ## Command to get URL Info

    434. 

  434. proc site {nick uhost hand chan arg} {

    435. 

  435. 	global siteurl mainchan

    436. 

  436. 	if {$chan != $mainchan} {

    437. 

  437. 		putnow "PRIVMSG $chan :\002Website\002: $siteurl"

    438. 

  438. 	} else {

    439. 

  439. 		putnow "NOTICE $nick :\002Website\002: $siteurl"

    440. 

  440. 	}

    441. 

  441. }

    442. 

  442. 

    443. 

  443. ## Command to get Server Info

    444. 

  444. proc serverinfo {nick uhost hand chan arg} {

    445. 

  445. 	global siteurl radiochan mainchan

    446. 

  446. 	set radiochan [string tolower $radiochan]

    447. 

  447. 	::http::config -useragent "Mozilla/5.0; Shoutinfo"

    448. 

  448. 	set http_req [::http::geturl $siteurl -timeout 2000]

    449. 

  449. 	if {[::http::status $http_req] != "ok"} {

    450. 

  450. 		putnow "PRIVMSG $chan :Stream is unavailable";

    451. 

  451. 	}

    452. 

  452. 	set data [::http::data $http_req]

    453. 

  453. 	::http::cleanup $http_req

    454. 

  454. 	if {[regexp {<font class=default>Server Status: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {

    455. 

  455. 		if {$chan != $mainchan} {

    456. 

  456. 			putnow "PRIVMSG $chan :\  002Server  \002: $title"

    457. 

  457. 		} else {

    458. 

  458. 			putnow "PRIVMSG $nick :\  002Server  \002: $title"

    459. 

  459. 		}

    460. 

  460. 	} else {

    461. 

  461. 		if {$chan != $mainchan} {

    462. 

  462. 			putnow "PRIVMSG $chan :Couldn't contact the server, please check the configuration and/or streaming server"

    463. 

  463. 		} else {

    464. 

  464. 			putnow "NOTICE $nick :Couldn't contact the server, please check the configuration and/or streaming server"

    465. 

  465. 		}

    466. 

  466. 	}

    467. 

  467. }

    468. 

  468. 

    469. 

  469. ## Command to get current Genre

    470. 

  470. proc genre {nick uhost hand chan arg} {

    471. 

  471. 	global siteurl radiochan mainchan

    472. 

  472. 	set radiochan [string tolower $radiochan]

    473. 

  473. 	::http::config -useragent "Mozilla/5.0; Shoutinfo"

    474. 

  474. 	set http_req [::http::geturl $siteurl -timeout 2000]

    475. 

  475. 	if {[::http::status $http_req] != "ok"} {

    476. 

  476. 		putnow "PRIVMSG $chan :Stream is unavailable";

    477. 

  477. 	}

    478. 

  478. 	set data [::http::data $http_req]

    479. 

  479. 	::http::cleanup $http_req

    480. 

  480. 	if {[regexp {<font class=default>Stream Genre: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {

    481. 

  481. 		if {$chan != $mainchan} {

    482. 

  482. 			putnow "PRIVMSG $chan :\002Genre\002: $title"

    483. 

  483. 		} else {

    484. 

  484. 			putnow "NOTICE $nick :\002Genre\002: $title"

    485. 

  485. 		}

    486. 

  486. 	} else {

    487. 

  487. 		if {$chan != $mainchan} {

    488. 

  488. 			putnow "PRIVMSG $chan :Couldn't receive any information, checking server status..."

    489. 

  489. 		} else {

    490. 

  490. 			putnow "NOTICE $nick :Couldn't receive any information, checking server status..."

    491. 

  491. 		}

    492. 

  492. 	}

    493. 

  493. }

    494. 

  494. 

    495. 

  495. ## Command to get Peak Info

    496. 

  496. proc peak {nick uhost hand chan arg} {

    497. 

  497. 	global siteurl radiochan mainchan

    498. 

  498. 	set radiochan [string tolower $radiochan]

    499. 

  499. 	::http::config -useragent "Mozilla/5.0; Shoutinfo"

    500. 

  500. 	set http_req [::http::geturl $siteurl -timeout 20000]

    501. 

  501. 	if {[::http::status $http_req] != "ok"} {

    502. 

  502. 		putnow "PRIVMSG $chan :Stream is unavailable";

    503. 

  503. 	}

    504. 

  504. 	set data [::http::data $http_req]

    505. 

  505. 	::http::cleanup $http_req

    506. 

  506. 	if {[regexp {<font class=default>Listener Peak: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {

    507. 

  507. 		if {$chan != $mainchan} {

    508. 

  508. 			set peakfile [open "peak.txt" r]

    509. 

  509. 			gets $peakfile line

    510. 

  510. 			set peakhigh $line

    511. 

  511. 			close $peakfile

    512. 

  512. 			putnow "PRIVMSG $chan :\002Session Peak\002: $title \002Overall Peak\002: $peakhigh "

    513. 

  513. 		}

    514. 

  514. 	} else {

    515. 

  515. 		if {$chan != $mainchan} {

    516. 

  516. 			putnow "PRIVMSG $chan :Couldn't receive any information, checking server status..."

    517. 

  517. 		} else {

    518. 

  518. 			putnow "NOTICE $nick :Couldn't receive any information, checking server status..."

    519. 

  519. 		}

    520. 

  520. 	}

    521. 

  521. }

    522. 

  522. 

    523. 

  523. ## Command to get Listen

    524. 

  524. proc pls {nick uhost hand chan arg} {

    525. 

  525. 	global listenurl

    526. 

  526. 	putnow "PRIVMSG $chan :\002Stream/Listen\002: $listenurl"

    527. 

  527. }

    528. 

  528. 

    529. 

  529. ## Command to get Command FAQ

    530. 

  530. proc commands {nick uhost hand chan arg} {

    531. 

  531. 	global radiochan djchan mainchan

    532. 

  532. 	set radiochan [string tolower $radiochan]

    533. 

  533. 	if {$chan != $mainchan} {

    534. 

  534. 		if {$chan == $djchan} {

    535. 

  535. 			set a "\002DJ/Admin Commands\002: !rehash !start !login "

    536. 

  536. 			set b "+cookie -cookie !reqlist !clearlist"

    537. 

  537. 			set c "\002Radio Commands\002: !listen !np !lp !dj !peak"

    538. 

  538. 			set d "!request !genre !server !topdj"

    539. 

  539. 			putnow "PRIVMSG $chan : $a$b"

    540. 

  540. 			putnow "PRIVMSG $chan : $c$d"

    541. 

  541. 		} else {

    542. 

  542. 			set e "\002Radio Commands\002: !listen !np !lp !dj !peak "

    543. 

  543. 			set f "!request !genre !server !topdj"

    544. 

  544. 			putnow "PRIVMSG $chan : $e$f"

    545. 

  545. 		}

    546. 

  546. 	} else {

    547. 

  547. 		set g "\002Radio Commands\002: !listen !np !lp !dj !peak "

    548. 

  548. 		set h "!request !genre !server !topdj"

    549. 

  549. 		putnow "NOTICE $nick : $g$h"

    550. 

  550. 	}

    551. 

  551. }

    552. 

  552. 

    553. 

  553. ## Command to submit a request

    554. 

  554. proc request {nick uhost hand chan arg} {

    555. 

  555. 	global radiochan djchan reqitem 

    556. 

  556. 	set radiochan [string tolower $radiochan]

    557. 

  557. 	if {[string tolower $chan] == "$radiochan"} {

    558. 

  558. 		if {[llength $arg]==0} {

    559. 

  559. 			putnow "PRIVMSG $chan :\002Syntax\002: !request <Artist - Title>"

    560. 

  560. 		} else {

    561. 

  561. 			if {[string match *Bieber* $arg] || [string match *Beiber* $arg]} {

    562. 

  562. 				if {[isop $nick $chan] || [ishalfop $nick $chan]} {

    563. 

  563. 					putnow "PRIVMSG $chan :Troll Alert!"

    564. 

  564. 				} else {

    565. 

  565. 					putnow "PRIVMSG $chan :Troll Alert!"

    566. 

  566. 					putkick $chan $nick "Stop trolling.."

    567. 

  567. 				}

    568. 

  568. 			} else {

    569. 

  569. 				set reqitem $arg

    570. 

  570. 				requestproc $reqitem

    571. 

  571. 				set query1 "http://www.waffles.fm/browse.php?q="

    572. 

  572. 				set query2 "http://what.cd/torrents.php?searchstr="

    573. 

  573. 				for { set index 0 } { $index<[llength $arg] } { incr index } {

    574. 

  574. 					set query1 "$query1[lindex $arg $index]"

    575. 

  575. 					if {$index<[llength $arg]-1} then {

    576. 

  576. 						set query1 "$query1+"

    577. 

  577. 					}

    578. 

  578. 				}

    579. 

  579. 				for { set index 0 } { $index<[llength $arg] } { incr index } {

    580. 

  580. 					set query2 "$query2[lindex $arg $index]"

    581. 

  581. 					if {$index<[llength $arg]-1} then {

    582. 

  582. 						set query2 "$query2+"

    583. 

  583. 					}

    584. 

  584. 				}

    585. 

  585. 				set a "PRIVMSG $djchan :\002\Request\002: $arg | Requested by:\002 "

    586. 

  586. 				set b "$nick \002 | \002Waffles\002: $query1 | \002What.CD\002: $query2"

    587. 

  587. 				putnow "$a$b"

    588. 

  588. 				putnow "NOTICE $nick :\002$arg\002 is succesfully requested"

    589. 

  589. 				set token [http::config -useragent "Mozilla/5.0; Shoutinfo"]

    590. 

  590. 				set token [http::geturl $query1]

    591. 

  591. 				puts stderr ""

    592. 

  592. 				upvar #0 $token state

    593. 

  593. 				set max 0

    594. 

  594. 			}

    595. 

  595. 

    596. 

  596. 		}

    597. 

  597. 	}

    598. 

  598. }

    599. 

  599. 

    600. 

  600. ##     !log DJ Log Information

    601. 

  601. proc getlog {nick uhost hand chan arg} {

    602. 

  602. 	global dbhost dbuser dbname dbpass

    603. 

  603. 	set m [mysqlconnect -host $dbhost -user $dbuser -db $dbname -password $dbpass]

    604. 

  604. 	if {[llength $arg]==0} {

    605. 

  605. 		set tt_query "SELECT total_time from djlog where dj_name='$nick'"

    606. 

  606. 		set ts_query "SELECT total_sessions from djlog where dj_name='$nick'"

    607. 

  607. 		set log_name $nick

    608. 

  608. 	} else {

    609. 

  609. 		set tt_query "SELECT total_time from djlog where dj_name='$arg'"

    610. 

  610. 		set ts_query "SELECT total_sessions from djlog where dj_name='$arg'"

    611. 

  611. 		set log_name $arg

    612. 

  612. 	}

    613. 

  613. 	set tt_result [mysqlsel $m $tt_query -list]

    614. 

  614. 	set ts_result [mysqlsel $m $ts_query -list]

    615. 

  615. 	if {$ts_result  != "" && $tt_result != "" } {

    616. 

  616. 		set total_time [lindex $tt_result 0]

    617. 

  617. 		set total_sessions [lindex $ts_result 0]

    618. 

  618. 		set total_time [expr {$total_time*1}]

    619. 

  619. 		set totalt [duration $total_time]

    620. 

  620. 		putnow "PRIVMSG $chan : $log_name has been on air a total of $total_sessions times for $totalt."

    621. 

  621. 	} else {

    622. 

  622. 		putnow "PRIVMSG $chan : Sorry but $arg was not found in the log."

    623. 

  623. 	}

    624. 

  624. }

    625. 

  625. 

    626. 

  626. ##  First Save: Name + Onair Time

    627. 

  627. proc startsave {dj} {

    628. 

  628. 	global dbhost dbuser dbname dbpass

    629. 

  629. 	set start_time [clock seconds]

    630. 

  630. 	set m [mysqlconnect -host $dbhost -user $dbuser -db $dbname -password $dbpass]

    631. 

  631. 	set query "SELECT dj_name from session_log order by ID desc limit 1"

    632. 

  632. 	set result [mysqlsel $m $query -list]

    633. 

  633. 	set testname [lindex $result 0]

    634. 

  634. 	putnow "PRIVMSG #BotDev : $testname"

    635. 

  635. 	set testquery "SELECT offair_time from session_log order by ID desc limit 1"

    636. 

  636. 	set testresult [mysqlsel $m $testquery -list]

    637. 

  637. 	set testtime [lindex $testresult 0]

    638. 

  638. 	putnow "PRIVMSG #BotDev : $testtime"

    639. 

  639. 	if {$testtime != "{}" && $testname != $dj} {

    640. 

  640. 		#####

    641. 

  641. 		### session_log

    642. 

  642. 		######

    643. 

  643. 		set query "INSERT INTO session_log(dj_name, onair_time) VALUES('$dj', '$start_time')"

    644. 

  644. 		set result [mysqlexec $m $query]

    645. 

  645. 		######

    646. 

  646. 		### djlog

    647. 

  647. 		######

    648. 

  648. 		set query "SELECT dj_name from djlog where dj_name='$dj'"

    649. 

  649. 		set result [mysqlsel $m $query -list]

    650. 

  650. 		set dj_name [lindex $result 0]

    651. 

  651. 		if {$dj_name != ""} {

    652. 

  652. 			set query "SELECT total_sessions from djlog where dj_name='$dj'"

    653. 

  653. 			set result [mysqlsel $m $query -list]

    654. 

  654. 			set total_sessions [lindex $result 0]

    655. 

  655. 			incr total_sessions

    656. 

  656. 			set query "UPDATE djlog set total_sessions=$total_sessions where dj_name='$dj'"

    657. 

  657. 			set result [mysqlexec $m $query]

    658. 

  658. 		} else {

    659. 

  659. 			set query "INSERT INTO djlog(dj_name, total_sessions) VALUES('$dj', '1')"

    660. 

  660. 			set result [mysqlexec $m $query]

    661. 

  661. 		}

    662. 

  662. 		if {$result} {

    663. 

  663. 			putlog "DJ Database Entry Sent. $dj with $start_time"

    664. 

  664. 		} else {

    665. 

  665. 			putlog "Database error."

    666. 

  666. 		}

    667. 

  667. 		mysqlclose $m

    668. 

  668. 	} elseif {$testname == $dj && $testtime != "{}"} {

    669. 

  669. 				#####

    670. 

  670. 		### session_log

    671. 

  671. 		######

    672. 

  672. 		set query "INSERT INTO session_log(dj_name, onair_time) VALUES('$dj', '$start_time')"

    673. 

  673. 		set result [mysqlexec $m $query]

    674. 

  674. 		######

    675. 

  675. 		### djlog

    676. 

  676. 		######

    677. 

  677. 		set query "SELECT dj_name from djlog where dj_name='$dj'"

    678. 

  678. 		set result [mysqlsel $m $query -list]

    679. 

  679. 		set dj_name [lindex $result 0]

    680. 

  680. 		if {$dj_name != ""} {

    681. 

  681. 			set query "SELECT total_sessions from djlog where dj_name='$dj'"

    682. 

  682. 			set result [mysqlsel $m $query -list]

    683. 

  683. 			set total_sessions [lindex $result 0]

    684. 

  684. 			incr total_sessions

    685. 

  685. 			set query "UPDATE djlog set total_sessions=$total_sessions where dj_name='$dj'"

    686. 

  686. 			set result [mysqlexec $m $query]

    687. 

  687. 		} else {

    688. 

  688. 			set query "INSERT INTO djlog(dj_name, total_sessions) VALUES('$dj', '1')"

    689. 

  689. 			set result [mysqlexec $m $query]

    690. 

  690. 		}

    691. 

  691. 		if {$result} {

    692. 

  692. 			putlog "DJ Database Entry Sent. $dj with $start_time"

    693. 

  693. 		} else {

    694. 

  694. 			putlog "Database error."

    695. 

  695. 		}

    696. 

  696. 		mysqlclose $m

    697. 

  697. 	} elseif {$testname == $dj && $testtime == "{}"} {

    698. 

  698. 		putnow "PRIVMSG #DJ :$dj is already in a session."

    699. 

  699. 	}

    700. 

  700. }

    701. 

  701. 

    702. 

  702. ## Second: Offair, Session, Total

    703. 

  703. proc finishsave {dj} {

    704. 

  704. 	global djchan dbhost dbuser dbname dbpass

    705. 

  705. 	set end_time [clock seconds]

    706. 

  706. 	set m [mysqlconnect -host $dbhost -user $dbuser -db $dbname -password $dbpass]

    707. 

  707. 	# Checking out the Top-Row's DJ Name

    708. 

  708. 	set query "SELECT dj_name from session_log order by ID desc limit 1"

    709. 

  709. 	set result [mysqlsel $m $query -list]

    710. 

  710. 	set dj_name [lindex $result 0]

    711. 

  711. 	set testquery "SELECT offair_time from session_log order by ID desc limit 1"

    712. 

  712. 	set testresult [mysqlsel $m $testquery -list]

    713. 

  713. 	set testtime [lindex $testresult 0]

    714. 

  714. 	# If Our Arg is equal to DJ Name in Top Row

    715. 

  715. 	if {$dj == $dj_name && $testtime == "{}"} {

    716. 

  716. 		# Read when this person logged on-air

    717. 

  717. 		set query "SELECT onair_time from session_log order by ID desc limit 1"

    718. 

  718. 		set result [mysqlsel $m $query -list]

    719. 

  719. 		set onair_time [lindex $result 0]

    720. 

  720. 		# Calculate the session-time

    721. 

  721. 		set session_time [expr {$end_time - $onair_time}]

    722. 

  722. 		# Set session-time

    723. 

  723. 		set query "UPDATE session_log set session_time=$session_time order by ID desc limit 1"

    724. 

  724. 		set result [mysqlexec $m $query]

    725. 

  725. 		# Set Offair-time

    726. 

  726. 		set query "UPDATE session_log set offair_time=$end_time order by ID desc limit 1"

    727. 

  727. 		set result [mysqlexec $m $query]

    728. 

  728. 		######

    729. 

  729. 		### djlog

    730. 

  730. 		######

    731. 

  731. 		

    732. 

  732. 		# Read Total Time

    733. 

  733. 		set query "SELECT total_time from djlog where dj_name='$dj'"

    734. 

  734. 		set result [mysqlsel $m $query -list]

    735. 

  735. 		set total_time [lindex $result 0]

    736. 

  736. 		# This needs to be fixed or two tables created

    737. 

  737. 		if {$total_time != "{}"} {

    738. 

  738. 			set newtotal_time [expr {$total_time + $session_time}]

    739. 

  739. 		} else {

    740. 

  740. 			set newtotal_time $session_time

    741. 

  741. 		}

    742. 

  742. 		# Set New Total Time

    743. 

  743. 		if {$session_time >= 600} {

    744. 

  744. 			set query "UPDATE djlog set total_time=$newtotal_time where dj_name='$dj'"

    745. 

  745. 			set result [mysqlexec $m $query]

    746. 

  746. 			putnow "PRIVMSG $djchan : Session Time: $session_time Total Time: $newtotal_time"

    747. 

  747. 		} else {

    748. 

  748. 			putnow "PRIVMSG $djchan : $dj, your session was less than 10 minutes, thus your time was not recorded."

    749. 

  749. 		}

    750. 

  750. 		if {$result} {

    751. 

  751. 			putlog "DJ Database Entry Sent. $dj with $session_time and $newtotal_time"

    752. 

  752. 		} else {

    753. 

  753. 			putlog "Database error."

    754. 

  754. 		}

    755. 

  755. 	} else {

    756. 

  756. 		putnow "PRIVMSG $djchan :$dj, you never went on-air, thus your time was not recorded."

    757. 

  757. 	}

    758. 

  758. }

    759. 

  759. 

    760. 

  760. ##     Top 5 or $arg of DJ Log

    761. 

  761. proc toplog {nick uhost hand chan arg} {

    762. 

  762. 	global dbhost dbuser dbname dbpass

    763. 

  763. 	set m [mysqlconnect -host $dbhost -user $dbuser -db $dbname -password $dbpass]

    764. 

  764. 	set name_query "SELECT dj_name from djlog order by total_time desc"

    765. 

  765. 	set name_result [mysqlsel $m $name_query -list]

    766. 

  766. 	set tt_query "SELECT total_time from djlog order by total_time desc"

    767. 

  767. 	set ts_query "SELECT total_sessions from djlog order by total_time desc"

    768. 

  768. 	set ts_result [mysqlsel $m $ts_query -list]

    769. 

  769. 	set tt_result [mysqlsel $m $tt_query -list]

    770. 

  770. 	set i 0

    771. 

  771. 	set n 1

    772. 

  772. 	if {[llength $arg]==0} {

    773. 

  773. 		putnow "PRIVMSG $chan : Top 5 DJ Log"

    774. 

  774. 		while {$i < 5} {

    775. 

  775. 			set name [lindex $name_result $i]

    776. 

  776. 			set total_time [lindex $tt_result $i]

    777. 

  777. 			set total_sessions [lindex $ts_result $i]

    778. 

  778. 			set total_time [expr {$total_time*1}]

    779. 

  779. 			set total_time [duration $total_time]

    780. 

  780. 			putnow "PRIVMSG $chan : #$n: $name with $total_time on-air and $total_sessions sessions."

    781. 

  781. 			incr i

    782. 

  782. 			incr n

    783. 

  783. 		}

    784. 

  784. 	} else {

    785. 

  785. 		putnow "PRIVMSG $chan : Top $arg DJ Log"

    786. 

  786. 		set arg [expr {$arg*1}]

    787. 

  787. 		while {$i < $arg} {

    788. 

  788. 			set name [lindex $name_result $i]

    789. 

  789. 			set total_time [lindex $tt_result $i]

    790. 

  790. 			set total_sessions [lindex $ts_result $i]

    791. 

  791. 			set total_time [expr {$total_time*1}]

    792. 

  792. 			set total_time [duration $total_time]

    793. 

  793. 			putnow "PRIVMSG $chan : #$n: $name with $total_time on-air and $total_sessions sessions."

    794. 

  794. 			incr i

    795. 

  795. 			incr n

    796. 

  796. 		}

    797. 

  797. 	}

    798. 

  798. }

    799. 

  799. 

    800. 

  800. 

    801. 

  801. proc lastsessions {nick uhost hand chan arg} {

    802. 

  802. 	global dbhost dbuser dbname dbpass

    803. 

  803. 	set m [mysqlconnect -host $dbhost -user $dbuser -db $dbname -password $dbpass]

    804. 

  804. 	set name_query "SELECT dj_name from session_log order by id desc"

    805. 

  805. 	set name_result [mysqlsel $m $name_query -list]

    806. 

  806. 	set on_query "SELECT onair_time from session_log order by id desc"

    807. 

  807. 	set off_query "SELECT offair_time from session_log order by id desc"

    808. 

  808. 	set on_result [mysqlsel $m $on_query -list]

    809. 

  809. 	set off_result [mysqlsel $m $off_query -list]

    810. 

  810. 	set session_query "SELECT session_time from session_log order by id desc"

    811. 

  811. 	set session_result [mysqlsel $m $session_query -list]

    812. 

  812. 	set i 0

    813. 

  813. 	set n 1

    814. 

  814. 	if {[llength $arg]==0} {

    815. 

  815. 		putnow "PRIVMSG $chan : Last 5 DJ Sessions"

    816. 

  816. 		while {$i < 5} {

    817. 

  817. 			set name [lindex $name_result $i]

    818. 

  818. 			set onairs [lindex $on_result $i]

    819. 

  819. 			set offairs [lindex $off_result $i]

    820. 

  820. 			set session_time [lindex $session_result $i]

    821. 

  821. 			putnow "PRIVMSG $chan : #$n: $name with $onairs on-air and $offairs offair and $session_time session time."

    822. 

  822. 			incr i

    823. 

  823. 			incr n

    824. 

  824. 		}

    825. 

  825. 	} else {

    826. 

  826. 		putnow "PRIVMSG $chan : Last $arg DJ Sessions"

    827. 

  827. 		set arg [expr {$arg*1}]

    828. 

  828. 		while {$i < $arg} {

    829. 

  829. 			set name [lindex $name_result $i]

    830. 

  830. 			set onairs [lindex $on_result $i]

    831. 

  831. 			set offairs [lindex $off_result $i]

    832. 

  832. 			set session_time [lindex $session_result $i]

    833. 

  833. 			putnow "PRIVMSG $chan : #$n: $name with $onairs on-air and $offairs offair and $session_time session time."

    834. 

  834. 			incr i

    835. 

  835. 			incr n

    836. 

  836. 		}

    837. 

  837. 	}

    838. 

  838. }

    839. 

  839. 

    840. 

  840. ## Delete Request Func + Timer

    841. 

  841. proc deletereq {} {

    842. 

  842. 	global djchan logchan

    843. 

  843. 	timer 10 [list deletereq]

    844. 

  844. 	set filename "requestlist.txt"

    845. 

  845. 	set fp [open $filename r+]

    846. 

  846. 	set data [read -nonewline $fp]

    847. 

  847. 	set lines [split $data "\n"]

    848. 

  848. 	close $fp

    849. 

  849. 	set line_to_delete [expr {[llength $lines] - 1}]

    850. 

  850. 	set lines [lreplace $lines $line_to_delete $line_to_delete]

    851. 

  851. 	set fp [open $filename w+]

    852. 

  852. 	if {[gets $fp data] >= 1} {

    853. 

  853. 		puts -nonewline $fp $lines

    854. 

  854. 		close $fp

    855. 

  855. 	} else {

    856. 

  856. 		puts -nonewline $fp [join $lines "\n"]

    857. 

  857. 		close $fp

    858. 

  858. 	}

    859. 

  859. 	putnow "PRIVMSG $logchan :Deleting a Request"

    860. 

  860. }

    861. 

  861. 

    862. 

  862. ##  Calculate Seconds to D:H:M:S

    863. 

  863. proc duration { int_time } {

    864. 

  864. 	set timeList [list]

    865. 

  865. 	foreach div {604800 86400 3600 60 1} mod {0 7 24 60 60} name {wk day hr min sec} {

    866. 

  866. 		set n [expr {$int_time / $div}]

    867. 

  867. 		if {$mod > 0} {set n [expr {$n % $mod}]}

    868. 

  868. 		if {$n > 1} {

    869. 

  869. 			lappend timeList "$n ${name}s"

    870. 

  870. 		} elseif {$n == 1} {

    871. 

  871. 			lappend timeList "$n $name"

    872. 

  872. 		}

    873. 

  873. 	}

    874. 

  874. 	return [join $timeList]

    875. 

  875. }

    876. 

  876. 

    877. 

  877. ## Advert if Offline->RealDJ

    878. 

  878. proc onair {} {

    879. 

  879. 	global radiochan djchan dj newdj mainchan

    880. 

  880. 	set a "\002$newdj\002 - Is Now Broadcasting Live! Tune "

    881. 

  881. 	set b "in @ http://216.104.37.26:9005/listen.pls"

    882. 

  882. 	set c "$newdj is now ON AIR @ "

    883. 

  883. 	set d "#TI-Radio (http://216.104.37.26:9005/listen.pls)"

    884. 

  884. 	set e "Torrent-Invites Radio || Status: DJ On Air || $newdj Is Now Broadcasting || "

    885. 

  885. 	set f "URL: http://216.104.37.26:9005/listen.pls || Want to be a DJ?: http://bit.ly/J6cWtN"

    886. 

  886. 	putnow "PRIVMSG $radiochan : $a$b"

    887. 

  887. 	putnow "PRIVMSG $djchan :\002ON AIR\002: $newdj is now ON AIR."

    888. 

  888. 	putnow "PRIVMSG $mainchan : $c$d"

    889. 

  889. 	putnow "TOPIC $radiochan : $e$f"

    890. 

  890. }

    891. 

  891. 

    892. 

  892. ## Advert if RealDJ->RealDJ

    893. 

  893. proc tempoffair {} {

    894. 

  894. 	global radiochan djchan dj

    895. 

  895. 	set radiochan [string tolower $radiochan]

    896. 

  896. 	if {$dj != 0} {

    897. 

  897. 		putnow "PRIVMSG $radiochan :\002OFF AIR\002: $dj is now OFF AIR."

    898. 

  898. 		putnow "PRIVMSG $djchan :\002OFF AIR\002: $dj is now OFF AIR."

    899. 

  899. 	}

    900. 

  900. }

    901. 

  901. 

    902. 

  902. ## Advert if Offline->AutoDJ

    903. 

  903. proc autodjon {} {

    904. 

  904. 	global radiochan

    905. 

  905. 	set radiochan [string tolower $radiochan]

    906. 

  906. 	set a "Torrent-Invites Radio || Status: AutoDJ ||"

    907. 

  907. 	set b "URL: http://216.104.37.26:9005/listen.pls || Want to be a DJ?: http://bit.ly/J6cWtN"

    908. 

  908. 	putnow "TOPIC $radiochan : $a$b"

    909. 

  909. }

    910. 

  910. 

    911. 

  911. ## Advert if Someone->Offline

    912. 

  912. proc serveroffline {} {

    913. 

  913. 	global radiochan

    914. 

  914. 	set radiochan [string tolower $radiochan]

    915. 

  915. 	set a "Torrent-Invites Radio || Status: Stream Offline ||"

    916. 

  916. 	set b " URL: http://216.104.37.26:9005/listen.pls || Want to be a DJ?: http://bit.ly/J6cWtN"

    917. 

  917. 	putnow "TOPIC $radiochan : $a$b"

    918. 

  918. }

    919. 

  919. 

    920. 

  920. ## Advert if RealDJ->AutoDJ

    921. 

  921. proc autooffair {} {

    922. 

  922. 	global radiochan djchan dj

    923. 

  923. 	set radiochan [string tolower $radiochan]

    924. 

  924. 	set a "Torrent-Invites Radio || Status: AutoDJ || "

    925. 

  925. 	set b "URL: http://216.104.37.26:9005/listen.pls || Want to be a DJ?: http://bit.ly/J6cWtN"

    926. 

  926. 	putnow "PRIVMSG $radiochan :\002OFF AIR\002: $dj is now OFF AIR."

    927. 

  927. 	putnow "PRIVMSG $djchan :\002OFF AIR\002: $dj is now OFF AIR."

    928. 

  928. 	putnow "TOPIC $radiochan : $a$b"

    929. 

  929. 

    930. 

  930. }

    931. 

  931. 

    932. 

  932. ## Advert if Server if Offline

    933. 

  933. proc offair {} {

    934. 

  934. 	global radiochan djchan dj

    935. 

  935. 	set radiochan [string tolower $radiochan]

    936. 

  936. 	set a "Torrent-Invites Radio || Status: Stream Offline || "

    937. 

  937. 	set b "URL: http://216.104.37.26:9005/listen.pls || Want to be a DJ?: http://bit.ly/J6cWtN"

    938. 

  938. 	putnow "PRIVMSG $radiochan :\002OFF AIR\002: $dj is now OFF AIR."

    939. 

  939. 	putnow "PRIVMSG $djchan :\002OFF AIR\002: $dj is now OFF AIR."

    940. 

  940. 	putnow "PRIVMSG $djchan :\00304$dj, please remember to \002TURN ON AUTODJ\002 \00304"

    941. 

  941. 	putnow "TOPIC $radiochan : $a$b"

    942. 

  942. }

    943. 

  943. 

    944. 

  944. putlog "Radio Script loaded..        | 1"

    945. 

  945. start
    946.