From c54d20d32372b52f626d93855495e9c9dcc136de Mon Sep 17 00:00:00 2001
From: abacab <wagnerch@glycerine.alpha>
Date: Mon, 29 Dec 2008 13:00:08 -0500
Subject: [PATCH] Added automatic currency conversion update.

---
 modules/currency/currency.inc.php  | 58 +++++++++++++++++++++++++++++-
 modules/task/task_install_data.xml | 18 ++++++++--
 2 files changed, 73 insertions(+), 3 deletions(-)

diff --git a/modules/currency/currency.inc.php b/modules/currency/currency.inc.php
index 3235a2f1..6e99bff7 100644
--- a/modules/currency/currency.inc.php
+++ b/modules/currency/currency.inc.php
@@ -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']));
+		}
+	}
 }
-?>
\ No newline at end of file
+?>
diff --git a/modules/task/task_install_data.xml b/modules/task/task_install_data.xml
index 1aebb474..ca7bbb06 100644
--- a/modules/task/task_install_data.xml
+++ b/modules/task/task_install_data.xml
@@ -285,8 +285,22 @@
   </task>    
   <task_id>
        <id>67</id>
+       <site_id>1</site_id>
+       <date_start>0</date_start>
+       <date_expire>0</date_expire>
+       <date_last>0</date_last>
+       <name>Currency Conversion Update</name>
+       <description>Retrieves currency conversions from XE.com and updates.</description>
+       <type>0</type>
+       <command>currency:task</command>
+       <int_min>0</int_min>
+       <int_hour>0</int_hour>
+       <int_month>*</int_month>
+       <int_month_day>*</int_month_day>
+       <int_week_day>2</int_week_day>
+       <running>0</running>
   </task_id>
   <task_id>
-       <id>67</id>
+       <id>68</id>
   </task_id>
-</install>
\ No newline at end of file
+</install>