function THB_Yahoo(){
    
    $ch = curl_init('http://download.finance.yahoo.com/d/quotes.csv?s=THBRUB=X,RUBTHB=X,USDTHB=X,THBUSD=X,EURTHB=X,THBEUR=X,UAHTHB=X,THBUAH=X,KZTTHB
=X,THBKZT=X,EURRUB=X,EURUSD=X,EURUAH=X,EURKZT=X,USDRUB=X,USDEUR=X,USDUAH=X,USDKZT
=X,RUBEUR=X,RUBUSD=X,RUBUAH=X,RUBKZT=X,UAHRUB=X,UAHUSD=X,UAHEUR=X,UAHKZT=X,KZTRUB
=X,KZTUSD=X,KZTEUR=X,KZTUAH&f=sl1d1t1&e=.csv');
    curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:26.0) Gecko/20100101 Firefox/26.0');
    curl_setopt($ch, CURLOPT_HEADER, 0);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
    $data = curl_exec($ch);
    curl_close($ch);
    
    if ( $data ) {
      
      file_put_contents( THB_CSV, $data );
      
      return $data;
    
    } else return file_get_contents( THB_CSV );
  
  }

  function THB_GetData() {
    
    $usefile = ( file_exists ( THB_CSV ) and (time() - @filemtime ( THB_CSV )) < 864000 ) ? true : false;

    $data = ( $usefile ) ? file_get_contents( THB_CSV ) : THB_Yahoo();
    
    preg_match_all('/"([a-z]{3})([a-z]{3})=X",([0-9\.]+),"([0-9\/]+)","[0-9a-z:]+"/i', $data, $matchs, PREG_SET_ORDER);
  
    foreach($matchs as $match) $pairs[$match[1]][$match[2]] = $match[3];

    return $pairs;
  
  }
  
  function THB_Table () {
  
    global $val_names;
    
    $pairs = THB_GetData();
    
    $path = plugin_dir_url( __FILE__ );
    
    foreach ($val_names as $code => $name) {
      
        if ($code != 'THB') {
          $dirty_code = $pairs[$code]['THB'];
          $code_with_format = number_format($dirty_code, 2, '.', ',');
          $list[] = "<li><img src=\"{$path}{$code}.png\"> <span>{$val_names[$code]['fullname']}</span> <span>{$code_with_format} <small>THB</small></span></li>";
        }

    }
  
    return '<ul class="val-list">'.join($list).'</ul>';
  
  }