X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=gl%2Fincludes%2Fdb%2Fgl_db_rates.inc;h=7189afa894dc131ba7af5cf258bb08e952cd0972;hb=6f8094c63f914fce9fcfd02780c452d712a2dba3;hp=bd0775eaa746ca7fa74a0e72b0622f9561cfffa8;hpb=54d84ff9a67620ab38c676cdbcf87853632724f0;p=fa-stable.git

diff --git a/gl/includes/db/gl_db_rates.inc b/gl/includes/db/gl_db_rates.inc
index bd0775ea..7189afa8 100644
--- a/gl/includes/db/gl_db_rates.inc
+++ b/gl/includes/db/gl_db_rates.inc
@@ -70,13 +70,38 @@ function delete_exchange_rate($rate_id)
 	db_query($sql, "could not delete exchange rate $rate_id");		
 }
 
-//---------------------------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
+//	Retrieve exchange rate as of date $date from external source (usually inet)
+//
+function retrieve_exrate($curr_b, $date)
+{
+	global $Hooks;
+
+	if (method_exists($Hooks, 'retrieve_exrate'))
+		return $Hooks->retrieve_exrate($curr_b, $date);
+	else
+		return get_extern_rate($curr_b, 'ECB', $date);
+}
+//-----------------------------------------------------------------------------
 
-function get_ecb_rate($curr_b) 
+function get_extern_rate($curr_b, $provider = 'ECB', $date) 
 {
 	$curr_a = get_company_pref('curr_default');
-	$ecb_filename = '/stats/eurofxref/eurofxref-daily.xml';
-	$ecb_site = 'www.ecb.int';
+	if ($provider == 'ECB')
+	{
+		$filename = "/stats/eurofxref/eurofxref-daily.xml";
+		$site = "www.ecb.int";
+	}
+	elseif ($provider == 'YAHOO')
+	{
+		$filename = "/q?s={$curr_a}{$curr_b}=X";
+		$site = "finance.yahoo.com";
+	}
+	elseif ($provider == 'GOOGLE')
+	{
+		$filename = "/finance/converter?a=1&from={$curr_a}&to={$curr_b}";
+		$site = "finance.google.com";
+	}
 	$contents = '';
 
 	if (function_exists('curl_init'))
@@ -84,7 +109,7 @@ function get_ecb_rate($curr_b)
 		$retry = 1;
 	 	do {
 	       $ch = curl_init();
-    	   curl_setopt ($ch, CURLOPT_URL, 'http://'.$ecb_site.$ecb_filename);
+    	   curl_setopt ($ch, CURLOPT_URL, 'http://'.$site.$filename);
 	       curl_setopt ($ch, CURLOPT_COOKIEJAR, "cookie.txt");
     	   curl_setopt ($ch, CURLOPT_HEADER, 0);
 	       curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1);
@@ -94,11 +119,11 @@ function get_ecb_rate($curr_b)
 	       curl_close($ch);
 			// due to resolver bug in some curl versions (e.g. 7.15.5) 
 			// try again for constant IP.
-		   $ecb_site="195.128.2.97";
+		   $site="195.128.2.97";
 	   } while( ($contents == '') && $retry--);
 	   
 	} else {
-		$handle = @fopen("http://".$ecb_site.$ecb_filename, 'rb');
+		$handle = @fopen("http://".$site.$filename, 'rb');
 		if ($handle) {
 			do 
 			{
@@ -112,26 +137,51 @@ function get_ecb_rate($curr_b)
 		} // end handle
 	}
 	if (!$contents) {
-		display_warning(_('Cannot retrieve currency rate from ECB page. Please set the rate manually.'));
+		display_warning(_("Cannot retrieve currency rate from $provider page. Please set the rate manually."));
 	}
-	$contents = str_replace ("<Cube currency='USD'", " <Cube currency='EUR' rate='1'/> <Cube currency='USD'", $contents);
-	$from_mask = "|<Cube\s*currency=\'" . $curr_a . "\'\s*rate=\'([\d.,]*)\'\s*/>|i";
-	preg_match ( $from_mask, $contents, $out );
-	$val_a = isset($out[1]) ? $out[1] : 0;
-	$val_a = str_replace ( ',', '', $val_a );
-	$to_mask = "|<Cube\s*currency=\'" . $curr_b . "\'\s*rate=\'([\d.,]*)\'\s*/>|i";
-	preg_match ( $to_mask, $contents, $out );
-	$val_b = isset($out[1]) ? $out[1] : 0;
-	$val_b = str_replace ( ',', '', $val_b );
-	if ($val_b) 
+	if ($provider == 'ECB')
 	{
-		$val = $val_a / $val_b;
-	} 
-	else 
+		$contents = str_replace ("<Cube currency='USD'", " <Cube currency='EUR' rate='1'/> <Cube currency='USD'", $contents);
+		$from_mask = "|<Cube\s*currency=\'" . $curr_a . "\'\s*rate=\'([\d.,]*)\'\s*/>|i";
+		preg_match ( $from_mask, $contents, $out );
+		$val_a = isset($out[1]) ? $out[1] : 0;
+		$val_a = str_replace ( ',', '', $val_a );
+		$to_mask = "|<Cube\s*currency=\'" . $curr_b . "\'\s*rate=\'([\d.,]*)\'\s*/>|i";
+		preg_match ( $to_mask, $contents, $out );
+		$val_b = isset($out[1]) ? $out[1] : 0;
+		$val_b = str_replace ( ',', '', $val_b );
+		if ($val_b) 
+		{
+			$val = $val_a / $val_b;
+		} 
+		else 
+		{
+			$val = 0;
+		}
+	}
+	elseif ($provider == 'YAHOO')
 	{
-		$val = 0;
+		$val = '';
+		if (preg_match('/Last\sTrade:(.*?)Trade\sTime/s', $contents, $matches)) {
+			$val = strip_tags($matches[1]);
+			$val = str_replace(',', '', $val);
+			if ($val != 0)
+				$val = 1 / $val;
+		}
 	}
+	elseif ($provider == 'GOOGLE')
+	{
+		$val = '';
+		$regexp = "%([\d|.]+)\s+{$curr_a}\s+=\s+<span\sclass=(.*)>([\d|.]+)\s+{$curr_b}\s*</span>%s";
+		if (preg_match($regexp, $contents, $matches)) 
+		{
+			$val = $matches[3];
+			$val = str_replace(',', '', $val);
+			if ($val != 0)
+				$val = 1 / $val;
+		}
+    }    
 	return $val;
-}  // end function get_ecb_rate
+}  /* end function get_extern_rate */
 
 ?>
\ No newline at end of file