Code:

###############################################################################################################################################                       Worldtime by Murf                             ##                            v1.1                                     ##                                                                     ##  Gets the time from around the world from www.worldtimeserver.com   ##  Not much else to say, simple but handy.                            ##                                                                     ##                 Latest version @ http://www.blueday.org             ##                 Comments & Questions to murf@mindless.com           #########################################################################  Only tested on TCL v8.3 and Egg v1.6x, although I kept the code    ##  generic enough for TCL v8.0 and probably v1.3 of egg.              #########################################################################                                                                     ##  Commands                                                           ##                                                                     ##          .tz <city|country>                                         ##        or                                                           ##          /msg kinks .tz <city|country>                              ##                                                                     ##        City and country list is somewhat limited to major cities    ##        and countries.                                               ##                                                                     ##   Version                                                           ##      v1.1 Nov 1 2001                                                ##        --  Got rid of 'string equal' so people with old (v8.0) TCL  ##            can run  (not really worthy of .1 but what the hell!)    ##                                                                     ##      v1.0 written in 2000 sometime                                  ##         -- first version and been running forever without problems  ##            or changes to the script.                                ##                                                                     ##################################################################################################################################################Nothing to setup or configure###############binds######################bind pub - !time pub_world_timebind msg - time msg_world_time##########Procs######################proc pub_world_time {nick uhost handle chan location} {  set loclist [get_tzloc $location $nick]  if {$loclist == 0} {     return  }  set url [lindex [split $loclist] 0]  set temploc [lindex [split $loclist] 1]  if {$temploc == "toilet"} {     putserv "PRIVMSG $chan : If ya gotta crap goto the toilet. No one wants\your stank around here!"     return  }  if {$temploc == "kick"} {     putkick $chan $nick "It's time to stop being so lame"     return  }  set tztime [get_tztime $url]  regsub -all {_} $temploc { } outloc  putserv "PRIVMSG $chan : The time in $outloc is $tztime"  }proc msg_world_time {nick uhost handle location} {  set loclist [get_tzloc $location $nick]  if {$loclist == 0} {     return  }  set url [lindex [split $loclist] 0]  set temploc [lindex [split $loclist] 1]  if {$temploc == "toilet"} {     putserv "NOTICE $nick : If ya gotta crap goto the toilet. No one wants\your stank around here!"     return  }  if {$temploc == "kick"} {     putserv "NOTICE $nick : It's time to stop being so lame!"     return  }  set tztime [get_tztime $url]  regsub -all {_} $temploc { } outloc  putserv "NOTICE $nick : The time in $outloc is $tztime"  }proc get_tztime {url} {  set tzsock [socket -async www.worldtimeserver.com 80]  puts $tzsock "GET $url HTTP/1.1"  puts $tzsock "Host: www.worldtimeserver.com"  puts $tzsock "User-Agent: Mozilla/4.- (compatible; MSIE 5.0; Windows 98)"  puts $tzsock ""  flush $tzsock  set i 0  set tzout [gets $tzsock]  while {[string first \"7\" $tzout] == -1} {     set tzout [gets $tzsock]     incr i     if {$i >= 150} {        break     }   }  close $tzsock  set sindx [expr {[string first \"> $tzout] + 2}]  set eindx [expr {[string first <\/ $tzout] - 1}]  set tztime [string trimleft [string range $tzout $sindx $eindx] 0]  return $tztime}proc get_tzloc {location nick} {set city_list {UTC:UTC/GMTCI&city=Abidjan:Abidjan,Cote_D'IvoireAE&city=Abu_Dhabi:Abu_Dhabi,United_Arab_EmiratesNG&city=Abuja:Abuja,NigeriaGH&city=Accra:Accra,GhanaET&city=Addis_Ababa:Addis_Ababa,EthiopiaAU-SA&city=Adelaide:Adelaide,AustraliaUS-NY&city=Albany:Albany,United_StatesUS-NM&city=Albuquerque:Albuquerque,United_StatesDZ&city=Algiers:Algiers,AlgeriaKZ&city=Almaty:Almaty,KazakstanJO&city=Amman:Amman,JordanNL&city=Amsterdam:Amsterdam,NetherlandsUS-AK&city=Anchorage:Anchorage,United_StatesAD&city=Andorra_La_Vella:Andorra_La_Vella,AndorraTR&city=Ankara:Ankara,TurkeyUS-MD&city=Annapolis:Annapolis,United_StatesMG&city=Antananarivo:Antananarivo,MadagascarWS&city=Apia:Apia,SamoaTM&city=Ashgabat:Ashgabat,TurkmenistanER&city=Asmara:Asmara,EritreaRU&city=Astrakhan:Astrakhan,Russian_FederationPY&city=Asuncion:Asuncion,ParaguayGR&city=Athens:Athens,GreeceUS-GA&city=Atlanta:Atlanta,United_StatesNZ&city=Auckland:Auckland,New_ZealandUS-ME&city=Augusta:Augusta,United_StatesUS-TX&city=Austin:Austin,United_StatesIQ&city=Baghdad:Baghdad,IraqAZ&city=Baku:Baku,AzerbaijanUS-MD&city=Baltimore:Baltimore,United_StatesML&city=Bamako:Bamako,MaliBN&city=Bandar_Seri_Begawan:Bandar_Seri_Begawan,Brunei_Daru_salamTH&city=Bangkok:Bangkok,ThailandCF&city=Bangui:Bangui,Central_African_RepublicGM&city=Banjul:Banjul,GambiaES&city=Barcelona:Barcelona,SpainKN&city=Basseterre:Basseterre,Saint_Kitts_and_NevisCN&city=Beijing:Beijing,ChinaLB&city=Beirut:Beirut,LebanonYU&city=Belgrade:Belgrade,YugoslaviaBZ&city=Belize_City:Belize_City,BelizeDE&city=Berlin:Berlin,GermanyCH&city=Bern:Bern,SwitzerlandUS-MT&city=Billings:Billings,United_StatesUS-AL&city=Birmingham:Birmingham,United_StatesKG&city=Bishkek:Bishkek,KyrgyzstanUS-ND&city=Bismarck:Bismarck,United_StatesGW&city=Bissau:Bissau,Guinea-BissauCO&city=Bogota:Bogota,ColombiaUS-ID&city=Boise:Boise,United_StatesDE&city=Bonn:Bonn,GermanyUS-MA&city=Boston:Boston,United_StatesBR-DF&city=Brasilia:Brasilia,BrazilSK&city=Bratislava:Bratislava,SlovakiaRU7&city=Bratsk:Bratsk,Russian_FederationCG&city=Brazzaville:Brazzaville,CongoUS-CT&city=Bridgeport:Bridgeport,United_StatesBB&city=Bridgetown:Bridgetown,BarbadosAU-QLD&city=Brisbane:Brisbane,AustraliaBE&city=Brussels:Brussels,BelgiumRO&city=Bucharest:Bucharest,RomaniaHU&city=Budapest:Budapest,HungaryAR&city=Buenos_Aires:Buenos_Aires,ArgentinaUS-NY&city=Buffalo:Buffalo,United_StatesBI&city=Bujumbura:Bujumbura,BurundiEG&city=Cairo:Cairo,EgyptIN&city=Calcutta:Calcutta,IndiaCA-AB&city=Calgary:Calgary,CanadaAU-ACT&city=Canberra:Canberra,AustraliaZA&city=Cape_Town:Cape_Town,South_AfricaVE&city=Caracas:Caracas,VenezuelaLC&city=Castries:Castries,Saint_LuciaUS-WV&city=Charleston:Charleston,United_StatesUS-NC&city=Charlotte:Charlotte,United_StatesUS-WY&city=Cheyenne:Cheyenne,United_StatesUS-IL&city=Chicago:Chicago,United_StatesMD&city=Chisinau:Chisinau,Moldova,Republic_ofRU8&city=Chita:Chita,Russian_FederationUS-OH&city=Cincinnati:Cincinnati,United_StatesUS-OH&city=Cleveland:Cleveland,United_StatesLK&city=Colombo:Colombo,Sri_LankaUS-SC&city=Columbia:Columbia,United_StatesUS-OH&city=Columbus:Columbus,United_StatesGN&city=Conakry:Conakry,GuineaDK&city=Copenhagen:Copenhagen,DenmarkBJ&city=Cotonou:Cotonou,BeninSN&city=Dakar:Dakar,SenegalUS-TX&city=Dallas:Dallas,United_StatesSY&city=Damascus:Damascus,Syrian_Arab_RepublicTZ&city=Dar_es_Salaam:Dar_es_Salaam,Tanzania,United_Republic_ofAU-NT&city=Darwin:Darwin,AustraliaCA-YT&city=Dawson:Dawson,CanadaUS-CO&city=Denver:Denver,United_StatesUS-IA&city=Des_Moines:Des_Moines,United_StatesUS-MI&city=Detroit:Detroit,United_StatesBD&city=Dhaka:Dhaka,BangladeshDJ&city=Djibouti:Djibouti,DjiboutiQA&city=Doha:Doha,QatarUS-DE&city=Dover:Dover,United_StatesAE&city=Dubai:Dubai,United_Arab_EmiratesIE&city=Dublin:Dublin,IrelandTJ&city=Dushanbe:Dushanbe,TajikistanGB&city=Edinburgh:Edinburgh,United_KingdomCA-AB&city=Edmonton:Edmonton,CanadaRU4&city=Ekaterinburg:Ekaterinburg,Russian_FederationUS-TX1&city=El_Paso:El_Paso,United_StatesUS-IN1&city=Evansville:Evansville,United_StatesUS-ND&city=Fargo:Fargo,United_StatesUS-IN&city=Fort_Wayne:Fort_Wayne,United_StatesSL&city=Freetown:Freetown,Sierra_LeoneTV&city=Funafuti:Funafuti,TuvaluBW&city=Gaborone:Gaborone,BotswanaUS-IN1&city=Gary:Gary,United_StatesCH&city=Geneva:Geneva,SwitzerlandGY&city=Georgetown:Georgetown,GuyanaRU&city=Groznyy:Groznyy,Russian_FederationGT&city=Guatemala_City:Guatemala_City,GuatemalaNL&city=Hague:Hague,The,NetherlandsCA-NS&city=Halifax:Halifax,CanadaBM&city=Hamilton:Hamilton,BermudaVN&city=Hanoi:Hanoi,Viet_NamZW&city=Harare:Harare,ZimbabweUS-CT&city=Hartford:Hartford,United_StatesCU&city=Havana:Havana,CubaFI&city=Helsinki:Helsinki,FinlandVN&city=Ho_Chi_Minh_City:Ho_Chi_Minh_City,Viet_NamAU-TAS&city=Hobart:Hobart,AustraliaHK&city=Hong_Kong:Hong_Kong,Hong_KongSB&city=Honiara:Honiara,Solomon_IslandsUS-HI&city=Honolulu:Honolulu,United_StatesUS-TX&city=Houston:Houston,United_StatesUS-IN&city=Indianapolis:Indianapolis,United_StatesPK&city=Islamabad:Islamabad,PakistanTR&city=Istanbul:Istanbul,TurkeyRU3&city=Izhevsk:Izhevsk,Russian_FederationUS-MS&city=Jackson:Jackson,United_StatesUS-FL&city=Jacksonville:Jacksonville,United_StatesID&city=Jakarta:Jakarta,IndonesiaIL&city=Jerusalem:Jerusalem,IsraelZA&city=Johannesburg:Johannesburg,South_AfricaUS-AK&city=Juneau:Juneau,United_StatesAF&city=Kabul:Kabul,AfghanistanRU1&city=Kaliningrad:Kaliningrad,Russian_FederationUG&city=Kampala:Kampala,UgandaUS-MO&city=Kansas_City:Kansas_City,United_StatesRU9&city=Khabarovsk:Khabarovsk,Russian_FederationSD&city=Khartoum:Khartoum,SudanUA&city=Kiev:Kiev,UkraineRW&city=Kigali:Kigali,RwandaJM&city=Kingston:Kingston,JamaicaVC&city=Kingstown:Kingstown,Saint_Vincent_and_The_GrenadinesCD&city=Kinshasa:Kinshasa,Congo,Democratic_Republic_ofUS-TN1&city=Knoxville:Knoxville,United_StatesFM&city=Kolonia:Kolonia,Micronesia,Federated_States_OfPW&city=Koror:Koror,PalauPL&city=Krakow:Krakow,PolandMY&city=Kuala_Lumpur:Kuala_Lumpur,MalaysiaKW&city=Kuwait_City:Kuwait_City,KuwaitRU6&city=Kyzyl:Kyzyl,Russian_FederationBO&city=La_Paz:La_Paz,BoliviaUS-MI&city=Lansing:Lansing,United_StatesUS-NV&city=Las_Vegas:Las_Vegas,United_StatesUS-KY&city=Lexington:Lexington,United_StatesGA&city=Libreville:Libreville,GabonMW&city=Lilongwe:Lilongwe,MalawiPE&city=Lima:Lima,PeruUS-NE&city=Lincoln:Lincoln,United_StatesPT&city=Lisbon:Lisbon,PortugalUS-AR&city=Little_Rock:Little_Rock,United_StatesSI&city=Ljubljana:Ljubljana,SloveniaTG&city=Lome:Lome,TogoGB&city=London:London,United_KingdomUS-CA&city=Los_Angeles:Los_Angeles,United_StatesUS-KY&city=Louisville:Louisville,United_StatesAO&city=Luanda:Luanda,AngolaZM&city=Lusaka:Lusaka,ZambiaLU&city=Luxembourg:Luxembourg,LuxembourgUS-WI&city=Madison:Madison,United_StatesES&city=Madrid:Madrid,SpainRU10&city=Magadan:Magadan,Russian_FederationMH&city=Majuro:Majuro,Marshall_IslandsGQ&city=Malabo:Malabo,Equatorial_GuineaMV&city=Male:Male,MaldivesNI&city=Managua:Managua,NicaraguaBH&city=Manama:Manama,BahrainPH&city=Manila:Manila,PhilippinesMZ&city=Maputo:Maputo,MozambiqueLS&city=Maseru:Maseru,LesothoSZ&city=Mbabane:Mbabane,SwazilandSA&city=Mecca:Mecca,Saudi_ArabiaAU-VIC&city=Melbourne:Melbourne,AustraliaUS-TN&city=Memphis:Memphis,United_StatesMX&city=Mexico_City:Mexico_City,MexicoUS-FL&city=Miami:Miami,United_StatesUS-WI&city=Milwaukee:Milwaukee,United_StatesUS-MN&city=Minneapolis:Minneapolis,United_StatesBY&city=Minsk:Minsk,BelarusSO&city=Mogadishu:Mogadishu,SomaliaLR&city=Monrovia:Monrovia,LiberiaMX&city=Monterrey:Monterrey,MexicoUY&city=Montevideo:Montevideo,UruguayUS-AL&city=Montgomery:Montgomery,United_StatesCA-QC&city=Montreal:Montreal,CanadaKM&city=Moroni:Moroni,ComorosRU&city=Moscow:Moscow,Russian_FederationOM&city=Muscat:Muscat,OmanKE&city=Nairobi:Nairobi,KenyaRU&city=Naryan_Mar:Naryan_Mar,Russian_FederationUS-TN&city=Nashville:Nashville,United_StatesBS&city=Nassau:Nassau,BahamasTD&city=N'Djamena:N'Djamena,ChadIN&city=New_Delhi:New_Delhi,IndiaUS-LA&city=New_Orleans:New_Orleans,United_StatesUS-NY&city=New_York:New_York,United_StatesUS-NJ&city=Newark:Newark,United_StatesNE&city=Niamey:Niamey,NigerCY&city=Nicosia:Nicosia,CyprusRU4&city=Nizhnevartovsk:Nizhnevartovsk,Russian_FederationRU6&city=Norilsk:Norilsk,Russian_FederationMR&city=Nouakchott:Nouakchott,MauritaniaRU5&city=Novosibirsk:Novosibirsk,Russian_FederationUS-OK&city=Oklahoma_City:Oklahoma_City,United_StatesUS-NE&city=Omaha:Omaha,United_StatesRU5&city=Omsk:Omsk,Russian_FederationUS-FL&city=Orlando:Orlando,United_StatesNO&city=Oslo:Oslo,NorwayCA-ON&city=Ottawa:Ottawa,CanadaBF&city=Ouagadougou:Ouagadougou,Burkina_FasoPA&city=Panama_City:Panama_City,PanamaSR&city=Paramaribo:Paramaribo,SurinameFR&city=Paris:Paris,FranceUS-FL1&city=Pensacola:Pensacola,United_StatesRU4&city=Perm:Perm,Russian_FederationAU-WA&city=Perth:Perth,AustraliaRU11&city=Petropavlovsk-Kamchatsky:Petropavlovsk-Kamchatsky,Russian_FederationUS-PA&city=Philadelphia:Philadelphia,United_StatesKH&city=Phnom_Penh:Phnom_Penh,CambodiaUS-AZ&city=Phoenix:Phoenix,United_StatesUS-SD&city=Pierre:Pierre,United_StatesUS-PA&city=Pittsburgh:Pittsburgh,United_StatesMU&city=Port_Louis:Port_Louis,MauritiusPG&city=Port_Moresby:Port_Moresby,Papua_New_GuineaHT&city=Port-au-Prince:Port-au-Prince,HaitiUS-OR&city=Portland:Portland,United_StatesUS-ME&city=Portland:Portland,United_StatesTT&city=Port-of-Spain:Port-of-Spain,Trinidad_and_TobagoVU&city=Port-Vila:Port-Vila,VanuatuCZ&city=Prague:Prague,Czech_RepublicCV&city=Praia:Praia,Cape_VerdeZA&city=Pretoria:Pretoria,South_AfricaUS-RI&city=Providence:Providence,United_StatesKP&city=Pyongyang:Pyongyang,Korea,Democratic_People's_Republic_ofEC&city=Quito:Quito,EcuadorMA&city=Rabat:Rabat,MoroccoUS-NC&city=Raleigh:Raleigh,United_StatesMM&city=Rangoon:Rangoon,MyanmarUS-SD1&city=Rapid_City:Rapid_City,United_StatesCA-SK&city=Regina:Regina,CanadaUS-NV&city=Reno:Reno,United_StatesIS&city=Reykjavik:Reykjavik,IcelandUS-VA&city=Richmond:Richmond,United_StatesLV&city=Riga:Riga,LatviaBR-RJ&city=Rio_de_Janeiro:Rio_de_Janeiro,BrazilSA&city=Riyadh:Riyadh,Saudi_ArabiaIT&city=Rome:Rome,ItalyDM&city=Roseau:Roseau,DominicaUS-CA&city=Sacramento:Sacramento,United_StatesGD&city=Saint_George's:Saint_George's,GrenadaUS-OR&city=Salem:Salem,United_StatesUS-UT&city=Salt_Lake_City:Salt_Lake_City,United_StatesAT&city=Salzburg:Salzburg,AustriaRU3&city=Samara:Samara,Russian_FederationUS-TX&city=San_Antonio:San_Antonio,United_StatesUS-CA&city=San_Diego:San_Diego,United_StatesUS-CA&city=San_Francisco:San_Francisco,United_StatesCR&city=San_Jose:San_Jose,Costa_RicaPR&city=San_Juan:San_Juan,Puerto_RicoSV&city=San_Salvador:San_Salvador,El_SalvadorYE&city=Sanaa:Sanaa,YemenCL&city=Santiago:Santiago,ChileDO&city=Santo_Domingo:Santo_Domingo,Dominican_RepublicBR-SP&city=Sao_Paulo:Sao_Paulo,BrazilBA&city=Sarajevo:Sarajevo,Bosnia_and_HerzegovinaCA-SK&city=Saskatoon:Saskatoon,CanadaUS-WA&city=Seattle:Seattle,United_StatesKR&city=Seoul:Seoul,Korea,Republic_ofSG&city=Singapore_City:Singapore_City,SingaporeUS-SD&city=Sioux_Falls:Sioux_Falls,United_StatesMK&city=Skopje:Skopje,Macedonia,The_Former_Yugoslav_Republic_OfBG&city=Sofia:Sofia,BulgariaUS-IL&city=Springfield:Springfield,United_StatesAG&city=St._John's:St._John's,Antigua_and_BarbudaUS-MO&city=St._Louis:St._Louis,United_StatesUS-MN&city=St._Paul:St._Paul,United_StatesRU&city=St._Petersburg:St._Petersburg,Russian_FederationSE&city=Stockholm:Stockholm,SwedenFJ&city=Suva:Suva,FijiAU-NSW&city=Sydney:Sydney,AustraliaTW&city=Taipei:Taipei,TaiwanUS-FL&city=Tallahassee:Tallahassee,United_StatesEE&city=Tallinn:Tallinn,EstoniaUZ&city=Tashkent:Tashkent,UzbekistanGE&city=Tbilisi:Tbilisi,GeorgiaHN&city=Tegucigalpa:Tegucigalpa,HondurasIR&city=Tehran:Tehran,Iran,Islamic_Republic_ofIL&city=Tel_Aviv:Tel_Aviv,IsraelUS-IN&city=Terre_Haute:Terre_Haute,United_StatesBT&city=Thimphu:Thimphu,BhutanAL&city=Tirane:Tirane,AlbaniaJP&city=Tokyo:Tokyo,JapanUS-KS&city=Topeka:Topeka,United_StatesCA-ON&city=Toronto:Toronto,CanadaUS-NJ&city=Trenton:Trenton,United_StatesLY&city=Tripoli:Tripoli,Libyan_Arab_JamahiriyaTN&city=Tunis:Tunis,TunisiaMN&city=Ulan_Bator:Ulan_Bator,MongoliaRU7&city=Ulan-Ude:Ulan-Ude,Russian_FederationLI&city=Vaduz:Vaduz,LiechtensteinMT&city=Valletta:Valletta,MaltaCA-BC&city=Vancouver:Vancouver,CanadaCA-BC&city=Victoria:Victoria,CanadaSC&city=Victoria:Victoria,SeychellesAT&city=Vienna:Vienna,AustriaLA&city=Vientiane:Vientiane,Lao_People's_Democratic_RepublicLT&city=Vilnius:Vilnius,LithuaniaUS-VA&city=Virginia_Beach:Virginia_Beach,United_StatesRU9&city=Vladivostok:Vladivostok,Russian_FederationPL&city=Warsaw:Warsaw,PolandUS-DC&city=Washington:Washington,United_StatesNZ&city=Wellington:Wellington,New_ZealandUS-KS&city=Wichita:Wichita,United_StatesUS-DE&city=Wilmington:Wilmington,United_StatesNA&city=Windhoek:Windhoek,NamibiaCA-MB&city=Winnipeg:Winnipeg,CanadaRU8&city=Yakutsk:Yakutsk,Russian_FederationCM&city=Yaounde:Yaounde,CameroonAM&city=Yerevan:Yerevan,ArmeniaRU9&city=Yuzhno-Sakhalinsk:Yuzhno-Sakhalinsk,Russian_FederationHR&city=Zagreb:Zagreb,CroatiaCH&city=Zurich:Zurich,Switzerland}  set itmatched 0  if {$location == ""} {     putserv "NOTICE $nick : USAGE: .tz <city|country|city,country>"     putserv "NOTICE $nick : Cities are listed alphabetically, so if you enter\a country, you will get the first city in the list for that country"     return 0  }  set inloc [string trim [string tolower $location]]  regsub  -all { } $inloc {_} tloc  foreach i $city_list {     set tempurl [lindex [split $i :] 0]     set temploc [lindex [split $i :] 1]     if {[string first $tloc [string tolower $temploc]] != -1} {        set itmatched 1        break     }  }  if {[string first mcmurdo $tloc] !=-1} {     set tempurl NZ&city=Wellington     set temploc Mcmurdo_Station,Antarctica     set itmatched 1  }   if {[string first south_pole $tloc] !=-1} {     set tempurl NZ&city=Wellington     set temploc South_Pole,Antarctica     set itmatched 1  }   if {[lsearch -exact {[censored] poo crap} $tloc] != -1} {     set tempurl UTC     set temploc toilet     set itmatched 1  }  if {[lsearch -exact {[censored] nigger [censored]} $tloc] != -1} {     set tempurl UTC     set temploc kick     set itmatched 1  }  if {$itmatched == 0} {     putserv "NOTICE $nick :Sorry no match on $inloc, try a different city"     return 0  }  if {[string compare [lindex [split $temploc ,] 1] United_States] == 0} {     set temploc [lindex [split $temploc ,] 0]  }  set url "http:\/\/www.worldtimeserver.com\/time.asp?locationid=$tempurl"  return "$url $temploc"}putlog "WorldTime v1.1 by Murf loaded"

Statistics: Posted by GodOfSuicide — Wed Mar 26, 2003 4:06 pm

Statistics: Posted by YooHoo — Wed Mar 26, 2003 4:04 pm