From 17d994c883733515f61b5ba6d5c5db6bbd364da6 Mon Sep 17 00:00:00 2001
From: Miles Lott <milosch@alumni.egroupware.org>
Date: Wed, 2 Jan 2002 18:16:41 +0000
Subject: [PATCH] Trying to silence error if no algo/mode available (mcrypt
 problem)

---
 admin/inc/hook_config.inc.php | 72 +++++++++++++++++++++--------------
 1 file changed, 44 insertions(+), 28 deletions(-)

diff --git a/admin/inc/hook_config.inc.php b/admin/inc/hook_config.inc.php
index abd5055e1c..13bc161b89 100644
--- a/admin/inc/hook_config.inc.php
+++ b/admin/inc/hook_config.inc.php
@@ -21,27 +21,35 @@
 			{
 				$config['mcrypt_algo'] = 'tripledes';  /* MCRYPT_TRIPLEDES */
 			}
-			$algos = mcrypt_list_algorithms();
+			$algos = @mcrypt_list_algorithms();
 
-			while (list ($key, $value) = each ($algos))
+			if(@is_array($algos))
 			{
-				/* Only show each once - seems this is a problem in some installs */
-				if(!in_array($value,$listed))
+				while (list ($key, $value) = each ($algos))
 				{
-					if ($config['mcrypt_algo'] == $value)
+					/* Only show each once - seems this is a problem in some installs */
+					if(!in_array($value,$listed))
 					{
-						$selected = ' selected';
+						if ($config['mcrypt_algo'] == $value)
+						{
+							$selected = ' selected';
+						}
+						else
+						{
+							$selected = '';
+						}
+						$descr = strtoupper($value);
+		
+						$out .= '<option value="' . $value . '"' . $selected . '>' . $descr . '</option>' . "\n";
+						$listed[] = $value;
 					}
-					else
-					{
-						$selected = '';
-					}
-					$descr = strtoupper($value);
-	
-					$out .= '<option value="' . $value . '"' . $selected . '>' . $descr . '</option>' . "\n";
-					$listed[] = $value;
 				}
 			}
+			else
+			{
+				/* Something is wrong with their mcrypt install or php.ini */
+				$out = '<option value="tripledes">' . lang('no algorithms available') . '</option>' . "\n";;
+			}
 		}
 		else
 		{
@@ -59,27 +67,35 @@
 			{
 				$config['mcrypt_mode'] = 'cbc'; /* MCRYPT_MODE_CBC */
 			}
-			$modes = mcrypt_list_modes();
+			$modes = @mcrypt_list_modes();
 
-			while (list ($key, $value) = each ($modes))
+			if(@is_array($modes))
 			{
-				/* Only show each once - seems this is a problem in some installs */
-				if(!in_array($value,$listed))
+				while (list ($key, $value) = each ($modes))
 				{
-					if ($config['mcrypt_mode'] == $value)
+					/* Only show each once - seems this is a problem in some installs */
+					if(!in_array($value,$listed))
 					{
-						$selected = ' selected';
+						if ($config['mcrypt_mode'] == $value)
+						{
+							$selected = ' selected';
+						}
+						else
+						{
+							$selected = '';
+						}
+						$descr = strtoupper($value);
+		
+						$out .= '<option value="' . $value . '"' . $selected . '>' . $descr . '</option>' . "\n";
+						$listed[] = $value;
 					}
-					else
-					{
-						$selected = '';
-					}
-					$descr = strtoupper($value);
-	
-					$out .= '<option value="' . $value . '"' . $selected . '>' . $descr . '</option>' . "\n";
-					$listed[] = $value;
 				}
 			}
+			else
+			{
+				/* Something is wrong with their mcrypt install or php.ini */
+				$out = '<option value="cbc" selected>' . lang('no modes available') . '</option>' . "\n";
+			}
 		}
 		else
 		{