git.roojs.org Git - Pman.Core/blob - DataObjects/Core_curr_rate.php

   1 <?php
   2 /**
   3  * Table Definition for core_curr_rate
   4  */
   5 require_once 'DB/DataObject.php';
   6
   7 class Pman_Core_DataObjects_Core_curr_rate extends DB_DataObject
   8 {
   9     ###START_AUTOCODE
  10     /* the code below is auto generated do not remove the above tag */
  11
  12     public $__table = 'core_curr_rate';    // table name
  13     public $id;
  14     public $curr;
  15     public $rate;  // always to USD...
  16     public $from_dt;
  17     public $to_dt;
  18
  19     /* the code above is auto generated do not remove the tag below */
  20     ###END_AUTOCODE
  21
  22     function applyFilters($q, $au, $roo)
  23     {
  24
  25     }
  26
  27
  28
  29
  30     /**
  31      * current rate fetching
  32      *
  33      * - we used to do historical rates... (but sources keep disappearing for that..)
  34      *
  35      * this just get's the current rates from the ecb..
  36      *
  37      *
  38      */
  39     function loadRates()
  40     {
  41
  42         static $checked = false;
  43         if ($checked ) {
  44             return true;
  45         }
  46         $checked  = true;
  47
  48         // how often do we need to know this..?
  49         // let's assume we do it once a week..
  50         $x = DB_DataObject::Factory('core_curr_rate');
  51         $x->whereAdd('to_date > NOW()');
  52         if ($x->count()) {
  53             // got some data for beyond today..
  54
  55             return;
  56         }
  57
  58         // load our default rates to start with..
  59         $dom = simplexml_load_file(dirname(__FILE__).'/../eurofxref-daily.xml');
  60         $rates['EUR'] = 1.0;
  61         $rates['TWD'] = 46.7008412; // taiwan dorlar
  62         $rates['VND'] = 25282.24; // veitnam dong?
  63
  64
  65         foreach($dom->Cube->Cube->Cube as $c) {
  66            //echo '<PRE>';print_r($c );
  67             $rates[(string)$c['currency']] = (string)$c['rate'];
  68         }
  69         $rates['RMB'] = $rates['CNY'] ;
  70
  71
  72
  73         // now try loading from latest..
  74
  75              // this may fail...
  76         $f = @file_get_contents('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
  77         if (!strlen($f)) {
  78             return false;
  79         }
  80
  81         $dom = simplexml_load_file($target);
  82         $rates['EUR'] = 1.0;
  83
  84         foreach($dom->Cube->Cube->Cube as $c) {
  85            //echo '<PRE>';print_r($c );
  86             $rates[(string)$c['currency']] = (string)$c['rate'];
  87         }
  88         $rates['RMB'] = $rates['CNY'] ;
  89
  90         foreach($rates as $cur=>$euro) {
  91
  92
  93             $rate = $this->rates['USD'] * $euro;
  94
  95
  96
  97
  98
  99
 100
 101
 102             $ov = DB_DataObject::Factory('core_curr_rate');
 103             $ov->curr = $cur;
 104             $nl = clone($x);
 105             $ov->orderBy('to_date DESC');
 106             $ov->limit(1);
 107
 108
 109             $nl->from_dt = DB_DataObject::sqlValue("NOW()");
 110             $nl->to_dt = DB_DataObject::sqlValue("NOW() + INTERVAL 7 DAY");
 111             if ($ov->find(true)) {
 112                 if (strtotime($ov->to_date) > time()) {
 113                     continue;
 114                 }
 115                 $nl->from_dt = $ov->to_date;
 116
 117
 118                 if ($ov->rate == $rate) {
 119                     // modify the old one to expire
 120                     $oo = clone($ov);
 121                     $ov->to_date = $nv->to_from_dt;
 122                     $ov->update($oo);
 123                     continue;
 124                 }
 125             } else {
 126                 // no previous record...
 127                 $nl->from_dt = '1970-01-01 00:00:00';
 128             }
 129             $nl->rate = $rate;
 130             // create a new row.
 131             $nl->insert();
 132
 133
 134
 135         }
 136
 137
 138     }
 139     function rate($cur, $when)
 140     {
 141         $when === false ? date('Y-m-d H:i:s') : $when;
 142         $this->loadRates(); // check if we have an rates.
 143
 144         $r = DB_DataObject::factory('core_curr_rate');
 145         $r->curr = $cur;
 146         $r->whereAdd("from_dt < '" . date('Y-m-d H:i:s', strtotime($when)) . "'");
 147
 148         $r->orderBy('to_dt ASC');
 149         $r->limit(1);
 150         if ($r->find(true)) {
 151             return $r->rate;
 152         }
 153         return false;
 154     }
 155
 156     function convert($val, $from, $to, $when = false)
 157     {
 158
 159
 160         $fr = $this->rate($from, $when);
 161         $tr = $this->rate($to, $when);
 162
 163         // crappy error handling..
 164         if ($fr === false) {
 165             $fr = 1;
 166         }
 167         if ($tr === false) {
 168             $tr = 1;
 169         }
 170
 171         return ((1.0 / $fr) * $val) * $tr;
 172
 173
 174
 175     }
 176
 177
 178
 179 }