deon/khosb
Archived
1
0
Fork 0
Code Issues 6 Pull Requests Packages Projects Releases Wiki Activity

Added automatic currency conversion update.

Browse Source
This commit is contained in:
abacab
2008-12-29 13:00:08 -05:00
parent 83fc4754c4
commit c54d20d323
2 changed files with 73 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
modules/currency/currency.inc.php
View File

@@ -124,5 +124,61 @@ class currency
$db = new CORE_database;
$db->search_show($VAR, $this, $type);
}
function task($VAR)
{
$db = &DB();
// Fetch all active currencies
$currencies = array();
$rs = $db->Execute(sqlSelect($db, "currency", "*", "status=1"));
if ($rs && $rs->RecordCount() > 0)
{
while (!$rs->EOF)
{
$currencies[$rs->fields['id']] = $rs->fields;
$rs->MoveNext();
}
}
$rs->Close();
foreach ($currencies as $currFrom)
{
$conversions = array();
foreach ($currencies as $currTo)
{
// Get currency conversion
if ($currFrom['three_digit'] != $currTo['three_digit'])
{
$ch = curl_init('http://www.xe.net/ucc/convert.cgi?Amount=1&From=' . $currFrom['three_digit'] . '&To=' . $currTo['three_digit']);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true);
curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, 3);
curl_setopt($ch, CURLOPT_CRLF, true);
$resp = curl_exec ($ch);
curl_close ($ch);
$m = array();
preg_match('/[0-9.]+\s*' . $currFrom['three_digit'] . '\s*=\s*([0-9.]+)\s*' . $currTo['three_digit'] . '/', $resp, $m);
}
else
{
// Conversion to/from same currency is always 1.
$m = array(1 => '1');
}
if (sizeof($m) > 0)
{
$conversions[$currTo['id']] = array (
'rate' => $m[1]
,'iso' => $currTo['three_digit']
);
}
}
// Update conversions array
$db->Execute('UPDATE ' . AGILE_DB_PREFIX . 'currency SET convert_array = ' . $db->qstr(serialize($conversions)) . ' WHERE id = ' . $db->qstr($currFrom['id']) . ' AND site_id = ' . $db->qstr($currFrom['site_id']));
}
}
}
?>
?>