smeserver-zarafa/contribs7/smeserver-zarafa-0.9.0-panels.patch

diff -urN smeserver-zarafa-0.9.0.orig/createlinks smeserver-zarafa-0.9.0/createlinks
--- smeserver-zarafa-0.9.0.orig/createlinks     2009-06-01 21:07:05.000000000 +1000
+++ smeserver-zarafa-0.9.0/createlinks  2009-06-01 21:11:39.000000000 +1000
@@ -4,6 +4,9 @@
 use File::Basename;
 use File::Path;
 
+panel_link("zarafaCFG", 'manager');
+panel_link("zarafaUI", 'manager');
+
 #we use S99 as on first run it must run after S99mysql.init
 service_link_enhanced("zarafa-gateway", "S99", "7");
 service_link_enhanced("zarafa-ical", "S99", "7");
diff -urN smeserver-zarafa-0.9.0.orig/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/zarafaCFG smeserver-zarafa-0.9.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/zarafaCFG
--- smeserver-zarafa-0.9.0.orig/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/zarafaCFG       1970-01-01 10:00:00.000000000 +1000
+++ smeserver-zarafa-0.9.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/zarafaCFG    2009-06-01 21:15:33.000000000 +1000
@@ -0,0 +1,223 @@
+<lexicon lang="en-us">
+
+    <entry>
+        <base>ZARAFA_CFG_MANAGEMENT</base>
+        <trans>Configuration</trans>
+    </entry>
+
+    <entry>
+        <base>FORM_TITLE</base>
+        <trans>Zarafa mail server configuration</trans>
+    </entry>
+    
+    <entry>
+        <base>SOFTDELETE</base>
+        <trans>Soft-delete lifetime adjustment</trans>
+    </entry>
+
+    <entry>
+        <base>CFG_BUTTON</base>
+        <trans>Server configuration</trans>
+    </entry>
+
+    <entry>
+        <base>KEY_BUTTON</base>
+        <trans>Activation/Add a CAL</trans>
+    </entry>
+
+    <entry>
+        <base>MYSQL_BUTTON</base>
+        <trans>MySQL adjustment</trans>
+    </entry>
+
+    <entry>
+        <base>CACHE_CELL_SIZE</base>
+        <trans>Cache Cell size adjustment</trans>
+    </entry>
+
+    <entry>
+        <base>CACHE_OBJECT_SIZE</base>
+        <trans>Cache Object size adjustment</trans>
+    </entry>
+
+    <entry>
+        <base>CACHE_INDEX_SIZE</base>
+        <trans>Cache Index size adjustment</trans>
+    </entry>
+
+    <entry>
+        <base>QUOTA_WARN</base>
+        <trans>Warning Quota adjustment</trans>
+    </entry>
+
+    <entry>
+        <base>QUOTA_SOFT</base>
+        <trans>Soft Quota adjustmen</trans>
+    </entry>
+
+    <entry>
+        <base>QUOTA_HARD</base>
+        <trans>Hard Quota adjustmen</trans>
+    </entry>
+
+    <entry>
+        <base>COMPANYQUOTA_WARN</base>
+        <trans>Company Quota adjustment</trans>
+    </entry>
+
+    <entry>
+        <base>VERSION</base>
+        <trans>Zarafa version :</trans>
+    </entry>
+
+    <entry>
+        <base>SYS_AUTH</base>
+        <trans>Database System :</trans>
+    </entry>
+
+    <entry>
+        <base>REGISTERED</base>
+        <trans>Registered version</trans>
+    </entry>
+
+    <entry>
+        <base>UNREGISTERED</base>
+        <trans>Community version</trans>
+    </entry>
+
+    <entry>
+        <base>MAX_USERS</base>
+        <trans>Maximum users :</trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_BUTTON</base>
+        <trans>Modify</trans>
+    </entry>
+
+    <entry>
+        <base>CD_KEY</base>
+        <trans>CD-key :</trans>
+    </entry>
+
+    <entry>
+        <base>NBRUSERTXT</base>
+        <trans>Maximum users :</trans>
+    </entry>
+
+    <entry>
+        <base>CALNAME</base>
+        <trans>CAL file name</trans>
+    </entry>
+
+    <entry>
+        <base>CALKEY</base>
+        <trans>Registered CD-Key</trans>
+    </entry>
+
+    <entry>
+        <base>CAL_BUTTON</base>
+        <trans>Add a CAL</trans>
+    </entry>
+
+ <entry>
+        <base>MODIFY_CONFIG_SUCCESS</base>
+        <trans>Config modified !</trans>
+    </entry>
+
+    <entry>
+        <base>CFG_BUTTON_BUBBLE</base>
+        <trans>Clic here to configure some aspect of Zarafa server</trans>
+    </entry>
+
+    <entry>
+        <base>KEY_BUTTON_BUBBLE</base>
+        <trans>Clic here if you want to activate your version of Zarafa or to add some CAL</trans>
+    </entry>
+
+    <entry>
+        <base>MYSQL_BUTTON_BUBBLE</base>
+        <trans>Clic here to configure some aspect of MySQL in Zarafa</trans>
+    </entry>
+
+    <entry>
+        <base>CAL_BUTTON_BUBBLE</base>
+        <trans>Clic here to add a CAL</trans>
+    </entry>
+
+    <entry>
+        <base>INVALID_KEY</base>
+        <trans>Invalid CD-Key. It must be composed by 24 alphanumeric characters.</trans>
+    </entry>
+
+    <entry>
+        <base>CREATE_BUTTON</base>
+        <trans>Add a key</trans>
+    </entry>
+
+    <entry>
+        <base>EXIST_CALNAME</base>
+        <trans>The filename is already use in another CAL. Please choose another.</trans>
+    </entry>
+
+    <entry>
+        <base>EXIST_CALKEY</base>
+        <trans>This key is already use in another CAL. Please enter another.</trans>
+    </entry>
+
+    <entry>
+        <base>CAUTION_TIME</base>
+        <trans>CAUTION - This operation may take 1 minutes or more because Zarafa's services must be restarted.</trans>
+    </entry>
+
+    <entry>
+        <base>INSERT_CAL_NAME</base>
+        <trans>CAL namefile</trans>
+    </entry>
+
+    <entry>
+        <base>INSERT_CAL_KEY</base>
+        <trans>CAL key</trans>
+    </entry>
+
+    <entry>
+        <base>CLEF_CD</base>
+        <trans>Enter the CD-key</trans>
+    </entry>
+
+    <entry>
+        <base>BUFFER_POOL_SIZE</base>
+        <trans>Buffer pool size</trans>
+    </entry>
+
+    <entry>
+        <base>ADDITIONAL_MEM_POOL_SIZE</base>
+        <trans>Additionnal memory pool size</trans>
+    </entry>
+
+    <entry>
+        <base>LOG_FILE_SIZE</base>
+        <trans>Log file size</trans>
+    </entry>
+
+    <entry>
+        <base>LOG_BUFFER_SIZE</base>
+        <trans>Log file size</trans>
+    </entry>
+
+    <entry>
+        <base>NO_MODIFICATION_ASKED</base>
+        <trans>No modification have been asked.</trans>
+    </entry>
+
+    <entry>
+        <base>NOT_NUM</base>
+        <trans>Some characteres are not numeric characters.</trans>
+    </entry>
+       
+       <entry>
+        <base>GREETING</base>
+        <trans><![CDATA[ <br><b>Contrib developped by <a href="mailto:lucas.marcadieu@gmail.com">Marcadieu Lucas</a> and <a href="mailto:mk@ati-informatique.net">Kelkermans Marc</a>.</b>]]></trans>
+       </entry>
+
+</lexicon>
\ No newline at end of file
diff -urN smeserver-zarafa-0.9.0.orig/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/zarafaUI smeserver-zarafa-0.9.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/zarafaUI
--- smeserver-zarafa-0.9.0.orig/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/zarafaUI        1970-01-01 10:00:00.000000000 +1000
+++ smeserver-zarafa-0.9.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/zarafaUI     2009-06-01 21:15:33.000000000 +1000
@@ -0,0 +1,273 @@
+<lexicon  lang="en-us">
+
+    <entry>
+        <base>USER_GROUP_MANAGEMENT</base>
+        <trans>Management</trans>
+    </entry>
+
+    <entry>
+        <base>FORM_TITLE</base>
+        <trans><![CDATA[Users and groups management for Zarafa<br>]]></trans>
+    </entry>
+
+    <entry>
+        <base>ADD_USER</base>
+        <trans>Add an user</trans>
+    </entry>
+
+    <entry>
+        <base>ADD_USER_BUBBLE</base>
+        <trans>Click here to add an user</trans>
+    </entry>
+
+    <entry>
+        <base>ADD_GROUP</base>
+        <trans>Add a group</trans>
+    </entry>
+
+    <entry>
+        <base>ADD_GROUP_BUBBLE</base>
+        <trans>Click here to add a group</trans>
+    </entry>
+
+    <entry>
+        <base>USERNAME</base>
+        <trans>Username : </trans>
+    </entry>
+
+    <entry>
+        <base>FULLNAME</base>
+        <trans>Fullname : </trans>
+    </entry>
+
+    <entry>
+        <base>DELETE</base>
+        <trans>Delete</trans>
+    </entry>
+
+    <entry>
+        <base>DETAILS</base>
+        <trans>User's details : </trans>
+    </entry>
+
+    <entry>
+        <base>STOCK_USE</base>
+        <trans>Current store size : </trans>
+    </entry>
+
+    <entry>
+        <base>ACTIVE_USER</base>
+        <trans>Active user : </trans>
+    </entry>
+
+    <entry>
+        <base>ACTIVE_CREATE</base>
+        <trans>User : </trans>
+    </entry>
+
+    <entry>
+        <base>EMAILADDRESS</base>
+        <trans>Email Address : </trans>
+    </entry>
+
+    <entry>
+        <base>ADMIN</base>
+        <trans>Is the user an admin ?</trans>
+    </entry>
+
+    <entry>
+        <base>AUTO_ACCEPT_MEETING</base>
+        <trans>Accept auto meeting request ?</trans>
+    </entry>
+
+    <entry>
+        <base>DECLINE_DLB_REQ</base>
+        <trans>Decline dlb meeting request ?</trans>
+    </entry>
+
+    <entry>
+        <base>DECLINE_RECUR_REQ</base>
+        <trans>Decline reccur meeting request ?</trans>
+    </entry>
+
+    <entry>
+        <base>QUOTA_OVERR</base>
+        <trans>Set quota override ?</trans>
+    </entry>
+
+    <entry>
+        <base>WARN_LVL</base>
+        <trans>Warning level (unit is Mo) : </trans>
+    </entry>
+
+    <entry>
+        <base>SOFT_LVL</base>
+        <trans>Soft level (unit is Mo) : </trans>
+    </entry>
+
+    <entry>
+        <base>HARD_LVL</base>
+        <trans>Hard level (unit is Mo) : </trans>
+    </entry>
+
+    <entry>
+        <base>PASSWORD</base>
+        <trans>Password : </trans>
+    </entry>
+
+    <entry>
+        <base>CHANGE_PSSWD</base>
+        <trans>New password (optional) : </trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_BUTTON</base>
+        <trans>Modify</trans>
+    </entry>
+
+    <entry>
+        <base>CREATE_BUTTON</base>
+        <trans>Create</trans>
+    </entry>
+
+    <entry>
+        <base>DELETE_BUTTON</base>
+        <trans>Delete</trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_USER_SUCCESS</base>
+        <trans>User's modified</trans>
+    </entry>
+
+    <entry>
+        <base>CREATE_USER_SUCCESS</base>
+        <trans>User's created</trans>
+    </entry>
+
+    <entry>
+        <base>DELETE_USER_SUCCESS</base>
+        <trans>User's deleted</trans>
+    </entry>
+    
+    <entry>
+        <base>CREATE_GROUP_SUCCESS</base>
+        <trans>Group's created</trans>
+    </entry>
+
+    <entry>
+        <base>DELETE_USER_TXT</base>
+        <trans>Do you really want to delete this user ?</trans>
+    </entry>
+
+    <entry>
+        <base>GROUP_NAME</base>
+        <trans>Group name : </trans>
+    </entry>
+
+    <entry>
+        <base>DELETE_GROUP_TXT</base>
+        <trans>Do you really want to delete this group ?</trans>
+    </entry>
+
+    <entry>
+        <base>GROUP_TEXT_DISPLAY</base>
+        <trans>Groups list</trans>
+    </entry>
+
+    <entry>
+        <base>CHECKED_YES</base>
+        <trans>Yes</trans>
+    </entry>
+
+    <entry>
+        <base>CHECKED_NO</base>
+        <trans>No</trans>
+    </entry>
+
+    <entry>
+        <base>GROUP_NAME_ARRAY</base>
+        <trans>Group name</trans>
+    </entry>
+
+    <entry>
+        <base>DELETE_GROUP_SUCCESS</base>
+        <trans>Group deleted</trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_GROUP_TEXT</base>
+        <trans>Group's users modification</trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_GROUP_SUCCESS</base>
+        <trans>Group modified</trans>
+    </entry>
+
+    <entry>
+        <base>EXIST_GROUP</base>
+        <trans>Existing group : </trans>
+    </entry>
+
+    <entry>
+        <base>FULLNAME_VERIF_ERROR</base>
+        <trans>The fullname is not a correct fullname. It may contain only alphabetical letters and/or interval.</trans>
+    </entry>
+
+    <entry>
+        <base>MY_PASSWORD_VERIF_ERROR</base>
+        <trans>The password is not a correct password. It may contain only alphanumeric characters and at least six characters.</trans>
+    </entry>
+
+    <entry>
+        <base>QUOTA_TEST_VERIF_ERROR</base>
+        <trans>The quota limit is not a correct quota. A correct quota limit is an numeric value.</trans>
+    </entry>
+
+    <entry>
+        <base>SOFT_INF_WARN</base>
+        <trans>This quota limit can't be inferior or equal to the warning level quota.</trans>
+    </entry>
+
+    <entry>
+        <base>HARD_INF_OTHER</base>
+        <trans>This quota limit can't be inferior or equal to the soft level quota.</trans>
+    </entry>
+
+    <entry>
+        <base>MULTIPLE_USERNAME</base>
+        <trans>This username is already taken by another user, please choose another.</trans>
+    </entry>
+
+    <entry>
+        <base>MULTIPLE_EMAIL</base>
+        <trans>This email address is already taken by another user, please choose another.</trans>
+    </entry>
+
+    <entry>
+        <base>MULTIPLE_GROUPNAME</base>
+        <trans>This group name is already taken, please choose another.</trans>
+    </entry>
+
+    <entry>
+        <base>FALSE_USERNAME</base>
+        <trans>The username is not a correct fullname. It may contain only alphabetical letters, intervals, points or coma.</trans>
+    </entry>
+
+    <entry>
+        <base>DISABLED</base>
+        <trans>Disabled</trans>
+    </entry>
+
+    <entry>
+        <base>ENABLED</base>
+        <trans>Enabled</trans>
+    </entry>
+       
+       <entry>
+        <base>GREETING</base>
+        <trans><![CDATA[ <br><b>Contrib developped by <a href="mailto:lucas.marcadieu@gmail.com">Marcadieu Lucas</a> and <a href="mailto:mk@ati-informatique.net">Kelkermans Marc</a>.</b>]]></trans>
+       </entry>
+
+</lexicon>
\ No newline at end of file
diff -urN smeserver-zarafa-0.9.0.orig/root/etc/e-smith/locale/fr/etc/e-smith/web/functions/zarafaCFG smeserver-zarafa-0.9.0/root/etc/e-smith/locale/fr/etc/e-smith/web/functions/zarafaCFG
--- smeserver-zarafa-0.9.0.orig/root/etc/e-smith/locale/fr/etc/e-smith/web/functions/zarafaCFG  1970-01-01 10:00:00.000000000 +1000
+++ smeserver-zarafa-0.9.0/root/etc/e-smith/locale/fr/etc/e-smith/web/functions/zarafaCFG       2009-06-01 21:15:33.000000000 +1000
@@ -0,0 +1,238 @@
+<lexicon lang="fr">
+
+    <entry>
+        <base>ZARAFA_CFG_MANAGEMENT</base>
+        <trans>Serveur</trans>
+    </entry>
+
+    <entry>
+        <base>FORM_TITLE</base>
+        <trans><![CDATA[Configuration du serveur Zarafa]]></trans>
+    </entry>
+    
+    <entry>
+        <base>SOFTDELETE</base>
+        <trans>RÃ©glage du soft-delete lifetime</trans>
+    </entry>
+
+    <entry>
+        <base>CFG_BUTTON</base>
+        <trans>Configuration serveur</trans>
+    </entry>
+
+    <entry>
+        <base>KEY_BUTTON</base>
+        <trans>Activation/Ajout de CAL</trans>
+    </entry>
+
+    <entry>
+        <base>MYSQL_BUTTON</base>
+        <trans>RÃ©glages MySQL</trans>
+    </entry>
+
+    <entry>
+        <base>CACHE_CELL_SIZE</base>
+        <trans>RÃ©glage de la taille du cache du noyau</trans>
+    </entry>
+
+    <entry>
+        <base>CACHE_OBJECT_SIZE</base>
+        <trans>RÃ©glage de la taille du cache objet</trans>
+    </entry>
+
+    <entry>
+        <base>CACHE_INDEX_SIZE</base>
+        <trans>RÃ©glage de la taille du cache l'index</trans>
+    </entry>
+
+    <entry>
+        <base>QUOTA_WARN</base>
+        <trans>RÃ©glage du niveau du Warning Quota</trans>
+    </entry>
+
+    <entry>
+        <base>QUOTA_SOFT</base>
+        <trans>RÃ©glage du niveau du Soft Quota</trans>
+    </entry>
+
+    <entry>
+        <base>QUOTA_HARD</base>
+        <trans>RÃ©glage du niveau du Hard Quota</trans>
+    </entry>
+
+    <entry>
+        <base>COMPANYQUOTA_WARN</base>
+        <trans>RÃ©glage du niveau de quota de companies</trans>
+    </entry>
+
+    <entry>
+        <base>VERSION</base>
+        <trans><![CDATA[<b>Version de Zarafa :]]></trans>
+    </entry>
+
+    <entry>
+        <base>SYS_AUTH</base>
+        <trans>SystÃ¨me de base de donnÃ©es :</trans>
+    </entry>
+
+    <entry>
+        <base>REGISTERED</base>
+        <trans>Version enregistrÃ©e</trans>
+    </entry>
+
+    <entry>
+        <base>UNREGISTERED</base>
+        <trans>Version communautaire</trans>
+    </entry>
+
+    <entry>
+        <base>MAX_USERS</base>
+        <trans><![CDATA[utilisateurs maximum.</b><br>]]></trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_BUTTON</base>
+        <trans>Modifier</trans>
+    </entry>
+
+    <entry>
+        <base>CD_KEY</base>
+        <trans>Serial :</trans>
+    </entry>
+
+    <entry>
+        <base>NBRUSERTXT</base>
+        <trans>utilisateurs maximum.</trans>
+    </entry>
+
+    <entry>
+        <base>CALNAME</base>
+        <trans>Nom du fichier CAL</trans>
+    </entry>
+
+    <entry>
+        <base>CALKEY</base>
+        <trans>Serial enregistrÃ©</trans>
+    </entry>
+
+    <entry>
+        <base>CAL_BUTTON</base>
+        <trans>Ajouter un CAL</trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_CONFIG_SUCCESS</base>
+        <trans>Modifications rÃ©ussies !</trans>
+    </entry>
+
+    <entry>
+        <base>CFG_BUTTON_BUBBLE</base>
+        <trans>Cliquez ici pour configurer certain aspect de Zarafa</trans>
+    </entry>
+
+    <entry>
+        <base>KEY_BUTTON_BUBBLE</base>
+        <trans>Cliquez ici pour activer votre version de Zarafa ou pour rajouter des CAL</trans>
+    </entry>
+
+    <entry>
+        <base>MYSQL_BUTTON_BUBBLE</base>
+        <trans>Cliquez ici pour configurer certain aspect MySQL de Zarafa</trans>
+    </entry>
+
+    <entry>
+        <base>CAL_BUTTON_BUBBLE</base>
+        <trans>Cliquez ici pour ajouter un CAL</trans>
+    </entry>
+
+    <entry>
+        <base>INVALID_KEY</base>
+        <trans>Serial invalide. Il doit Ãªtre obligatoirement composÃ©e de 24 caractÃ©res alphanumÃ©riques.</trans>
+    </entry>
+
+    <entry>
+        <base>CREATE_BUTTON</base>
+        <trans>Ajouter Serial</trans>
+    </entry>
+
+    <entry>
+        <base>EXIST_CALNAME</base>
+        <trans>Le nom saisi est dÃ©jÃ Â  utilisÃ© pour un autre CAL. Veuillez en choisir un autre.</trans>
+    </entry>
+
+    <entry>
+        <base>EXIST_CALKEY</base>
+        <trans>Le serial saisi est dÃ©jÃ Â Ã  utilisÃ© dans un autre CAL. Veuillez en saisir un autre.</trans>
+    </entry>
+
+    <entry>
+        <base>CAUTION_TIME</base>
+        <trans><![CDATA[<b>ATTENTION - Les services Zarafa et MySQL doivent Ãªtre redÃ©marrÃ©.</b>]]></trans>
+    </entry>
+
+    <entry>
+        <base>INSERT_CAL_NAME</base>
+        <trans>Nom du fichier CAL</trans>
+    </entry>
+
+    <entry>
+        <base>INSERT_CAL_KEY</base>
+        <trans>Serial du CAL</trans>
+    </entry>
+
+    <entry>
+        <base>CLEF_CD</base>
+        <trans>Saisir le serial</trans>
+    </entry>
+
+    <entry>
+        <base>BUFFER_POOL_SIZE</base>
+        <trans>Taille du buffer pool</trans>
+    </entry>
+
+    <entry>
+        <base>ADDITIONAL_MEM_POOL_SIZE</base>
+        <trans>Taille de la mÃ©moire additionel du pool</trans>
+    </entry>
+
+    <entry>
+        <base>LOG_FILE_SIZE</base>
+        <trans>Taille du fichier de log</trans>
+    </entry>
+
+    <entry>
+        <base>LOG_BUFFER_SIZE</base>
+        <trans>Taille du fichier log du buffer</trans>
+    </entry>
+
+    <entry>
+        <base>NO_MODIFICATION_ASKED</base>
+        <trans>Aucune modification n'a Ã©tÃ© demandÃ©.</trans>
+    </entry>
+
+    <entry>
+        <base>NOT_NUM</base>
+        <trans>Les caractÃ©res saisi ne sont pas tous des caractÃ©res numÃ©riques.</trans>
+    </entry>
+       
+       <entry>
+        <base>MULTICOMP</base>
+        <trans>Multi-companie </trans>
+       </entry>
+       
+       <entry>
+        <base>GLOBALFORWARD</base>
+        <trans>Gobal Forward</trans>
+       </entry>
+
+       <entry>
+        <base>ZARAFA_PLUGIN_CAUTION</base>
+        <trans>Impossible de dÃ©terminer votre plugin</trans>
+       </entry>
+       
+       <entry>
+        <base>GREETING</base>
+        <trans><![CDATA[ <br><b>Contrib developped by <a href="mailto:lucas.marcadieu@gmail.com">Marcadieu Lucas</a> and <a href="mailto:mk@ati-informatique.net">Kelkermans Marc</a>.</b>]]></trans>
+       </entry>
+       
+</lexicon>
\ No newline at end of file
diff -urN smeserver-zarafa-0.9.0.orig/root/etc/e-smith/locale/fr/etc/e-smith/web/functions/zarafaUI smeserver-zarafa-0.9.0/root/etc/e-smith/locale/fr/etc/e-smith/web/functions/zarafaUI
--- smeserver-zarafa-0.9.0.orig/root/etc/e-smith/locale/fr/etc/e-smith/web/functions/zarafaUI   1970-01-01 10:00:00.000000000 +1000
+++ smeserver-zarafa-0.9.0/root/etc/e-smith/locale/fr/etc/e-smith/web/functions/zarafaUI        2009-06-01 21:15:33.000000000 +1000
@@ -0,0 +1,284 @@
+<lexicon lang="fr">
+
+    <entry>
+        <base>USER_GROUP_MANAGEMENT</base>
+        <trans>Utilisateurs</trans>
+    </entry>
+
+    <entry>
+        <base>FORM_TITLE</base>
+        <trans><![CDATA[Gestion des utilisateurs et des groupes de Zarafa<br>]]></trans>
+    </entry>
+
+    <entry>
+        <base>ADD_USER</base>
+        <trans>Ajouter un utilisateur</trans>
+    </entry>
+
+    <entry>
+        <base>ADD_USER_BUBBLE</base>
+        <trans>Cliquez pour ajouter un utilisateur</trans>
+    </entry>
+
+    <entry>
+        <base>ADD_GROUP</base>
+        <trans>Ajouter un groupe</trans>
+    </entry>
+
+    <entry>
+        <base>ADD_GROUP_BUBBLE</base>
+        <trans>Cliquez pour ajouter un groupe</trans>
+    </entry>
+
+    <entry>
+        <base>USERNAME</base>
+        <trans>Nom utilisateur : </trans>
+    </entry>
+
+    <entry>
+        <base>FULLNAME</base>
+        <trans>Nom complet : </trans>
+    </entry>
+
+    <entry>
+        <base>DELETE</base>
+        <trans>Supprimer</trans>
+    </entry>
+
+    <entry>
+        <base>DETAILS</base>
+        <trans><![CDATA[<b>DÃ©tails de l'utilisateur : ]]></trans>
+    </entry>
+
+    <entry>
+        <base>STOCK_USE</base>
+        <trans>Espace de stockage utilisÃ© : </trans>
+    </entry>
+
+    <entry>
+        <base>ACTIVE_USER</base>
+        <trans><![CDATA[<br>Utilisateur actif : ]]></trans>
+    </entry>
+
+    <entry>
+        <base>ACTIVE_CREATE</base>
+        <trans>Utilisateur : </trans>
+    </entry>
+
+    <entry>
+        <base>EMAILADDRESS</base>
+        <trans>Adresse internet : </trans>
+    </entry>
+
+    <entry>
+        <base>ADMIN</base>
+        <trans>L'utilisateur est-il un administrateur ?</trans>
+    </entry>
+
+    <entry>
+        <base>AUTO_ACCEPT_MEETING</base>
+        <trans>Accept auto meeting request ?</trans>
+    </entry>
+
+    <entry>
+        <base>DECLINE_DLB_REQ</base>
+        <trans>Decline dlb meeting request ?</trans>
+    </entry>
+
+    <entry>
+        <base>DECLINE_RECUR_REQ</base>
+        <trans>Decline reccur meeting request ?</trans>
+    </entry>
+
+    <entry>
+        <base>QUOTA_OVERR</base>
+        <trans>Mettre des quotas personalisÃ©s ?</trans>
+    </entry>
+
+    <entry>
+        <base>WARN_LVL</base>
+        <trans>Warning level (en Mo) : </trans>
+    </entry>
+
+    <entry>
+        <base>SOFT_LVL</base>
+        <trans>Soft level (en Mo) : </trans>
+    </entry>
+
+    <entry>
+        <base>HARD_LVL</base>
+        <trans>Hard level (en Mo) : </trans>
+    </entry>
+
+    <entry>
+        <base>PASSWORD</base>
+        <trans>Mot de passe : </trans>
+    </entry>
+
+    <entry>
+        <base>CHANGE_PSSWD</base>
+        <trans>Nouveau mot de passe (optionnel) : </trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_BUTTON</base>
+        <trans>Modifier</trans>
+    </entry>
+
+    <entry>
+        <base>CREATE_BUTTON</base>
+        <trans>CrÃ©er</trans>
+    </entry>
+
+    <entry>
+        <base>DELETE_BUTTON</base>
+        <trans>Supprimer</trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_USER_SUCCESS</base>
+        <trans>Utilisateur modifiÃ©</trans>
+    </entry>
+
+    <entry>
+        <base>CREATE_USER_SUCCESS</base>
+        <trans>Utilisateur crÃ©Ã©</trans>
+    </entry>
+
+    <entry>
+        <base>DELETE_USER_SUCCESS</base>
+        <trans>Utilisateur supprimÃ©</trans>
+    </entry>
+    
+    <entry>
+        <base>CREATE_GROUP_SUCCESS</base>
+        <trans>Groupe crÃ©Ã©</trans>
+    </entry>
+
+    <entry>
+        <base>DELETE_USER_TXT</base>
+        <trans>Voulez vous vraiment supprimer cet utilisateur ?</trans>
+    </entry>
+
+    <entry>
+        <base>GROUP_NAME</base>
+        <trans>Nom du groupe : </trans>
+    </entry>
+
+    <entry>
+        <base>DELETE_GROUP_TXT</base>
+        <trans>Voulez-vous vraiment supprimer ce groupe ?</trans>
+    </entry>
+
+    <entry>
+        <base>GROUP_TEXT_DISPLAY</base>
+        <trans>Liste des groupes</trans>
+    </entry>
+
+    <entry>
+        <base>CHECKED_YES</base>
+        <trans>Oui</trans>
+    </entry>
+
+    <entry>
+        <base>CHECKED_NO</base>
+        <trans>Non</trans>
+    </entry>
+
+    <entry>
+        <base>GROUP_NAME_ARRAY</base>
+        <trans>Nom du groupe</trans>
+    </entry>
+
+    <entry>
+        <base>DELETE_GROUP_SUCCESS</base>
+        <trans>Groupe supprimÃ©</trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_GROUP_TEXT</base>
+        <trans><![CDATA[<b>Modification des utilisateurs du groupe]]></trans>
+    </entry>
+
+    <entry>
+        <base>MODIFY_GROUP_SUCCESS</base>
+        <trans>Groupe modifiÃ©</trans>
+    </entry>
+
+    <entry>
+        <base>EXIST_GROUP</base>
+        <trans>Groupes existant : </trans>
+    </entry>
+
+    <entry>
+        <base>FULLNAME_VERIF_ERROR</base>
+        <trans>Le nom d'utilisateur rentrÃ© n'est pas un nom valide. Il ne doit contenir que des lettres de l'alphabet, des espace, des points ou bien des tirets.</trans>
+    </entry>
+
+    <entry>
+        <base>MY_PASSWORD_VERIF_ERROR</base>
+        <trans>Le mot de passe saisi n'est pas considÃ©rÃ© comme valide. Le mot de passe ne doit contenir que des caractÃ©res alphanumÃ©rique et doit contenir au moins 6 caractÃ©res.</trans>
+    </entry>
+
+    <entry>
+        <base>QUOTA_TEST_VERIF_ERROR</base>
+        <trans>La limite de quota saisi n'est pas valide. Une limite valide est une valeur numÃ©rique.</trans>
+    </entry>
+
+    <entry>
+        <base>SOFT_INF_WARN</base>
+        <trans>La limite de se quota ne peut Ãªtre infÃ©rieur ou Ã©gale Ã  la limite du warning level.</trans>
+    </entry>
+
+    <entry>
+        <base>HARD_INF_OTHER</base>
+        <trans>La limite de se quota ne peut Ãªtre infÃ©rieur ou Ã©gale Ã  la limite du soft level.</trans>
+    </entry>
+
+    <entry>
+        <base>MULTIPLE_USERNAME</base>
+        <trans>Le nom d'utilisateur saisi est dÃ©ja utilisÃ©, veuillez en choisir un autre.</trans>
+    </entry>
+
+    <entry>
+        <base>MULTIPLE_EMAIL</base>
+        <trans>L'email saisi est dÃ©jÃ  utilisÃ© par un autre utilisateur, veuillez en saisir un autre.</trans>
+    </entry>
+
+    <entry>
+        <base>MULTIPLE_GROUPNAME</base>
+        <trans>Ce nom de groupe est djÃ  utilisÃ©, veuillez en saisir un autre.</trans>
+    </entry>
+
+    <entry>
+        <base>FALSE_USERNAME</base>
+        <trans>Ce nom d'utilisateur n'est pas validable. Il ne doit contenir que des caractÃ©res alphanumÃ©rique, des points ou encore des tirets</trans>
+    </entry>
+
+    <entry>
+        <base>ENABLED</base>
+        <trans>ActivÃ©</trans>
+    </entry>
+
+    <entry>
+        <base>DISABLED</base>
+        <trans>DÃ©sactivÃ©</trans>
+    </entry>
+       
+       <entry>
+        <base>GREETING</base>
+        <trans><![CDATA[ <br><b>Contrib developped by <a href="mailto:lucas.marcadieu@gmail.com">Marcadieu Lucas</a> and <a href="mailto:mk@ati-informatique.net">Kelkermans Marc</a>.</b>]]></trans>
+       </entry>
+       
+       <entry>
+        <base>CAUTION_NOT_DB</base>
+        <trans><![CDATA[ ATTENTION ! L'utilisateur n'est pas dans la DB Serveur !</b><br><br>]]></trans>
+       </entry>
+       
+       
+       <entry>
+        <base>IN_DB</base>
+        <trans><![CDATA[ L'utilisateur est dans la DB Serveur</b> <br><br>]]></trans>
+       </entry>
+
+</lexicon>
\ No newline at end of file
diff -urN smeserver-zarafa-0.9.0.orig/root/etc/e-smith/web/functions/zarafaCFG smeserver-zarafa-0.9.0/root/etc/e-smith/web/functions/zarafaCFG
--- smeserver-zarafa-0.9.0.orig/root/etc/e-smith/web/functions/zarafaCFG        1970-01-01 10:00:00.000000000 +1000
+++ smeserver-zarafa-0.9.0/root/etc/e-smith/web/functions/zarafaCFG     2009-06-01 21:15:42.000000000 +1000
@@ -0,0 +1,127 @@
+#!/usr/bin/perl -wT
+
+# vim: ts=4 sw=4 et:
+#----------------------------------------------------------------------
+# heading     : Zarafa
+# description : ZARAFA_CFG_MANAGEMENT
+# navigation  : 2000 2200
+#----------------------------------------------------------------------
+
+ use strict;
+ use warnings;
+ use esmith::FormMagick::Panel::zarafaCFG;
+ 
+ my $f = esmith::FormMagick::Panel::zarafaCFG->new();
+ $f->display();
+
+__DATA__
+ <form
+     title="FORM_TITLE"
+     header="/etc/e-smith/web/common/head.tmpl"
+     footer="/etc/e-smith/web/common/foot.tmpl">
+       
+     <page name="First" pre-event="print_status_message()">
+       <subroutine src="display_buttons()" />
+       <subroutine src="print_message('GREETING')" />
+     </page> 
+
+     <page name="Config" pre-event="print_status_message()" post-event="modify_config()">
+
+       <subroutine src="display_config()" />
+               
+       <field type="text" id="Softdelete" size="8" validation="nonblank">
+               <label>SOFTDELETE</label>
+       </field>
+
+       <field type="text" id="cache_cell" size="8" validation="nonblank">
+               <label>CACHE_CELL_SIZE</label>
+       </field>
+
+       <field type="text" id="cache_object" size="8" validation="nonblank">
+               <label>CACHE_OBJECT_SIZE</label>
+       </field>
+
+       <field type="text" id="cache_index" size="8" validation="nonblank">
+               <label>CACHE_INDEX_SIZE</label>
+       </field>
+
+       <field type="text" id="quota_warn" size="8">
+               <label>QUOTA_WARN</label>
+       </field>
+
+       <field type="text" id="quota_soft" size="8">
+               <label>QUOTA_SOFT</label>
+       </field>
+
+       <field type="text" id="quota_hard" size="8">
+               <label>QUOTA_HARD</label>
+       </field>
+
+       <field type="text" id="companyquota_warn" size="8">
+               <label>COMPANYQUOTA_WARN</label>
+       </field>
+
+       <subroutine src="display_modify_button()" />
+       <subroutine src="print_message('GREETING')" />
+     </page>
+
+     <page name="KEYSNeed" pre-event="print_status_message()" post-event="add_cdkey()">
+
+       <description>CAUTION_TIME</description>
+       <field type="text" id="clef-cd" size="30" validation="nonblank, valid_keys">
+               <label>CLEF_CD</label>
+       </field>
+       
+       <subroutine src="display_modify_button()" />
+       <subroutine src="print_message('GREETING')" />
+     </page>
+
+     <page name="KEYSUNeed" pre-event="print_status_message()">
+
+       <subroutine src="display_key_info()" />
+       <subroutine src="display_cal()" />
+       <subroutine src="print_message('GREETING')" />
+     </page>
+
+     <page name="MYSQL" pre-event="print_status_message()" post-event="modify_mysql()">
+
+       <description>CAUTION_TIME</description>
+
+       <subroutine src="display_value()" />
+
+       <field type="text" id="buffer_pool_size" size="10" validation="nonblank, only_num">
+               <label>BUFFER_POOL_SIZE</label>
+       </field>
+
+       <field type="text" id="additional_mem_pool_size" size="10" validation="nonblank, only_num">
+               <label>ADDITIONAL_MEM_POOL_SIZE</label>
+       </field>
+
+       <field type="text" id="log_file_size" size="10" validation="nonblank, only_num">
+               <label>LOG_FILE_SIZE</label>
+       </field>
+
+       <field type="text" id="log_buffer_size" size="10" validation="nonblank, only_num">
+               <label>LOG_BUFFER_SIZE</label>
+       </field>
+
+       <subroutine src="display_modify_button()" />
+       <subroutine src="print_message('GREETING')" />
+     </page>
+
+     <page name="CreateCal" pre-event="print_status_message()" post-event="create_cal()">
+
+       <description>CAUTION_TIME</description>
+       <field type="text" id="user_name_cal" size="30" validation="nonblank, unique_name">
+               <label>INSERT_CAL_NAME</label>
+       </field>
+
+       <field type="text" id="user_key_cal" size="30" validation="nonblank, valid_cal, unique_key">
+               <label>INSERT_CAL_KEY</label>
+       </field>
+
+       <subroutine src="display_create_button()" />
+       <subroutine src="print_message('GREETING')" />
+     </page>
+        
+ </form>
\ No newline at end of file
diff -urN smeserver-zarafa-0.9.0.orig/root/etc/e-smith/web/functions/zarafaUI smeserver-zarafa-0.9.0/root/etc/e-smith/web/functions/zarafaUI
--- smeserver-zarafa-0.9.0.orig/root/etc/e-smith/web/functions/zarafaUI 1970-01-01 10:00:00.000000000 +1000
+++ smeserver-zarafa-0.9.0/root/etc/e-smith/web/functions/zarafaUI      2009-06-01 21:15:42.000000000 +1000
@@ -0,0 +1,193 @@
+#!/usr/bin/perl -wT
+
+# vim: ts=4 sw=4 et:
+#----------------------------------------------------------------------
+# heading     : Zarafa
+# description : USER_GROUP_MANAGEMENT
+# navigation  : 2000 2150
+#----------------------------------------------------------------------
+
+ use strict;
+ use warnings;
+ use esmith::FormMagick::Panel::zarafaUI;
+ 
+ my $f = esmith::FormMagick::Panel::zarafaUI->new();
+ $f->display();
+ 
+ __DATA__
+ <form
+     title="FORM_TITLE"
+     header="/etc/e-smith/web/common/head.tmpl"
+     footer="/etc/e-smith/web/common/foot.tmpl">
+ 
+     <page name="First" pre-event="print_status_message()"
+       post-event="transfer_page()">
+       <subroutine src="show_users()" />
+       <subroutine src="show_group()" /> 
+       <subroutine src="print_message('GREETING')" />
+     </page>
+
+     <page name="DisplayDetails" pre-event="turn_off_buttons()"
+       post-event="modify_user()">
+
+       <subroutine src="display_user_details()" />
+       
+       <field type="text" id="Username" size="8" validation="nonblank, my_username, unique_username_modify">
+               <label>USERNAME</label>
+       </field>
+
+       <field type="text" id="Fullname" validation="nonblank, fullname">
+               <label>FULLNAME</label>
+       </field>
+
+       <field type="text" id="EmailAddress" size="30" validation="nonblank, email_simple, unique_email_modify">
+               <label>EMAILADDRESS</label>
+       </field>
+
+       <field type="select" id="Admin" options="'yes' => 'Oui', 'no' => 'Non'" validation="nonblank">
+       <label>ADMIN</label>
+       </field>
+
+       <field type="select" id="auto_meeting_req" options="'yes' => 'Oui', 'no' => 'Non'" validation="nonblank">
+       <label>AUTO_ACCEPT_MEETING</label>
+       </field>
+
+       <field type="select" id="dbl_meeting" options="'yes' => 'Oui', 'no' => 'Non'" validation="nonblank">
+       <label>DECLINE_DLB_REQ</label>
+       </field>
+
+       <field type="select" id="decline_recur_meeting" options="'yes' => 'Oui', 'no' => 'Non'" validation="nonblank">
+       <label>DECLINE_RECUR_REQ</label>
+       </field>
+
+       <field type="select" id="quota" options="'yes' => 'Oui', 'no' => 'Non'" validation="nonblank">
+       <label>QUOTA_OVERR</label>
+       </field>
+
+       <field type="text" id="Warnlvl" size="8" validation="quota_test">
+               <label>WARN_LVL</label>
+       </field>
+
+       <field type="text" id="Softlvl" size="8" validation="quota_test, sup_quota_inter">
+               <label>SOFT_LVL</label>
+       </field>
+
+       <field type="text" id="Hardlvl" size="8" validation="quota_test, sup_quota_hard">
+               <label>HARD_LVL</label>
+       </field>
+
+       <field type="password" id="new_password" validation="my_password(6)">
+               <label>CHANGE_PSSWD</label>
+       </field>
+
+       <subroutine src="display_user_groups()" />
+       <subroutine src="display_modify_button()" />
+       <subroutine src="print_message('GREETING')" />
+     </page>
+
+     <page name="DisplayCreate" pre-event="turn_off_buttons()"
+       post-event="Create_user()">
+       
+       <field type="text" id="Username" size="8" validation="nonblank, my_username, unique_username">
+               <label>USERNAME</label>
+       </field>
+
+       <field type="text" id="Fullname" validation="nonblank, fullname">
+               <label>FULLNAME</label>
+       </field>
+
+       <field type="password" id="Password" validation="nonblank, my_password(6)">
+               <label>PASSWORD</label>
+       </field>
+
+       <field type="text" id="EmailAddress" size="30" validation="nonblank, email_simple, unique_email">
+               <label>EMAILADDRESS</label>
+       </field>
+
+       <field type="select" id="Admin" options="'yes' => 'Oui', 'no' => 'Non'" validation="nonblank">
+       <label>ADMIN</label>
+       </field>
+
+       <field type="select" id="Active" options="'no' => 'Actif', 'yes' => 'Non-actif'" validation="nonblank">
+       <label>ACTIVE_CREATE</label>
+       </field>
+
+       <field type="select" id="quota" options="'yes' => 'Oui', 'no' => 'Non'" validation="nonblank">
+       <label>QUOTA_OVERR</label>
+       </field>
+
+       <field type="text" id="Warnlvl" size="8" value="0">
+               <label>WARN_LVL</label>
+       </field>
+
+       <field type="text" id="Softlvl" size="8" value="0" validation="sup_quota_inter">
+               <label>SOFT_LVL</label>
+       </field>
+
+       <field type="text" id="Hardlvl" size="8" value="0" validation="sup_quota_hard">
+               <label>HARD_LVL</label>
+       </field>
+       
+       <subroutine src="display_create_user_group()" />
+       <subroutine src="display_create_button()" />
+       <subroutine src="print_message('GREETING')" />
+     </page>
+
+     <page name="DeleteUser" pre-event="turn_off_buttons()"
+       post-event="delete_user()">
+       <description>DELETE_USER_TXT</description>
+       <subroutine src="display_delete_button()" />
+       <subroutine src="print_message('GREETING')" />
+     </page>
+
+     <page name="DisplayCreateGroup" pre-event="turn_off_buttons()"
+       post-event="Create_group()">
+       
+       <field type="text" id="Groupname" validation="nonblank, fullname, unique_groupname">
+               <label>GROUP_NAME</label>
+       </field>
+
+       <subroutine src="display_create_button()" />
+       <subroutine src="print_message('GREETING')" />
+     </page>
+
+     <page name="DeleteGroup" pre-event="turn_off_buttons()"
+       post-event="delete_group()">
+       <description>DELETE_GROUP_TXT</description>
+       <subroutine src="display_delete_group_button" />
+       <subroutine src="print_message('GREETING')" />
+     </page>
+
+     <page name="DisplayGroupDetails" pre-event="turn_off_buttons()"
+       post-event="modify_user_group()">
+       <subroutine src="display_user_in_group()" />
+       <subroutine src="display_modify_group_button()" />      
+       <subroutine src="print_message('GREETING')" />
+     </page>
+        
+        <page name="DisplayCompanyDetails" pre-event="print_status_message()" post-event="transfer_page()">
+        
+        <subroutine src="show_company_users()" />
+        <subroutine src="print_message('GREETING')" />
+        </page>
+        
+       <page name="CreateCompany" pre-event="print_status_message()" post-event="create_company()">
+        
+               <field type="text" id="createcompanyname" size="20" validation="nonblank">
+                       <label>COMPANY_NAME</label>
+               </field>
+               
+               <subroutine src="display_create_button()" />
+               <subroutine src="print_message('GREETING')" />
+       </page>
+       
+    <page name="DeleteCompany" pre-event="turn_off_buttons()"
+               post-event="delete_company()">
+               
+               <description>DELETE_COMPANY_TXT</description>
+               
+               <subroutine src="display_delete_comp_button" />
+               <subroutine src="print_message('GREETING')" />
+     </page>
+
+ </form>
\ No newline at end of file
diff -urN smeserver-zarafa-0.9.0.orig/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/zarafaCFG.pm smeserver-zarafa-0.9.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/zarafaCFG.pm
--- smeserver-zarafa-0.9.0.orig/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/zarafaCFG.pm       1970-01-01 10:00:00.000000000 +1000
+++ smeserver-zarafa-0.9.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/zarafaCFG.pm    2009-06-01 21:15:18.000000000 +1000
@@ -0,0 +1,964 @@
+#!/usr/bin/perl -w
+
+package esmith::FormMagick::Panel::zarafaCFG;
+ 
+ use strict;
+ use warnings;
+ use esmith::FormMagick;
+ use esmith::cgi;
+ use esmith::util;
+ use Exporter;
+ use esmith::ConfigDB;
+ use utf8;
+
+ our @ISA = qw(esmith::FormMagick Exporter);
+ 
+ our @EXPORT = qw();
+ 
+ our $VERSION = sprintf '%d.%03d', q$Revision: 1.1 $ =~ /: (\d+).(\d+)/;
+
+ our $configdb = esmith::ConfigDB->open();
+
+ # Longueur des clef de license pour vérification
+ our $licensekey = 24;
+ our $CALkey = 16;
+
+# Ce fichier contient les fonction nécessaire pour gérer l'interface entre le serveur SME et la configuration de certain paramétres du module Zarafa.
+# Ce fichier regroupe des fonctions d'affichage, de modifications et de vérifications de données contenu dans Zarafa.
+#####################################################################################################################################
+# This file contains the required functions in order to handle the interface between SME server and Zarafa configuration module's.
+# It contains display, modify, create and verification functions for Zarafa.
+ 
+ 
+# display_config permet l'affichage d'options et le préremplissage de champs pour la configuration du serveur de messagerie
+###########################################################################################################################
+# display_config is used to display options and to fill many fields for the mail's server
+
+sub display_config {
+
+       my $self = shift;
+       my $cgi = $self->{cgi};
+
+       # Récupération des valeurs à inséré dans les champs
+       # Recovery of value to put into fields
+       my ($softdelete, $cache_cell, $cache_object, $cache_index, $quota_warn, $quota_soft, $quota_hard, $companyquota_warn, $multicompany);
+       open(LIRE, "/etc/e-smith/templates/etc/zarafa/server.cfg/server.cfg");
+       while(<LIRE>){
+               my $ligne = $_;
+               if($ligne =~ m/^softdelete_lifetime/){
+                       $softdelete = $ligne;
+                       $softdelete =~ s/softdelete_lifetime\s+\=\s{1}//g;
+               }
+               if($ligne =~ m/^cache_cell_size/){
+                       $cache_cell = $ligne;
+                       $cache_cell =~ s/cache_cell_size\s+\=\s{1}//g;
+               }
+               if($ligne =~ m/^cache_object_size/){
+                       $cache_object = $ligne;
+                       $cache_object =~ s/cache_object_size\s+\=\s{1}//g;
+               }
+               if($ligne =~ m/^cache_indexedobject_size/){
+                       $cache_index = $ligne;
+                       $cache_index =~ s/cache_indexedobject_size\s+\=\s{1}//g;
+               }
+               if($ligne =~ m/^quota_warn/){
+                       $quota_warn = $ligne;
+                       $quota_warn =~ s/quota_warn\s+\=\s{1}//g;
+               }
+               if($ligne =~ m/^quota_soft/){
+                       $quota_soft = $ligne;
+                       $quota_soft =~ s/quota_soft\s+\=\s{1}//g;
+               }
+               if($ligne =~ m/^quota_hard/){
+                       $quota_hard = $ligne;
+                       $quota_hard =~ s/quota_hard\s+\=\s{1}//g;
+               }
+               if($ligne =~ m/^companyquota_warn/){
+                       $companyquota_warn = $ligne;
+                       $companyquota_warn =~ s/companyquota_warn\s+\=\s{1}//g;
+               }
+               if($ligne =~ m/^enable_hosted_zarafa/){
+                       $multicompany = $ligne;
+                       $multicompany =~ s/enable_hosted_zarafa\s+\=\s//g;
+               }
+       }
+       close(LIRE);
+                       
+       # Affichage des valeurs récupérées
+       # Display of the precedent values
+       $cgi->param(-name=>'Softdelete', -value=>$softdelete);
+       $cgi->param(-name=>'cache_cell', -value=>$cache_cell);
+       $cgi->param(-name=>'cache_object', -value=>$cache_object);
+       $cgi->param(-name=>'cache_index', -value=>$cache_index);        
+       $cgi->param(-name=>'quota_warn', -value=>$quota_warn);
+       $cgi->param(-name=>'quota_soft', -value=>$quota_soft);
+       $cgi->param(-name=>'quota_hard', -value=>$quota_hard);
+       $cgi->param(-name=>'companyquota_warn', -value=>$companyquota_warn);
+       
+       # Localisation
+       my $multicomp = $self->localise('MULTICOMP');
+       my $globalforward = $self->localise('GLOBALFORWARD');
+       my $enabled = $self->localise('ENABLED');
+
+       
+       my $out = "<tr>\n        <td class=\"sme-noborders-label\">"
+                         . "$multicomp"
+                         . "</td>\n        <td>\n"
+                         . "          <table border='0' cellspacing='0' cellpadding='0'>\n";
+               if($multicompany =~ m/true/){
+                       $out .="<td>$enabled</td><td><input type=\"checkbox\" name=\"multicompany\" checked"
+                              ." value=\"enabled\"></td>"
+                              ."</tr>\n";
+                       }
+               else {
+                       $out .="<td>$enabled</td><td><input type=\"checkbox\" name=\"multicompany\""
+                              ." value=\"enabled\"></td>"
+                              ."</tr>\n";
+               }
+       $out .= "          </table>\n        </td>\n    </tr>\n";
+       
+       $out .= "<tr>\n        <td class=\"sme-noborders-label\">"
+                       . "$globalforward"
+               . "</td>\n        <td>\n"
+               . "          <table border='0' cellspacing='0' cellpadding='0'>\n";
+       unless(!$configdb->get_prop("zarafa-server",'GlobalForward')){
+               if($configdb->get_prop("zarafa-server",'GlobalForward') =~ m/enabled/){
+               $out .="<td>$enabled</td><td><input type=\"checkbox\" name=\"globalforward\" checked"
+                               ." value=\"enabled\"></td>"
+                               ."</tr>\n";
+               }
+       }
+       else {
+       $out .="<td>$enabled</td><td><input type=\"checkbox\" name=\"globalforward\""
+       ." value=\"enabled\"></td>"
+    ."</tr>\n";
+       }
+       $out .= "          </table>\n        </td>\n    </tr>\n";
+
+return $out;
+}
+
+# display_modify_button affiche un bouton avec le texte "Modifier"
+###########################################################
+# display_modify_button display a button with "Modify" text on it
+
+sub display_modify_button {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+       my $button = $self->localise('MODIFY_BUTTON');
+       $self->print_button("$button");
+}
+
+# modify_config récupére les valeurs saisi dans l'interface pour les entrés dans le serveur
+###########################################################################################
+# modify_config recover the values enter in the interface to put them into the server configuration
+
+sub modify_config {
+
+       my $self = shift;
+       my $cgi = $self->{cgi};
+       
+       # Récupération des valeurs
+       # Revover of the value
+       my $softdelete = $cgi->param('Softdelete');
+       if ($softdelete =~ /^([-\@\w.]+)$/) {
+               $softdelete = $1;       # $data now untainted
+       } 
+       else {
+               die "bad data in $softdelete";
+       }
+
+       my $cache_cell = $cgi->param('cache_cell');
+       if ($cache_cell =~ /^([-\@\w.]+)$/) {
+               $cache_cell = $1;       # $data now untainted
+       } 
+       else {
+               die "bad data in $cache_cell";
+       }
+       
+       my $cache_object = $cgi->param('cache_object');
+       if ($cache_object =~ /^([-\@\w.]+)$/) {
+               $cache_object = $1;     # $data now untainted
+       } 
+       else {
+               die "bad data in $cache_object";
+       }
+
+       my $cache_index = $cgi->param('cache_index');
+       if ($cache_index =~ /^([-\@\w.]+)$/) {
+               $cache_index = $1;      # $data now untainted
+       } 
+       else {
+               die "bad data in $cache_index";
+       }
+
+       my $quota_warn = $cgi->param('quota_warn');
+       if ($quota_warn =~ /^([-\@\w.]+)$/) {
+               $quota_warn = $1;       # $data now untainted
+       } 
+       else {
+               die "bad data in $quota_warn";
+       }
+
+       my $quota_soft = $cgi->param('quota_soft');
+       if ($quota_soft =~ /^([-\@\w.]+)$/) {
+               $quota_soft = $1;       # $data now untainted
+       } 
+       else {
+               die "bad data in $quota_soft";
+       }
+
+       my $quota_hard = $cgi->param('quota_hard');
+       if ($quota_hard =~ /^([-\@\w.]+)$/) {
+               $quota_hard = $1;       # $data now untainted
+       } 
+       else {
+               die "bad data in $quota_hard";
+       }
+
+       my $companyquota_warn = $cgi->param('companyquota_warn');
+       if ($companyquota_warn =~ /^([-\@\w.]+)$/) {
+               $companyquota_warn = $1;        # $data now untainted
+       } 
+       else {
+               die "bad data in $companyquota_warn";
+       }
+       
+       my $multicompany = $cgi->param('multicompany');
+
+       
+       # Récupération du contenu de server.cfg
+       # Recovery of the content of server.cfg
+       open(RECUP, "/etc/e-smith/templates/etc/zarafa/server.cfg/server.cfg");
+       my @contenu = <RECUP>;
+       close(RECUP);
+
+       # Remplacement des valeurs
+       # Replacement of values
+       foreach my $ligne (@contenu){
+               unless ($ligne =~ m/^#/){
+                       if ($ligne =~ m/^softdelete_lifetime/){
+                               $ligne =~ s/\w+$/$softdelete/g;
+                       }
+       
+                       if($ligne =~ m/^cache_cell_size/){
+                               $ligne =~ s/\w+$/$cache_cell/g;
+                       }
+
+                       if($ligne =~ m/^cache_object_size/){
+                               $ligne =~ s/\w+$/$cache_object/g;
+                       }
+
+                       if($ligne =~ m/^cache_indexedobject_size/){
+                               $ligne =~ s/\w+$/$cache_index/g;
+                       }
+                       if($ligne =~ m/^quota_warn/){
+                               $ligne =~ s/\w+$/$quota_warn/g;
+                       }
+                       if($ligne =~ m/^quota_soft/){
+                               $ligne =~ s/\w+$/$quota_soft/g;
+                       }
+                       if($ligne =~ m/^quota_hard/){
+                               $ligne =~ s/\w+$/$quota_hard/g;
+                       }
+                       if($ligne =~ m/^companyquota_warn/){
+                               $ligne =~ s/\w+$/$companyquota_warn/g;
+                       }
+                       if($ligne =~ m/^enable_hosted_zarafa/ && !$multicompany){
+                               $ligne =~ s/\w+$/false/g;
+                       }
+                       elsif($ligne =~ m/^enable_hosted_zarafa/ && $multicompany eq 'enabled'){
+                               $ligne =~ s/\w+$/true/g;
+                       }
+               }
+       }
+
+       # Ecriture du fichier
+       # File written
+       open(ECRIRE, ">/etc/e-smith/templates/etc/zarafa/server.cfg/server.cfg");
+       foreach my $ligne (@contenu) {
+               chomp $ligne;
+               print ECRIRE "$ligne\n";
+       }
+       close(ECRIRE);
+
+       my $globalforward = $cgi->param('globalforward');
+
+       
+       if(!$globalforward || $globalforward =~ m/disabled/) {
+               system("/sbin/e-smith/db configuration delprop \"zarafa-server\" GlobalForward");
+       }
+       elsif($globalforward =~ m/enabled/){
+               system("/sbin/e-smith/db configuration setprop \"zarafa-server\" GlobalForward enabled");
+       }
+       
+               
+       
+       $self->success('MODIFY_CONFIG_SUCCESS');
+       
+       # creation du fichier de configuration
+       # config file creation
+       system("/sbin/e-smith/expand-template /etc/zarafa/server.cfg") == 0
+               or die "Impossible d'extend le template";
+       system("/etc/e-smith/events/actions/zarafa-services stop > /dev/null");
+       system("/etc/e-smith/events/actions/zarafa-services start > /dev/null");
+       system("/etc/e-smith/events/actions/qmail-update-user");
+}
+
+# display_buttons permet d'afficher les trois bouttons pour les différentes sections de configuration
+#####################################################################################################
+# display_buttons allow you to display three buttons for the different parts of the configuration
+
+sub display_buttons {
+
+       my $self = shift;
+       my $q = $self->{cgi};
+       
+       # Récupération version de zarafa
+       # Recovery of Zarafa version
+       my $product_version;
+       open(VERS,"zarafa-admin -V |");
+       while(<VERS>){
+               my $ligne = $_;
+               if($ligne =~ m/^Product version/){
+                       $ligne =~ s/\w+\s\w+:\t//g;
+                       $product_version = $ligne;
+               }
+       }
+       close(VERS);
+
+       # Récupération du systéme de BD
+       # Recovery of DB system
+       my $zarafa_plugin = $configdb->get_prop("zarafa-server",'Plugin');
+       unless($zarafa_plugin){
+               $zarafa_plugin = $self->localise('ZARAFA_PLUGIN_CAUTION');
+       }
+
+       # Version communautaire ou enregistré ?
+       # Registered or enregistered version ?
+       my $registered;
+       if(-e "/etc/zarafa/license/base"){
+               $registered = $self->localise('REGISTERED');
+       }
+       else {
+               $registered = $self->localise('UNREGISTERED');
+       }
+
+       # Récupération du nombre d'utilisateur maximum
+       # Recovery of maximum users
+       my $nbrusermax;
+       open(REVERSE, "/var/log/zarafa/licensed.log") or die "Impossible d'ouvrir licensed.log";
+       foreach my $ligne (reverse(<REVERSE> )) {
+               if($ligne =~ m/License is for/){
+                       $nbrusermax = $ligne;
+                       $nbrusermax =~ s/.+License is for //g;
+                       $nbrusermax =~ s/ Win32 MAPI users$//g;
+                       $nbrusermax =~ s/ total users$//g;
+                       last;
+               }
+       }
+       close(REVERSE);
+
+       # Localisation
+       my $version = $self->localise('VERSION');
+       my $sys_auth = $self->localise('SYS_AUTH');
+       my $maxuser = $self->localise('MAX_USERS');
+
+
+       # Affichage des info
+       # Information display
+       print  "$version $product_version - $sys_auth $zarafa_plugin - $registered - $nbrusermax $maxuser \n";
+
+       # Localisation
+       my $CFGbutton = $self->localise('CFG_BUTTON');
+       my $CFGbutton_bubble = $self->localise('CFG_BUTTON_BUBBLE');
+
+       # Affichage bouton configuration
+       # Display the configuration button
+       my $out ="<p><a class=\"button-like\"
+       href=\"zarafaCFG?page=0&wherenext=Config\" title=\"$CFGbutton_bubble\">$CFGbutton</a>";
+
+    # Localisation
+       my $KEYbutton = $self->localise('KEY_BUTTON');
+       my $KEYbutton_bubble = $self->localise('KEY_BUTTON_BUBBLE');
+
+       if(-e "/etc/zarafa/license/base"){
+               # Affichage bouton de gestion des clef pour une version enregistrée
+               # Display the key management button for a registered version
+               $out .="<a class=\"button-like\"
+               href=\"zarafaCFG?page=0&wherenext=KEYSUNeed\" title=\"$KEYbutton_bubble\">$KEYbutton</a>";
+       }
+       else{
+               # Affichage bouton de validation de la version
+               # Display the version validation button
+               $out .="<a class=\"button-like\"
+               href=\"zarafaCFG?page=0&wherenext=KEYSNeed\" title=\"$KEYbutton_bubble\">$KEYbutton</a>";
+       }
+
+       # Localisation
+       my $MYSQLbutton = $self->localise('MYSQL_BUTTON');
+       my $MYSQLbutton_bubble = $self->localise('MYSQL_BUTTON_BUBBLE');
+
+       # Affichage bouton MySQL
+       # Display the MySQL button
+       $out .="<a class=\"button-like\"
+       href=\"zarafaCFG?page=0&wherenext=MYSQL\" title=\"$MYSQLbutton_bubble\">$MYSQLbutton</a></p>";
+          
+       return $out;
+}
+
+# add_cdkey est utilisé pour ajouter une clé-CD pour authentifier Zarafa
+#######################################################################
+# add_cdkey is used to add a CD-key to authenticate Zarafa
+
+sub add_cdkey{
+
+       my $self = shift;
+       my $cgi = $self->{cgi};
+
+       # Récupération de la clef saisi par l'utilisateur
+       # Recovery of the key enter by the user
+       my $cd_key = $cgi->param('clef-cd');
+       if ($cd_key =~ /^([-\@\w.]+)$/) {
+               $cd_key = $1;   # $data now untainted
+       } 
+       else {
+               die "bad data in $cd_key";
+       }
+
+       # Ecriture du fichier base
+       # Writing of the base file
+       $cd_key =  uc($cd_key);
+       open(ECRIRE, ">/etc/zarafa/license/base");
+       print ECRIRE "$cd_key";
+       close(ECRIRE);
+
+       $self->success('ADD_LICENSE_SUCCESS');
+
+       # Redémarage des services zarafa
+       # Restart of Zarafa services
+       system("/etc/e-smith/events/actions/zarafa-services restart > /dev/null");
+}
+
+# display_key_info permet d'afficher la clef-cd de la version en cours de zarafa ainsi que le nombre maximum d'utilisateurs pouvant être créé.
+##############################################################################################################################################
+# display_key_info is used to display the CD-key of zarafa current version and the maximum number of Zarafa user's could be created.
+
+sub display_key_info {
+
+       my $self = shift;
+       my $cgi = $self->{cgi};
+
+       # Récupération de la clé-CD
+       # Recovery of the CD-key
+       open(KEYS,"/etc/zarafa/license/base");
+       my $key = <KEYS>;
+       close(KEYS);
+       # Localisation
+       my $clef = $self->localise('CD_KEY');
+       my $nbrusertxt = $self->localise('NBRUSERTXT');
+       
+       # Récupération du nombre maximum d'utilisateurs
+       # Recovery of the maximum users number
+       my $nbrusermax;
+       open(REVERSE, "/var/log/zarafa/licensed.log") or die "Impossible d'ouvrir licensed.log";
+       foreach my $ligne (reverse(<REVERSE> )) {
+               if($ligne =~ m/License is for/){
+                       $nbrusermax = $ligne;
+                       $nbrusermax =~ s/.+License is for //g;
+                       $nbrusermax =~ s/ Win32 MAPI users$//g;
+                       $nbrusermax =~ s/ total users$//g;
+                       last;
+               }
+       }
+       close(REVERSE);
+       
+       # Affichage
+       # Display
+       print "$clef $key - $nbrusermax $nbrusertxt";
+       return 0;
+}
+
+# valid_keys est utilisé pour vérifier si la clef-CD rentré pour renregistré zarafa est valide
+##############################################################################################
+# valid_keys is used to verify if the CD-key enter for registered Zarafa is correct
+
+sub valid_keys {
+
+       my ($fm, $cd_key) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('INVALID_KEY');
+
+       if($cd_key =~ m/^\w{$licensekey}$/){
+               return "OK";
+       }
+       else {
+               return $return_error;
+       }
+}
+
+# display_cal sert à afficher un tableau contenant le nom des CAL ainsi que la clef associée
+############################################################################################
+# display_cal is used to display an array which contain all CAl and the key associated
+
+sub display_cal {
+
+       my $self = shift;
+       my $q = $self->{cgi};
+
+       # Localisation
+       my $calname = $self->localise('CALNAME');
+       my $calkey = $self->localise('CALKEY');
+       my $caldelete = $self->localise('DELETE');
+
+       # Affichage de l'en-tête du tableau
+       # Display of the header
+       print "  <tr>\n    <td colspan=\"2\">\n      ";
+    print $q->start_table ({-CLASS => "sme-border"}),"\n        ";
+       print $q->Tr(
+       esmith::cgi::genSmallCell($q, $calname,"header"),
+       esmith::cgi::genSmallCell($q, $calkey,"header"));
+
+          
+       # Récupération du nom des fichiers CAL
+       # Recovery of the CAL file name
+       my $filekey;
+       opendir(OPENDIR, "/etc/zarafa/license") or die "Impossible d'ouvrir /etc/zarafa/license";
+       my @all_files = readdir (OPENDIR);
+       close(OPENDIR);
+       
+       # Affichage du nom et de la clef
+       # Display of the name and the key
+       my @out = sort @all_files;
+       foreach my $file (@out) {
+               unless($file eq 'base' or $file eq '..' or $file eq '.'){
+                       open(FILE, "/etc/zarafa/license/$file") or die "Impossible d'ouvrir $file";
+                       $filekey = <FILE>;
+                       print $q->Tr(
+                       esmith::cgi::genSmallCell($q, $file,"normal"),
+               esmith::cgi::genSmallCell($q, $filekey,"normal"));
+                       close(FILE);
+               }
+       }
+
+       print qq(</table></td></tr>\n);
+
+       # Localisation
+       my $createCal = $self->localise('CAL_BUTTON');
+       my $createCal_bubble = $self->localise('CAL_BUTTON_BUBBLE');
+
+       # Affichage bouton ajouter CAL
+       # Display the CAL's create button
+       my $out ="<p><a class=\"button-like\"
+       href=\"zarafaCFG?page=0&wherenext=CreateCal\" title=\"$createCal_bubble\">$createCal</a>";
+          
+return $out;
+}
+
+# display_create_button permet d'afficher un bouton avec le texte "Ajouter Clé"
+###############################################################################
+# display_create_button is used to display a button with "Add key" text
+
+sub display_create_button {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+       
+       my $button = $self->localise('CREATE_BUTTON');
+       $self->print_button("$button");
+}
+
+# create_cal permet de rajouter un CAL à zarafa
+###############################################
+# create_cal is used to add a CAL to zarafa
+
+sub create_cal {
+
+       my $self = shift;
+       my $cgi = $self->{cgi};
+       
+       # Récupération du nom du CAL et de la clef
+       # Recovery of the CAL name and the key
+       my $calname = $cgi->param('user_name_cal');
+       if ($calname =~ /^([-\@\w.]+)$/) {
+               $calname = $1;  # $data now untainted
+       } 
+       else {
+               die "bad data in $calname";
+       }       
+
+       my $calkey = $cgi->param('user_key_cal');
+       if ($calkey =~ /^([-\@\w.]+)$/) {
+               $calkey = $1;   # $data now untainted
+       } 
+       else {
+               die "bad data in $calkey";
+       }
+
+       # Ecriture du fichier
+       # Writing of the file
+       open(CREATE, ">/etc/zarafa/license/$calname");
+       print CREATE $calkey;
+       close(CREATE);
+
+       $self->success('MODIFY_CONFIG_SUCCESS');
+
+       # Redémarrage des services Zarafa
+       # Restart of the zarafa services
+       system("/etc/e-smith/events/actions/zarafa-services restart > /dev/null");
+}
+
+# unique_cal sert a vérifier si le nom du CAL est déjà pris
+###########################################################
+# unique_cal is used to verify if the CAL name is already taken
+
+sub unique_name {
+
+       my ($fm, $calname) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('EXIST_CALNAME');
+       
+       # Récupération des noms des CAL existant
+       # Recovery of all existing CAL names
+       opendir(OPENDIR, "/etc/zarafa/license") or die "Impossible d'ouvrir /etc/zarafa/license";
+       my @all_files = readdir (OPENDIR);
+       close(OPENDIR);
+       
+       # On vérifie si le nom est déja pris
+       # CAL name have been already taken ?
+       my $exist = 0;
+       foreach my $file (@all_files){
+               if($file eq $calname){
+                       $exist = 1;
+               }
+       }
+       if($exist == 1){
+               return $return_error;
+       }
+       else {
+               return "OK";
+       }
+}
+
+# unique_key sert a vérifier si la clef du CAL est déjà prise
+#############################################################
+# unique_key is used to verify if the CAL key is already taken
+
+sub unique_key {
+
+
+       my ($fm, $calkey) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('EXIST_CALKEY');
+
+       my $exist = 0;
+       my $filekey;
+       
+       # Récupération des noms des CAL existant
+       # Recovery of all existing CAL names
+       opendir(OPENDIR, "/etc/zarafa/license") or die "Impossible d'ouvrir /etc/zarafa/license";
+       my @all_files = readdir (OPENDIR);
+       close(OPENDIR);
+       
+       # Parcours de chaque fichier
+       # Read of all files
+       foreach my $file (@all_files) {
+                       # Vérification
+                       # Verification
+                       open(FILE, "/etc/zarafa/license/$file") or die "Impossible d'ouvrir $file";
+                       $filekey = <FILE>;
+                       if($filekey =~ m/$calkey/){
+                               $exist = 1;
+                       }
+                       close(FILE);
+       }
+
+       if($exist == 1){
+               return $return_error;
+       }
+       else {
+               return "OK";
+       }
+}
+
+# valid_cal est utilisé pour vérifier si la clef rentré est valide lors de la création d'un CAL
+###############################################################################################
+# valid_cal is used to verify if the key enter for create a CAL is correct
+
+sub valid_cal {
+
+       my ($fm, $cd_key) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('INVALID_KEY');
+
+       if($cd_key =~ m/^\w{$CALkey}$/){
+               return "OK";
+       }
+       else {
+               return $return_error;
+       }
+}
+
+# display_value est utilisé pour affiché les valeurs de fichiers de configuration MySQL dans l'interface
+########################################################################################################
+# display_value is used to display MySQL configuration values into the interface
+
+sub display_value {
+
+       my $self = shift;
+       my $cgi = $self->{cgi};
+
+       # Affichage d'une checkbox pour la fonction InnoDB
+       # Display of a checkbox for the InnoDB function
+       my $enabled = $self->localise('ENABLED');
+       my $out = "<tr>\n        <td class=\"sme-noborders-label\">"
+                         . "InnoDB"
+                         . "</td>\n        <td>\n"
+                         . "          <table border='0' cellspacing='0' cellpadding='0'>\n";
+               if($configdb->get_prop('mysqld','InnoDB')){
+                       $out .="<td>$enabled</td><td><input type=\"checkbox\" name=\"InnoDB\" checked"
+                              ." value=\"enabled\"></td>"
+                              ."</tr>\n";
+                       }
+               else {
+                       $out .="<td>$enabled</td><td><input type=\"checkbox\" name=\"InnoDB\""
+                              ." value=\"enabled\"></td>"
+                              ."</tr>\n";
+               }
+       $out .= "          </table>\n        </td>\n    </tr>\n";
+
+       # Récupération et affichage des valeurs du fichier de configuration
+       # Recovery and display of the configuration file values
+       my $ligne;
+       open(MYCNF, "/etc/e-smith/templates/etc/my.cnf/009innodb") or die "Impossible d'ouvrir 0009innodb";
+       while(<MYCNF>){
+               $ligne = $_;
+               if($ligne =~ m/buffer_pool_size/){
+                       $ligne =~ s/^\s+\$OUT\s\.\=\s\"\w+\s\=\s//g;
+                       $ligne =~ s/M\\n\"\;$//g;
+                       $cgi->param(-name=>'buffer_pool_size', -value=>$ligne);
+               }
+               elsif($ligne =~ m/additional_mem_pool_size/){
+                       $ligne =~ s/^\s+\$OUT\s\.\=\s\"\w+\s\=\s//g;
+                       $ligne =~ s/M\\n\"\;$//g;
+                       $cgi->param(-name=>'additional_mem_pool_size', -value=>$ligne);
+               }
+               elsif($ligne =~ m/log_file_size/){
+                       $ligne =~ s/^\s+\$OUT\s\.\=\s\"\w+\s\=\s//g;
+                       $ligne =~ s/M\\n\"\;$//g;
+                       $cgi->param(-name=>'log_file_size', -value=>$ligne);
+               }
+               elsif($ligne =~ m/log_buffer_size/){
+                       $ligne =~ s/^\s+\$OUT\s\.\=\s\"\w+\s\=\s//g;
+                       $ligne =~ s/M\\n\"\;$//g;
+                       $cgi->param(-name=>'log_buffer_size', -value=>$ligne);
+               }
+       }
+       close(MYCNF);
+
+return $out;
+}
+
+# modify_mysql permet de modifier les valeurs du fichier de configuration MySQL
+###############################################################################
+# modify_mysql is used to modify the value of the MySQL configuration file
+
+sub modify_mysql {
+
+       my $self = shift;
+       my $cgi = $self->{cgi};
+
+       # Récupération de la valeur courante et du réglage utilisateur de InnoDB
+       # Recovery of the current value and user value of InnoDB
+       my $innodb = $cgi->param('InnoDB');
+       my $current_innodb = $configdb->get_prop('mysqld','InnoDB');
+
+       # Si l'utilisateur désactive le service InnoDB
+       # If the user disable the InnoDB service
+       if($current_innodb eq 'enabled' && !$innodb){
+               # Arrêt des services MySQL et Zarafa
+               # Stop of MySQL and Zarafa services
+               system("/etc/e-smith/events/actions/zarafa-services stop > /dev/null");
+               system("/sbin/service mysqld stop > /dev/null");
+               # Suppression des fichiers MySQL
+               # Deleting MySQL file
+               system("rm -R -f /var/lib/mysql/ib_logfile0");
+               system("rm -R -f /var/lib/mysql/ib_logfile1");
+               system("rm -R -f /var/lib/mysql/ibdata1");
+
+               # Rechargement des paramêtres par défaut de MySQL
+               # Reload MySQL defaults adjustements
+               open(MYCNF, "/etc/e-smith/templates/etc/my.cnf/009innodb") or die "Impossible d'ouvrir 0009innodb";
+               my @contenu = <MYCNF>;
+               close(MYCNF);
+
+               foreach my $ligne (@contenu){
+                       if($ligne =~ m/buffer_pool_size/){
+                               $ligne =~ s/\d+/16/g;
+                       }
+                       elsif($ligne =~ m/additional_mem_pool_size/){
+                               $ligne =~ s/\d+/2/g;
+                       }
+                       elsif($ligne =~ m/log_file_size/){
+                               $ligne =~ s/\d+/5/g;
+                       }
+                       elsif($ligne =~ m/log_buffer_size/){
+                               $ligne =~ s/\d+/8/g;
+                       }
+               }
+               open(ECRIRE, ">/etc/e-smith/templates/etc/my.cnf/009innodb");
+               foreach my $ligne (@contenu) {
+                       chomp $ligne;
+                       print ECRIRE "$ligne\n";
+               }
+               close(ECRIRE);
+
+               # Suppression de l'InnoDB et redémarrage des services
+               # Delete of InnoDB and restart services
+               system("/sbin/e-smith/db configuration delprop mysqld InnoDB");
+               system("/sbin/e-smith/expand-template /etc/my.cnf");
+               system("/sbin/service mysqld start > /dev/null");
+               system("/etc/e-smith/events/actions/zarafa-services start > /dev/null");
+
+               $self->success('MODIFY_CONFIG_SUCCESS');
+       }
+       # Activation du service InnoDB
+       # Activation of InnoDB service 
+       elsif(!$current_innodb && $innodb eq 'enabled'){
+               # Ajout de l'InnoDB, arrêt des services MySQL et Zarafa et suppression des fichiers MySQL
+               # Add the InnoDB, stop MySQL and Zarafa service and delete MySQL file
+               system("/sbin/e-smith/db configuration setprop mysqld InnoDB enabled");
+               system("/etc/e-smith/events/actions/zarafa-services stop > /dev/null");
+               system("/sbin/service mysqld stop > /dev/null");
+               system("rm -R -f /var/lib/mysql/ib_logfile0");
+               system("rm -R -f /var/lib/mysql/ib_logfile1");
+               system("rm -R -f /var/lib/mysql/ibdata1");
+
+               # Récupération du contenu du fichier configuration MySQL, modification des valeurs et écriture
+               # Recovery of the MysQL configuration file, values modification and writing
+               open(MYCNF, "/etc/e-smith/templates/etc/my.cnf/009innodb") or die "Impossible d'ouvrir 0009innodb";
+               my @contenu = <MYCNF>;
+               close(MYCNF);
+
+               my $buffer_pool_size = $cgi->param('buffer_pool_size');
+               my $additional_mem_pool_size = $cgi->param('additional_mem_pool_size');
+               my $log_file_size = $cgi->param('log_file_size');
+               my $log_buffer_size = $cgi->param('log_buffer_size');
+
+               foreach my $ligne (@contenu){
+                       if($ligne =~ m/buffer_pool_size/){
+                               $ligne =~ s/\d+/$buffer_pool_size/g;
+                       }
+                       elsif($ligne =~ m/additional_mem_pool_size/){
+                               $ligne =~ s/\d+/$additional_mem_pool_size/g;
+                       }
+                       elsif($ligne =~ m/log_file_size/){
+                               $ligne =~ s/\d+/$log_file_size/g;
+                       }
+                       elsif($ligne =~ m/log_buffer_size/){
+                               $ligne =~ s/\d+/$log_buffer_size/g;
+                       }
+               }
+
+               open(ECRIRE, ">/etc/e-smith/templates/etc/my.cnf/009innodb");
+               foreach my $ligne (@contenu) {
+                       chomp $ligne;
+                       print ECRIRE "$ligne\n";
+               }
+               close(ECRIRE);
+
+               # Génération du fichier configuration et redémarrage des services
+               # Configuration file generation and restart services
+               system("/sbin/e-smith/expand-template /etc/my.cnf");
+               system("/sbin/service mysqld start > /dev/null");
+               system("/etc/e-smith/events/actions/zarafa-services start > /dev/null");
+
+               $self->success('MODIFY_CONFIG_SUCCESS');
+       }
+       # Simple modifications des valeurs
+       # Only values modifications
+       elsif($current_innodb eq 'enabled' && $innodb eq 'enabled'){
+               # Arrêt des services MySQL et Zarafa
+               # Stop of MySQL and Zarafa services
+               system("/etc/e-smith/events/actions/zarafa-services stop > /dev/null");
+               system("/sbin/service mysqld stop > /dev/null");
+               # Suppression des fichiers MySQL
+               # Deleting MySQL file
+               system("rm -R -f /var/lib/mysql/ib_logfile0");
+               system("rm -R -f /var/lib/mysql/ib_logfile1");
+               system("rm -R -f /var/lib/mysql/ibdata1");
+
+               
+               # Récupération du contenu du fichier configuration MySQL, modification des valeurs et écriture
+               # Recovery of the MysQL configuration file, values modification and writing
+               open(MYCNF, "/etc/e-smith/templates/etc/my.cnf/009innodb") or die "Impossible d'ouvrir 0009innodb";
+               my @contenu = <MYCNF>;
+               close(MYCNF);
+
+               my $buffer_pool_size = $cgi->param('buffer_pool_size');
+               my $additional_mem_pool_size = $cgi->param('additional_mem_pool_size');
+               my $log_file_size = $cgi->param('log_file_size');
+               my $log_buffer_size = $cgi->param('log_buffer_size');
+
+               foreach my $ligne (@contenu){
+                       if($ligne =~ m/buffer_pool_size/){
+                               $ligne =~ s/\d+/$buffer_pool_size/g;
+                       }
+                       elsif($ligne =~ m/additional_mem_pool_size/){
+                               $ligne =~ s/\d+/$additional_mem_pool_size/g;
+                       }
+                       elsif($ligne =~ m/log_file_size/){
+                               $ligne =~ s/\d+/$log_file_size/g;
+                       }
+                       elsif($ligne =~ m/log_buffer_size/){
+                               $ligne =~ s/\d+/$log_buffer_size/g;
+                       }
+               }
+
+               open(ECRIRE, ">/etc/e-smith/templates/etc/my.cnf/009innodb");
+               foreach my $ligne (@contenu) {
+                       chomp $ligne;
+                       print ECRIRE "$ligne\n";
+               }
+               close(ECRIRE);
+
+               # Génération du fichier configuration et redémarrage des services
+               # Configuration file generation and restart services
+               system("/sbin/e-smith/expand-template /etc/my.cnf");
+               system("/sbin/service mysqld start > /dev/null");
+               system("/etc/e-smith/events/actions/zarafa-services start > /dev/null");
+
+               $self->success('MODIFY_CONFIG_SUCCESS');
+       }
+       else {
+               $self->success('NO_MODIFICATION_ASKED');
+       }
+}
+
+# only_num permet de vérifier si une valeur ne contient bien que des chiffres
+#############################################################################
+# only_num is used to verify if a value is only a numeric value
+
+sub only_num {
+
+       my ($fm, $value) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('NOT_NUM');
+
+       if ($value =~ /^\d+$/){
+               return "OK";
+       }
+       else {
+               return $return_error;
+       }
+}
+
+sub print_message {
+
+    my ($fm, $word) = @_;
+    $word = $fm->localise($word);
+    print qq(<tr><td colspan=2>$word</td></tr>);
+    return undef;
+
+}
\ No newline at end of file
diff -urN smeserver-zarafa-0.9.0.orig/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/zarafaUI.pm smeserver-zarafa-0.9.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/zarafaUI.pm
--- smeserver-zarafa-0.9.0.orig/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/zarafaUI.pm        1970-01-01 10:00:00.000000000 +1000
+++ smeserver-zarafa-0.9.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/zarafaUI.pm     2009-06-01 21:15:18.000000000 +1000
@@ -0,0 +1,1934 @@
+#!/usr/bin/perl -w
+
+package esmith::FormMagick::Panel::zarafaUI;
+ 
+ use strict;
+ use warnings;
+ use esmith::ConfigDB;
+ use esmith::AccountsDB;
+ use esmith::FormMagick;
+ use esmith::cgi;
+ use File::Basename;
+ use esmith::util;
+ use Exporter;
+ use esmith::DB;
+
+ our $accountdb = esmith::AccountsDB->open();
+ our $configdb = esmith::ConfigDB->open();
+
+ our @ISA = qw(esmith::FormMagick Exporter);
+ 
+ our @EXPORT = qw();
+ 
+ our $VERSION = sprintf '%d.%03d', q$Revision: 1.1 $ =~ /: (\d+).(\d+)/;
+
+
+ our $multicompany_enabled;
+       open(LIRE, "/etc/e-smith/templates/etc/zarafa/server.cfg/server.cfg");
+       while(<LIRE>){
+               my $ligne = $_;
+               if($ligne =~ m/^enable_hosted_zarafa/){
+                       $multicompany_enabled = $ligne;
+                       $multicompany_enabled =~ s/enable_hosted_zarafa\s+\=\s//g;
+               }
+       }
+       close(LIRE);
+ 
+ 
+# Ce fichier contient les fonction nécessaire pour gérer l'interface entre le serveur SME et la configuration des utilisateurs 
+# et des groupes du module Zarafa.
+# Ce fichier regroupe des fonctions d'affichage, de modifications et de vérifications de données contenu dans Zarafa.
+#################################################################################################################################
+# This file contains the required functions in order to handle the interface between SME server and Zarafa configuration module's
+# for users and groups.
+# It contains display, modify, create and verification functions for Zarafa.
+
+
+# La fonction show_users permet d'afficher un tableaux reprenant l'enssemble des utilisateurs de Zarafa sur la page principale
+# avec possibilité de supprimer et de modifier les utilisateurs présents. 
+##############################################################################################################################################
+# The show_users function allow you to display an array which contains all the users of zarafa with links to modify and delete users functions
+
+sub show_users {
+
+        my $self = shift;
+        my $q = $self->{cgi};
+       
+       if ($multicompany_enabled =~ m/false/){
+       
+        # Initialisation
+        my $ligne = 5;
+        my $nbrligne = `zarafa-admin -l | wc -l`;
+        my $scriptname = basename($0);
+        
+        # Localisation
+        my $username = $self->localise('USERNAME');
+        my $fullname = $self->localise('FULLNAME');
+        my $delete = $self->localise('DELETE');
+
+        # Affichage de l'en-tête du tableau
+        # Display of the header
+        print "  <tr>\n    <td colspan=\"2\">\n      ";
+        print $q->start_table ({-CLASS => "sme-border"}),"\n        ";
+        print $q->Tr(
+        esmith::cgi::genSmallCell($q, $username,"header"),
+        esmith::cgi::genSmallCell($q, $fullname,"header"),
+        esmith::cgi::genSmallCell($q, $delete,"header"));
+
+
+        # Affichage des utilisateurs et des liens correspondants
+        # Display users and corresponding links
+        my @usertab;
+        my $nbr = 0;
+        while ($ligne < $nbrligne) {
+                $usertab[$nbr] = `zarafa-admin -l | cut -f2 | awk 'NR == $ligne'`;
+                $ligne ++;
+                $nbr ++;
+        }
+        my @out = sort @usertab;
+        foreach my $user (@out){
+                chomp $user;
+                if ($user =~ /^([-\@\w.]+)$/) {
+                        $user = $1;    # $data now untainted
+               } 
+               else {
+                       die "bad data in $user";
+               }
+                my $modify = "<a href=\"$scriptname?page=0&wherenext=DisplayDetails&actUsr=$user\">$user</a>";
+                my $delete_user = "<a href=\"$scriptname?page=0&wherenext=DeleteUser&actUsr=$user\">$delete</a>";
+                print $q->Tr(
+                  esmith::cgi::genSmallCell($q,$modify ,"normal"),"        ",
+                  esmith::cgi::genSmallCell($q, `zarafa-admin --details \"$user\" | cut -f3 | awk 'NR == 2'`,"normal"),
+                  esmith::cgi::genSmallCell($q,$delete_user,"normal"));
+       }
+                  
+
+        print qq(</table></td></tr>\n);
+
+        # Localisation
+        my $add_user = $self->localise('ADD_USER');
+        my $add_user_bubble = $self->localise('ADD_USER_BUBBLE');
+
+        # Affichage bouton ajouter utilisateur
+        # Display the user's create button
+        my $out ="<p><a class=\"button-like\"
+        href=\"zarafaUI?page=0&wherenext=DisplayCreate\" title=\"$add_user_bubble\">$add_user</a></p>";
+
+
+        return $out;
+       }
+       
+       elsif ($multicompany_enabled =~ m/true/){
+        
+        # Initialisation
+        my $ligne = 4;
+        my $nbrligne = `zarafa-admin --list-companies | wc -l`;
+        $nbrligne ++;
+        my $scriptname = basename($0);
+       
+        # Localisation
+        my $companyname = $self->localise('COMPANYNAME');
+        my $delete = $self->localise('DELETE');
+
+        # Affichage de l'en-tête du tableau
+        # Display of the header
+        print "  <tr>\n    <td colspan=\"2\">\n      ";
+     print $q->start_table ({-CLASS => "sme-border"}),"\n        ";
+        print $q->Tr(
+        esmith::cgi::genSmallCell($q, $companyname,"header"),
+               esmith::cgi::genSmallCell($q, $delete,"header"));
+
+        # Affichage des utilisateurs et des liens correspondants
+        # Display users and corresponding links
+        my @usertab;
+        my $nbr = 0;
+        while ($ligne < $nbrligne) {
+                $usertab[$nbr] = `zarafa-admin --list-companies | cut -f2 | awk 'NR == $ligne'`;
+                $ligne ++;
+                $nbr ++;
+        }
+        my @out = sort @usertab;
+        foreach my $company (@out){
+                chomp $company;
+                if ($company =~ /^([-\@\w.]+)$/) {
+                        $company = $1;         # $data now untainted
+                } 
+               else {
+                       die "bad data in $company";
+               }
+                my $modify = "<a href=\"$scriptname?page=0&wherenext=DisplayCompanyDetails&actComp=$company\">$company</a>";
+                my $delete_company = "<a href=\"$scriptname?page=0&wherenext=DeleteCompany&actComp=$company\">$delete</a>";
+                print $q->Tr(
+                  esmith::cgi::genSmallCell($q,$modify ,"normal"),"        ",
+                  esmith::cgi::genSmallCell($q,$delete_company,"normal"));
+       }
+                  
+
+        print qq(</table></td></tr>\n);
+
+        # Localisation
+        my $add_comp = $self->localise('ADD_COMP');
+        my $add_comp_bubble = $self->localise('ADD_COMP_BUBBLE');
+
+        # Affichage bouton ajouter utilisateur
+        # Display the user's create button
+        my $out ="<p><a class=\"button-like\"
+        href=\"zarafaUI?page=0&wherenext=CreateCompany\" title=\"$add_comp_bubble\">$add_comp</a></p>";
+               
+        return $out;
+       }
+}
+
+# La fonction transfer_page est requise lors de l'utilisation de lien afin de renvoyer l'utilisateur sur la bonne page.
+# Elle récupére le nom de la page demandé et redirige automatiquement l'utilisateur.
+#############################################################################################################################
+# The transfer_page function is use when the user do an action which need another page in order to redirect to the next page.
+
+sub transfer_page {
+
+       my ($self, $next_page) = @_;
+
+       $self->{cgi}->param(-name => 'wherenext', -value => $next_page);
+
+}
+
+# display_user_details affiche les détails de l'utilisateur passé en paramétre dans des champs modifiables
+##########################################################################################################
+# display_user_details display the details of the username pass in parameter into editable fields.
+
+sub display_user_details {
+
+
+       my $self = shift;
+       my $cgi = $self->{cgi};
+
+       # Récupération du nom de l'utilisateur et vérification de sa fiabilité
+       # recovery of the username and test is reliability
+       my $recept_user = $cgi->param('actUsr');
+       if ($recept_user =~ /^([-\@\w.]+)$/) {
+               $recept_user = $1;      # $data now untainted
+       } 
+       else {
+               die "Bad data in '$recept_user'";
+       }
+       my ($user, $Emailaddress, $active, $admin, $meeting_req, $quota_overr,
+               $warnlvl, $softlvl, $hardlvl, $store_size, $decline_dbl, $decline_recur);
+
+       # Récupération des informations de l'utilisateur
+       # recovery of user's information
+       open(DETAILS, "zarafa-admin --details \"$recept_user\" |") or die "probléme ouverture fichier";
+       while (<DETAILS>){
+               if(m/^Fullname/){
+                       $user = $_;
+                       $user =~ s/^\w+:\t*//;
+               }
+               if(m/^Emailaddress/){
+                       $Emailaddress = $_;
+                       $Emailaddress =~ s/^\w+:\t*//;
+               }
+               if(m/^Active/){
+                       $active = $_;
+                       chomp $active;
+                       $active =~ s/^\w+:\t*//;
+               }
+               if(m/^Administrator/){
+                       $admin = $_;
+                       chomp $admin;
+                       $admin =~ s/^\w+:\t*//; 
+               }
+               if(m/^Auto-accept/){
+                       $meeting_req = $_;
+                       chomp $meeting_req;
+                       $meeting_req =~ s/.+://;
+               }
+               if(m/^Decline dbl/){
+                       $decline_dbl = $_;
+                       chomp $decline_dbl;
+                       $decline_dbl =~ s/Decline dbl meetingreq:\t*//;
+               }
+               if(m/^Decline recur/){
+                       $decline_recur = $_;
+                       chomp $decline_recur;
+                       $decline_recur =~ s/Decline recur meet\.req:\t*//;
+               }
+               if(m/^Quota overrides/){
+                       $quota_overr = $_;
+                       chomp $quota_overr;
+                       $quota_overr =~ s/Quota overrides:\t*//;        
+               }
+               if(m/^Warning level/){
+                       $warnlvl = $_;
+                       chomp $warnlvl;
+                       $warnlvl =~ s/Warning level:\t*//;
+                       if($warnlvl =~ m/KB/){
+                               $warnlvl =~ s/.{3}$//g;
+                               $warnlvl = $warnlvl / 1024;
+                       }
+               }
+               if(m/^Soft level/){
+                       $softlvl = $_;
+                       chomp $softlvl;
+                       $softlvl =~ s/Soft level:\t*//;
+                       if($softlvl =~ m/KB/){
+                               $softlvl =~ s/.{3}$//g;
+                               $softlvl = $softlvl / 1024;
+                       }
+               }
+               if(m/^Hard level/){
+                       $hardlvl = $_;
+                       chomp $hardlvl;
+                       $hardlvl =~ s/Hard level:\t*//;
+                       if($hardlvl =~ m/KB/){
+                               $hardlvl =~ s/.{3}$//g;
+                               $hardlvl = $hardlvl / 1024;
+                       }
+               }
+               if(m/^Current store size/){
+                       $store_size = $_;
+                       chomp $store_size;
+                       $store_size =~ s/Current store size:\t*//;
+                       if($store_size =~ m/B/){
+                               $store_size =~ s/\sB//i;
+                               $store_size /= 1048576;
+                               $store_size =~ s/(\.\d{5})\d*/$1/;
+                               $store_size .= " Mo";
+                       }
+                       if($store_size =~ m/KB/){
+                               $store_size =~ s/\sKB//i;
+                               $store_size /= 1024;
+                               $store_size .= " Mo";
+                       }
+               }
+       }
+       close(DETAILS);
+       
+       # Vérification de la présence de l'utilisateur dans la BD serveur
+       # Verify if the user is in the Server's DB
+       my $zarafa_text = $self->localise('CAUTION_NOT_DB');
+       my $present = 0;
+
+       my $test = $accountdb->get("$recept_user");
+       if($test){
+                       $zarafa_text = $self->localise('IN_DB');
+                       $present = 1;
+       }
+               
+       # Remplissage des champs de l'interface avec les données récupérés
+       # Filling of user's field with the previous data
+       $cgi->param(-name=>'Username', -value=>$recept_user);
+       $cgi->param(-name=>'Fullname', -value=>$user);
+       $cgi->param(-name=>'EmailAddress', -value=>$Emailaddress);
+       $cgi->param(-name=>'Admin', -value=>$admin);
+       $cgi->param(-name=>'quota', -value=>$quota_overr);
+       $cgi->param(-name=>'Warnlvl', -value=>$warnlvl);
+       $cgi->param(-name=>'Softlvl', -value=>$softlvl);
+       $cgi->param(-name=>'Hardlvl', -value=>$hardlvl);
+       $cgi->param(-name=>'auto_meeting_req', -value=>$meeting_req);
+       $cgi->param(-name=>'dbl_meeting', -value=>$decline_dbl);
+       $cgi->param(-name=>'decline_recur_meeting', -value=>$decline_recur);
+
+       # Localisation
+       my $enabled = $self->localise('ENABLED');
+       my $disabled = $self->localise('DISABLED');
+
+
+       # Affichage de l'option zarafa pour ceux qui sont dans la BD
+       # Display of the zarafa's button if the user is in the server's DB
+       my $zarafa_status;
+       my $out;
+       if($present == 1){
+               unless($configdb->get_prop("zarafa-server",'GlobalForward')){
+                       $zarafa_status = $accountdb->get_prop("$recept_user",'zarafa');
+
+                       $out = "<tr>\n        <td class=\"sme-noborders-label\">"
+                                 . "Zarafa"
+                                 . "</td>\n        <td>\n"
+                                 . "          <table border='0' cellspacing='0' cellpadding='0'>\n";
+                       if($zarafa_status){
+                               $out .="<td>$enabled</td><td><input type=\"radio\" name=\"zarafa\" checked=\"checked\""
+                                      ." value=\"enabled\"></td>"
+                                      ."<td>$disabled</td><td><input type=\"radio\" name=\"zarafa\""
+                                      ." value=\"disabled\"></td>\n"
+                                      ."</tr>\n";
+                       }
+                       else {
+                               $out .="<td>$enabled</td><td><input type=\"radio\" name=\"zarafa\""
+                                      ." value=\"enabled\"></td>"
+                                      ."<td>$disabled</td><td><input type=\"radio\" name=\"zarafa\" checked=\"checked\""
+                                      ." value=\"disabled\"></td>\n"
+                                      ."</tr>\n";
+                       }
+                       $out .= "          </table>\n        </td>\n    </tr>\n";
+               }
+       
+
+       # Affichage de l'option SortSpam pour ceux qui sont dans la BD
+       # Display of the SortSpam's button if the user is in the server's DB
+       my $sortspam = $accountdb->get_prop("$recept_user",'SortSpam');
+       $out .= "<tr>\n        <td class=\"sme-noborders-label\">"
+                         . "SortSpam"
+                         . "</td>\n        <td>\n"
+                         . "          <table border='0' cellspacing='0' cellpadding='0'>\n";
+               if($sortspam){
+                       $out .="<td>$enabled</td><td><input type=\"checkbox\" name=\"sortspam\" checked"
+                              ." value=\"enabled\"></td>"
+                              ."</tr>\n";
+                       }
+               else {
+                       $out .="<td>$enabled</td><td><input type=\"checkbox\" name=\"sortspam\""
+                              ." value=\"disabled\"></td>"
+                              ."</tr>\n";
+               }
+       $out .= "          </table>\n        </td>\n    </tr>\n";
+       }
+
+
+       # Localisation
+       # Localization
+       my $details = $self->localise('DETAILS');
+       my $stock_use = $self->localise('STOCK_USE');
+       my $active_user = $self->localise('ACTIVE_USER');
+
+       print "$details $recept_user - $user - $stock_use $store_size $active_user $active - $zarafa_text";
+
+return $out;
+}
+
+# display_modify_button permet l'affichage d'un bouton 'Modify'
+############################################################################
+# display_modify_button is use to display a button with 'modify' text inside
+
+sub display_modify_button {
+
+       my ($self) = @_;
+
+       my $cgi = $self->{cgi};
+       
+       my $button = $self->localise('MODIFY_BUTTON');
+
+       $self->print_button("$button");
+
+}
+
+# display_create_button permet l'affichage d'un bouton 'Create'
+############################################################################
+# display_create_button is use to display a button with 'Create' text inside
+
+sub display_create_button {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+
+       my $button = $self->localise('CREATE_BUTTON');
+       $self->print_button("$button");
+}
+
+# display_delete_button permet l'affichage d'information sur l'utilisateur ainsi qu'un bouton 'Delete'
+######################################################################################################
+# display_delete_button is use to display some user information and a button with 'Delete' text inside
+
+sub display_delete_button {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+
+       my $recept_user = $cgi->param('actUsr');
+       if ($recept_user =~ /^([-\@\w.]+)$/) {
+               $recept_user = $1;      # $data now untainted
+       } 
+       else {
+               die "Bad data in '$recept_user'";
+       }
+
+       my $user = `zarafa-admin --details $recept_user | awk 'NR == 2'`;
+       $user =~ s/Fullname:\t\t//g;
+
+       my $store_size = `zarafa-admin --details $recept_user | awk 'NR == 11'`;
+       $store_size =~ s/Current store size:\t//g;
+       if($store_size =~ m/B/){
+               $store_size =~ s/\sB//i;
+               $store_size /= 1048576;
+               $store_size .= " Mb";
+       }
+       if($store_size =~ m/KB/){
+               $store_size =~ s/\sKB//i;
+               $store_size /= 1024;
+               $store_size .= " Mb";
+       }
+       
+
+       my $active = `zarafa-admin --details $recept_user | awk 'NR == 4'`;
+       $active =~ s/Active:\t\t\t//g;
+
+
+       # Localisation
+       # Localization
+       my $details = $self->localise('DETAILS');
+       my $stock_use = $self->localise('STOCK_USE');
+       my $active_user = $self->localise('ACTIVE_USER');
+       my $button = $self->localise('DELETE_BUTTON');
+
+       print "$details $recept_user - $user - $stock_use $store_size - $active_user $active";
+
+       $self->print_button("$button");
+}
+
+# La fonction modify_user récupére le contenu de multiple champs afin de mettre à jour le contenu de Zarafa
+###########################################################################################################
+# The modify_user function recover the content of multiple fields in order to update Zarafa's content
+
+sub modify_user {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+        
+       # Récupération de l'utilisateur à modifier
+       # Recovery of the user for modified
+       my $user = $cgi->param('actUsr');
+       if ($user =~ /^([-\@\w.]+)$/) {
+               $user = $1;     # $data now untainted
+       } 
+       else {
+               die "bad data in $user";
+       }
+
+       # Récupération du contenu des champs
+       # Recovery of fields contents
+       my $user_id = $self->{cgi}->param('Username');
+       if ($user_id =~ /^([-\@\w.]+)$/) {
+               $user_id = $1;  # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_id'";
+       }
+       
+       my $user_fullname = $self->{cgi}->param('Fullname');
+       chomp $user_fullname;
+       $user_fullname =~ s/ /@/g;
+       if ($user_fullname =~ /^([-\@\w.]+)$/) {
+               $user_fullname = $1;    # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_fullname'";
+       }
+       $user_fullname =~ s/@/ /g;
+       $user_fullname = "\"".$user_fullname."\"";
+       
+       my $user_address = $self->{cgi}->param('EmailAddress');
+       if ($user_address =~ /^([-\@\w.]+)$/) {
+               $user_address = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_address'";
+       }
+
+       my $user_admin = $self->{cgi}->param('Admin');
+       if ($user_admin =~ /^([-\@\w.]+)$/) {
+               $user_admin = $1;       # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_admin'";
+       }
+
+       my $user_quota = $self->{cgi}->param('quota');
+       if ($user_quota =~ /^([-\@\w.]+)$/) {
+               $user_quota = $1;       # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_quota'";
+       }
+
+       my $user_warnlvl = $self->{cgi}->param('Warnlvl');
+       unless ($user_warnlvl)
+               {$user_warnlvl = 0;}
+       if ($user_warnlvl =~ /^([-\@\w.]+)$/) {
+               $user_warnlvl = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_warnlvl'";
+       }
+
+       my $user_softlvl = $self->{cgi}->param('Softlvl');
+       unless ($user_softlvl)
+               {$user_softlvl = 0;}
+       if ($user_softlvl =~ /^([-\@\w.]+)$/) {
+               $user_softlvl = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_softlvl'";
+       }
+
+
+       my $user_hardlvl = $self->{cgi}->param('Hardlvl');
+       unless ($user_hardlvl)
+               {$user_hardlvl = 0;}
+       if ($user_hardlvl =~ /^([-\@\w.]+)$/) {
+               $user_hardlvl = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_hardlvl'";
+       }
+
+
+       my $user_meeting = $self->{cgi}->param('auto_meeting_req');
+       if ($user_meeting =~ /^([-\@\w.]+)$/) {
+               $user_meeting = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_meeting'";
+       }
+
+       my $user_dbl = $self->{cgi}->param('dbl_meeting');
+       if ($user_dbl =~ /^([-\@\w.]+)$/) {
+               $user_dbl = $1;
+       }
+       else {
+               die "Bad data in '$user_dbl'";
+       }
+
+       my $user_recur_meeting = $self->{cgi}->param('decline_recur_meeting');
+       if ($user_recur_meeting =~ /^([-\@\w.]+)$/) {
+               $user_recur_meeting = $1;
+       }
+       else {
+               die "Bad data in '$user_recur_meeting'";
+       }
+
+
+       # Récupération d'un nouveau mot de passe et remplacement de l'ancien
+       # Recovery of a new password and replacement of the old password
+       my $user_new_password = $self->{cgi}->param('new_password');
+       if ($user_new_password){
+               if ($user_new_password =~ /^([-\@\w.]+)$/) {
+                       $user_new_password = $1;
+               }
+               else {
+                       die "Bad data in '$user_new_password'";
+               }
+               system("zarafa-admin -u $user -p $user_new_password > /dev/null") == 0
+                               or die "Une erreur est survenue lors du changement de password de l'utilisateur $user";
+       }
+
+       my $fm = shift;
+       my $q = $fm->{'cgi'};
+
+       my $zarafa_enabled = $q->param('zarafa');
+       if($zarafa_enabled){
+               if($zarafa_enabled eq 'enabled'){
+                       system("/sbin/e-smith/db accounts setprop \"$user_id\" zarafa enabled");
+                       system("/etc/e-smith/events/actions/qmail-update-user");
+               
+               }
+               elsif($zarafa_enabled eq 'disabled'){
+                       system("/sbin/e-smith/db accounts delprop \"$user_id\" zarafa");
+                       system("/etc/e-smith/events/actions/qmail-update-user");
+               }
+       }
+
+       # Ajout des modifications dans la base de données Zarafa
+       # Modify information added into Zarafa database
+       if ($user eq $user_id){
+               system("zarafa-admin -u $user -f $user_fullname -e $user_address -a $user_admin --qo $user_quota --qw $user_warnlvl --qs $user_softlvl --qh $user_hardlvl --mr-accept $user_meeting --mr-decline-conflict $user_dbl --mr-decline-recurring $user_recur_meeting > /dev/null") == 0
+                               or die "Une erreur est survenue lors de la modification de l'utilisateur";
+       }
+       else {
+               system("zarafa-admin -u $user -U $user_id -f $user_fullname -e $user_address -a $user_admin --qo $user_quota --qw $user_warnlvl --qs $user_softlvl --qh $user_hardlvl --mr-accept $user_meeting --mr-decline-conflict $user_dbl --mr-decline-recurring $user_recur_meeting> /dev/null") == 0
+                               or die "Une erreur est survenue lors de la modificatoin de l'utilisateur";
+       }
+
+
+       my $sortspam = $q->param('sortspam');
+       if($sortspam eq 'enabled'){
+               system("/sbin/e-smith/db accounts setprop \"$user_id\" SortSpam disabled");
+               system("/sbin/e-smith/signal-event user-modify \"$user_id\"");
+       }
+       else{
+               system("/sbin/e-smith/db accounts delprop \"$user_id\" SortSpam");
+               system("/sbin/e-smith/signal-event user-modify \"$user_id\"");
+       }               
+
+       # Opération sur les groupes d'utilisateurs
+       # Operation on user's groups    
+       my $eval = "";
+       # Parcours de la liste des groupes
+       # Browse of the group liste
+       open(LISTGRP, "zarafa-admin -L | awk 'NR > 4' |");
+       while(<LISTGRP>){
+               my $groupeparam = $_;
+               $groupeparam =~ s/^\t//g;
+               chomp $groupeparam;
+               $groupeparam =~ s/ /_/g;
+               if ($groupeparam =~ /^([-\@\w.]+)$/) {
+                       $groupeparam = $1;
+               }
+               else {
+                       $groupeparam = $1;
+               }
+               
+               my $present = 0;
+               if($groupeparam){
+                       $groupeparam =~ s/_/ /g;
+                       unless ($eval eq $groupeparam){
+                               # Si le bouton radio est sur oui ...
+                               # If the radio button is 'on' ...
+                               my $yesNo = $q->param("$groupeparam");
+                               if($yesNo eq 'Yes'){
+                                       # On regarde si l'utilisateur est déja dans le groupe ...
+                                       # The user is allready in the group ? ...
+                                       open(ADDUSR, "zarafa-admin -l --details \"$groupeparam\" --type group |");
+                                       while(<ADDUSR>){
+                                               if(m/^\t$user/){
+                                                       $present = 1;                                   
+                                               }
+                                       }
+                                       # Si il n'y est pas on le rajoute
+                                       # If it's not in the group, add it
+                                       unless($present == 1){
+                                               system("zarafa-admin -b $user -i \"$groupeparam\" > /dev/null") == 0
+                                                       or die "Impossible de rajouter l'utilisateur $user dans le groupe $groupeparam";
+                                       }
+                               }
+                               close(ADDUSR);
+                               # Si le bouton radio est sur non ...
+                               # If the radio button is 'off'...
+                               if($yesNo eq 'No'){
+                                       # On regarde si l'utilisateur est dans le groupe ...
+                                       # Is the user in the group ? ...
+                                       open(DELUSR, "zarafa-admin -l --details \"$groupeparam\" --type group |");
+                                       while(<DELUSR>){
+                                               if(m/^\t$user/){
+                                                       $present = 1;                                   
+                                               }
+                                       }
+                                       # Si il y est on l'en enléve
+                                       # If it's in, remove it
+                                       if($present == 1){
+                                               system("zarafa-admin -B $user -i \"$groupeparam\" > /dev/null") == 0
+                                                               or die "Impossible de supprimer l'utilisateur $user du groupe $groupeparam";
+                                       }
+                                       close(DELUSR);
+                               }
+                               $eval = $groupeparam;
+                       }
+               }
+       }
+       close(LISTGRP); 
+       
+       $self->success('MODIFY_USER_SUCCESS');
+
+# Option possible pour mettre à jour ou créer des utilisateurs avec zarafa-admin
+# Zarafa-admin option for update and creation for users
+#-U username
+#-p password
+#-f fullname
+#-e emailaddress
+#-a admin
+#-n active user
+#--qo quota override
+#--qw quota warning
+#--qs quota soft
+#--qh quota hard
+#--mr-accept meeting request
+#--mr-decline-conflict
+#--mr-decline-recurring
+}
+
+# La fonction Create_user récupére le contenu de plusieurs champs afin de créer un utilisateurs zarafa avec ces derniers
+########################################################################################################################
+# The Create_user function recover the content of many fields in order to create a zarafa's user with them
+       
+sub Create_user {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+
+       # Récuperation du contenu des champs
+       # Recovery of content's fields
+       my $user_id = $self->{cgi}->param('Username');
+       if ($user_id =~ /^([-\@\w.]+)$/) {
+               $user_id = $1;  # $data now untainted
+       } 
+       else {
+               die "Bad data in $user_id";
+       }
+       
+       my $user_fullname = $self->{cgi}->param('Fullname');
+       chomp $user_fullname;
+       $user_fullname =~ s/ /@/g;
+       if ($user_fullname =~ /^([-\@\w.]+)$/) {
+               $user_fullname = $1;    # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_fullname'";
+       }
+       $user_fullname =~ s/@/ /g;
+       $user_fullname = "\"".$user_fullname."\"";
+
+       my $user_psswrd = $self->{cgi}->param('Password');
+       if ($user_psswrd =~ /^([-\@\w.]+)$/) {
+               $user_psswrd = $1;      # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_psswrd'";
+       }
+       
+       my $user_address = $self->{cgi}->param('EmailAddress');
+       if ($user_address =~ /^([-\@\w.]+)$/) {
+               $user_address = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_address'";
+       }
+
+       my $user_admin = $self->{cgi}->param('Admin');
+       if ($user_admin =~ /^([-\@\w.]+)$/) {
+               $user_admin = $1;       # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_admin'";
+       }
+
+       my $user_quota = $self->{cgi}->param('quota');
+       if ($user_quota =~ /^([-\@\w.]+)$/) {
+               $user_quota = $1;       # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_quota'";
+       }
+
+       my $user_warnlvl = $self->{cgi}->param('Warnlvl');
+       unless ($user_warnlvl)
+               {$user_warnlvl = 0;}
+       if ($user_warnlvl =~ /^([-\@\w.]+)$/) {
+               $user_warnlvl = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_warnlvl'";
+       }
+
+
+       my $user_softlvl = $self->{cgi}->param('Softlvl');
+       unless ($user_softlvl)
+               {$user_softlvl = 0;}
+       if ($user_softlvl =~ /^([-\@\w.]+)$/) {
+               $user_softlvl = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_softlvl'";
+       }
+
+
+       my $user_hardlvl = $self->{cgi}->param('Hardlvl');
+       unless ($user_hardlvl)
+               {$user_hardlvl = 0;}
+       if ($user_hardlvl =~ /^([-\@\w.]+)$/) {
+               $user_hardlvl = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_hardlvl'";
+       }
+
+       my $user_active = $self->{cgi}->param('Active');
+       if ($user_active =~ /^([-\@\w.]+)$/) {
+               $user_active = $1;      # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user_active'";
+       }
+
+       # Création de l'utilisateur
+       # User's creation
+       system("zarafa-admin -c $user_id -f $user_fullname -p $user_psswrd -e $user_address -a $user_admin -n $user_active --qo $user_quota --qw $user_warnlvl --qs $user_softlvl --qh $user_hardlvl  > /dev/null") == 0
+                       or die "Une erreur est survenue lors de la création de l'utilisateur";
+
+       # Ajout dans la BD Accounts du serveur SME
+       system("/sbin/e-smith/db accounts setprop \"$user_id\" zarafa enabled");
+       system("/etc/e-smith/events/actions/qmail-update-user");
+
+
+       # Attribution des groupes
+       # groups allocation
+       my $fm = shift;
+       my $q = $fm->{'cgi'};
+       
+       my $eval = "";
+       # Parcours de la liste des groupes
+       # Browse groups' list
+       open(LISTGRP, "zarafa-admin -L | awk 'NR > 4' |");
+       while(<LISTGRP>){
+               my $groupeparam = $_;
+               $groupeparam =~ s/^\t//g;
+               chomp $groupeparam;
+               $groupeparam =~ s/ /_/g;
+               if ($groupeparam =~ /^([-\@\w.]+)$/) {
+                       $groupeparam = $1;
+               }
+               else {
+                       $groupeparam = $1;
+               }
+               $groupeparam =~ s/_/ /g;
+               if($groupeparam){
+                       unless ($eval eq $groupeparam){
+                               my $yesNo = $q->param("$groupeparam");
+                               # Si le bouton radio est sur oui, on ajoute l'utilisateur au groupe
+                               # If the radio button is 'on', the user is added to the group 
+                               if($yesNo eq 'Yes'){
+                                       system("zarafa-admin -b $user_id -i \"$groupeparam\" > /dev/null") == 0
+                                                       or die "Impossible de rajouter l'utilisateur $user_id dans le groupe $groupeparam";
+                               }
+                       }
+               $eval = $groupeparam;
+               }
+       }
+       close(LISTGRP);
+
+       $self->success('CREATE_USER_SUCCESS');
+
+}
+
+# delete_user permet de supprimer un utilisateur de la base de données Zarafa
+#############################################################################
+# delete_user is use to delete an user from the Zarafa database
+
+sub delete_user {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+
+       my $user = $cgi->param('actUsr');
+       if ($user =~ /^([-\@\w.]+)$/) {
+               $user = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user'";
+       }
+
+       system("zarafa-admin -d $user > /dev/null") == 0
+               or die "Impossible de supprimer cet utilisateur.";
+
+       # Suppression dans la BD Accounts du serveur SME
+       system("/sbin/e-smith/db accounts delprop \"$user\" zarafa enabled");
+       system("/etc/e-smith/events/actions/qmail-update-user");
+
+       $self->success('DELETE_USER_SUCCESS');
+
+}
+
+# modify_user_groups affiche une liste de tout les groupes et indique si l'utilisateur dont il est question appartient au groupe ou non
+#######################################################################################################################################
+# modify_user_groups display a list of all groups and show if the user belongs to groups or not
+
+sub display_user_groups {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+
+if ($multicompany_enabled =~ m/false/){
+       # Récupération du nom d'utilisateur
+       # Recover username
+       my $user = $cgi->param('actUsr');
+       if ($user =~ /^([-\@\w.]+)$/) {
+               $user = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user'";
+       }
+
+       my $fm = shift;
+       my $groups;
+       my $eval = "";
+       my $checkedYes = "";
+       my $display_group = $self->localise('GROUP_TEXT_DISPLAY');
+
+       my $out = "<tr>\n        <td class=\"sme-noborders-label\">"
+      . "$display_group"
+      . "</td>\n        <td>\n"
+      . "          <table border='0' cellspacing='0' cellpadding='0'>\n";
+
+       # Parcours de la liste des groupes
+       # Browse groups' list
+       open(LIRE, "zarafa-admin -L | awk 'NR > 3' |");
+       while(<LIRE>){
+               $groups = $_;
+               $groups =~ s/^\t//g;
+               $groups =~ s/ /_/g;
+               chomp $groups;
+               if($groups){
+               # Si groupe existe ...
+               # If group exist ...
+               if ($groups =~ /^([-\@\w.]+)$/) {
+                       $groups = $1;   # $data now untainted
+               } 
+               else {
+                       $groups = $1;
+               }
+               $groups =~ s/_/ /g;
+                       # On ne soccupe pas du groupe 'Everyone'
+                       # The 'Everyone' group doesn't be display
+                       unless($groups eq 'Everyone'){
+                               # Si l'utilisateur est dans le groupe alors le bouton sera 'checked'
+                               # If the user is in the group, the button will be 'checked'
+                               open(GRP, "zarafa-admin --details \"$groups\" --type group |"); 
+                               while(<GRP>){
+                                       if(m/$user\t{1}/){
+                                               $checkedYes = "checked";
+                                       }       
+                               }
+                               close(GRP);
+                               unless($eval =~ m/$groups/){
+                                       my $yes = $self->localise('CHECKED_YES');
+                                       my $no = $self->localise('CHECKED_NO');
+                                       # Affichage si le bouton 'oui' est 'checked'
+                                       # Display if the 'yes' button is 'checked'
+                                       if($checkedYes eq "checked") {
+                                           $out .="<tr>\n <td>$groups : </td>\n"
+                                           ."<td>$yes</td><td><input type=\"radio\" name=\"$groups\" checked=\"checked\""
+                                           ." value=\"Yes\"></td>"
+                                           ."<td>$no</td><td><input type=\"radio\" name=\"$groups\""
+                                           ." value=\"No\"></td>\n"
+                                           ."</tr>\n";
+                                       }
+                                       # Affichage si le bouton 'non' est 'checked'
+                                       # Display if the 'no' button is 'checked'
+                                       else {
+                                           $out .="<tr>\n <td>$groups : </td>\n"
+                                           ."<td>$yes</td><td><input type=\"radio\" name=\"$groups\""
+                                           ." value=\"Yes\"></td>"
+                                           ."<td>$no</td><td><input type=\"radio\" name=\"$groups\" checked=\"checked\""
+                                           ." value=\"No\"></td>\n"
+                                           ."</tr>\n";
+                                       }
+                               $checkedYes = "";
+                               }
+                               $eval = $groups;
+                       }
+               }
+       }
+       
+       $out .= "          </table>\n        </td>\n    </tr>\n";
+       close(LIRE);
+       return $out;
+       }
+       
+elsif ($multicompany_enabled =~ m/true/){
+       
+       # Récupération du nom d'utilisateur
+       # Recover username
+       my $user = $cgi->param('actUsr');
+       if ($user =~ /^([-\@\w.]+)$/) {
+               $user = $1;     # $data now untainted
+       } 
+       else {
+               die "Bad data in '$user'";
+       }
+
+       my $fm = shift;
+       my $groups;
+       my $eval = "";
+       my $checkedYes = "";
+       my $display_group = $self->localise('GROUP_TEXT_DISPLAY');
+
+       my $out = "<tr>\n        <td class=\"sme-noborders-label\">"
+      . "$display_group"
+      . "</td>\n        <td>\n"
+      . "          <table border='0' cellspacing='0' cellpadding='0'>\n";
+
+       # Parcours de la liste des groupes
+       # Browse groups' list
+       open(LIRE, "zarafa-admin -L |");
+       while(<LIRE>){
+               $groups = $_;
+               $groups =~ s/^\t//g;
+               $groups =~ s/ /_/g;
+               chomp $groups;
+               if($groups){
+               # Si groupe existe ...
+               # If group exist ...
+               if ($groups =~ /^([-\@\w.]+)$/) {
+                       $groups = $1;   # $data now untainted
+               } 
+               else {
+                       $groups = $1;
+               }
+               $groups =~ s/_/ /g;
+                       # On ne soccupe pas du groupe 'Everyone'
+                       # The 'Everyone' group doesn't be display
+                       unless($groups =~ m/Everyone/ or $groups =~ m/Group list for/ or $groups =~ m/------/ or !$groups or $groups =~ m/groupname/){
+                               # Si l'utilisateur est dans le groupe alors le bouton sera 'checked'
+                               # If the user is in the group, the button will be 'checked'
+                               open(GRP, "zarafa-admin --details \"$groups\" --type group |"); 
+                               while(<GRP>){
+                                       if(m/$user/){
+                                               $checkedYes = "checked";
+                                       }       
+                               }
+                               close(GRP);
+                               unless($eval =~ m/$groups/){
+                                       my $yes = $self->localise('CHECKED_YES');
+                                       my $no = $self->localise('CHECKED_NO');
+                                       # Affichage si le bouton 'oui' est 'checked'
+                                       # Display if the 'yes' button is 'checked'
+                                       if($checkedYes eq "checked") {
+                                           $out .="<tr>\n <td>$groups : </td>\n"
+                                           ."<td>$yes</td><td><input type=\"radio\" name=\"$groups\" checked=\"checked\""
+                                           ." value=\"Yes\"></td>"
+                                           ."<td>$no</td><td><input type=\"radio\" name=\"$groups\""
+                                           ." value=\"No\"></td>\n"
+                                           ."</tr>\n";
+                                       }
+                                       # Affichage si le bouton 'non' est 'checked'
+                                       # Display if the 'no' button is 'checked'
+                                       else {
+                                           $out .="<tr>\n <td>$groups : </td>\n"
+                                           ."<td>$yes</td><td><input type=\"radio\" name=\"$groups\""
+                                           ." value=\"Yes\"></td>"
+                                           ."<td>$no</td><td><input type=\"radio\" name=\"$groups\" checked=\"checked\""
+                                           ." value=\"No\"></td>\n"
+                                           ."</tr>\n";
+                                       }
+                               $checkedYes = "";
+                               }
+                               $eval = $groups;
+                       }
+               }
+       }
+       
+       $out .= "          </table>\n        </td>\n    </tr>\n";
+       close(LIRE);
+       return $out;
+               }
+       
+}
+
+# Create_group permet la création de groupe d'utilisateur en récupérant un nom saisi par l'utilisateur
+######################################################################################################
+# Create_group allow to create an user's group with a name recover from the user
+
+sub Create_group {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+       
+       # Récuperation du nom de groupe
+       # Recover the groupname
+       my $group = $self->{cgi}->param('Groupname');
+       $group =~ s/ /_/g;
+       if ($group =~ /^([-\@\w.]+)$/) {
+               $group = $1;    # $data now untainted
+       } 
+       else {
+               die "Bad data in '$group'";
+       }
+       $group =~ s/_/ /g;
+       
+
+       # Création du groupe
+       # Group creation
+       system("zarafa-admin -g \"$group\" > /dev/null") == 0
+               or die "Impossible de créer le groupe";
+
+       $self->success('CREATE_GROUP_SUCCESS');
+
+}
+
+# show_group affiche une liste de tout les groupe dans un tableau avec un lien pour les modifier et un autre pour les supprimer
+###############################################################################################################################
+# show_group display a list of all groups into an array with two links in order to modify an delete them
+
+sub show_group {
+
+        my $self = shift;
+        my $q = $self->{cgi};
+
+        
+       if ($multicompany_enabled =~ m/false/){
+       
+        my $nbrligne = `zarafa-admin -L | wc -l`;
+        my $scriptname = basename($0);
+        my $ligne = 4;
+
+        # Localisation
+        # Localization
+        my $groupname = $self->localise('GROUP_NAME_ARRAY');
+        my $suppr = $self->localise('DELETE');
+
+        # Affichage de l'en-tête du tableau
+        # Display the header
+        print "  <tr>\n    <td colspan=\"2\">\n      ";
+        print $q->start_table ({-CLASS => "sme-border"}),"\n        ";
+        print $q->Tr(
+        esmith::cgi::genSmallCell($q, $groupname,"header"),
+        esmith::cgi::genSmallCell($q, $suppr,"header"));
+
+        # Parcours de la liste des groupes avec affichage dans le tableau de chacun, création et affichage des liens correspondant
+        # Browse the group's list and display them into the array, create and diplay the links
+        my @grouptab;
+        my $nbr = 0;
+        while ($ligne < $nbrligne) {
+                $grouptab[$nbr] = `zarafa-admin -L | awk 'NR == $ligne'`;
+               $nbr ++;
+               $ligne ++;
+       }
+       
+       my @out = sort @grouptab;
+       foreach my $group (@out){
+               unless($group =~ m/^\tEveryone/){
+                       my $delete = "<a href=\"$scriptname?page=0&wherenext=DeleteGroup&actGrp=$group\">$suppr</a>";
+                       my $modify = "<a href=\"$scriptname?page=0&wherenext=DisplayGroupDetails&actGrp=$group\">$group</a>";
+                       print $q->Tr(
+                               esmith::cgi::genSmallCell($q,$modify ,"normal"),"        ",
+                               esmith::cgi::genSmallCell($q,$delete,"normal"));
+               }
+       }
+       
+        print qq(</table></td></tr>\n);
+        
+        my $add_group = $self->localise('ADD_GROUP');
+        my $add_group_bubble = $self->localise('ADD_GROUP_BUBBLE');
+
+        my $out ="<p><a class=\"button-like\"
+        href=\"zarafaUI?page=0&wherenext=DisplayCreateGroup\" title=\"$add_group_bubble\">$add_group</a></p>";
+
+
+        return $out;
+       }
+       
+       else {
+               return 0;
+       }
+}
+
+# delete_group permet de supprimer un groupe passé en paramétre
+###############################################################
+# delete_group is use to delete the group passed in parameter
+
+sub delete_group {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+
+       # Récupération du nom du groupe
+       # Recover the groupname
+       my $group = $cgi->param('actGrp');
+       $group =~ s/ /_/g;
+       if ($group =~ /^([-\@\w.]+)$/) {
+               $group = $1;    # $data now untainted
+       } 
+       else {
+               die "Bad data in '$group'";
+       }
+       $group =~ s/_/ /g;
+
+       # Suppression du groupe
+       # Deleting group
+       system("zarafa-admin -G \"$group\" > /dev/null") == 0
+               or die "Impossible de supprimer ce groupe.";
+
+       $self->success('DELETE_GROUP_SUCCESS');
+
+}
+
+# Cette fonction affiche un bouton contenant le texte 'Delete'
+#############################################################
+# Thus function dispay a button with 'Delete' text inside
+
+sub display_delete_group_button {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+
+       my $group = $cgi->param('actGrp');
+       $group =~ s/ /_/g;
+       if ($group =~ /^([-\@\w.]+)$/) {
+               $group = $1;    # $data now untainted
+       } 
+       else {
+               die "Bad data in '$group'";
+       }
+       $group =~ s/_/ /g;
+       $self->print_button("DELETE");
+
+}
+
+# display_user_in_group affiche la liste de tout les utilisateurs et indique ceux qui appartiennent au groupe passé en paramétre
+################################################################################################################################
+# display_user_in_group display a list of all users and show those are in the group passed in parameter, or not 
+
+sub display_user_in_group {
+
+       my $self = shift;
+       my $cgi = $self->{cgi};
+       
+       # Récupération du nom du groupe
+       # Recovery of the groupename
+       my $group = $cgi->param('actGrp');
+       $group =~ s/ /_/g;
+       if ($group =~ /^([-\@\w.]+)$/) {
+               $group = $1;    # $data now untainted
+       } 
+       else {
+               die "Bad data in '$group'";
+       }
+       $group =~ s/_/ /g;
+
+       my $grouptext = $self->localise('MODIFY_GROUP_TEXT');
+       print "$grouptext $group";
+       my ($user, $fullname);
+       my $out = "<tr>\n        <td class=\"sme-noborders-label\">"
+      . "$group"
+      . "</td>\n        <td>\n"
+      . "          <table border='0' cellspacing='0' cellpadding='0'>\n";
+
+       $group = "\"".$group."\"";
+       # Parcours de la liste des utilisateurs
+       # Browse the user list
+       open(USER, "zarafa-admin -l | awk 'NR > 4' |");
+       while(<USER>){
+               my $ligne = $_;
+               chomp $ligne;
+               my $checked = "";
+               $user = $ligne;
+               $fullname = $ligne;
+               $fullname =~ s/^.*\t{2}//g;
+               $user =~ s/\t{2}.*$//g;
+               $user =~ s/^\t{1}//g;
+               if($fullname){
+                       # Si l'utilisateur est dans le groupe alors il est 'checked'
+                       # If the user is in the group, he is 'checked'
+                       open(INGRP, "zarafa-admin --details $group --type group |"); 
+                               while(<INGRP>){
+                                       if(m/$user\t{1}/){
+                                               $checked = "checked";
+                                       }       
+                               }
+                       close(INGRP);
+                       
+                       # Affichage si l'utilisateur est 'checked'
+                       # Display if the user is 'checked'
+                       my $yes = $self->localise('CHECKED_YES');
+                       my $no = $self->localise('CHECKED_NO');
+                       if($checked eq 'checked'){
+                                $out .="<tr>\n <td>$fullname : </td>\n"
+                                           ."<td>$yes</td><td><input type=\"radio\" name=\"$user\" checked=\"checked\""
+                                           ." value=\"yes\"></td>"
+                                           ."<td>$no</td><td><input type=\"radio\" name=\"$user\""
+                                           ." value=\"no\"></td>\n"
+                                           ."</tr>\n"; 
+                       }       
+                       # Affichage si l'utilisateur n'est pas 'checked'
+                       # Display if the user is not 'checked'
+                       else {
+                                $out .="<tr>\n <td>$fullname : </td>\n"
+                                           ."<td>$yes</td><td><input type=\"radio\" name=\"$user\""
+                                           ." value=\"yes\"></td>"
+                                           ."<td>$no</td><td><input type=\"radio\" name=\"$user\" checked=\"checked\""
+                                           ." value=\"no\"></td>\n"
+                                           ."</tr>\n";
+                       }
+               }
+       }
+       close(USER);
+       $out .= "          </table>\n        </td>\n    </tr>\n";
+       
+       return $out;
+
+}
+
+# display_modify_group_button affiche un bouton contenant 'Modify' pour la gestion des groupes
+##################################################################################################
+# display_modify_group_button display a button with 'Modify' text specially for group's management
+
+sub display_modify_group_button {
+
+       my ($self) = @_;
+
+       my $cgi = $self->{cgi};
+
+       $self->print_button("MODIFY_BUTTON");
+
+}
+
+# Cette fonction permet de modifier les utilisateurs appartenant a un groupe passé en paramétre
+###############################################################################################
+# This function is use to modify the users belong to a group passed in parameter
+
+sub modify_user_group {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+       my $group = $cgi->param('actGrp');
+
+       my $fm = shift;
+       my $q = $fm->{'cgi'};
+       
+       # Parcours de la liste des utilisateurs
+       # Browse the user list
+       open(LISTUSR, "zarafa-admin -l | awk 'NR > 4' |");
+       while(<LISTUSR>){
+               my $user = $_;
+               $user =~ s/\t{2}.*$//g;
+               $user =~ s/^\t//g;
+               chomp $user;
+               chomp $group;
+
+               if($user){
+                       if ($user =~ /^([-\@\w.]+)$/) {
+                               $user = $1;
+                       }
+                       else {
+                               die "bad data in $user";
+                       }
+ 
+                       my $present = 0;
+                       my $yesNo = $q->param("$user");
+                       # Si le bouton radio est sur 'oui' ...
+                       # If the radio button is 'on' ...
+                       if($yesNo eq 'yes'){
+                               open(ADDUSR, "zarafa-admin -l --details \"$group\" --type group |");
+                               while(<ADDUSR>){
+                                       if(m/^\t$user/){
+                                               $present = 1;                                   
+                                       }
+                               }
+                               # Et si l'utilisateur n'est pas dans le groupe, alors on le rajoute
+                               # And if the user is not in the group, then add him into the group
+                               unless($present == 1){
+                                       system("zarafa-admin -b $user -i \"$group\" > /dev/null") == 0
+                                               or die "Impossible de rajouter l'utilisateur $user dans le groupe $group";
+                               }
+                               close(ADDUSR);
+                       }
+                       # Si le bouton radio est sur 'non' ...
+                       # If the radio button is 'off' ...
+                       if($yesNo eq 'no'){
+                               open(DELUSR, "zarafa-admin -l --details $user |");
+                               while(<DELUSR>){
+                                       # Et si l'utilisateur appartient au groupe, alors on le supprime du groupe
+                                       # And if the user is in the group, then delete him from the group
+                                       if(m/^\t$group$/){
+                                               system("zarafa-admin -B $user -i \"$group\" > /dev/null") == 0
+                                                       or die "Impossible de supprimer l'utilisateur $user du groupe $group";
+                                       }
+                               }
+                               close(DELUSR);
+                       }
+               }
+       }
+       close(LISTUSR);
+
+       $self->success('MODIFY_GROUP_SUCCESS');                                                                 
+}
+
+# display_create_user_group permet d'afficher la liste de tout les groupes en précochant l'apartenance de l'utilisateur à tout les groupes.
+# Utilisé pour l'affichage de la création d'un utilisateur.
+#####################################################################################################################################################
+# display_create_user_group is use to display a list of all group set to 'no' by default for the user. It will be use into the display of create user.
+
+sub display_create_user_group {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+
+       my $fm = shift;
+       my $groups;
+       my $eval = "";
+       
+       my $exist_group = $self->localise('EXIST_GROUP');
+       my $out = "<tr>\n        <td class=\"sme-noborders-label\">"
+      . $exist_group
+      . "</td>\n        <td>\n"
+      . "          <table border='0' cellspacing='0' cellpadding='0'>\n";
+
+       # Parcours de la liste des groupes
+       # Browse group's list
+       open(LIRE, "zarafa-admin -L | awk 'NR > 3' |");
+       while(<LIRE>){
+               $groups = $_;
+               $groups =~ s/^\t//g;
+               chomp $groups;
+               $groups =~ s/ /_/g;
+               if ($groups =~ /^([-\@\w.]+)$/) {
+                       $groups = $1;   # $data now untainted
+               } 
+               else {
+                       $groups = $1;
+               }
+               $groups =~ s/_/ /g;
+               if($groups){
+                       # Tant que le groupe n'est pas 'Everyone' ...
+                       # Unless the group is 'Everyone' ...
+                       my $yes = $self->localise('CHECKED_YES');
+                       my $no = $self->localise('CHECKED_NO');
+                       unless($groups eq 'Everyone'){
+                               # Affichage des boutons radio du groupe
+                               # Display the radio button's group 
+                               unless($eval eq $groups){
+                                           $out .="<tr>\n <td>$groups : </td>\n"
+                                           ."<td>$yes</td><td><input type=\"radio\" name=\"$groups\""
+                                           ." value=\"Yes\"></td>"
+                                           ."<td>$no</td><td><input type=\"radio\" name=\"$groups\""
+                                           ." value=\"No\" checked =\"checked\"></td>\n"
+                                           ."</tr>\n";
+                               }
+                               $eval = $groups;
+                       }
+               }
+       }
+       
+       $out .= "          </table>\n        </td>\n    </tr>\n";
+       close(LIRE);
+       return $out;
+}
+
+# Les fonctions suivantes servent à vérifié se que l'utilisateur saisi dans divers champs, afin d'éviter toute erreur de sa part ou tentative de sabotage de la part de personne malveillante.
+##############################################################################################################################################################################################
+# The functions below is use to analyse and find error in the fields the user have fill in order to securise the software.
+
+# Cette fonction est principalement utilisé pour vérifié la composition d'un Nom complet rentré par l'utilisateur, ou bien pour le nom des groupes.
+###################################################################################################################################################
+# This function is mainly use to verify the composition of a Fullname enter by an user or a group name.
+
+sub fullname {
+
+       my ($fm, $fullname) = @_;
+       my $self = shift;
+
+       my $return_error = $self->localise('FULLNAME_VERIF_ERROR');
+       if ($fullname =~ m/^\w+((\.|\-|\s+)?\w+)*$/){
+               return "OK"; 
+       }
+       else {
+               return $return_error;
+       }
+}
+
+# Cette fonction est principalement utilisé pour vérifié la composition d'un mot de passe saisi par l'utilisateur
+#################################################################################################################
+# This function is mainly use to verify the composition of a password enter by an user.
+
+sub my_password {
+
+       my ($fm, $password, $minlength) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('MY_PASSWORD_VERIF_ERROR');
+       if ($password =~ /^\w+$/i and length($password) >= $minlength){
+               return "OK";
+       }
+       elsif($password eq ''){
+               return "OK";
+       }
+       else {
+               return $return_error;
+       }
+}
+
+# quota_test est utilisé pour testé si la valeur des quota saisi par l'utilisateur sont des valeurs correcte.
+#############################################################################################################
+# quota_test is use in order to test if the user has enter a correct value into quota fields
+
+sub quota_test {
+
+       my ($fm, $quotalvl) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('QUOTA_TEST_VERIF_ERROR');
+       if ($quotalvl =~ /^\d*$/ or $quotalvl =~ m/unlimited/i){
+               return "OK";
+       }
+       else {
+               return $return_error;
+       }
+}
+
+# sup_quota_inter test si la valeur saisi dans le soft level est bien supérieur à celle du warning level ou équivalente
+# dans le cas d'une valeur à zéro ou bien d'un unlimited
+#########################################################################################################################
+# sup_quota_inter is use to test if the value of the soft level is superior to the value of the warning level or the same
+# in case of an 'unlimited' or a value at 0.
+
+sub sup_quota_inter {
+
+       my ($fm, $softlvl) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('SOFT_INF_WARN');
+       my $cgi = $self->{cgi};
+       my $warnlvl = $cgi->param('Warnlvl');
+       
+       if (!$softlvl && !$warnlvl){
+               return "OK";
+       }
+       elsif ($softlvl eq 'unlimited' && $warnlvl eq 'unlimited'){
+               return "OK";
+       }
+       elsif ($softlvl == '0' && $warnlvl == '0'){
+               return "OK";
+       }
+       elsif ($softlvl > $warnlvl){
+               return "OK";
+       }
+       else {
+               return $return_error;
+       }
+}
+
+# sup_quota_inter test si la valeur saisi dans le hard level est bien supérieur à celle du soft level ou équivalente
+# dans le cas d'une valeur à zéro ou bien d'un unlimited
+#######################################################################################################################
+# sup_quota_inter is used to test if the value of the hard level is superior to the value of the soft level or the same
+# in case of an 'unlimited' or a value at 0.
+
+sub sup_quota_hard {
+
+       my ($fm, $hardlvl) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('HARD_INF_OTHER');
+       my $cgi = $self->{cgi};
+       my $warnlvl = $cgi->param('Warnlvl');
+       my $softlvl = $cgi->param('Softlvl');
+
+       if (!$softlvl && !$hardlvl){
+               return "OK";
+       }
+       elsif ($softlvl eq 'unlimited' && $warnlvl eq 'unlimited') {
+               return "OK";
+       }
+       elsif ($softlvl == '0' && $hardlvl == '0'){
+               return "OK";
+       }
+       elsif ($hardlvl > $softlvl){
+               return "OK";
+       }
+       else {
+               return $return_error;
+       }
+}
+
+# unique_username est utilisé pour vérifié si le nom d'utilisateur est bien unique dans le cas d'une création d'utilisateur
+################################################################################################################################
+# unique_username is used to verify if the username in the username's field is already taken or notin case of an user's creation
+
+sub unique_username {
+
+       my ($fm, $user_get) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('MULTIPLE_USERNAME');
+       my $present = 0;
+       open(USER, "zarafa-admin -l | awk 'NR > 4' |");
+       while(<USER>){
+               my $user = $_;
+               if ($user =~ m/$user_get\t/){
+                       $present = 1;
+               }
+       }
+       close(USER);
+       if($present == 1){
+               return $return_error;
+       }
+       else {
+               return "OK";
+       }
+}
+
+# unique_email est utilisé pour vérifié si l'email de l'utilisateur est bien unique dans le cas d'une création d'utilisateur
+############################################################################################################################
+# unique_email is used to verify if the email in the email's field is already taken or not in case of an user's creation
+
+sub unique_email {
+
+       my ($fm, $email_get) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('MULTIPLE_EMAIL');
+       my $cgi = $self->{cgi};
+       my $present = 0;
+       open(USER, "zarafa-admin -l | awk 'NR > 3' |");
+       while(<USER>){
+               my $user = $_;
+               $user =~ s/\t{2}.*$//g;
+               $user =~ s/^\t{1}//g;
+               chomp $user;
+               if($user) {
+                       if ($user =~ /^([-\@\w.]+)$/) {
+                               $user = $1;     # $data now untainted
+                       } 
+                       else {
+                               die "Bad data in '$user'";
+                       }
+                       open(EMAIL, "zarafa-admin --details \"$user\" |");
+                       while(<EMAIL>){
+                               my $ligne = $_;
+                               if ($ligne =~ m/$email_get/){
+                                       $present = 1;
+                               }
+                       }
+               }
+               close(EMAIL);
+       }
+       close(USER);
+       if($present == 1){
+               return $return_error;
+       }
+       else {
+               return "OK";
+       }
+}
+
+# unique_username_modify est utilisé pour vérifié si le nom d'utilisateur est bien unique dans le cas d'une modification
+#########################################################################################################################################
+# unique_username_modify is used to verify if the username in the username's field is already taken or not in case of user's modification
+
+sub unique_username_modify {
+
+       my ($fm, $user_get) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('MULTIPLE_USERNAME');
+       my $cgi = $self->{cgi};
+       my $param_user = $cgi->param('actUsr');
+       my $present = 0;
+
+       if($user_get eq $param_user){
+               return "OK";
+       }
+       else {
+               open(USER, "zarafa-admin -l | awk 'NR > 4' |");
+               while(<USER>){
+                       my $user = $_;
+                       if ($user =~ m/$user_get\t/){
+                               $present = 1;
+                       }
+               }
+               close(USER);
+               if($present == 1){
+                       return $return_error;
+               }
+               else {
+                       return "OK";
+               }
+       }
+}
+
+# unique_email_modify est utilisé pour vérifié si l'email utilisateur est bien unique dans le cas d'une modification
+################################################################################################################################
+# unique_email_modify is used to verify if the email in the email's field is already taken or not in case of user's modification
+
+sub unique_email_modify {
+
+       my ($fm, $email_get) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('MULTIPLE_EMAIL');
+       my $cgi = $self->{cgi};
+       my $param_user = $cgi->param('actUsr');
+       my $present = 0;
+
+       open(MAIL, "zarafa-admin --details \"$param_user\" |");
+       while(<MAIL>){
+               my $ligne = $_;
+               if ($ligne =~ m/$email_get/){
+                       return "OK";
+               }
+       }
+       close(MAIL);
+
+       open(USER, "zarafa-admin -l | awk 'NR > 3' |");
+       while(<USER>){
+               my $user = $_;
+               $user =~ s/\t{2}.*$//g;
+               $user =~ s/^\t{1}//g;
+               chomp $user;
+               if($user) {
+                       if ($user =~ /^([-\@\w.]+)$/) {
+                               $user = $1;     # $data now untainted
+                       } 
+                       else {
+                               die "Bad data in '$user'";
+                       }
+                       open(EMAIL, "zarafa-admin --details \"$user\" |");
+                       while(<EMAIL>){
+                               my $mail = $_;
+                               if ($mail =~ m/$email_get/){
+                                       $present = 1;
+                               }
+                       }
+               }
+               close(EMAIL);
+       }
+       close(USER);
+
+       if($present == 1){
+               return $return_error;
+       }
+       else {
+               return "OK";
+       }
+}
+
+# unique_groupname est utilisé pour vérifié si le nom du groupe est bien unique dans le cas d'une création de groupe
+####################################################################################################################
+# unique_groupname is used to verify if the groupnamed is already taken or not in case of an group's creation
+
+sub unique_groupname {
+
+       my ($fm, $groupname) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('MULTIPLE_GROUPNAME');
+       my $present = 0;
+
+       open(GROUP, "zarafa-admin -L | awk 'NR > 3' |");
+       while(<GROUP>){
+               my $ligne = $_;
+               if ($ligne =~ m/$groupname/i){
+                       $present = 1;
+               }
+       }
+       close(GROUP);
+
+       if($present == 1){
+               return $return_error;
+       }
+       else {
+               return "OK";
+       }
+}
+
+# Cette fonction est principalement utilisé pour vérifié la composition d'un nom d'utilisateur saisi par l'utilisateur
+######################################################################################################################
+# This function is mainly use to verify the composition of an username enter by an user.
+
+sub my_username {
+
+       my ($fm, $username) = @_;
+       my $self = shift;
+       my $return_error = $self->localise('FALSE_USERNAME');
+
+       if ($username) {
+               if($username =~ m/^\w+((\.|\-|@)?\w+)*$/){
+                       return "OK";
+               }
+               else {
+                       return $return_error;
+               }
+       }
+       else {
+               return $return_error;
+       }
+}
+
+sub show_company_users {
+
+        my $self = shift;
+        my $q = $self->{cgi};
+        
+       my $company = $q->param('actComp');
+       if ($company =~ /^([-\@\w.]+)$/) {
+               $company = $1;  # $data now untainted
+       } 
+       else {
+               die "bad data in $company";
+       }
+        my $scriptname = basename($0);
+        
+        # Localisation
+        # Localization
+        my $username = $self->localise('USER_NAME_ARRAY');
+        my $suppr = $self->localise('DELETE');
+
+        # Affichage de l'en-tête du tableau
+        # Display the header
+        print "  <tr>\n    <td colspan=\"2\">\n      ";
+     print $q->start_table ({-CLASS => "sme-border"}),"\n        ";
+        print $q->Tr(
+               esmith::cgi::genSmallCell($q, $username,"header"),
+               esmith::cgi::genSmallCell($q, $suppr,"header"));
+
+        # Parcours de la liste des groupes avec affichage dans le tableau de chacun, création et affichage des liens correspondant
+        # Browse the group's list and display them into the array, create and diplay the links
+        open(LIRE, "zarafa-admin -l | cut -f2 |");
+        my $user;
+        my $nbr = 0;
+        while (<LIRE>) {
+               if (m/\w+\@$company/) {
+                       $user = $_;
+                       my $delete = "<a href=\"$scriptname?page=0&wherenext=DeleteUser&actUsr=$user\">$suppr</a>";
+                       my $modify = "<a href=\"$scriptname?page=0&wherenext=DisplayDetails&actUsr=$user\">$user</a>";
+                       print $q->Tr(
+                               esmith::cgi::genSmallCell($q,$modify ,"normal"),"        ",
+                               esmith::cgi::genSmallCell($q,$delete,"normal"));
+               }
+       }
+        close(LIRE);
+       
+        print qq(</table></td></tr>\n);
+        
+        my $add_user = $self->localise('ADD_USER');
+        my $add_user_bubble = $self->localise('ADD_USER_BUBBLE');
+
+        my $out ="<p><a class=\"button-like\"
+        href=\"zarafaUI?page=0&wherenext=DisplayCreateUser\" title=\"$add_user_bubble\">$add_user</a></p>";
+
+
+return $out;
+}
+
+sub print_message {
+
+    my ($fm, $word) = @_;
+    $word = $fm->localise($word);
+    print qq(<tr><td colspan=2>$word</td></tr>);
+    return undef;
+
+}
+
+sub create_company {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+        
+        my $companyname = $self->{cgi}->param('createcompanyname');
+        if ($companyname =~ /^([-\@\w.]+)$/) {
+               $companyname = $1;      # $data now untainted
+       } 
+       else {
+               die "Bad data in '$companyname'";
+       }
+       
+       
+       system("zarafa-admin --create-company \"$companyname\" > /dev/null") == 0
+               or die "Impossible de créer la companie $companyname";
+
+       $self->success('CREATE_COMPANY_SUCCESS');
+
+}
+
+sub delete_company {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+        
+        my $companyname = $self->{cgi}->param('actComp');
+        if ($companyname =~ /^([-\@\w.]+)$/) {
+               $companyname = $1;      # $data now untainted
+       } 
+       else {
+               die "Bad data in '$companyname'";
+       }
+       
+       system("zarafa-admin --delete-company \"$companyname\" > /dev/null") == 0
+               or die "Impossible de créer la companie $companyname";
+
+       $self->success('DELETE_COMPANY_SUCCESS');
+}
+
+sub display_delete_comp_button {
+
+       my ($self) = @_;
+       my $cgi = $self->{cgi};
+
+       my $group = $cgi->param('actComp');
+       if ($group =~ /^([-\@\w.]+)$/) {
+               $group = $1;    # $data now untainted
+       } 
+       else {
+               die "Bad data in '$group'";
+       }
+
+       $self->print_button("DELETE");
+
+}
\ No newline at end of file