DataObjects/Core_curr_rate.php
[Pman.Core] / 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;
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         // how often do we need to know this..?
43         // let's assume we do it once a week..
44         $x = DB_DataObject::Factory('core_curr_rate');
45         $x->whereAdd('to_date > NOW()');
46         if ($x->count()) {
47             // got some data for beyond today..
48             return;
49         }
50         
51         // load our default rates to start with..
52         $dom = simplexml_load_file(dirname(__FILE__).'/../eurofxref-daily.xml');
53         $rates['EUR'] = 1.0;
54         $rates['TWD'] = 46.7008412; // taiwan dorlar
55         $rates['VND'] = 25282.24; // veitnam dong?
56        
57        
58         foreach($dom->Cube->Cube->Cube as $c) {
59            //echo '<PRE>';print_r($c );
60             $rates[(string)$c['currency']] = (string)$c['rate'];
61         }
62         $rates['RMB'] = $rates['CNY'] ;
63         
64         
65         
66         // now try loading from latest..
67        
68              // this may fail...
69         $f = @file_get_contents('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
70         if (!strlen($f)) {
71             return false;
72         }
73         
74         $dom = simplexml_load_file($target);
75         $rates['EUR'] = 1.0;
76         
77         foreach($dom->Cube->Cube->Cube as $c) {
78            //echo '<PRE>';print_r($c );
79             $rates[(string)$c['currency']] = (string)$c['rate'];
80         }
81         $rates['RMB'] = $rates['CNY'] ;
82         
83         foreach($rates as $cur=>$rate) {
84             
85             $ov = DB_DataObject::Factory('core_curr_rate');
86             $ov->curr = $cur;
87             $nl = clone($x);
88             $ov->orderBy('to_date DESC');
89             $ov->limit(1);
90             
91             
92             $nl->from_dt = DB_DataObject::sqlValue("NOW()");
93             $nl->to_dt = DB_DataObject::sqlValue("NOW() + INTERVAL 7 DAY");
94             if ($ov->find(true)) {
95                 if (strtotime($ov->to_date) > time()) {
96                     continue;
97                 }
98                 $nl->from_dt = $ov->to_date;
99                 
100             
101                 if ($ov->rate == $rate) {
102                     // modify the old one to expire
103                     $oo = clone($ov);
104                     $ov->to_date = $nv->to_from_dt;
105                     $ov->update($oo);
106                     continue;
107                 }
108             } else {
109                 // no previous record...
110                 $nl->from_dt = '1970-01-01 00:00:00';
111             }
112             $nl->rate = $rate;
113             // create a new row.
114             $nl->insert();
115             
116             
117             
118         }
119         
120         
121     }
122     
123     
124     
125     
126 }