-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathChanBoards.hs
36 lines (25 loc) · 19.9 KB
/
ChanBoards.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
module ChanBoards where
import Data.Set
import qualified Data.Map as M
listOfAllServers :: Set String
listOfAllServers = fromList ["babiru","qiufen","idol","set","venus","yomi","sakura03", "sakura01","peach","sakura02","pie","kilauea","pele","okazu","wow","pink","www2","hayabusa","hayabusa2","yuzuru","hibari","awabi","kamome","ikura","toro","hato","anago","engawa","qb5","qb7","kohada","uni","ex17","life","news12","science","ex18","life2","news13","science5","ex19","live3","news14","science6","ex2","life4","news15","ex20","life5","news16","snow","1999","ex21","life6","news17","society2","2002a","life7","news8","society3","aa","ex23","life8","news19","society4","aa2","ex24","life9","news2","society5","aa3","ex25","live","news20","society6","aa4","ex3","live10","news21","society","aa5","ex4","live11","news22","sports3","aa6","ex5","live12","news23","sports4","academy2","ex6","live13","news24","sports5","academy3","ex7","live14","news3","sports6","academy4","ex8","live15","news4","sports7","academy5","ex9","live16","news5","sports8","academy6","live17","news6","sports9","food2","live18","news7","sports10","afox","food3","live19","news8","sports11","anchorage","live2","news9","sport","anime3","food5","live20","off","takeshima","science3","news11","kitanet","ex16","science2","news10","kaba","ex15","news","jfk","ex14","school7","natto","jbbs","ex13","school6","namidame","invisible","ex12","school5","music","human","ex11","school4","music8","human7","ex10","school3","music7","human6","ex","yutori8","school2","music6","human5","etc7","yutori7","schiphol","music5","human4","etc6","yutori","salami","music4","etc5","yasai","salad","music3","human2","etc4","wwwww","saki","music2","hobby","etc3","v2","raicho.","money","hobby9","etc2","tv9","money6","hobby8","etc","tv8","qb6","money5","hobby7","ebi","tv7","qb400","money4","hobby6","curry","tv6","qb4","money3","hobby5","corn","tv5","qb3","money2","hobby11","comic","tv4","qb2","hobby10","comic7","tv3","qb","hobby4","comic6","tv2","qa","hobby3","comic5","tv11","pyon","mamono","hobby2","comic4","tv10","2chplus","love6","hideyoshi","comic3","tv","piza2","love5","gimp","comic2","tsushima","piza","love4","game9","cocoa","travel","pc9","love3","game8","choco","travel3","pc8","love2","game7","cheese","travel2","pc7","love","game6","changi","tora3","pc6","live9","game5","caramel","ton","pc5","live8","game4","bubble","tmp7","pc4","live7","game3","bubble6","tmp6","pc3","live6","game2","bubble5","tmp5","pc2","live5","game14","bubble4","tmp4","pc12","live4","game13","bubble3","tmp3","pc11","live3","game12","bubble2","tmp2","pc10","live28","game11","book4","tmp","pc","live27","game10","book3","that4","oyster","live26","game","book2","that3","ooo","live25","gamble","book","that2","o-o","live24","gamble2","that","off4","live23","food8","atlanta","teri","off3","live22x","food7","anime2","off2","live21"]
serverStyle0 :: [String]
serverStyle0 = ["babiru","qiufen","idol","set","venus","yomi","sakura01","peach","sakura02","pie", "sakura03"]
serverStyle1 :: [String]
serverStyle1 = ["kilauea","pele"]
serverStyle2 :: [String]
serverStyle2 = ["vip"]
serverStyle3 :: [String]
serverStyle3 = ["okazu","wow","pink"]
serverStyle4 :: [String]
serverStyle4 = ["www2"]
serverStyle5 :: [String]
serverStyle5 = ["hayabusa","hayabusa2","yuzuru","hibari","awabi","kamome","ikura","toro","hato","anago","engawa","qb5","qb7","kohada","uni"]
serverStyle6 :: [String]
serverStyle6 = ["ex17","life","news12","science","ex18","life2","news13","science5","ex19","live3","news14","science6","ex2","life4","news15","ex20","life5","news16","snow","1999","ex21","life6","news17","society2","2002a","life7","news8","society3","aa","ex23","life8","news19","society4","aa2","ex24","life9","news2","society5","aa3","ex25","live","news20","society6","aa4","ex3","live10","news21","society","aa5","ex4","live11","news22","sports3","aa6","ex5","live12","news23","sports4","academy2","ex6","live13","news24","sports5","academy3","ex7","live14","news3","sports6","academy4","ex8","live15","news4","sports7","academy5","ex9","live16","news5","sports8","academy6","live17","news6","sports9","food2","live18","news7","sports10","afox","food3","live19","news8","sports11","anchorage","live2","news9","sport","anime3","food5","live20","off","takeshima","science3","news11","kitanet","ex16","science2","news10","kaba","ex15","news","jfk","ex14","school7","natto","jbbs","ex13","school6","namidame","invisible","ex12","school5","music","human","ex11","school4","music8","human7","ex10","school3","music7","human6","ex","yutori8","school2","music6","human5","etc7","yutori7","schiphol","music5","human4","etc6","yutori","salami","music4","etc5","yasai","salad","music3","human2","etc4","wwwww","saki","music2","hobby","etc3","v2","raicho.","money","hobby9","etc2","tv9","money6","hobby8","etc","tv8","qb6","money5","hobby7","ebi","tv7","qb400","money4","hobby6","curry","tv6","qb4","money3","hobby5","corn","tv5","qb3","money2","hobby11","comic","tv4","qb2","hobby10","comic7","tv3","qb","hobby4","comic6","tv2","qa","hobby3","comic5","tv11","pyon","mamono","hobby2","comic4","tv10","2chplus","love6","hideyoshi","comic3","tv","piza2","love5","gimp","comic2","tsushima","piza","love4","game9","cocoa","travel","pc9","love3","game8","choco","travel3","pc8","love2","game7","cheese","travel2","pc7","love","game6","changi","tora3","pc6","live9","game5","caramel","ton","pc5","live8","game4","bubble","tmp7","pc4","live7","game3","bubble6","tmp6","pc3","live6","game2","bubble5","tmp5","pc2","live5","game14","bubble4","tmp4","pc12","live4","game13","bubble3","tmp3","pc11","live3","game12","bubble2","tmp2","pc10","live28","game11","book4","tmp","pc","live27","game10","book3","that4","oyster","live26","game","book2","that3","ooo","live25","gamble","book","that2","o-o","live24","gamble2","that","off4","live23","food8","atlanta","teri","off3","live22x","food7","anime2","off2","live21"]
listOfBoards :: Set String
listOfBoards = fromList ["3shuchaku","kitchen","21overkanto","21overkita","21overnishi","hnews","pinkqa","sureh","erolive","hneta","pinkcafe","eromog2","ogefin","pinknanmin","21oversea2","hgame","hgame2","erog","leaf","adultsite","webmaster","avideo","avideo2","nude","eroanime","erocomic","erodoujin","natuero","kgirls","erocosp","eroacademy","mcheck","couple","kageki","kageki2","onatech","loveho","adultgoods","adultaccessory","sm","feti","mature","okama","gaypink","lesbian","eroaa","erochara","erochara2","801","erocg","eroparo","ascii","ascii2d","ascii2kana","girls","sportgirls","club","pub","host","nuki","soap","neet4pink","cherryboy","megami","gagame","801saloon","bbbb","meow","mobpink","ccc","housekeeping","erobbs","yama","119","21oversea","2chbook","2chse","4649","4koma","4sama","575","aasaloon","aastory","accuse","actor","actress","ad","affiliate","africa","agri","ainotane","airline","akb","allergy","alone","am","amespo","ami","amusement","ana","android","anichara","anichara2","aniki","anime","anime2","anime3","anime4vip","animovie","anniversary","antispam","apple","apple2","appli","applism","aquarium","arc","archeology","archives","argue","army","aroma","art","asaloon","asia","asong","assum","athletics","atom","atopi","auto","autorace","av","avi","baby","backroom","bakanews","bake","bakery","ballgame","band","base","basket","bass","bath","battery","be","beatles","bento","bgame","bicycle","bike","billiards","bio","bird","birdman","bizplus","blog","boat","bobby","body","book","bookall","books","bouhan","boxing","bread","break","bs","bsoft","budou","build","bullseye","bun","bus","cafe30","cafe40","cafe50","cafe60","camera","campus","cancer","candy","car","card","cartoon","cat","cchara","cdr","celebrity","cg","cgame","chakumelo","chance","charaneta","charaneta2","cheerleading","cheerleadingftax","china","chinahero","chiri","chorus","cigaret","cinema","class","classic","classical","cm","collect","comic","comicnews","comiket","company","compose","contemporary","conv","cook","cosp","countrylife","court","craft","credit","cs","csaloon","curry","dame","dance","dancesite","dataroom","db","dcamera","deal","debt","dejima","denki","denpa","design","desktop","develop","dgoods","dialect","diet","diplomacy","disaster","disco","diy","dj","doboku","doctor","dog","doll","dome","don","doujin","download","doyo","dqnplus","drama","drunk","dtm","dtp","earth","ebooks","eco","economics","editorial","edu","ehon","eleven","emperor","employee","endless","energy","engei","english","enka","entrance","entrance2","eq","eqplus","equestrian","esite","esp","estate","europa","eva","event","ex","exam","expo","f1","famicom","famires","fashion","female","femnewsplus","festival","ff","fireworks","fish","fly","food","football","fortune","friend","ftax","furin","fusion","future","gag","gage","gal","galileo","gallery","gamble","game","game90","gameama","gamechara","gamedev","gamef","gamefight","gamehis","gamemusic","gamenews","gameover","gamerobo","gamerpg","gamespo","gamesrpg","gamestg","gamestones","gameswf","gameurawaza","gay","gaysaloon","gboy","gcomic","gecen","geinin","geino","geinoj","gender","gengo","geo","ggirl","ghard","giin","gline","gogaku","goki","goldenfish","golf","goods","google","goveract","goverrpg","govexam","gsaloon","gun","gurume","gutter","gymnastics","hack","hage","haken","handicap","handle","handygame","handygover","handygrpg","hanryu","hard","hcenter","healing","healmusic","heaven4vip","hidari","hikari","hikky","hiphop","history","history2","hiv","hobby","hoken","homealone","honobono","hosp","hosting","hotel","hp","hrhm","hsb","i4004","iPhone","ice","idol","iga","ihan","ihou","illustrator","images","industry","infection","informatics","infosys","inpatient","insect","internet","intro","iraq","isp","jan","jasmine","jfoods","jinsei","jisaku","jnoodle","jnr","job","jobs","joke","jr","jr2","jsaloon","jsdf","juice","juku","jurisp","juvenile","jyudo","k1","kaden","kagu","kampo","kankon","kao","karaok","kbbq","kcar","kechi2","keiba","keirin","keitai","kikai","kin","kinema","kinoko","kitchen","knife","kobun","kokkai","kokusai","konamono","korea","kouhaku","koukoku","koumei","koumu","kouri","kova","kyon2","kyotei","kyoto","kyousan","kyozin","legend","lic","life","lifeline","lifesaloon","lifework","linux","litechara","live","liveanb","liveanime","livebase","livebs","livebs2","livecx","liveetv","livefoot","livejupiter","livemarket1","livemarket2","livenhk","liventv","liveplus","liveradio","livesaturn","liveskyp","livetbs","livetx","liveuranus","livevenus","livewkwest","livewowow","lobby","localfoods","loser","loto","lovesaloon","mac","magazin","magazine","magic","male","manage","management","manifesto","market","maru","mascot","mass","material","math","mayor","mdis","megane","meikyu","mendol","mensbeauty","mental","mesaloon","min","minor","mitemite","mj","mjsaloon","mlb","mmag","mmo","mmominor","mmonews","mmoqa","mmosaloon","mnewsplus","mobile","model","moeplus","mog2","mokei","mona","money","morningcoffee","motenai","motetai","movie","ms","msaloon","msports","mstreaming","mukashi","muscle","museum","music","musice","musicj","musicjf","musicjg","musicjm","musicnews","musicology","myanmar","mystery","mysv","namapo","namazuplus","nanbyou","nandemo","nanmin","nanminhis","natsudora","natsumeloe","natsumeloj","natsutv","neet4vip","nendai","nenga","net","netgame","netradio","netspot","network","news","news2","news4plus","news4vip","news4viptasu","news5","news5plus","news7","newsplus","next","nhk","nhkdrama","nida","nifty","nika","nissin","nntp","nohodame","noroma","northa","notepc","nougaku","npb","occult","offevent","offmatrix","offreg","ogame","ogame2","ogame3","ojyuken","okiraku","okome","olympic","onsen","oonna","ootoko","operate","operate2","operatex","os","otaku","otoge","out","ovalball","oversea","owabiplus","owarai","pachi","pachij","pachik","park","parksports","part","pasta","patissier","pav","pc","pc2nanmin","pcnews","pcqa","pedagogy","peko","pet","philo","photo","php","phs","piano","pingpong","poem","poetics","point","poke","pokechara","police","pot","poverty","printer","prog","progre","psy","psycho","punk","pure","puzzle","qa","quiz","radiation","radio","radiocontrol","rail","rakugo","ramen","randb","ranime","ranimeh","ranking","rarc","rcomic","recipe","record","recruit","reggae","regulate","rental","retro","retro2","rhandyg","rights","rikei","river","rmovie","robot","rongo","rradio","rsfx","rsports","ruins","saibanin","sake","sakhalin","saku","saku2ch","sakud","sakukb","sakura","sale","salt","sato","sci","scienceplus","sec","sec2ch","sec2chd","seiji","seikei","sengoku","senji","senmon","sepia","sf","sfe","sfx","shapeup","shar","shihou","shikaku","shoes","shop","shugi","siberia","siki","sim","single","sisou","skate","ske","ski","sky","skyp","slot","slotj","slotk","smap","smartphone","smoking","sns","soc","soccer","sociology","software","sony","souji","soundtrack","sousai","space","sports","sportsclub","sposaloon","stadium","stationery","stock","stockb","streaming","stretch","student","subcal","suisou","sumou","supplement","sushi","swf","swim","taiwan","tanka","tax","tcg","tech","techno","tennis","test","ticketplus","toba","toilet","tomorrow","toy","traf","trafficinfo","trafficpolicy","train","travel","trend","tropical","truck","tubo","tv","tv2","tvd","tvsaloon","twwatch","uma","underwear","unix","uranai","usa","used","usedcar","utu","uwasa","vcamera","venture","visual","visualb","voice","voiceactor","volley","volunteer","vote","wall","war","warhis","watch","way","wc","wcomic","weekly","welfare","whis","wifi","wikileaks","wild","wildplus","win","wine","wm","wmotenai","wmusic","wom","world","wres","wsports","x1","x3","xsports","yahoo","yangon","yasai","ymag","youth","yume","yuusen","zassi","zgame","zoid","zoo","zurui"]
{--
serverMap :: M.Map String String
serverMap = M.fromList [("ex17","~ch2ex17"),("life","~ch2life"),("news12","~ch2news12"),("science","~ch2scie4"),("ex18","~ch2ex18"),("life2","~ch2life2"),("news13","~ch2news13"),("science5","~ch2scie5"),("ex19","~ch2ex19"),("live3","~ch2life3"),("news14","~ch2news14"),("science6","~ch2scie6"),("ex2","~ch2ex2"),("life4","~ch2life4"),("news15","~ch2news15"),("ex20","~ch2ex20"),("life5","~ch2life5"),("news16","~ch2news16"),("snow","~ch2snow"),("1999","~ch21999"),("ex21","~ch2ex21"),("life6","~ch2life6"),("news17","~ch2news17"),("society2","~ch2soci2"),("2002a","~ch22002a"),("life7","~ch2life7"),("news8","~ch2news18"),("society3","~ch2soci3"),("aa","~ch2aa"),("ex23","~ch2ex23"),("life8","~ch2life8"),("news19","~ch2news19"),("society4","~ch2soci4"),("aa2","~ch2aa2"),("ex24","~ch2ex24"),("life9","~ch2life9"),("news2","~ch2news2"),("society5","~ch2soci5"),("aa3","~ch2aa3"),("ex25","~ch2ex25"),("live","~ch2live"),("news20","~ch2news20"),("society6","~ch2soci6"),("aa4","~ch2aa4"),("ex3","~ch2ex3"),("live10","~ch2live10"),("news21","~ch2news21"),("society","~ch2socie"),("aa5","~ch2aa5"),("ex4","~ch2ex4"),("live11","~ch2live11"),("news22","~ch2news22"),("sports3","~ch2spo3"),("aa6","~ch2aa6"),("ex5","~ch2ex5"),("live12","~ch2live12"),("news23","~ch2news23"),("sports4","~ch2spo4"),("academy2","~ch2aca2"),("ex6","~ch2ex6"),("live13","~ch2live13"),("news24","~ch2news24"),("sports5","~ch2spo5"),("academy3","~ch2acad3"),("ex7","~ch2ex7"),("live14","~ch2live14"),("news3","~ch2news3"),("sports6","~ch2spo6"),("academy4","~ch2acad4"),("ex8","~ch2ex8"),("live15","~ch2live15"),("news4","~ch2news4"),("sports7","~ch2spo7"),("academy5","~ch2acad5"),("ex9","~ch2ex9"),("live16","~ch2live16"),("news5","~ch2news5"),("sports8","~ch2spo8"),("academy6","~ch2acad6"),("live17","~ch2live17"),("news6","~ch2news6"),("sports9","~ch2spo9"),("food2","~ch2food2"),("live18","~ch2live18"),("news7","~ch2news7"),("sports10","~ch2spor10"),("afox","~ch2afox"),("food3","~ch2food3"),("live19","~ch2live19"),("news8","~ch2news8"),("sports11","~ch2spor11"),("anchorage","~ch2anch"),("live2","~ch2live2"),("news9","~ch2news9"),("sport","~ch2sport"),("anime3","~ch2anim3"),("food5","~ch2food5"),("live20","~ch2live20"),("off","~ch2off"),("takeshima","~ch2take"),("science3","~ch2scie3"),("news11","~ch2news11"),("kitanet","~ch2kitan"),("ex16","~ch2ex16"),("science2","~ch2sci2"),("news10","~ch2news10"),("kaba","~ch2kaba"),("ex15","~ch2ex15"),("news","~ch2news"),("jfk","~ch2jfk"),("ex14","~ch2ex14"),("school7","~ch2scho7"),("natto","~ch2natto"),("jbbs","~ch2jbbs"),("ex13","~ch2ex13"),("school6","~ch2scho6"),("namidame","~ch2nami"),("invisible","~ch2invi"),("ex12","~ch2ex12"),("school5","~ch2scho5"),("music","~ch2music"),("human","~ch2human"),("ex11","~ch2ex11"),("school4","~ch2scho4"),("music8","~ch2musi8"),("human7","~ch2huma7"),("ex10","~ch2ex10"),("school3","~ch2scho3"),("music7","~ch2musi7"),("human6","~ch2huma6"),("ex","~ch2ex"),("yutori8","~ch2yutor8"),("school2","~ch2scho2"),("music6","~ch2musi6"),("human5","~ch2huma5"),("etc7","~ch2etc7"),("yutori7","~ch2yutor7"),("schiphol","~ch2schi"),("music5","~ch2musi5"),("human4","~ch2huma4"),("etc6","~ch2etc6"),("yutori","~ch2yuto"),("salami","~ch2salam"),("music4","~ch2musi4"),("etc5","~ch2etc5"),("yasai","~ch2yasai"),("salad","~ch2salad"),("music3","~ch2mus3"),("human2","~ch2huma2"),("etc4","~ch2etc4"),("wwwww","~ch2w5"),("saki","~ch2saki"),("music2","~ch2mus2"),("hobby","~ch2hobby"),("etc3","~ch2etc3"),("v2","~ch2vv"),("raicho.","~ch2raic"),("money","~ch2money"),("hobby9","~ch2hobb9"),("etc2","~ch2etc2"),("tv9","~ch2tv9"),("money6","~ch2mone6"),("hobby8","~ch2hobb8"),("etc","~ch2etc"),("tv8","~ch2tv8"),("qb6","~ch2qb6"),("money5","~ch2mone5"),("hobby7","~ch2hobb7"),("ebi","~ch2ebi"),("tv7","~ch2tv7"),("qb400","~ch2qb400"),("money4","~ch2mone4"),("hobby6","~ch2hobb6"),("curry","~ch2curry"),("tv6","~ch2tv6"),("qb4","~ch2qb4"),("money3","~ch2mone3"),("hobby5","~ch2hobb5"),("corn","~ch2corn"),("tv5","~ch2tv5"),("qb3","~ch2qb3"),("money2","~ch2mone2"),("hobby11","~ch2hobb11"),("comic","~ch2comic"),("tv4","~ch2tv4"),("qb2","~ch2qb2"),("hobby10","~ch2hobb10"),("comic7","~ch2comi7"),("tv3","~ch2tv3"),("qb","~ch2qb"),("hobby4","~ch2hob4"),("comic6","~ch2comi6"),("tv2","~ch2tv2"),("qa","~ch2qa"),("hobby3","~ch2hob3"),("comic5","~ch2comi5"),("tv11","~ch2tv11"),("pyon","~ch2pyon"),("mamono","~ch2mamo"),("hobby2","~ch2hob2"),("comic4","~ch2comi4"),("tv10","~ch2tv10"),("2chplus","~ch2plus"),("love6","~ch2love6"),("hideyoshi","~ch2hide"),("comic3","~ch2comi3"),("tv","~ch2tv"),("piza2","~ch2piza2"),("love5","~ch2love5"),("gimp","~ch2gimp"),("comic2","~ch2comi2"),("tsushima","~ch2tsus"),("piza","~ch2piza"),("love4","~ch2love4"),("game9","~ch2game9"),("cocoa","~ch2cocoa"),("travel","~ch2trave"),("pc9","~ch2pc9"),("love3","~ch2love3"),("game8","~ch2game8"),("choco","~ch2choco"),("travel3","~ch2trav3"),("pc8","~ch2pc8"),("love2","~ch2love2"),("game7","~ch2game7"),("cheese","~ch2chees"),("travel2","~ch2trav2"),("pc7","~ch2pc7"),("love","~ch2love"),("game6","~ch2game6"),("changi","~ch2chan"),("tora3","~ch2tora3"),("pc6","~ch2pc6"),("live9","~ch2live9"),("game5","~ch2game5"),("caramel","~ch2caram"),("ton","~ch2ton"),("pc5","~ch2pc5"),("live8","~ch2live8"),("game4","~ch2game4"),("bubble","~ch2bubbl"),("tmp7","~ch2tmp7"),("pc4","~ch2pc4"),("live7","~ch2live7"),("game3","~ch2game3"),("bubble6","~ch2bubb6"),("tmp6","~ch2tmp6"),("pc3","~ch2pc3"),("live6","~ch2live6"),("game2","~ch2game2"),("bubble5","~ch2bubb5"),("tmp5","~ch2tmp5"),("pc2","~ch2pc2"),("live5","~ch2live5"),("game14","~ch2game14"),("bubble4","~ch2bubb4"),("tmp4","~ch2tmp4"),("pc12","~ch2pc12"),("live4","~ch2live4"),("game13","~ch2game13"),("bubble3","~ch2bubb3"),("tmp3","~ch2tmp3"),("pc11","~ch2pc11"),("live3","~ch2live3"),("game12","~ch2game12"),("bubble2","~ch2bubb2"),("tmp2","~ch2tmp2"),("pc10","~ch2pc10"),("live28","~ch2live28"),("game11","~ch2game11"),("book4","~ch2book4"),("tmp","~ch2tmp"),("pc","~ch2pc"),("live27","~ch2live27"),("game10","~ch2game10"),("book3","~ch2book3"),("that4","~ch2that4"),("oyster","~ch2oyst"),("live26","~ch2live26"),("game","~ch2game"),("book2","~ch2book2"),("that3","~ch2that3"),("ooo","~ch2ooo"),("live25","~ch2live25"),("gamble","~ch2gambl"),("book","~ch2book"),("that2","~ch2that2"),("o-o","~ch2oo"),("live24","~ch2live24"),("gamble2","~ch2gamb2"),("that","~ch2that"),("off4","~ch2off4"),("live23","~ch2live23"),("food8","~ch2food8"),("atlanta","~ch2atla"),("teri","~ch2teri"),("off3","~ch2off3"),("live22x","~ch2live22x"),("food7","~ch2food7"),("anime2","~ch2anime2"),("off2","~ch2off2"),("live21","~ch2live21")]
--}