# Various required directories and URLs
# MUST be set to existing folders or QuackBot will crash!
set tsvPath "tsv/"
set apiCachePath "apiCache/"
set apiBaseUrl "http://api.eveonline.com/"
proc parsePairs { tsvName } {
# Open TSV containing A:B pairs
set f [open [file nativename $EveUtils::tsvPath$tsvName] r]
# Iterate over lines in file until the end
while { [eof $f] == 0 } {
# Read line (gets $f) and split it at tabs (\t)
set splitLine [split [gets $f] "\t"]
# Insert into array with A as key and B as value
set pairMap([lindex $splitLine 0]) [lindex $splitLine 1]
}
# Return array populated with A:B pairs
return [array get pairMap]
}
Replies to Untitled 
{"html5":"htmlmixed","css":"css","javascript":"javascript","php":"php","python":"python","ruby":"ruby","lua":"text\/x-lua","bash":"text\/x-sh","go":"text\/x-go","c":"text\/x-csrc","cpp":"text\/x-c++src","diff":"diff","latex":"stex","sql":"mysql","xml":"xml","c_loadrunner":"text\/x-csrc","c_mac":"text\/x-csrc","coffeescript":"text\/x-coffeescript","csharp":"text\/x-csharp","ecmascript":"javascript","groovy":"text\/x-groovy","haskell":"text\/x-haskell","html4strict":"htmlmixed","java":"text\/x-java","java5":"text\/x-java","jquery":"javascript","mysql":"mysql","pascal":"text\/x-pascal","perl":"perl","perl6":"perl","plsql":"plsql","properties":"text\/x-properties","scheme":"text\/x-scheme","vb":"text\/vbscript","vbnet":"text\/vbscript","verilog":"text\/x-verilog","yaml":"text\/x-yaml"}