Index: openacs-4/packages/dotlrn-user-tracking/dotlrn-user-tracking.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-user-tracking/dotlrn-user-tracking.info,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-user-tracking/dotlrn-user-tracking.info	1 Mar 2005 17:39:23 -0000	1.1
+++ openacs-4/packages/dotlrn-user-tracking/dotlrn-user-tracking.info	14 Apr 2005 15:36:39 -0000	1.2
@@ -7,12 +7,13 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="0.1d" url="http://openacs.org/repository/download/apm/dotlrn-user-tracking-0.1d.apm">
+    <version name="0.1d2" url="http://openacs.org/repository/download/apm/dotlrn-user-tracking-0.1d2.apm">
+        <owner url="mailto:pabloa@tid.es">Pablo Arozarena</owner>
         <owner url="mailto:doa@tid.es">David Ortega</owner>
-        <release-date>2004-10-25</release-date>
-        <vendor url="http://www.openacs.org">Elane</vendor>
+        <release-date>2005-04-13</release-date>
+        <vendor url="http://www.e-lane.org">Elane</vendor>
 
-        <provides url="dotlrn-user-tracking" version="0.1d"/>
+        <provides url="dotlrn-user-tracking" version="0.1d2"/>
         <requires url="dotlrn" version="1.0"/>
         <requires url="user-tracking-portlet" version="0.1d"/>
 
@@ -23,4 +24,4 @@
         </parameters>
 
     </version>
-</package>
\ No newline at end of file
+</package>
Index: openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.tcl	1 Mar 2005 17:39:23 -0000	1.1
+++ openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.tcl	14 Apr 2005 15:36:39 -0000	1.2
@@ -57,13 +57,12 @@
         dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key]
     }
 
-    ad_proc -public remove_applet {
-        community_id
-        package_id
-    } {
+    ad_proc -public remove_applet {} {
         remove the applet
     } {
-        ad_return_complaint 1 "[applet_key] remove_applet not implemented!"
+    	set applet_id [dotlrn_applet::get_applet_id_from_key [my_package_key]]
+    	db_exec_plsql delete_applet_from_communities { *SQL* } 
+    	db_exec_plsql delete_applet { *SQL* } 
     }
 
     ad_proc -public add_applet_to_community {
Index: openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.xql	1 Mar 2005 17:39:23 -0000	1.1
+++ openacs-4/packages/dotlrn-user-tracking/tcl/dotlrn-user-tracking-procs.xql	14 Apr 2005 15:36:39 -0000	1.2
@@ -1,7 +1,6 @@
 <?xml version="1.0"?>
 
 <queryset>
-<rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
 <fullquery name="dotlrn_user_tracking::clone.call_user_tracking_clone">
   <querytext>
@@ -12,5 +11,21 @@
   </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_user_tracking::remove_applet.delete_applet_from_communities">
+  <querytext>
 
+	delete from dotlrn_community_applets where applet_id = :applet_id
+    
+  </querytext>
+</fullquery>
+
+<fullquery name="dotlrn_user_tracking::remove_applet.delete_applet">
+  <querytext>
+
+	delete from dotlrn_applets where applet_id = :applet_id
+    
+  </querytext>
+</fullquery>
+
+
 </queryset>
Index: openacs-4/packages/user-tracking/user-tracking.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/user-tracking.info,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/user-tracking.info	1 Mar 2005 17:35:30 -0000	1.1
+++ openacs-4/packages/user-tracking/user-tracking.info	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,28 +1,30 @@
-<?xml version="1.0"?>
-<!-- Generated by the OpenACS Package Manager -->
-
-<package key="user-tracking" url="http://openacs.org/repository/apm/packages/user-tracking" type="apm_application">
-    <package-name>User Tracking</package-name>
-    <pretty-plural>Users tracking</pretty-plural>
-    <initial-install-p>f</initial-install-p>
-    <singleton-p>f</singleton-p>
-    <auto-mount>user-tracking</auto-mount>
-
-    <version name="0.1d" url="http://openacs.org/repository/download/apm/user-tracking-0.1d.apm">
-        <owner url="mailto: pabloa@tid.es">Pablo Arozarena</owner>
-        <owner url="mailto:sergiog@tid.es">Sergio González</owner>
-        <owner url="mailto:doa@tid.es">David Ortega</owner>
-        <summary>Package for user tracking </summary>
-        <release-date>2004-11-03</release-date>
-        <vendor url="http://e-lane.org/">E-lane</vendor>
-        <description format="text/html">The purpose behind this development is to ensure we track and retrieve knowledge about how end users are making use of the system. The main objective of this package will be to track user behaviour and activities, so that Professors and administrators can use this to understand how the system is used and make improvements in the learning process.</description>
-
-        <provides url="user-tracking" version="0.1d"/>
-
-        <callbacks>
-            <callback type="after-install"  proc="user-tracking::apm_callbacks::package_install"/>
-        </callbacks>
-        <parameters>
-        </parameters>
-    </version>
-</package>
+<?xml version="1.0"?>
+<!-- Generated by the OpenACS Package Manager -->
+
+<package key="user-tracking" url="http://openacs.org/repository/apm/packages/user-tracking" type="apm_application">
+    <package-name>User Tracking</package-name>
+    <pretty-plural>Users tracking</pretty-plural>
+    <initial-install-p>f</initial-install-p>
+    <singleton-p>f</singleton-p>
+    <auto-mount>user-tracking</auto-mount>
+
+    <version name="0.1d2" url="http://openacs.org/repository/download/apm/user-tracking-0.1d2.apm">
+        <owner url="mailto:doa@tid.es">David Ortega</owner>
+        <owner url="mailto:sergiog@tid.es">Sergio González</owner>
+        <owner url="mailto: pabloa@tid.es">Pablo Arozarena</owner>
+        <summary>Package for user tracking </summary>
+        <release-date>2005-04-12</release-date>
+        <vendor url="http://e-lane.org/">E-lane</vendor>
+        <description format="text/html">The purpose behind this development is to ensure we track and retrieve knowledge about how end users are making use of the system. The main objective of this package will be to track user behaviour and activities, so that Professors and administrators can use this to understand how the system is used and make improvements in the learning process.</description>
+
+        <provides url="user-tracking" version="0.1d2"/>
+
+        <callbacks>
+            <callback type="after-install"  proc="user-tracking::apm_callbacks::package_install"/>
+        </callbacks>
+        <parameters>
+        <!-- No version parameters -->
+        </parameters>
+
+    </version>
+</package>
Index: openacs-4/packages/user-tracking/catalog/user-tracking.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/catalog/user-tracking.en_US.ISO-8859-1.xml,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/catalog/user-tracking.en_US.ISO-8859-1.xml	1 Mar 2005 17:35:30 -0000	1.1
+++ openacs-4/packages/user-tracking/catalog/user-tracking.en_US.ISO-8859-1.xml	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="user-tracking" package_version="0.1d" locale="en_US" charset="ISO-8859-1">
+<message_catalog package_key="user-tracking" package_version="0.1d2" locale="en_US" charset="ISO-8859-1">
 
   <msg key="Active_news">Active News</msg>
   <msg key="add">Add</msg>
@@ -9,23 +9,78 @@
   <msg key="added_files_by">Files added by:</msg>
   <msg key="Added_news">Added news</msg>
   <msg key="added_survey">Survey added by</msg>
+  <msg key="Admin">User-tracking administration</msg>
   <msg key="Admin_options">Admin Options</msg>
   <msg key="Administer">Administer</msg>
+  <msg key="all_communities">All communities</msg>
+  <msg key="all_site">All the site</msg>
+  <msg key="all_users">All users</msg>
+  <msg key="Communities">Communities</msg>
+  <msg key="community_info">Info about community</msg>
+  <msg key="Community_Name">Community Name</msg>
+  <msg key="Creation_Date">Creation Date</msg>
+  <msg key="Daily">Daily</msg>
+  <msg key="Data_from">Data from</msg>
+  <msg key="Data_to">Data to</msg>
+  <msg key="Date">Date</msg>
+  <msg key="Day">Day</msg>
+  <msg key="Duration">Visits Duration</msg>
   <msg key="eliminate">eliminate</msg>
+  <msg key="Email">email</msg>
+  <msg key="error_206">Partial content</msg>
+  <msg key="error_301">Document moved permanently</msg>
+  <msg key="error_302">Document found elsewhere</msg>
+  <msg key="error_304">Not modified since last retrieval</msg>
+  <msg key="error_400">Bad syntax</msg>
+  <msg key="error_401">Unauthorized</msg>
+  <msg key="error_403">Forbidden</msg>
+  <msg key="error_404">Not Found</msg>
+  <msg key="error_405">Method not allowed </msg>
+  <msg key="error_500">Internal Error</msg>
+  <msg key="error_501">Not Implemented</msg>
+  <msg key="error_502">Overloaded</msg>
+  <msg key="error_503">Service Unavailable</msg>
+  <msg key="error_504">Gateway Timeout</msg>
+  <msg key="error_505">HTTP Version not supported</msg>
+  <msg key="errors">Errors</msg>
+  <msg key="Errors_Report">Errors Report</msg>
+  <msg key="every_how_many_hours">Every how many hours?</msg>
+  <msg key="every_user_in_every_comm">Every user in every community</msg>
+  <msg key="every_x_hours">Every x hours</msg>
+  <msg key="FAQ_Name">FAQ Name</msg>
   <msg key="faq_name">FAQ Name</msg>
   <msg key="faq_question">Question</msg>
   <msg key="Faqs_Stats">Faqs Stats</msg>
   <msg key="Files_Stats">Files Stats</msg>
+  <msg key="Folder_Name">Folder Name</msg>
   <msg key="Forum_Name">Forum</msg>
+  <msg key="forums_added">Forums added</msg>
   <msg key="Forums_Stats">Forums Stats</msg>
+  <msg key="future_date">Requested date is in the future. Please select another date to make the statistics.</msg>
   <msg key="General_Options">General Options</msg>
+  <msg key="Hits">Hits</msg>
+  <msg key="Host">Host</msg>
+  <msg key="Hour">Hour</msg>
+  <msg key="ID">ID</msg>
+  <msg key="in_communities">in communities</msg>
+  <msg key="info_about">Info about</msg>
+  <msg key="info_about_consulted_material">Info about consulted material</msg>
+  <msg key="info_about_contributions">Info about contributions</msg>
+  <msg key="info_about_petitions">Info about petitions</msg>
+  <msg key="info_about_registered_users">Info about registered users</msg>
+  <msg key="init_time">Init Time</msg>
+  <msg key="instance_name">Instance name</msg>
+  <msg key="ips_visits">Visits by IP</msg>
+  <msg key="Key">Key</msg>
+  <msg key="Last_Visit">Last Visit</msg>
   <msg key="lt_Add_a_user">Add a user</msg>
   <msg key="lt_Advanced_Stats">Advanced Statistics</msg>
   <msg key="lt_Advanced_Stats_1">Advanced Statistics</msg>
   <msg key="lt_Communities_Stats">Communities Statistics</msg>
   <msg key="lt_Communities_Stats_1">Estadisticas de Comunidades</msg>
   <msg key="lt_Communities_Stats_2">Communities Statistics</msg>
   <msg key="lt_Delete_Selection">Delete Selection</msg>
+  <msg key="lt_month_over_which_statistics_are_seen">Month on which statistics are seen</msg>
   <msg key="lt_No_stats">No stats</msg>
   <msg key="lt_one_user_Stats">Statistics of #dotlrn.Users#</msg>
   <msg key="lt_Program_Data_Charge">Progam data charge</msg>
@@ -39,30 +94,71 @@
   <msg key="lt_View_Stats">View Statistics</msg>
   <msg key="lt_View_Users_Stats">View Users Statistics</msg>
   <msg key="lt_Write_Users_File">Write users data to config file</msg>
+  <msg key="Mail">email</msg>
+  <msg key="making_statistics_advanced">Making statistics for user/s with id/s: %onlyuser% in community/s with id/s: %onlylines%</msg>
+  <msg key="making_statistics_communities">Making statistics for community/s with id/s: </msg>
+  <msg key="making_statistics_site">Making statistics for the whole site</msg>
+  <msg key="making_statistics_users">Making statistics for the user/s with id/s:</msg>
   <msg key="messages_added">Messages added</msg>
+  <msg key="Messages_Stats">Messages Statistics</msg>
   <msg key="modified_files">Files modified</msg>
   <msg key="month">Month</msg>
+  <msg key="most_of_hits">Moments with more traffic</msg>
+  <msg key="Name">Name</msg>
   <msg key="News_Stats">News Stats</msg>
+  <msg key="News_Title">News Title</msg>
   <msg key="news_title">Title</msg>
+  <msg key="No_contributions">No contributions</msg>
+  <msg key="no_data">There is no data for this month</msg>
   <msg key="Non_active_news">Archived News</msg>
+  <msg key="Number">Number</msg>
+  <msg key="Number_of_sessions">Number of sessions</msg>
+  <msg key="Number_of_visitors">Number of visitors</msg>
+  <msg key="Number_of_Visits">Number of Visits</msg>
+  <msg key="Page">Page</msg>
+  <msg key="perioricity">Perioricity</msg>
+  <msg key="Person_name">Person name</msg>
   <msg key="Post_Date">Post Date</msg>
   <msg key="pretty_name">User Tracking</msg>
+  <msg key="Readed_Messages">Readed Messages</msg>
+  <msg key="Readed_News">Readed News</msg>
+  <msg key="Readed_Surveys">Visited Surveys</msg>
   <msg key="registers">Registrations</msg>
   <msg key="registers_number">Registrations number</msg>
+  <msg key="Registration_Date">Registration Date</msg>
+  <msg key="Registration_date">Registration Date</msg>
+  <msg key="Registrations_history">Registrations History</msg>
+  <msg key="reports_types">Reports types</msg>
+  <msg key="Screen_name">nick</msg>
+  <msg key="see">See</msg>
   <msg key="see_community_stats">See community stats</msg>
   <msg key="see_site_stats">See site stats</msg>
   <msg key="See_your_community_stats">See you community/class stats</msg>
   <msg key="see_your_site_stats">See your stats</msg>
   <msg key="See_your_stats">See your site stats</msg>
+  <msg key="server_name">Server name</msg>
+  <msg key="site_info">Site Info</msg>
   <msg key="Stats">Statistics</msg>
   <msg key="stats_subgroups">Stats with subgroups</msg>
   <msg key="Subject">Message subject</msg>
   <msg key="survey_goto">Ver Respuesta</msg>
+  <msg key="Survey_Name">Survey Name</msg>
   <msg key="survey_title">Title</msg>
   <msg key="Surveys_Stats">Surveys Stats</msg>
+  <msg key="temporary_reports">Temporary reports</msg>
+  <msg key="top10">Top 10</msg>
+  <msg key="Type">Type</msg>
+  <msg key="update_data">Update data</msg>
+  <msg key="updating_datafile">Updating data file</msg>
+  <msg key="updating_statistics">Updating statistics</msg>
+  <msg key="User_ID">Id</msg>
+  <msg key="user_info">User Info</msg>
+  <msg key="User_Name">User Name</msg>
   <msg key="User_Stats">Users Statistics</msg>
   <msg key="user_tracking_access_package">User Tracking access package</msg>
   <msg key="User_Tracking_Home">User Tracking Home</msg>
+  <msg key="Users">Users</msg>
+  <msg key="users_visits">Visits by user</msg>
   <msg key="ut_Are_Admin">Have an Admin role: %NofAdmin%</msg>
   <msg key="ut_Are_Students">Have a Student role: %NofUsers%</msg>
   <msg key="ut_Community_Name">Comunidad: %first_names%</msg>
@@ -82,6 +178,7 @@
   <msg key="ut_Number_Of_FAQS">Number of Faqs: %NofFaqs%</msg>
   <msg key="ut_Number_Of_Forums">Number of Forums: %NofForums%</msg>
   <msg key="ut_Number_Of_Members">Number of Members: %NofMembers%</msg>
+  <msg key="ut_Number_Of_Mesagges">N�mero de mensajes:</msg>
   <msg key="ut_Number_Of_News">Number of News: %NofNews%</msg>
   <msg key="ut_Number_Of_Proffesors">Number of Teachers: %NofAdmin%</msg>
   <msg key="ut_Number_of_Registers">Number of Registers</msg>
@@ -95,12 +192,13 @@
   <msg key="ut_See_Community_Stats">See Community Stats</msg>
   <msg key="ut_See_FAQS">See Faqs</msg>
   <msg key="ut_See_Files">See Files</msg>
-  <msg key="ut_See_Forums">Ver Foros</msg>
+  <msg key="ut_See_Folders">See Folders</msg>
+  <msg key="ut_See_Forums">See Fora</msg>
   <msg key="ut_See_Messages">See Messages</msg>
   <msg key="ut_See_News">See News</msg>
   <msg key="ut_See_Register_Historic">See Register Historic</msg>
   <msg key="ut_See_Subgroups_Com_Stats">See community stats with subgroups</msg>
-  <msg key="ut_See_Surveys">Ver Surveys</msg>
+  <msg key="ut_See_Surveys">See Surveys</msg>
   <msg key="ut_See_System_Stats">See Site Stats</msg>
   <msg key="ut_Site_objects">site objects</msg>
   <msg key="ut_Surveys">Surveys</msg>
@@ -109,8 +207,22 @@
   <msg key="ut_Type_Course">Type: Course</msg>
   <msg key="ut_User_has_Added">User has added</msg>
   <msg key="ut_User_has_posted">User has posted</msg>
+  <msg key="ut_ut_Forum_files">Files number:</msg>
   <msg key="ut_year">Year</msg>
   <msg key="Ver_Forosut_See_Forums">See Forums</msg>
   <msg key="Ver_Surveys">See Surveys</msg>
+  <msg key="Visited_Faqs">Visited Faqs</msg>
+  <msg key="Visited_folders">Visited Folders</msg>
+  <msg key="Visited_Forums">Visited Forums</msg>
+  <msg key="visited_object_top">Objects Visited (Top 10)</msg>
+  <msg key="Visited_Pages">Visited Pages</msg>
+  <msg key="Visits">Visits</msg>
+  <msg key="visits_by_hour">Visits by hour</msg>
+  <msg key="visits_by_monthday">Visits by day of month</msg>
+  <msg key="visits_by_user">visits by user</msg>
+  <msg key="visits_by_weekday">Visits by weekday</msg>
+  <msg key="visits_duration">Visits duration</msg>
+  <msg key="we_will_continue">We will continue automatically when update is complete</msg>
+  <msg key="weekly">Weekly</msg>
   <msg key="year">Year</msg>
 </message_catalog>
Index: openacs-4/packages/user-tracking/catalog/user-tracking.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/catalog/user-tracking.es_ES.ISO-8859-1.xml,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/catalog/user-tracking.es_ES.ISO-8859-1.xml	1 Mar 2005 17:35:30 -0000	1.1
+++ openacs-4/packages/user-tracking/catalog/user-tracking.es_ES.ISO-8859-1.xml	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,31 +1,86 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="user-tracking" package_version="0.1d" locale="es_ES" charset="ISO-8859-1">
+<message_catalog package_key="user-tracking" package_version="0.1d2" locale="es_ES" charset="ISO-8859-1">
 
   <msg key="Active_news">Noticias activas</msg>
   <msg key="add">a&amp;ntilde;adir</msg>
   <msg key="add_subgroups">a&amp;ntilde;adir con subgrupos</msg>
-  <msg key="added_faqs">FAQS a�adidos por:</msg>
+  <msg key="added_faqs">Faqs a�adidos</msg>
   <msg key="added_files">Ficheros creados</msg>
-  <msg key="added_files_by">Ficheros a�adidos por:</msg>
-  <msg key="Added_news">Noticias a�adidas por:</msg>
+  <msg key="added_files_by">Ficheros a�adidos</msg>
+  <msg key="Added_news">Noticias a�adidas</msg>
   <msg key="added_survey">Encuestas a�adidas por:</msg>
+  <msg key="Admin">Administraci�n de user-tracking</msg>
   <msg key="Admin_options">Opciones de Administrador</msg>
   <msg key="Administer">Administrar</msg>
+  <msg key="all_communities">Todas las clases/comunidades</msg>
+  <msg key="all_site">Todo el sitio web</msg>
+  <msg key="all_users">Todos los usuarios</msg>
+  <msg key="Communities">Comunidades</msg>
+  <msg key="community_info">Informaci�n sobre la comunidad</msg>
+  <msg key="Community_Name">Nombre de la comunidad</msg>
+  <msg key="Creation_Date">Fecha de creaci�n</msg>
+  <msg key="Daily">Diaria</msg>
+  <msg key="Data_from">Datos desde</msg>
+  <msg key="Data_to">Datos hasta</msg>
+  <msg key="Date">Fecha</msg>
+  <msg key="Day">D�a</msg>
+  <msg key="Duration">Duraci�n de las visitas</msg>
   <msg key="eliminate">Deseleccionar</msg>
+  <msg key="Email">email</msg>
+  <msg key="error_206">Contenido Parcial</msg>
+  <msg key="error_301">Documento movido temporalmente</msg>
+  <msg key="error_302">Documento encontrado en otro lugar</msg>
+  <msg key="error_304">Documento no modificado desde &amp;uacute;ltima peticion</msg>
+  <msg key="error_400">Error de sintaxis</msg>
+  <msg key="error_401">Acceso no autorizado</msg>
+  <msg key="error_403">Acceso Prohibido</msg>
+  <msg key="error_404">No encontrado</msg>
+  <msg key="error_405">Metodo no permitido</msg>
+  <msg key="error_500">Error interno</msg>
+  <msg key="error_501">No implementado</msg>
+  <msg key="error_502">Sobrecargado</msg>
+  <msg key="error_503">Servicio no disponible</msg>
+  <msg key="error_504">Gateway fuera de tiempo</msg>
+  <msg key="error_505">Version HTTP no soportada</msg>
+  <msg key="errors">Errores</msg>
+  <msg key="Errors_Report">Informe de Errores</msg>
+  <msg key="every_how_many_hours">�Cada cu�ntas horas?</msg>
+  <msg key="every_user_in_every_comm">Cada usuario en cada clase/comunidad</msg>
+  <msg key="every_x_hours">Cada x horas</msg>
+  <msg key="FAQ_Name">Nombre del FAQ</msg>
   <msg key="faq_name">Nombre del FAQ</msg>
   <msg key="faq_question">Pregunta</msg>
   <msg key="Faqs_Stats">Estadisticas de Faqs</msg>
   <msg key="Files_Stats">Estadisticas de Ficheros</msg>
-  <msg key="Forum_Name">Foro</msg>
+  <msg key="Folder_Name">Nombre de la carpeta</msg>
+  <msg key="Forum_Name">Nombre del foro</msg>
+  <msg key="forums_added">Foros a�adidos</msg>
   <msg key="Forums_Stats">Estadisticas de Foros</msg>
+  <msg key="future_date">La fecha solicitada es una fecha futura. Por favor, selecciona otra fecha sobre la que elaborar las estad�sticas.</msg>
   <msg key="General_Options">Opciones Generales</msg>
+  <msg key="Hits">Hits</msg>
+  <msg key="Host">Host</msg>
+  <msg key="Hour">Hora</msg>
+  <msg key="ID">ID</msg>
+  <msg key="in_communities">en comunidades</msg>
+  <msg key="info_about">Informaci�n sobre</msg>
+  <msg key="info_about_consulted_material">Informaci�n sobre el material consultado</msg>
+  <msg key="info_about_contributions">Informaci�n sobre contribuciones</msg>
+  <msg key="info_about_petitions">Informaci�n sobre peticiones</msg>
+  <msg key="info_about_registered_users">Informaci�n sobre usuarios registrados</msg>
+  <msg key="init_time">Hora de inicio</msg>
+  <msg key="instance_name">Nombre de la instancia</msg>
+  <msg key="ips_visits">Visitas por IP</msg>
+  <msg key="Key">Key</msg>
+  <msg key="Last_Visit">�ltima Visita</msg>
   <msg key="lt_Add_a_user">A�adir usuario</msg>
   <msg key="lt_Advanced_Stats">Estad�sticas Avanzadas</msg>
   <msg key="lt_Advanced_Stats_1">Estad�sticas avanzadas</msg>
   <msg key="lt_Communities_Stats">Estad�sticas de comunidades</msg>
   <msg key="lt_Communities_Stats_1">Estadisticas de Comunidades</msg>
   <msg key="lt_Communities_Stats_2">Estadisticas de Comunidades</msg>
   <msg key="lt_Delete_Selection">Borrar Selecci&amp;oacute;n</msg>
+  <msg key="lt_month_over_which_statistics_are_seen">Mes sobre el que se ven las estad�sticas de acceso</msg>
   <msg key="lt_No_stats">Sin estad&amp;iacute;sticas </msg>
   <msg key="lt_one_user_Stats">Estad&amp;iacute;sticas de usuarios</msg>
   <msg key="lt_Program_Data_Charge">Programar carga de datos</msg>
@@ -39,30 +94,71 @@
   <msg key="lt_View_Stats">Ver estad�sticas</msg>
   <msg key="lt_View_Users_Stats">Ver estad&amp;iacute;sticas de usuarios</msg>
   <msg key="lt_Write_Users_File">Escribir los datos de los usuarios al fichero de configuraci�n</msg>
+  <msg key="Mail">email</msg>
+  <msg key="making_statistics_advanced">Generando estad�sticas para el/los usuario/s con id/s: %onlyuser% en la/s comunidade/s con id/s: %onlylines%</msg>
+  <msg key="making_statistics_communities">Generando estad�sticas para la/s comunidade/s con id/s:</msg>
+  <msg key="making_statistics_site">Generando estad�siticas para el sitio completo</msg>
+  <msg key="making_statistics_users">Generando estad�sticas para el/los usuarios con id/s:</msg>
   <msg key="messages_added">Mensajes A�adidos</msg>
+  <msg key="Messages_Stats">Estad�sticas de Mensajes</msg>
   <msg key="modified_files">Ficheros modificados</msg>
   <msg key="month">Mes</msg>
+  <msg key="most_of_hits">Momentos con m�s tr�fico</msg>
+  <msg key="Name">Nombre</msg>
   <msg key="News_Stats">Estadisticas de Noticias</msg>
+  <msg key="News_Title">T�tulo de la noticia</msg>
   <msg key="news_title">T�tulo de la noticia</msg>
+  <msg key="No_contributions">No hay contribuciones</msg>
+  <msg key="no_data">No hay datos para este mes</msg>
   <msg key="Non_active_news">Noticias archivadas</msg>
+  <msg key="Number">N�mero</msg>
+  <msg key="Number_of_sessions">N�mero de sesiones</msg>
+  <msg key="Number_of_visitors">N�mero de visitantes</msg>
+  <msg key="Number_of_Visits">N�mero de visitas</msg>
+  <msg key="Page">P�gina</msg>
+  <msg key="perioricity">Perioricidad</msg>
+  <msg key="Person_name">Nombre</msg>
   <msg key="Post_Date">Fecha de publicaci�n</msg>
   <msg key="pretty_name">User Tracking</msg>
+  <msg key="Readed_Messages">Mensajes leidos</msg>
+  <msg key="Readed_News">Noticias le�das</msg>
+  <msg key="Readed_Surveys">Encuestas visitadas</msg>
   <msg key="registers">Registros</msg>
   <msg key="registers_number">N�mero de Registros</msg>
+  <msg key="Registration_Date">Fecha de registro</msg>
+  <msg key="Registration_date">Fecha de Registro</msg>
+  <msg key="Registrations_history">Historial de registros</msg>
+  <msg key="reports_types">Tipos de informes</msg>
+  <msg key="Screen_name">nick</msg>
+  <msg key="see">Ver</msg>
   <msg key="see_community_stats">Ver estad&amp;iacute;sticas completas de esta comunidad</msg>
   <msg key="see_site_stats">Ver estad&amp;iacute;sticas completas del site</msg>
   <msg key="See_your_community_stats">Ver tus estad&amp;iacute;sticas en esta comunidad / clase</msg>
   <msg key="see_your_site_stats">Ver tus estad&amp;iacute;sticas</msg>
   <msg key="See_your_stats">Ver tus estad&amp;iacute;sticas en el site</msg>
+  <msg key="server_name">Nombre del servidor</msg>
+  <msg key="site_info">Informaci�n sobre el sitio</msg>
   <msg key="Stats">Estad�sticas</msg>
   <msg key="stats_subgroups">Estad&amp;iacute;sticas con subgrupos</msg>
   <msg key="Subject">Asunto del mensaje</msg>
   <msg key="survey_goto">Ver Respuesta</msg>
+  <msg key="Survey_Name">Nombre de la encuesta</msg>
   <msg key="survey_title">T�tulo</msg>
   <msg key="Surveys_Stats">Estadisticas de Surveys</msg>
-  <msg key="User_Stats">Estad�sticas de Usuario</msg>
+  <msg key="temporary_reports">Informes temporales</msg>
+  <msg key="top10">Top 10</msg>
+  <msg key="Type">Tipo</msg>
+  <msg key="update_data">Actualizar datos</msg>
+  <msg key="updating_datafile">Actualizando el fichero de datos</msg>
+  <msg key="updating_statistics">Actualizando estad�sticas</msg>
+  <msg key="User_ID">Id</msg>
+  <msg key="user_info">Informaci�n del usuario</msg>
+  <msg key="User_Name">Nombre de usuario</msg>
+  <msg key="User_Stats">Estad�sticas de usuarios</msg>
   <msg key="user_tracking_access_package">Acceso al paquete de User Tracking</msg>
   <msg key="User_Tracking_Home">User Tracking</msg>
+  <msg key="Users">Usuarios</msg>
+  <msg key="users_visits">Visitas por usuario</msg>
   <msg key="ut_Are_Admin">Participan como Administradores: %NofAdmin%</msg>
   <msg key="ut_Are_Students">Participan como Estudiantes: %NofUsers%</msg>
   <msg key="ut_Community_Name">Comunidad: %first_names%</msg>
@@ -82,10 +178,12 @@
   <msg key="ut_Number_Of_FAQS">N&amp;uacute;mero de Faqs: %NofFaqs%</msg>
   <msg key="ut_Number_Of_Forums">N�mero de Foros: %NofForums%</msg>
   <msg key="ut_Number_Of_Members">N&amp;uacute;mero de Miembros: %NofMembers%</msg>
+  <msg key="ut_Number_Of_Mesagges">N�mero de mensajes:</msg>
   <msg key="ut_Number_Of_News">N�mero de Noticias: %NofNews%</msg>
   <msg key="ut_Number_Of_Proffesors">N&amp;uacute;mero de Profesores: %NofAdmin%</msg>
   <msg key="ut_Number_of_Registers">N&amp;uacute;mero de Registros</msg>
   <msg key="ut_Number_Of_Students">N&amp;uacute;mero de Estudiantes: %NofUsers%</msg>
+  <msg key="ut_Number_Of_Sub">Numero de subComunidades: %NofSub%</msg>
   <msg key="ut_Number_Of_Surveys">N&amp;uacute;mero de Surveys: %NofSurveys%</msg>
   <msg key="ut_Number_Of_Users">N&amp;uacute;mero de Usuarios: %NofUsers%</msg>
   <msg key="ut_Number_Of_Users_1">N�mero de Usuarios: %NofMembers%</msg>
@@ -94,10 +192,12 @@
   <msg key="ut_See_Community_Stats">Ver estad&amp;iacute;sticas de comunidad</msg>
   <msg key="ut_See_FAQS">Ver FAQS</msg>
   <msg key="ut_See_Files">Ver Ficheros</msg>
+  <msg key="ut_See_Folders">Ver Carpetas</msg>
   <msg key="ut_See_Forums">Ver Foros</msg>
-  <msg key="ut_See_Messages">Ver mensajes</msg>
+  <msg key="ut_See_Messages">Ver Mensajes</msg>
   <msg key="ut_See_News">Ver News</msg>
   <msg key="ut_See_Register_Historic">Ver Historial de Registros</msg>
+  <msg key="ut_See_Subgroups_Com_Stats">Ver estad�sitacas de la comunidad y sus subgrupos</msg>
   <msg key="ut_See_Surveys">Ver surveys</msg>
   <msg key="ut_See_System_Stats">Ver estad�sticas de movimiento en el sistema</msg>
   <msg key="ut_Site_objects">objetos del site</msg>
@@ -106,9 +206,23 @@
   <msg key="ut_Type_Club">Tipo: Comunidad</msg>
   <msg key="ut_Type_Course">Tipo: Curso</msg>
   <msg key="ut_User_has_Added">El usuario ha a&amp;ntilde;adido</msg>
-  <msg key="ut_User_has_posted">El usuario ha posteado</msg>
+  <msg key="ut_User_has_posted">N�mero de mensajes:</msg>
+  <msg key="ut_ut_Forum_files">N�mero de ficheros:</msg>
   <msg key="ut_year">A&amp;ntilde;o</msg>
   <msg key="Ver_Forosut_See_Forums">Ver Foros</msg>
   <msg key="Ver_Surveys">Ver Surveys</msg>
+  <msg key="Visited_Faqs">Faqs visitados</msg>
+  <msg key="Visited_folders">Carpetas visitadas</msg>
+  <msg key="Visited_Forums">Foros visitados</msg>
+  <msg key="visited_object_top">Objetos visitados (Top 10)</msg>
+  <msg key="Visited_Pages">P�ginas Visitadas</msg>
+  <msg key="Visits">Visitas</msg>
+  <msg key="visits_by_hour">Visitas por hora</msg>
+  <msg key="visits_by_monthday">Visitas por d�a del mes</msg>
+  <msg key="visits_by_user">visitas por usuario</msg>
+  <msg key="visits_by_weekday">Visitas por d�a de la semana</msg>
+  <msg key="visits_duration">Duraci�n de las visitas</msg>
+  <msg key="we_will_continue">Continuaremos autom�ticamente una vez que se complete la actualizaci�n</msg>
+  <msg key="weekly">Semanal</msg>
   <msg key="year">A&amp;ntilde;o</msg>
 </message_catalog>
Index: openacs-4/packages/user-tracking/config/AllowedUrls.conf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/config/Attic/AllowedUrls.conf,v
diff -u -N
--- openacs-4/packages/user-tracking/config/AllowedUrls.conf	1 Mar 2005 17:35:30 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1 +0,0 @@

\ No newline at end of file
Index: openacs-4/packages/user-tracking/config/awstatsDirecto.class.conf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/config/Attic/awstatsDirecto.class.conf,v
diff -u -N
--- openacs-4/packages/user-tracking/config/awstatsDirecto.class.conf	1 Mar 2005 17:35:32 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,1529 +0,0 @@
-# AWSTATS CONFIGURE FILE 6.2
-#-----------------------------------------------------------------------------
-# Copy this file into awstats.www.mydomain.conf and edit this new config file
-# to setup AWStats (See documentation in docs/ directory).
-# The config file must be in /etc/awstats, /usr/local/etc/awstats or /etc (for
-# Unix/Linux) or same directory than awstats.pl (Windows, Mac, Unix/Linux...)
-# To include an environment variable in any parameter (AWStats will replace
-# it with its value when reading it), follow the example:
-# Parameter="__ENVNAME__"
-# Note that environment variable AWSTATS_CURRENT_CONFIG is always defined with
-# the config value in an AWStats running session and can be used like others.
-#-----------------------------------------------------------------------------
-# $Revision: 1.1 $ - $Author: rocaelh $ - $Date: 2005/03/01 17:35:32 $
-
-
-
-#-----------------------------------------------------------------------------
-# MAIN SETUP SECTION (Required to make AWStats work)
-#-----------------------------------------------------------------------------
-
-# "LogFile" contains the web, ftp or mail server log file to analyze.
-# Possible values: A full path, or a relative path from awstats.pl directory.
-# Example: "/var/log/apache/access.log"
-# Example: "../logs/mycombinedlog.log"
-# You can also use tags in this filename if you need a dynamic file name
-# depending on date or time (Replacement is made by AWStats at the beginning
-# of its execution). This is available tags :
-#   %YYYY-n  is replaced with 4 digits year we were n hours ago
-#   %YY-n    is replaced with 2 digits year we were n hours ago
-#   %MM-n    is replaced with 2 digits month we were n hours ago
-#   %MO-n    is replaced with 3 letters month we were n hours ago
-#   %DD-n    is replaced with day we were n hours ago
-#   %HH-n    is replaced with hour we were n hours ago
-#   %NS-n    is replaced with number of seconds at 00:00 since 1970
-#   %WM-n    is replaced with the week number in month (1-5)
-#   %Wm-n    is replaced with the week number in month (0-4)
-#   %WY-n    is replaced with the week number in year (01-52)
-#   %Wy-n    is replaced with the week number in year (00-51)
-#   %DW-n    is replaced with the day number in week (1-7, 1=sunday)
-#                              use n=24 if you need (1-7, 1=monday)
-#   %Dw-n    is replaced with the day number in week (0-6, 0=sunday)
-#                              use n=24 if you need (0-6, 0=monday)
-#   Use 0 for n if you need current year, month, day, hour...
-# Example: "/var/log/access_log.%YYYY-0%MM-0%DD-0.log"
-# Example: "C:/WINNT/system32/LogFiles/W3SVC1/ex%YY-24%MM-24%DD-24.log"
-# You can also use a pipe if log file come from a pipe :
-# Example: "gzip -d </var/log/apache/access.log.gz |"
-# If there is several log files from load balancing servers :
-# Example: "/pathtotools/logresolvemerge.pl *.log |"
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-# Enter the log file type you want to analyze.
-# Possible values:
-#  W - For a web log file
-#  S - For a streaming log file
-#  M - For a mail log file
-#  F - For a ftp log file
-# Example: W
-# Default: W
-#
-LogType=W
-
-
-# Enter here your log format (Must match your web server config. See setup
-# instructions in documentation know how to configure your web server to have
-# the required log format).
-# Possible values: 1,2,3,4 or "your_own_personalized_log_format"
-# 1 - Apache or Lotus Notes/Domino native combined log format (NCSA combined/XLF/ELF log format)
-# 2 - Old IIS log format (IIS W3C log format). See FAQ for IIS 6.x.
-# 3 - Webstar native log format.
-# 4 - Apache or Squid native common log format (NCSA common/CLF log format)
-#     With LogFormat=4, some features (browsers, os, keywords...) can't work.
-# "your_own_personalized_log_format" = If your log is ftp, mail or other format,
-#     you must use following keys to define the log format string (See FAQ
-#     for ftp, mail or exotic web log format examples):
-#   %host             Host client name or IP address
-#   %lognamequot      Authenticated login/user with format: "john"
-#   %logname          Authenticated login/user with format: john
-#   %time1            Date and time with format: [dd/mon/yyyy:hh:mm:ss +0000] or [dd/mon/yyyy:hh:mm:ss]
-#   %time2            Date and time with format: yyyy-mm-dd hh:mm:ss
-#   %time3            Date and time with format: Mon dd hh:mm:ss or Mon dd hh:mm:ss yyyy
-#   %time4            Date and time with unix timestamp format: dddddddddd
-#   %methodurl        Method and URL with format: "GET /index.html HTTP/x.x"
-#   %methodurlnoprot  Method and URL with format: "GET /index.html"
-#   %method           Method with format: GET
-#   %url              URL only with format: /index.html
-#   %query            Query string (used by URLWithQuery option)
-#   %code             Return code status (with format for web log: 999)
-#   %bytesd           Size of document in bytes
-#   %refererquot      Referer page with format: "http://from.com/from.htm"
-#   %referer          Referer page with format: http://from.com/from.htm
-#   %uaquot           User agent with format: "Mozilla/4.0 (compatible, ...)"
-#   %ua               User agent with format: Mozilla/4.0_(compatible...)
-#   %gzipin           mod_gzip compression input bytes: In:XXX
-#   %gzipout          mod_gzip compression output bytes & ratio: Out:YYY:ZZpct.
-#   %gzipratio        mod_gzip compression ratio: ZZpct.
-#   %deflateratio     mod_deflate compression ratio with format: (ZZ)
-#   %email            EMail sender (for mail log)
-#   %email_r          EMail receiver (for mail log)
-#   %virtualname      Web sever virtual hostname. Use this tag when same log
-#                     contains data of several virtual web servers. AWStats
-#                     will discard records not in SiteDomain nor HostAliases
-#   %cluster          If log file is provided from several computers (merged by
-#                     logresolvemerge.pl), use this to define cluster id field.
-#   %extraX           Another field that you plan to use for building a
-#                     personalized report with ExtraSection feature (See later).
-#   If your log format has some fields not included in this list, use:
-#   %other            Means another not used field
-#   %otherquot        Means another not used double quoted field
-#
-# Examples for Apache combined logs (following two examples are equivalent):
-# LogFormat = 1
-# LogFormat = "%host %other %logname %time1 %methodurl %code %bytesd %refererquot %uaquot"
-#
-LogFormat= "%host %other %other %time1 %methodurl %code %bytesd %refererquot %uaquot %lognamequot %extra1
-
-# If your log field's separator is not a space, you can change this parameter.
-# This parameter is not used if LogFormat is a predefined value (1,2,3,4)
-# Backslash can be used as escape character.
-# Example: " "
-# Example: "\t"
-# Example: "\|"
-# Default: " "
-#
-LogSeparator=" "
-
-
-# "SiteDomain" must contain the main domain name, or the main intranet web
-# server name, used to reach the web site.
-# If you share the same log file for several virtual web servers, this
-# parameter is used to tell AWStats to filter record that contains records for
-# this virtual host name only (So check that this virtual hostname can be
-# found in your log file and use a personalized log format that include the
-# %virtualname tag).
-# But for multi hosting a better solution is to have one log file for each
-# virtual web server. In this case, this parameter is only used to generate
-# full URL's links when ShowLinksOnUrl option is set to 1.
-# If analysing mail log, enter here the domain name of mail server.
-# Example: "myintranetserver"
-# Example: "www.domain.com"
-# Example: "ftp.domain.com"
-# Example: "domain.com"
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-
-
-# Enter here all other possible domain names, addresses or virtual host
-# aliases someone can use to access your site. Try to keep only the minimum
-# number of possible names/addresses to have the best performances.
-# You can repeat the "SiteDomain" value in this list.
-# This parameter is used to analyze referer field in log file and to help
-# AWStats to know if a referer URL is a local URL of same site or an URL of
-# another site.
-# Note: Use space between each value.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Example: "www.myserver.com localhost 127.0.0.1 REGEX[mydomain\.(net|org)$]"
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-
-# If you want to have hosts reported by name instead of ip address, AWStats
-# need to make reverse DNS lookups (if not already done in your log file).
-# With DNSLookup to 0, all hosts will be reported by their IP addresses and
-# not by the full hostname of visitors (except if names are already available
-# in log file).
-# If you want/need to set DNSLookup to 1, don't forget that this will reduce
-# dramatically AWStats update process speed. Do not use on large web sites.
-# Note: Reverse DNS lookup is done on IPv4 only (Enable ipv6 plugin for IPv6).
-# Note: Result of DNS Lookup can be used to build the Country report. However
-# it is highly recommanded to enable the plugin 'geoipfree' or 'geoip' to
-# have an accurate Country report with no need of DNS Lookup.
-# Possible values:
-# 0 - No DNS Lookup
-# 1 - DNS Lookup is fully enabled
-# 2 - DNS Lookup is made only from static DNS cache file (if it exists)
-# Default: 2
-# 
-DNSLookup=2
-
-
-# When AWStats updates its statistics, it stores results of its analysis in 
-# files (AWStats database). All those files are written in the directory
-# defined by the "DirData" parameter. Set this value to the directory where
-# you want AWStats to save its database and working files into.
-# Warning: If you want to be able to use the "AllowToUpdateStatsFromBrowser"
-# feature (see later), you need "Write" permissions by web server user on this
-# directory (and "Modify" for Windows NTFS file systems).
-# Example: "/var/lib/awstats"
-# Example: "../data"
-# Example: "C:/awstats_data_dir"
-# Default: "."          (means same directory as awstats.pl)
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-
-# Relative or absolute web URL of your awstats cgi-bin directory.
-# This parameter is used only when AWStats is run from command line
-# with -output option (to generate links in HTML reported page).
-# Example: "/awstats"
-# Default: "/cgi-bin"   (means awstats.pl is in "/yourwwwroot/cgi-bin")
-#
-DirCgi="/cgi-bin"
-
-
-# Relative or absolute web URL of your awstats icon directory.
-# If you build static reports ("... -output > outputpath/output.html"), enter
-# path of icon directory relative to the output directory 'outputpath'.
-# Example: "/awstatsicons"
-# Example: "../icon"
-# Default: "/icon" (means you must copy icon directories in "/mywwwroot/icon")
-#
-DirIcons="/user-tracking/awstats/icon"
-
-
-# When this parameter is set to 1, AWStats add a button on report page to
-# allow to "update" statistics from a web browser. Warning, when "update" is
-# made from a browser, AWStats is ran as a CGI by the web server user defined
-# in your web server (user "nobody" by default with Apache, "IUSR_XXX" with
-# IIS), so the "DirData" directory and all already existing history files
-# awstatsMMYYYY[.xxx].txt must be writable by this user. Change permissions if
-# necessary to "Read/Write" (and "Modify" for Windows NTFS file systems).
-# Warning: Update process can be long so you might experience "time out"
-# browser errors if you don't launch AWStats enough frequently.
-# When set to 0, update is only made when AWStats is ran from the command
-# line interface (or a task scheduler).
-# Possible values: 0 or 1
-# Default: 0
-#
-AllowToUpdateStatsFromBrowser=1
-
-
-# AWStats save and sort its database on a month basis, this allows to build
-# build a report quickly. However, if you choose the -month=all from command
-# line or value '-Year-' from CGI combo form to have a report for all year,
-# AWStats needs to reload all data for full year, and resort them completely,
-# requiring a large amount of time, memory and CPU. This might be a problem
-# for web hosting providers that offer AWStats for large sites, on shared
-# servers, to non CPU cautious customers.
-# For this reason, the 'full year' is only enabled on Command Line by default.
-# You can change this by setting this parameter to 0, 1, 2 or 3.
-# Possible values:
-#  0 - Never allowed
-#  1 - Allowed on CLI only, -Year- value in combo is not visible
-#  2 - Allowed on CLI only, -Year- value in combo is visible but not allowed
-#  3 - Possible on CLI and CGI
-# Default: 2
-#
-AllowFullYearView=3
-
-
-
-#-----------------------------------------------------------------------------
-# OPTIONAL SETUP SECTION (Not required but increase AWStats features)
-#-----------------------------------------------------------------------------
-
-# When the update process run, AWStats can set a lock file in TEMP or TMP
-# directory. This lock is to avoid to have 2 update processes running at the
-# same time to prevent unknown conflicts problems and avoid DoS attacks when
-# AllowToUpdateStatsFromBrowser is set to 1.
-# Because, when you use lock file, you can experience sometimes problems in
-# lock file not correctly removed (killed process for example requires that
-# you remove the file manualy), this option is not enabled by default (Do
-# not enable this option with no console server access).
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 0
-#
-EnableLockForUpdate=1
-
-
-# AWStats can do reverse DNS lookups through a static DNS cache file that was
-# previously created manually. If no path is given in static DNS cache file
-# name, AWStats will search DirData directory. This file is never changed.
-# This option is not used if DNSLookup=0.
-# Note: DNS cache file format is 'minsince1970 ipaddress resolved_hostname'
-# or just 'ipaddress resolved_hostname'
-# Change : Effective for new updates only
-# Example: "/mydnscachedir/dnscache"
-# Default: "dnscache.txt"
-#
-DNSStaticCacheFile="dnscache.txt"
-
-
-# AWStats can do reverse DNS lookups through a DNS cache file that was created
-# by a previous run of AWStats. This file is erased and recreated after each
-# statistics update process. You don't need to create and/or edit it.
-# AWStats will read and save this file in DirData directory.
-# This option is used only if DNSLookup=1.
-# Note: If a DNSStaticCacheFile is available, AWStats will check for DNS
-# lookup in DNSLastUpdateCacheFile after checking into DNSStaticCacheFile.
-# Change : Effective for new updates only
-# Example: "/mydnscachedir/dnscachelastupdate"
-# Default: "dnscachelastupdate.txt"
-#
-DNSLastUpdateCacheFile="dnscachelastupdate.txt"
-
-
-# You can specify specific IP addresses that should NOT be looked up in DNS.
-# This option is used only if DNSLookup=1.
-# Note: Use space between each value.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "123.123.123.123 REGEX[^192\.168\.]"
-# Default: ""
-#
-SkipDNSLookupFor=""
-
-
-# The following two parameters allow you to protect a config file from being
-# read by AWStats when called from a browser if web user has not been
-# authenticated. Your AWStats program must be in a web protected "realm" (With
-# Apache, you can use .htaccess files to do so. With other web servers, see
-# your server setup manual).
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 0
-#
-AllowAccessFromWebToAuthenticatedUsersOnly=0
-
-
-# This parameter give the list of all authorized authenticated users to view
-# statistics for this domain/config file. This parameter is used only if
-# AllowAccessFromWebToAuthenticatedUsersOnly is set to 1.
-# Change : Effective immediatly
-# Example: "user1 user2"
-# Example: "__REMOTE_USER__"
-# Default: ""
-#
-AllowAccessFromWebToFollowingAuthenticatedUsers=""
-
-
-# When this parameter is define to something, the IP address of the user that
-# read its statistics from a browser (when AWStats is used as a CGI) is
-# checked and must match one of the IP address values or ranges.
-# Change : Effective immediatly
-# Example: "127.0.0.1 123.123.123.1-123.123.123.255"
-# Default: ""
-#
-AllowAccessFromWebToFollowingIPAddresses=""
-
-
-# If the "DirData" directory (see above) does not exists, AWStats return an
-# error. However, you can ask AWStats to create it.
-# This option can be used by some Web Hosting Providers that has defined a 
-# dynamic value for DirData (for example DirData="/home/__REMOTE_USER__") and
-# don't want to have to create a new directory each time they add a new user.
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 0
-#
-CreateDirDataIfNotExists=1
-
-
-# You can choose in which format the Awstats history database is saved.
-# Note: Using "xml" format make AWStats building database files three times
-# larger than using "text" format.
-# Change : Database format is switched after next update
-# Possible values: text or xml
-# Default: text
-#
-BuildHistoryFormat=text
-
-
-# If you prefer having the report output pages be built as XML compliant pages
-# instead of simple HTML pages, you can set this to 'xhtml' (May not works
-# properly with old browsers).
-# Change : Effective immediatly
-# Possible values: html or xhtml
-# Default: html
-#
-BuildReportFormat=html
-
-
-# In most case, AWStats is used as a cgi program. So AWStats process is ran
-# by default web server user (nobody for Unix, IUSR_xxx for IIS/Windows,...).
-# To make use easier and avoid permission's problems between update process 
-# (run by an admin user) and CGI process (ran by a low level user), AWStats
-# save its database files with read and write for everyone.
-# If you have experience on managing security policies (Web Hosting Provider),
-# you should set this parameter to 0. AWStats will keep default process user
-# permissions on its files.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 1
-#
-SaveDatabaseFilesWithPermissionsForEveryone=1
-
-
-# AWStats can purge log file, after analyzing it. Note that AWStats is able
-# to detect new lines in a log file, to process only them, so you can launch
-# AWStats as often as you want, even with this parameter to 0.
-# With 0, no purge is made, so you must use a scheduled task or a web server
-# that make this purge frequently.
-# With 1, the purge of the log file is made each time AWStats update is ran.
-# This parameter doesn't work with IIS (This web server doesn't let its log
-# file to be purged).
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-PurgeLogFile=0
-
-
-# When PurgeLogFile is setup to 1, AWStats will clean your log file after
-# processing it. You can however keep an archive file (saved in "DirData") of
-# all processed log records by setting this to 1 (For example if you want to
-# use another log analyzer).
-# This parameter is not used if PurgeLogFile=0
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-ArchiveLogRecords=0
-
-
-# Each time you run the update process, AWStats overwrite the 'historic file'
-# for the month (awstatsMMYYYY[.*].txt) with the updated one.
-# When write errors occurs (IO, disk full,...), this historic file can be
-# corrupted and must be deleted. Because this file contains information of all
-# past processed log files, you will loose old stats if removed. So you can
-# ask AWStats to save last non corrupted file in a .bak file. This file is
-# stored in "DirData" directory with other 'historic files'.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-KeepBackupOfHistoricFiles=0
-
-
-# Default index page name for your web server.
-# Change : Effective for new updates only
-# Example: "index.php index.html default.html"
-# Default: "index.html"
-#
-DefaultFile="index.html"
-
-
-# Do not include access from clients that match following criteria.
-# If your log file contains IP adresses in host field, you must enter here
-# matching IP adresses criteria.
-# If DNS lookup is already done in your log file, you must enter here hostname
-# criteria, else enter ip address criteria.
-# The opposite parameter of "SkipHosts" is "OnlyHosts".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "127.0.0.1 REGEX[^192\.168\.] REGEX[^10\.]"
-# Example: "localhost REGEX[^.*\.localdomain$]"
-# Default: ""
-#
-SkipHosts=""
-
-
-# Do not include access from clients with a user agent that match following
-# criteria. If you want to exclude a robot, you should update the robots.pm
-# file instead of this parameter.
-# The opposite parameter of "SkipUserAgents" is "OnlyUserAgents".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "konqueror REGEX[ua_test_v\d\.\d]"
-# Default: ""
-#
-SkipUserAgents=""
-
-
-# Use SkipFiles to ignore access to URLs that match one of following entries.
-# You can enter a list of not important URLs (like framed menus, hidden pages,
-# etc...) to exclude them from statistics. You must enter here exact relative
-# URL as found in log file, or a matching REGEX value.
-# For example, to ignore /badpage.html, just add "/badpage.html". To ignore
-# all pages in a particular directory, add "REGEX[^\/directorytoexclude]".
-# The opposite parameter of "SkipFiles" is "OnlyFiles".
-# Note: Use space between each value. This parameter is or not case sensitive
-# depending on URLNotCaseSensitive parameter.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "/badpage.html REGEX[^\/excludedirectory]"
-# Default: ""
-#
-SkipFiles=""
-
-
-# Include in stats, only accesses from hosts that match one of following
-# entries. For example, if you want AWStats to filter access to keep only
-# stats for visits from particular hosts, you can add those hosts names in
-# this parameter.
-# If DNS lookup is already done in your log file, you must enter here hostname
-# criteria, else enter ip address criteria.
-# The opposite parameter of "OnlyHosts" is "SkipHosts".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "127.0.0.1 REGEX[^192\.168\.] REGEX[^10\.]"
-# Default: ""
-#
-OnlyHosts=""
-
-
-# Include in stats, only accesses from user agent that match one of following
-# entries. For example, if you want AWStats to filter access to keep only
-# stats for visits from particular browsers, you can add their user agents
-# string in this parameter.
-# The opposite parameter of "OnlyUserAgents" is "SkipUserAgents".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "msie"
-# Default: ""
-#
-OnlyUserAgents=""
-
-
-# Include in stats, only accesses to URLs that match one of following entries.
-# For example, if you want AWStats to filter access to keep only stats that
-# match a particular string, like a particular directory, you can add this
-# directory name in this parameter.
-# The opposite parameter of "OnlyFiles" is "SkipFiles".
-# Note: Use space between each value. This parameter is or not case sensitive
-# depending on URLNotCaseSensitive parameter.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "REGEX[marketing_directory] REGEX[office\/.*\.(csv|sxw)$]"
-# Default: ""
-#
-#OnlyFiles=""
-
-
-# Add here a list of kind of url (file extension) that must be counted as
-# "Hit only" and not as a "Hit" and "Page/Download". You can set here all
-# images extensions as they are hit downloaded that must be counted but they
-# are not viewed pages. URLs with such extensions are not included in the TOP
-# Pages/URL report.
-# Note: If you want to exclude particular URLs from stats (No Pages and no
-# Hits reported), you must use SkipFiles parameter.
-# Change : Effective for new updates only
-# Example: "css js class gif jpg jpeg png bmp ico zip arj gz z wav mp3 wma mpg"
-# Example: ""
-# Default: "css js class gif jpg jpeg png bmp ico"
-#
-NotPageList="css js class gif jpg jpeg png bmp ico"
-
-
-# By default, AWStats considers that records found in web log file are
-# successful hits if HTTP code returned by server is a valid HTTP code (200
-# and 304). Any other code are reported in HTTP status chart.
-# Note that HTTP 'control codes', like redirection (302, 305) are not added by
-# default in this list as they are not pages seen by a visitor but are
-# protocol exchange codes to tell the browser to ask another page. Because
-# this other page will be counted and seen with a 200 or 304 code, if you 
-# add such codes, you will have 2 pages viewed reported for only one in facts.
-# Change : Effective for new updates only
-# Example: "200 304 302 305"
-# Default: "200 304"
-#
-ValidHTTPCodes="200 304"
-
-
-# By default, AWStats considers that records found in mail log file are
-# successful mail transfers if field that represent return code in analyzed
-# log file match values defined by this parameter.
-# Change : Effective for new updates only
-# Example: "1 250 200"
-# Default: "1 250"
-#
-ValidSMTPCodes="1 250"
-
-
-# Some web servers on some Operating systems (IIS-Windows) considers that a
-# login with same value but different case are the same login. To tell AWStats
-# to also considers them as one, set this parameter to 1.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-# 
-AuthenticatedUsersNotCaseSensitive=0
-
-
-# Some web servers on some Operating systems (IIS-Windows) considers that two
-# URLs with same value but different case are the same URL. To tell AWStats to
-# also considers them as one, set this parameter to 1.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-# 
-URLNotCaseSensitive=0
-
-
-# Keep or remove the anchor string you can find in some URLs.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-URLWithAnchor=0
-
-
-# In URL links, "?" char is used to add parameter's list in URLs. Syntax is:
-# /mypage.html?param1=value1&param2=value2
-# However, some servers/sites use also others chars to isolate dynamic part of
-# their URLs. You can complete this list with all such characters.
-# Change : Effective for new updates only
-# Example: "?;,"
-# Default: "?;"
-#
-URLQuerySeparators="?;"
-
-
-# Keep or remove the query string to the URL in the statistics for individual
-# pages. This is primarily used to differentiate between the URLs of dynamic
-# pages. If set to 1, mypage.html?id=x and mypage.html?id=y are counted as two
-# different pages.
-# Warning, when set to 1, memory required to run AWStats is dramatically
-# increased if you have a lot of changing URLs (for example URLs with a random
-# id inside). Such web sites should not set this option to 1 or use seriously
-# the next parameter URLWithQueryWithOnlyFollowingParameters (or eventually 
-# URLWithQueryWithoutFollowingParameters).
-# Change : Effective for new updates only
-# Possible values:
-# 0 - URLs are cleaned from the query string (ie: "/mypage.html")
-# 1 - Full URL with query string is used     (ie: "/mypage.html?p=x&q=y")
-# Default: 0
-# 
-URLWithQuery=0
-
-
-# When URLWithQuery is on, you will get the full URL with all parameters in
-# URL reports. But among thoose parameters, sometimes you don't need a
-# particular parameter because it does not identify the page or because it's
-# a random ID changing for each access even if URL points to same page. In
-# such cases, it is higly recommanded to ask AWStats to keep only parameters
-# you need (if you know them) before counting, manipulating and storing URL.
-# Enter here list of wanted parameters. For example, with "param", one hit on
-# /mypage.cgi?param=abc&id=Yo4UomP9d  and  /mypage.cgi?param=abc&id=Mu8fdxl3r
-# will be reported as 2 hits on /mypage.cgi?param=abc
-# This parameter is not used when URLWithQuery is 0 and can't be used with
-# URLWithQueryWithoutFollowingParameters.
-# Change : Effective for new updates only
-# Example: "param"
-# Default: ""
-# 
-URLWithQueryWithOnlyFollowingParameters=""
-
-
-# When URLWithQuery is on, you will get the full URL with all parameters in
-# URL reports. But among thoose parameters, sometimes you don't need a
-# particular parameter because it does not identify the page or because it's
-# a random ID changing for each access even if URL points to same page. In
-# such cases, it is higly recommanded to ask AWStats to remove such parameters
-# from the URL before counting, manipulating and storing URL. Enter here list
-# of all non wanted parameters. For example if you enter "id", one hit on
-# /mypage.cgi?param=abc&id=Yo4UomP9d  and  /mypage.cgi?param=abc&id=Mu8fdxl3r
-# will be reported as 2 hits on /mypage.cgi?param=abc
-# This parameter is not used when URLWithQuery is 0 and can't be used with
-# URLWithQueryWithOnlyFollowingParameters.
-# Change : Effective for new updates only
-# Example: "PHPSESSID jsessionid"
-# Default: ""
-# 
-URLWithQueryWithoutFollowingParameters=""
-
-
-# Keep or remove the query string to the referrer URL in the statistics for
-# external referrer pages. This is used to differentiate between the URLs of
-# dynamic referrer pages. If set to 1, mypage.html?id=x and mypage.html?id=y
-# are counted as two different referrer pages.
-# Change : Effective for new updates only
-# Possible values:
-# 0 - Referrer URLs are cleaned from the query string (ie: "/mypage.html")
-# 1 - Full URL with query string is used      (ie: "/mypage.html?p=x&q=y")
-# Default: 0
-# 
-URLReferrerWithQuery=0
-
-
-# AWStats can detect setup problems or show you important informations to have
-# a better use. Keep this to 1, except if AWStats says you can change it.
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 1
-#
-WarningMessages=1
-
-
-# When an error occurs, AWStats output a message related to errors. If you
-# want (in most cases for security reasons) to have no error messages, you
-# can set this parameter to your personalized generic message.
-# Change : Effective immediatly
-# Example: "An error occured. Contact your Administrator"
-# Default: ""
-#
-ErrorMessages=""
-
-
-# AWStat can be run with debug=x parameter to ouput various informations
-# to help in debugging or solving troubles. If you want (in most cases for 
-# security reasons) to disable debugging, set this parameter to 0.
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 1
-#
-DebugMessages=1
-
-
-# To help you to detect if your log format is good, AWStats report an error
-# if all the first NbOfLinesForCorruptedLog lines have a format that does not
-# match the LogFormat parameter.
-# However, some worm virus attack on your web server can result in a very high
-# number of corrupted lines in your log. So if you experience awstats stop
-# because of bad virus records at the beginning of your log file, you can
-# increase this parameter (very rare).
-# Change : Effective for new updates only
-# Default: 50
-#
-NbOfLinesForCorruptedLog=50
-
-
-# For some particular integration needs, you may want to have CGI links to
-# point to another script than awstats.pl.
-# Use the name of this script in WrapperScript parameter.
-# Change : Effective immediatly
-# Example: "awstatslauncher.pl"
-# Default: ""
-#
-WrapperScript=""
-
-
-# DecodeUA must be set to 1 if you use Roxen web server. This server converts
-# all spaces in user agent field into %20. This make the AWStats robots, os
-# and browsers detection fail in some cases. Just change it to 1 if and only
-# if your web server is Roxen.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-DecodeUA=0
-
-
-# MiscTrackerUrl can be used to make AWStats able to detect some miscellanous
-# things, that can not be tracked on other way, like:
-# - Javascript disabled
-# - Java enabled
-# - Screen size
-# - Color depth
-# - Macromedia Director plugin
-# - Macromedia Shockwave plugin
-# - Realplayer G2 plugin
-# - QuickTime plugin
-# - Mediaplayer plugin
-# - Acrobat PDF plugin
-# To enable all this features, you must copy the awstats_misc_tracker.js file
-# into a /js/ directory stored in your web document root and add the following
-# HTML code at the end of your index page (but before </BODY>) :
-#
-# <script language=javascript src="/js/awstats_misc_tracker.js"></script>
-# <noscript><img src="/js/awstats_misc_tracker.js?nojs=y" height=0 width=0 border=0 style="display: none"></noscript>
-#
-# If code is not added in index page, all those detection capabilities will be
-# disabled. You must also check that ShowScreenSizeStats and ShowMiscStats
-# parameters are set to 1 to make results appear in AWStats report page.
-# If you want to use another directory than /js/, you must also change the
-# awstatsmisctrackerurl variable into the awstats_misc_tracker.js file.
-# Change : Effective for new updates only.
-# Possible value: URL of javascript tracker file added in your HTML code.
-# Default: "/js/awstats_misc_tracker.js"
-#
-MiscTrackerUrl="/js/awstats_misc_tracker.js"
-
-
-
-#-----------------------------------------------------------------------------
-# OPTIONAL ACCURACY SETUP SECTION (Not required but increase AWStats features)
-#-----------------------------------------------------------------------------
-
-# Following values allows you to define accuracy of AWStats entities (robots,
-# browsers, os, referers, file types) detection.
-# It might be a good idea for large web sites or ISP that provides AWStats to
-# high number of customers, to set this parameter to 1 (or 0), instead of 2.
-# Possible values:
-#  0 = No detection,
-#  1 = Medium/Standard detection
-#  2 = Full detection
-# Change : Effective for new updates only
-# Default: 2 (0 for LevelForWormsDetection)
-#
-LevelForBrowsersDetection=2         # 0 disables Browsers detection.
-                                    # 2 reduces AWStats speed by 2%
-LevelForOSDetection=2               # 0 disables OS detection.
-                                    # 2 reduces AWStats speed by 3%
-LevelForRefererAnalyze=0            # 0 disables Origin detection.
-                                    # 2 reduces AWStats speed by 14%
-LevelForRobotsDetection=0           # 0 disables Robots detection.
-                                    # 2 reduces AWStats speed by 2.5%
-LevelForSearchEnginesDetection=0    # 0 disables Search engines detection.
-                                    # 2 reduces AWStats speed by 9%
-LevelForKeywordsDetection=0         # 0 disables Keyphrases/Keywords detection.
-                                    # 2 reduces AWStats speed by 1%
-LevelForFileTypesDetection=2        # 0 disables File types detection.
-                                    # 2 reduces AWStats speed by 1%
-LevelForWormsDetection=0            # 0 disables Worms detection.
-                                    # 2 reduces AWStats speed by 15%
-
-
-#-----------------------------------------------------------------------------
-# OPTIONAL APPEARANCE SETUP SECTION (Not required but increase AWStats features)
-#-----------------------------------------------------------------------------
-
-# When you use AWStats as a CGI, you can have the reports shown in HTML frames.
-# Frames are only available for report viewed dynamically. When you build
-# pages from command line, this option is not used and no frames are built.
-# Possible values: 0 or 1
-# Default: 1
-#
-
-UseFramesWhenCGI=1
-
-
-# This parameter ask your browser to open detailed reports into a different
-# window than the main page.
-# Possible values:
-# 0 - Open all in same browser window
-# 1 - Open detailed reports in another window except if using frames
-# 2 - Open always in a different window even if reports are framed
-# Default: 1
-#
-DetailedReportsOnNewWindows=1
-
-
-# You can add, in the HTML report page, a cache lifetime (in seconds) that
-# will be returned to browser in HTTP header answer by server.
-# This parameter is not used when report are built with -staticlinks option.
-# Example: 3600
-# Default: 0
-#
-Expires=0
-
-
-# To avoid too large web pages, you can ask AWStats to limit number of rows of
-# all reported charts to this number when no other limit apply.
-# Default: 1000
-#
-MaxRowsInHTMLOutput=1000
-
-
-# Set your primary language (ISO-639-1 language codes).
-# Possible value:
-#  Albanian=al, Bosnian=ba, Bulgarian=bg, Catalan=ca,
-#  Chinese (Taiwan)=tw, Chinese (Simpliefied)=cn, Czech=cz, Danish=dk,
-#  Dutch=nl, English=en, Estonian=et, Euskara=eu, Finnish=fi,
-#  French=fr, Galician=gl, German=de, Greek=gr, Hebrew=he, Hungarian=hu,
-#  Icelandic=is, Indonesian=id, Italian=it, Japanese=jp, Korean=kr,
-#  Latvian=lv, Norwegian (Nynorsk)=nn, Norwegian (Bokmal)=nb, Polish=pl,
-#  Portuguese=pt, Portuguese (Brazilian)=br, Romanian=ro, Russian=ru,
-#  Serbian=sr, Slovak=sk, Slovenian=si, Spanish=es, Swedish=se, Turkish=tr,
-#  Ukrainian=ua, Welsh=cy.
-#  First available language accepted by browser=auto
-# Default: "auto"
-#
-Lang="es"
-
-
-# Set the location of language files.
-# Example: "/usr/share/awstats/lang"
-# Default: "./lang" (means lang directory is in same location than awstats.pl)
-#
-DirLang="./lang"
-
-
-# Show menu header with reports' links
-# Possible values: 0 or 1
-# Default: 1
-#
-ShowMenu=1					
-
-
-# You choose here which reports you want to see in the main page and what you
-# want to see in those reports.
-# Possible values:
-#  0  - Report is not shown at all
-#  1  - Report is shown in main page with an entry in menu and default columns
-# XYZ - Report shows column informations defined by code X,Y,Z...
-#       X,Y,Z... are code letters among the following:
-#        U = Unique visitors
-#        V = Visits
-#        P = Number of pages
-#        H = Number of hits (or mails)
-#        B = Bandwith (or total mail size for mail logs)
-#        L = Last access date
-#        E = Entry pages
-#        X = Exit pages
-#        C = Web compression (mod_gzip,mod_deflate)
-#        M = Average mail size (mail logs)
-#
-
-# Show monthly chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: UVPHB, Possible column codes: UVPHB
-ShowMonthStats=UVPH
-
-# Show days of month chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: VPHB, Possible column codes: VPHB
-ShowDaysOfMonthStats=VPH
-
-# Show days of week chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHB, Possible column codes: PHB
-ShowDaysOfWeekStats=PH
-
-# Show hourly chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHB, Possible column codes: PHB
-ShowHoursStats=PH
-
-# Show domains/country chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHB, Possible column codes: PHB
-ShowDomainsStats=0
-
-# Show hosts chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHBL, Possible column codes: PHBL
-ShowHostsStats=PHL
-
-# Show authenticated users chart
-# Context: Web, Streaming, Ftp
-# Default: 0, Possible column codes: PHBL
-ShowAuthenticatedUsers=PHL
-
-# Show robots chart
-# Context: Web, Streaming
-# Default: HBL, Possible column codes: HBL
-ShowRobotsStats=0
-
-# Show worms chart
-# Context: Web, Streaming
-# Default: 0 (If set to 1, see also LevelForWormsDetection), Possible column codes: HBL
-ShowWormsStats=0
-
-# Show email senders chart (For use when analyzing mail log files)
-# Context: Mail
-# Default: 0, Possible column codes: HBML
-ShowEMailSenders=0
-
-# Show email receivers chart (For use when analyzing mail log files)
-# Context: Mail
-# Default: 0, Possible column codes: HBML
-ShowEMailReceivers=0
-
-# Show session chart
-# Context: Web, Streaming, Ftp
-# Default: 1, Possible column codes: None
-ShowSessionsStats=1
-
-# Show pages-url chart.
-# Context: Web, Streaming, Ftp
-# Default: PBEX, Possible column codes: PBEX
-ShowPagesStats=PEX
-
-# Show file types chart.
-# Context: Web, Streaming, Ftp
-# Default: HB, Possible column codes: HBC
-ShowFileTypesStats=H
-
-# Show file size chart (Not yet available)
-# Context: Web, Streaming, Mail, Ftp
-# Default: 1, Possible column codes: None
-ShowFileSizesStats=0		
-
-# Show operating systems chart
-# Context: Web, Streaming, Ftp
-# Default: 1, Possible column codes: None
-ShowOSStats=1
-
-# Show browsers chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowBrowsersStats=1
-
-# Show screen size chart
-# Context: Web, Streaming
-# Default: 0 (If set to 1, see also MiscTrackerUrl), Possible column codes: None
-ShowScreenSizeStats=0
-
-# Show origin chart
-# Context: Web, Streaming
-# Default: PH, Possible column codes: PH
-ShowOriginStats=0
-
-# Show keyphrases chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowKeyphrasesStats=0
-
-# Show keywords chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowKeywordsStats=0
-
-# Show misc chart
-# Context: Web, Streaming
-# Default: a (See also MiscTrackerUrl parameter), Possible column codes: anjdfrqwp
-ShowMiscStats=0
-
-# Show http errors chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowHTTPErrorsStats=1
-
-# Show smtp errors chart (For use when analyzing mail log files)
-# Context: Mail
-# Default: 0, Possible column codes: None
-ShowSMTPErrorsStats=0
-
-# Show the cluster report (Your LogFormat must contains the %cluster tag)
-# Context: Web, Streaming, Ftp
-# Default: 0, Possible column codes: PHB
-ShowClusterStats=0
-
-
-# Some graphical reports are followed by the data array of values.
-# If you don't want this array (to reduce report size for example), you can
-# set thoose options to 0.
-# Possible values: 0 or 1
-# Default: 1
-#
-# Data array values for the ShowMonthStats report
-AddDataArrayMonthStats=1
-# Data array values for the ShowDaysOfMonthStats report
-AddDataArrayShowDaysOfMonthStats=1
-# Data array values for the ShowDaysOfWeekStats report
-AddDataArrayShowDaysOfWeekStats=1
-# Data array values for the ShowHoursStats report
-AddDataArrayShowHoursStats=1
-
-
-# In the Origin chart, you have stats on where your hits came from. You can
-# includes hits on pages that comes from pages of same sites in this chart.
-# Possible values: 0 or 1
-# Default: 0
-#
-IncludeInternalLinksInOriginSection=1
-
-
-# Following parameter can be used to choose maximum number of lines shown for
-# the particular following report.
-#
-# Stats by countries/domains
-MaxNbOfDomain = 10
-MinHitDomain  = 1
-# Stats by hosts
-MaxNbOfHostsShown = 10
-MinHitHost    = 1
-# Stats by authenticated users
-MaxNbOfLoginShown = 10
-MinHitLogin   = 1
-# Stats by robots
-MaxNbOfRobotShown = 10
-MinHitRobot   = 1
-# Stats by pages
-MaxNbOfPageShown = 10
-MinHitFile    = 1
-# Stats by OS
-MaxNbOfOsShown = 10
-MinHitOs      = 1
-# Stats by browsers
-MaxNbOfBrowsersShown = 10
-MinHitBrowser = 1
-# Stats by screen size
-MaxNbOfScreenSizesShown = 5
-MinHitScreenSize = 1
-# Stats by window size (following 2 parameters are not yet used)
-MaxNbOfWindowSizesShown = 5
-MinHitWindowSize = 1
-# Stats by referers
-MaxNbOfRefererShown = 10
-MinHitRefer   = 1
-# Stats for keyphrases
-MaxNbOfKeyphrasesShown = 10
-MinHitKeyphrase = 1
-# Stats for keywords
-MaxNbOfKeywordsShown = 10
-MinHitKeyword = 1
-# Stats for sender or receiver emails
-MaxNbOfEMailsShown = 20
-MinHitEMail   = 1
-
-
-# Choose if you want the week report to start on sunday or monday
-# Possible values:
-# 0 - Week start on sunday
-# 1 - Week start on monday
-# Default: 1
-#
-FirstDayOfWeek=1
-
-
-# List of visible flags that links to other language translations.
-# See Lang parameter for list of allowed flag/language codes.
-# If you don't want any flag link, set ShowFlagLinks to "".
-# This parameter is used only if ShowMenu parameter is set to 1.
-# Possible values: "" or "language_codes_separated_by_space"
-# Example: "en es fr nl de"
-# Default: ""
-#
-ShowFlagLinks="en fr de"
-
-
-# Each URL, shown in stats report views, are links you can click.
-# Possible values: 0 or 1
-# Default: 1
-#
-ShowLinksOnUrl=1
-
-
-# When AWStats build HTML links in its report pages, it starts thoose link
-# with "http://". However some links might be HTTPS links, so you can enter
-# here the root of all your HTTPS links. If all your site is a SSL web site,
-# just enter "/".
-# This parameter is not used if ShowLinksOnUrl is 0.
-# Example: "/shopping"
-# Example: "/"
-# Default: ""
-UseHTTPSLinkForUrl=""
-
-
-# Maximum length of URL part shown on stats page (number of characters).
-# This affects only URL visible text, link still work.
-# Default: 64
-#
-MaxLengthOfShownURL=64
-
-
-# You can enter HTML code that will be added at the top of AWStats reports.
-# Default: ""
-#
-HTMLHeadSection=""
-
-
-# You can enter HTML code that will be added at the end of AWStats reports.
-# Great to add advert ban.
-# Default: ""
-#
-HTMLEndSection=""
-
-
-# You can set Logo and LogoLink to use your own logo.
-# Logo must be the name of image file (must be in $DirIcons/other directory).
-# LogoLink is the expected URL when clicking on Logo.
-# Default: "awstats_logo6.png"
-#
-Logo="awstats_logo6.png"
-LogoLink="http://awstats.sourceforge.net"
-
-
-# Value of maximum bar width/height for horizontal/vertical HTML graphics bar.
-# Default: 260/90
-#
-BarWidth   = 260
-BarHeight  = 90
-
-
-# You can ask AWStats to use a particular CSS (Cascading Style Sheet) to
-# change its look. To create a style sheet, you can use samples provided with
-# AWStats in wwwroot/css directory.
-# Example: "/awstatscss/awstats_bw.css"
-# Example: "/css/awstats_bw.css"
-# Default: ""
-#
-StyleSheet=""
-
-
-# Those colors parameters can be used (if StyleSheet parameter is not used)
-# to change AWStats look.
-# Example: color_name="RRGGBB"	# RRGGBB is Red Green Blue components in Hex
-#
-color_Background="FFFFFF"		# Background color for main page (Default = "FFFFFF")
-color_TableBGTitle="CCCCDD"		# Background color for table title (Default = "CCCCDD")
-color_TableTitle="000000"		# Table title font color (Default = "000000")
-color_TableBG="CCCCDD"			# Background color for table (Default = "CCCCDD")
-color_TableRowTitle="FFFFFF"	# Table row title font color (Default = "FFFFFF")
-color_TableBGRowTitle="ECECEC"	# Background color for row title (Default = "ECECEC")
-color_TableBorder="ECECEC"		# Table border color (Default = "ECECEC")
-color_text="000000"				# Color of text (Default = "000000")
-color_textpercent="606060"		# Color of text for percent values (Default = "606060")
-color_titletext="000000"		# Color of text title within colored Title Rows (Default = "000000")
-color_weekend="EAEAEA"			# Color for week-end days (Default = "EAEAEA")
-color_link="0011BB"				# Color of HTML links (Default = "0011BB")
-color_hover="605040"			# Color of HTML on-mouseover links (Default = "605040") 
-color_u="FFAA66"				# Background color for number of unique visitors (Default = "FFAA66")
-color_v="F4F090"				# Background color for number of visites (Default = "F4F090")
-color_p="4477DD"				# Background color for number of pages (Default = "4477DD")
-color_h="66DDEE"				# Background color for number of hits (Default = "66DDEE")
-color_k="2EA495"				# Background color for number of bytes (Default = "2EA495")
-color_s="8888DD"				# Background color for number of search (Default = "8888DD")
-color_e="CEC2E8"				# Background color for number of entry pages (Default = "CEC2E8")
-color_x="C1B2E2"				# Background color for number of exit pages (Default = "C1B2E2")
-
-
-
-#-----------------------------------------------------------------------------
-# PLUGINS
-#-----------------------------------------------------------------------------
-
-# Add here all plugins file you want to load.
-# Plugin files must be .pm files stored in 'plugins' directory.
-# Uncomment LoadPlugin lines to enable a plugin after checking that perl
-# modules required by the plugin are installed.
-
-# Plugin: Tooltips
-# Perl modules required: None
-# Add some tooltips help on HTML report pages.
-# Note that enabled this kind of help will increased HTML report pages size,
-# so server load and bandwidth.
-#
-#LoadPlugin="tooltips"
-
-# Plugin: DecodeUTFKeys
-# Perl modules required: Encode and URI::Escape
-# Allow AWStats to show correctly (in language charset) keywords/keyphrases
-# strings even if they were UTF8 coded by the referer search engine.
-#
-#LoadPlugin="decodeutfkeys"
-
-# Plugin: IPv6
-# Perl modules required: Net::IP and Net::DNS
-# This plugin gives AWStats capability to make reverse DNS lookup on IPv6
-# addresses.
-# Note: If you are interesting in having country report, you should use the
-# geoipfree or geoip plugin instead of enabled reverse DNS lookup.
-#
-#LoadPlugin="ipv6"
-
-# Plugin: HashFiles
-# Perl modules required: Storable
-# AWStats DNS cache files are read/saved as native hash files. This increase
-# DNS cache files loading speed, above all for very large web sites.
-#
-#LoadPlugin="hashfiles"
-
-# Plugin: GeoIP
-# Perl modules required: Geo::IP or Geo::IP::PurePerl (from Maxmind)
-# Country chart is built from an Internet IP-Country database.
-# This plugin is useless for intranet only log files.
-# Note: You must choose between using this plugin (need Perl Geo::IP module 
-# from Maxmind, database more up to date) or the GeoIPfree plugin (need
-# Perl Geo::IPfree module, database less up to date).
-# This plugin reduces AWStats speed of 8% !
-#
-#LoadPlugin="geoip GEOIP_STANDARD"
-
-# Plugin: GeoIPfree
-# Perl modules required: Geo::IPfree version 0.2+ (from Graciliano M.P.)
-# Country chart is built from an Internet IP-Country database.
-# This plugin is useless for intranet only log files.
-# Note: You must choose between using this plugin (need Perl Geo::IPfree
-# module, database less up to date) or the GeoIP plugin (need Perl Geo::IP
-# module from Maxmind, database more up to date).
-# Note: Activestate provide a corrupted version of Geo::IPfree 0.2 Perl
-# module, so install it from elsewhere (from www.cpan.org for example).
-# This plugin reduces AWStats speed of 10% !
-#
-#LoadPlugin="geoipfree"
-
-# Plugin: GeoIP_Region_Maxmind
-# Perl modules required: Geo::IP (from Maxmind)
-# This plugin add a chart of hits by regions. Only regions for US and 
-# Canada can be detected.
-# Note: This plugin need Maxmind GeoIP Perl module AND the region database.
-# Note: I get some problem with Maxmind Geo::IP Perl module with ActiveState
-# on Windows but it works great on Linux with default Perl.
-# You need to purchase a license from Maxmind to get/use the Region database.
-# This plugin reduces AWStats speed.
-#
-#LoadPlugin="geoip_region_maxmind GEOIP_STANDARD /pathto/GeoIPRegion.dat"
-
-# Plugin: UserInfo
-# Perl modules required: None
-# Add a text (Firtname, Lastname, Office Department, ...) in authenticated user
-# reports for each login value.
-# A text file called userinfo.myconfig.txt, with two fields (first is login,
-# second is text to show, separated by a tab char) must be created in DirData
-# directory.
-#
-LoadPlugin="userinfo"
-
-# Plugin: HostInfo
-# Perl modules required: Net::XWhois
-# Add a column into host chart with a link to open a popup window that shows
-# info on host (like whois records).
-#
-#LoadPlugin="hostinfo"
-
-# Plugin: ClusterInfo
-# Perl modules required: None
-# Add a text (for example a full hostname) in cluster reports for each cluster
-# number.
-# A text file called clusterinfo.myconfig.txt, with two fields (first is
-# cluster number, second is text to show) separated by a tab char. must be
-# created into DirData directory.
-# Note this plugin is useless if ShowClusterStats is set to 0 or if you don't
-# use a personalized log format that contains %cluster tag.
-#
-#LoadPlugin="clusterinfo"
-
-# Plugin: UrlAliases
-# Perl modules required: None
-# Add a text (Page title, description...) in URL reports before URL value.
-# A text file called urlalias.myconfig.txt, with two fields (first is URL,
-# second is text to show, separated by a tab char) must be created into
-# DirData directory.
-#
-#LoadPlugin="urlalias"
-
-# Plugin: TimeHiRes
-# Perl modules required: Time::HiRes (if Perl < 5.8)
-# Time reported by -showsteps option is in millisecond. For debug purpose.
-#
-#LoadPlugin="timehires"		
-
-# Plugin: TimeZone
-# Perl modules required: Time::Local
-# Allow AWStats to correct a bad timezone for user of some IIS that use
-# GMT date in its log instead of local server time.
-# This module is useless for Apache and most IIS version.
-# This plugin reduces AWStats speed of 40% !!!!!!!
-#
-#LoadPlugin="timezone +2"
-
-# Plugin: Rawlog
-# Perl modules required: None
-# This plugin adds a form in AWStats main page to allow users to see raw
-# content of current log files. A filter is also available.
-#
-#LoadPlugin="rawlog"
-
-# Plugin: GraphApplet
-# Perl modules required: None
-# Supported charts are built by a 3D graphic applet.
-#
-#LoadPlugin="graphapplet /awstatsclasses"				# EXPERIMENTAL FEATURE
-
-
-
-#-----------------------------------------------------------------------------
-# EXTRA SECTIONS
-#-----------------------------------------------------------------------------
-
-# You can define your own charts, you choose here what are rows and columns
-# keys. This feature is particularly usefull for marketing purpose, tracking
-# products orders for example.
-# For this, edit all parameters of Extra section. Each set of parameter is a
-# different chart. For several charts, duplicate section changing the number.
-# Note: Each Extra section reduces AWStats speed by 8%.
-#
-# WARNING: A wrong setup of Extra section might result in too large arrays
-# that will consume all your memory, making AWStats unusable after several
-# updates, so be sure to setup it correctly.
-# In most cases, you don't need this feature.
-#
-# ExtraSectionNameX is title of your personalized chart.
-# ExtraSectionCodeFilterX is list of codes the record code field must match.
-#   Put an empty string for no test on code.
-# ExtraSectionConditionX are conditions you can use to count or not the hit,
-#   Use one of the field condition (URL,QUERY_STRING,REFERER,UA,HOST,extraX)
-#   and a regex to match, after a coma. Use "||" for "OR".
-# ExtraSectionFirstColumnTitleX is the first column title of the chart.
-# ExtraSectionFirstColumnValuesX is a string to tell AWStats which field to
-#   extract value from (URL,QUERY_STRING,REFERER,UA,HOST,extraX)
-#   and how to extract the value (using regex syntax). Each different value
-#   found will appear in first column of report on a different row. Be sure
-#   that list of different possible values will not grow indefinitely.
-# ExtraSectionFirstColumnFormatX is the string used to write value.
-# ExtraSectionStatTypesX are things you want to count. You can use standard
-#   code letters (P for pages,H for hits,B for bandwidth,L for last access).
-# ExtraSectionAddAverageRowX add a row at bottom of chart with average values.
-# ExtraSectionAddSumRowX add a row at bottom of chart with sum values.
-# MaxNbOfExtraX is maximum number of rows shown in chart.
-# MinHitExtraX is minimum number of hits required to be shown in chart.
-#
-
-# Example to report the 20 products the most ordered by "order.cgi" script
-#ExtraSectionName1="Product orders"
-#ExtraSectionCodeFilter1="200 304"
-#ExtraSectionCondition1="URL,\/cgi\-bin\/order\.cgi||URL,\/cgi\-bin\/order2\.cgi"
-#ExtraSectionFirstColumnTitle1="Product ID"
-#ExtraSectionFirstColumnValues1="QUERY_STRING,productid=([^&]+)"
-#ExtraSectionFirstColumnFormat1="%s"
-#ExtraSectionStatTypes1=PL
-#ExtraSectionAddAverageRow1=0
-#ExtraSectionAddSumRow1=1
-#MaxNbOfExtra1=20
-#MinHitExtra1=1
-
-ExtraSectionName1="Objetos"
-ExtraSectionCodeFilter1="200 304"
-ExtraSectionCondition1="QUERY_STRING,(id=)"
-ExtraSectionFirstColumnTitle1="Id del objeto"
-ExtraSectionFirstColumnValues1="QUERY_STRING,(.+)"
-ExtraSectionFirstColumnFormat1="%s"
-ExtraSectionStatTypes1=HVL
-ExtraSectionAddAverageRow1=0
-ExtraSectionAddSumRow1=1
-MaxNbOfExtra1=20
-MinHitExtra1=1
-
-# Example to report the 20 products the most ordered by "order.cgi" script
-# Report of requests of xml/rdf/rss feeds
-ExtraSectionName2="Foros visitados"
-ExtraSectionCodeFilter2="200 304"
-ExtraSectionCondition2="URL,(forum-view)"
-ExtraSectionFirstColumnTitle2="Id del foro"
-ExtraSectionFirstColumnValues2="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat2="%s"
-ExtraSectionStatTypes2=HVL
-ExtraSectionAddAverageRow2=0
-ExtraSectionAddSumRow2=1
-MaxNbOfExtra2=20
-MinHitExtra2=1
-
-#message-view?message%5fid=7110
-ExtraSectionName3="Mensajes leidos"
-ExtraSectionCodeFilter3="200 304"
-ExtraSectionCondition3="URL,(message-view)"
-ExtraSectionFirstColumnTitle3="Id del mensaje"
-ExtraSectionFirstColumnValues3="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat3="%s"
-ExtraSectionStatTypes3=HVL
-ExtraSectionAddAverageRow3=0
-ExtraSectionAddSumRow3=1
-MaxNbOfExtra3=20
-MinHitExtra3=1
-
-#one-faq?faq_id=904
-ExtraSectionName4="FAQS visitados"
-ExtraSectionCodeFilter4="200 304"
-ExtraSectionCondition4="URL,(faq\/one-faq)"
-ExtraSectionFirstColumnTitle4="Id del FAQ"
-ExtraSectionFirstColumnValues4="QUERY_STRING,faq_id=([^&]+)"
-ExtraSectionFirstColumnFormat4="%s"
-ExtraSectionStatTypes4=HVL
-ExtraSectionAddAverageRow4=0
-ExtraSectionAddSumRow4=1
-MaxNbOfExtra4=20
-MinHitExtra4=1
-
-#file-storage/index?folder%5fid=716
-ExtraSectionName5="Folders visitados"
-ExtraSectionCodeFilter5="200 304"
-ExtraSectionCondition5="URL,(file-storage\/index)"
-ExtraSectionFirstColumnTitle5="Id del folder"
-ExtraSectionFirstColumnValues5="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat5="%s"
-ExtraSectionStatTypes5=HVL
-ExtraSectionAddAverageRow5=0
-ExtraSectionAddSumRow5=1
-MaxNbOfExtra5=20
-MinHitExtra5=1
-
-#news/item?item_id=7893
-ExtraSectionName6="Noticias leidas"
-ExtraSectionCodeFilter6="200 304"
-ExtraSectionCondition6="URL,(news\/item)"
-ExtraSectionFirstColumnTitle6="Id de la noticia"
-ExtraSectionFirstColumnValues6="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat6="%s"
-ExtraSectionStatTypes6=HVL
-ExtraSectionAddAverageRow6=0
-ExtraSectionAddSumRow6=1
-MaxNbOfExtra6=20
-MinHitExtra6=1
-
-#forums/message-view?message%5fid=7110
-ExtraSectionName7="Mensajes leidos en los foros"
-ExtraSectionCodeFilter7="200 304"
-ExtraSectionCondition7="URL,(forums\/message-view)"
-ExtraSectionFirstColumnTitle7="Id del mensaje"
-#ExtraSectionFirstColumnValues7="QUERY_STRING,id=([^&]+) | URL,(.+)"
-#ExtraSectionFirstColumnValues7="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnValues7="REFERER,(.+)"
-ExtraSectionFirstColumnFormat7="<a href='%s'>%s</a>"
-ExtraSectionStatTypes7=HVL
-ExtraSectionAddAverageRow7=0
-ExtraSectionAddSumRow7=1
-MaxNbOfExtra7=20
-MinHitExtra7=1
-
-#dotlrn/clubs/pruebasdenotificaciones/one-community?page_num=0
-ExtraSectionName8="Comunidades visitadas"
-ExtraSectionCodeFilter8="200 304"
-ExtraSectionCondition8="URL,(dotlrn\/clubs\/)"
-ExtraSectionFirstColumnTitle8="Nombre de la comunidad"
-ExtraSectionFirstColumnValues8="URL,/dotlrn/clubs/([\w]+)\/"
-ExtraSectionFirstColumnFormat8="%s"
-ExtraSectionStatTypes8=PHVL
-ExtraSectionAddAverageRow8=0
-ExtraSectionAddSumRow8=1
-MaxNbOfExtra8=20
-MinHitExtra8=1
-
-#Por medio del community_id
-ExtraSectionName9="Asignaturas visitadas"
-ExtraSectionCodeFilter9="200 304"
-ExtraSectionCondition9="extra1,community_id=(.+)"
-ExtraSectionFirstColumnTitle9="Id de la asignatura"
-ExtraSectionFirstColumnValues9="extra1,id=([\w]+)"
-ExtraSectionFirstColumnFormat9="%s"
-ExtraSectionStatTypes9=PHVL
-ExtraSectionAddAverageRow9=0
-ExtraSectionAddSumRow9=1
-MaxNbOfExtra9=20
-MinHitExtra9=1
-
-#-----------------------------------------------------------------------------
-# INCLUDES
-#-----------------------------------------------------------------------------
-
-# You can include other config files using the directive with the name of the
-# config file.
-# This is particularly usefull for users who have a lot of virtual servers, so
-# a lot of config files and want to maintain common values in only one file.
-# Note that when a variable is defined both in a config file and in an
-# included file, AWStats will use the last value read for parameters that
-# contains one value and AWStats will concat all values from both files for
-# parameters that are lists of value.
-#
-
-#Include ""
Index: openacs-4/packages/user-tracking/config/awstatsDirecto.site.conf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/config/Attic/awstatsDirecto.site.conf,v
diff -u -N
--- openacs-4/packages/user-tracking/config/awstatsDirecto.site.conf	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,1529 +0,0 @@
-# AWSTATS CONFIGURE FILE 6.2
-#-----------------------------------------------------------------------------
-# Copy this file into awstats.www.mydomain.conf and edit this new config file
-# to setup AWStats (See documentation in docs/ directory).
-# The config file must be in /etc/awstats, /usr/local/etc/awstats or /etc (for
-# Unix/Linux) or same directory than awstats.pl (Windows, Mac, Unix/Linux...)
-# To include an environment variable in any parameter (AWStats will replace
-# it with its value when reading it), follow the example:
-# Parameter="__ENVNAME__"
-# Note that environment variable AWSTATS_CURRENT_CONFIG is always defined with
-# the config value in an AWStats running session and can be used like others.
-#-----------------------------------------------------------------------------
-# $Revision: 1.1 $ - $Author: rocaelh $ - $Date: 2005/03/01 17:35:37 $
-
-
-
-#-----------------------------------------------------------------------------
-# MAIN SETUP SECTION (Required to make AWStats work)
-#-----------------------------------------------------------------------------
-
-# "LogFile" contains the web, ftp or mail server log file to analyze.
-# Possible values: A full path, or a relative path from awstats.pl directory.
-# Example: "/var/log/apache/access.log"
-# Example: "../logs/mycombinedlog.log"
-# You can also use tags in this filename if you need a dynamic file name
-# depending on date or time (Replacement is made by AWStats at the beginning
-# of its execution). This is available tags :
-#   %YYYY-n  is replaced with 4 digits year we were n hours ago
-#   %YY-n    is replaced with 2 digits year we were n hours ago
-#   %MM-n    is replaced with 2 digits month we were n hours ago
-#   %MO-n    is replaced with 3 letters month we were n hours ago
-#   %DD-n    is replaced with day we were n hours ago
-#   %HH-n    is replaced with hour we were n hours ago
-#   %NS-n    is replaced with number of seconds at 00:00 since 1970
-#   %WM-n    is replaced with the week number in month (1-5)
-#   %Wm-n    is replaced with the week number in month (0-4)
-#   %WY-n    is replaced with the week number in year (01-52)
-#   %Wy-n    is replaced with the week number in year (00-51)
-#   %DW-n    is replaced with the day number in week (1-7, 1=sunday)
-#                              use n=24 if you need (1-7, 1=monday)
-#   %Dw-n    is replaced with the day number in week (0-6, 0=sunday)
-#                              use n=24 if you need (0-6, 0=monday)
-#   Use 0 for n if you need current year, month, day, hour...
-# Example: "/var/log/access_log.%YYYY-0%MM-0%DD-0.log"
-# Example: "C:/WINNT/system32/LogFiles/W3SVC1/ex%YY-24%MM-24%DD-24.log"
-# You can also use a pipe if log file come from a pipe :
-# Example: "gzip -d </var/log/apache/access.log.gz |"
-# If there is several log files from load balancing servers :
-# Example: "/pathtotools/logresolvemerge.pl *.log |"
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-
-# Enter the log file type you want to analyze.
-# Possible values:
-#  W - For a web log file
-#  S - For a streaming log file
-#  M - For a mail log file
-#  F - For a ftp log file
-# Example: W
-# Default: W
-#
-LogType=W
-
-
-# Enter here your log format (Must match your web server config. See setup
-# instructions in documentation know how to configure your web server to have
-# the required log format).
-# Possible values: 1,2,3,4 or "your_own_personalized_log_format"
-# 1 - Apache or Lotus Notes/Domino native combined log format (NCSA combined/XLF/ELF log format)
-# 2 - Old IIS log format (IIS W3C log format). See FAQ for IIS 6.x.
-# 3 - Webstar native log format.
-# 4 - Apache or Squid native common log format (NCSA common/CLF log format)
-#     With LogFormat=4, some features (browsers, os, keywords...) can't work.
-# "your_own_personalized_log_format" = If your log is ftp, mail or other format,
-#     you must use following keys to define the log format string (See FAQ
-#     for ftp, mail or exotic web log format examples):
-#   %host             Host client name or IP address
-#   %lognamequot      Authenticated login/user with format: "john"
-#   %logname          Authenticated login/user with format: john
-#   %time1            Date and time with format: [dd/mon/yyyy:hh:mm:ss +0000] or [dd/mon/yyyy:hh:mm:ss]
-#   %time2            Date and time with format: yyyy-mm-dd hh:mm:ss
-#   %time3            Date and time with format: Mon dd hh:mm:ss or Mon dd hh:mm:ss yyyy
-#   %time4            Date and time with unix timestamp format: dddddddddd
-#   %methodurl        Method and URL with format: "GET /index.html HTTP/x.x"
-#   %methodurlnoprot  Method and URL with format: "GET /index.html"
-#   %method           Method with format: GET
-#   %url              URL only with format: /index.html
-#   %query            Query string (used by URLWithQuery option)
-#   %code             Return code status (with format for web log: 999)
-#   %bytesd           Size of document in bytes
-#   %refererquot      Referer page with format: "http://from.com/from.htm"
-#   %referer          Referer page with format: http://from.com/from.htm
-#   %uaquot           User agent with format: "Mozilla/4.0 (compatible, ...)"
-#   %ua               User agent with format: Mozilla/4.0_(compatible...)
-#   %gzipin           mod_gzip compression input bytes: In:XXX
-#   %gzipout          mod_gzip compression output bytes & ratio: Out:YYY:ZZpct.
-#   %gzipratio        mod_gzip compression ratio: ZZpct.
-#   %deflateratio     mod_deflate compression ratio with format: (ZZ)
-#   %email            EMail sender (for mail log)
-#   %email_r          EMail receiver (for mail log)
-#   %virtualname      Web sever virtual hostname. Use this tag when same log
-#                     contains data of several virtual web servers. AWStats
-#                     will discard records not in SiteDomain nor HostAliases
-#   %cluster          If log file is provided from several computers (merged by
-#                     logresolvemerge.pl), use this to define cluster id field.
-#   %extraX           Another field that you plan to use for building a
-#                     personalized report with ExtraSection feature (See later).
-#   If your log format has some fields not included in this list, use:
-#   %other            Means another not used field
-#   %otherquot        Means another not used double quoted field
-#
-# Examples for Apache combined logs (following two examples are equivalent):
-# LogFormat = 1
-# LogFormat = "%host %other %logname %time1 %methodurl %code %bytesd %refererquot %uaquot"
-#
-LogFormat= "%host %other %other %time1 %methodurl %code %bytesd %refererquot %uaquot %lognamequot %extra1
-
-# If your log field's separator is not a space, you can change this parameter.
-# This parameter is not used if LogFormat is a predefined value (1,2,3,4)
-# Backslash can be used as escape character.
-# Example: " "
-# Example: "\t"
-# Example: "\|"
-# Default: " "
-#
-LogSeparator=" "
-
-
-# "SiteDomain" must contain the main domain name, or the main intranet web
-# server name, used to reach the web site.
-# If you share the same log file for several virtual web servers, this
-# parameter is used to tell AWStats to filter record that contains records for
-# this virtual host name only (So check that this virtual hostname can be
-# found in your log file and use a personalized log format that include the
-# %virtualname tag).
-# But for multi hosting a better solution is to have one log file for each
-# virtual web server. In this case, this parameter is only used to generate
-# full URL's links when ShowLinksOnUrl option is set to 1.
-# If analysing mail log, enter here the domain name of mail server.
-# Example: "myintranetserver"
-# Example: "www.domain.com"
-# Example: "ftp.domain.com"
-# Example: "domain.com"
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-
-
-# Enter here all other possible domain names, addresses or virtual host
-# aliases someone can use to access your site. Try to keep only the minimum
-# number of possible names/addresses to have the best performances.
-# You can repeat the "SiteDomain" value in this list.
-# This parameter is used to analyze referer field in log file and to help
-# AWStats to know if a referer URL is a local URL of same site or an URL of
-# another site.
-# Note: Use space between each value.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Example: "www.myserver.com localhost 127.0.0.1 REGEX[mydomain\.(net|org)$]"
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-# If you want to have hosts reported by name instead of ip address, AWStats
-# need to make reverse DNS lookups (if not already done in your log file).
-# With DNSLookup to 0, all hosts will be reported by their IP addresses and
-# not by the full hostname of visitors (except if names are already available
-# in log file).
-# If you want/need to set DNSLookup to 1, don't forget that this will reduce
-# dramatically AWStats update process speed. Do not use on large web sites.
-# Note: Reverse DNS lookup is done on IPv4 only (Enable ipv6 plugin for IPv6).
-# Note: Result of DNS Lookup can be used to build the Country report. However
-# it is highly recommanded to enable the plugin 'geoipfree' or 'geoip' to
-# have an accurate Country report with no need of DNS Lookup.
-# Possible values:
-# 0 - No DNS Lookup
-# 1 - DNS Lookup is fully enabled
-# 2 - DNS Lookup is made only from static DNS cache file (if it exists)
-# Default: 2
-# 
-DNSLookup=2
-
-
-# When AWStats updates its statistics, it stores results of its analysis in 
-# files (AWStats database). All those files are written in the directory
-# defined by the "DirData" parameter. Set this value to the directory where
-# you want AWStats to save its database and working files into.
-# Warning: If you want to be able to use the "AllowToUpdateStatsFromBrowser"
-# feature (see later), you need "Write" permissions by web server user on this
-# directory (and "Modify" for Windows NTFS file systems).
-# Example: "/var/lib/awstats"
-# Example: "../data"
-# Example: "C:/awstats_data_dir"
-# Default: "."          (means same directory as awstats.pl)
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-
-# Relative or absolute web URL of your awstats cgi-bin directory.
-# This parameter is used only when AWStats is run from command line
-# with -output option (to generate links in HTML reported page).
-# Example: "/awstats"
-# Default: "/cgi-bin"   (means awstats.pl is in "/yourwwwroot/cgi-bin")
-#
-DirCgi="/cgi-bin"
-
-
-# Relative or absolute web URL of your awstats icon directory.
-# If you build static reports ("... -output > outputpath/output.html"), enter
-# path of icon directory relative to the output directory 'outputpath'.
-# Example: "/awstatsicons"
-# Example: "../icon"
-# Default: "/icon" (means you must copy icon directories in "/mywwwroot/icon")
-#
-DirIcons="/user-tracking/awstats/icon"
-
-
-# When this parameter is set to 1, AWStats add a button on report page to
-# allow to "update" statistics from a web browser. Warning, when "update" is
-# made from a browser, AWStats is ran as a CGI by the web server user defined
-# in your web server (user "nobody" by default with Apache, "IUSR_XXX" with
-# IIS), so the "DirData" directory and all already existing history files
-# awstatsMMYYYY[.xxx].txt must be writable by this user. Change permissions if
-# necessary to "Read/Write" (and "Modify" for Windows NTFS file systems).
-# Warning: Update process can be long so you might experience "time out"
-# browser errors if you don't launch AWStats enough frequently.
-# When set to 0, update is only made when AWStats is ran from the command
-# line interface (or a task scheduler).
-# Possible values: 0 or 1
-# Default: 0
-#
-AllowToUpdateStatsFromBrowser=1
-
-
-# AWStats save and sort its database on a month basis, this allows to build
-# build a report quickly. However, if you choose the -month=all from command
-# line or value '-Year-' from CGI combo form to have a report for all year,
-# AWStats needs to reload all data for full year, and resort them completely,
-# requiring a large amount of time, memory and CPU. This might be a problem
-# for web hosting providers that offer AWStats for large sites, on shared
-# servers, to non CPU cautious customers.
-# For this reason, the 'full year' is only enabled on Command Line by default.
-# You can change this by setting this parameter to 0, 1, 2 or 3.
-# Possible values:
-#  0 - Never allowed
-#  1 - Allowed on CLI only, -Year- value in combo is not visible
-#  2 - Allowed on CLI only, -Year- value in combo is visible but not allowed
-#  3 - Possible on CLI and CGI
-# Default: 2
-#
-AllowFullYearView=3
-
-
-
-#-----------------------------------------------------------------------------
-# OPTIONAL SETUP SECTION (Not required but increase AWStats features)
-#-----------------------------------------------------------------------------
-
-# When the update process run, AWStats can set a lock file in TEMP or TMP
-# directory. This lock is to avoid to have 2 update processes running at the
-# same time to prevent unknown conflicts problems and avoid DoS attacks when
-# AllowToUpdateStatsFromBrowser is set to 1.
-# Because, when you use lock file, you can experience sometimes problems in
-# lock file not correctly removed (killed process for example requires that
-# you remove the file manualy), this option is not enabled by default (Do
-# not enable this option with no console server access).
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 0
-#
-EnableLockForUpdate=1
-
-
-# AWStats can do reverse DNS lookups through a static DNS cache file that was
-# previously created manually. If no path is given in static DNS cache file
-# name, AWStats will search DirData directory. This file is never changed.
-# This option is not used if DNSLookup=0.
-# Note: DNS cache file format is 'minsince1970 ipaddress resolved_hostname'
-# or just 'ipaddress resolved_hostname'
-# Change : Effective for new updates only
-# Example: "/mydnscachedir/dnscache"
-# Default: "dnscache.txt"
-#
-DNSStaticCacheFile="dnscache.txt"
-
-
-# AWStats can do reverse DNS lookups through a DNS cache file that was created
-# by a previous run of AWStats. This file is erased and recreated after each
-# statistics update process. You don't need to create and/or edit it.
-# AWStats will read and save this file in DirData directory.
-# This option is used only if DNSLookup=1.
-# Note: If a DNSStaticCacheFile is available, AWStats will check for DNS
-# lookup in DNSLastUpdateCacheFile after checking into DNSStaticCacheFile.
-# Change : Effective for new updates only
-# Example: "/mydnscachedir/dnscachelastupdate"
-# Default: "dnscachelastupdate.txt"
-#
-DNSLastUpdateCacheFile="dnscachelastupdate.txt"
-
-
-# You can specify specific IP addresses that should NOT be looked up in DNS.
-# This option is used only if DNSLookup=1.
-# Note: Use space between each value.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "123.123.123.123 REGEX[^192\.168\.]"
-# Default: ""
-#
-SkipDNSLookupFor=""
-
-
-# The following two parameters allow you to protect a config file from being
-# read by AWStats when called from a browser if web user has not been
-# authenticated. Your AWStats program must be in a web protected "realm" (With
-# Apache, you can use .htaccess files to do so. With other web servers, see
-# your server setup manual).
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 0
-#
-AllowAccessFromWebToAuthenticatedUsersOnly=0
-
-
-# This parameter give the list of all authorized authenticated users to view
-# statistics for this domain/config file. This parameter is used only if
-# AllowAccessFromWebToAuthenticatedUsersOnly is set to 1.
-# Change : Effective immediatly
-# Example: "user1 user2"
-# Example: "__REMOTE_USER__"
-# Default: ""
-#
-AllowAccessFromWebToFollowingAuthenticatedUsers=""
-
-
-# When this parameter is define to something, the IP address of the user that
-# read its statistics from a browser (when AWStats is used as a CGI) is
-# checked and must match one of the IP address values or ranges.
-# Change : Effective immediatly
-# Example: "127.0.0.1 123.123.123.1-123.123.123.255"
-# Default: ""
-#
-AllowAccessFromWebToFollowingIPAddresses=""
-
-
-# If the "DirData" directory (see above) does not exists, AWStats return an
-# error. However, you can ask AWStats to create it.
-# This option can be used by some Web Hosting Providers that has defined a 
-# dynamic value for DirData (for example DirData="/home/__REMOTE_USER__") and
-# don't want to have to create a new directory each time they add a new user.
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 0
-#
-CreateDirDataIfNotExists=1
-
-
-# You can choose in which format the Awstats history database is saved.
-# Note: Using "xml" format make AWStats building database files three times
-# larger than using "text" format.
-# Change : Database format is switched after next update
-# Possible values: text or xml
-# Default: text
-#
-BuildHistoryFormat=text
-
-
-# If you prefer having the report output pages be built as XML compliant pages
-# instead of simple HTML pages, you can set this to 'xhtml' (May not works
-# properly with old browsers).
-# Change : Effective immediatly
-# Possible values: html or xhtml
-# Default: html
-#
-BuildReportFormat=html
-
-
-# In most case, AWStats is used as a cgi program. So AWStats process is ran
-# by default web server user (nobody for Unix, IUSR_xxx for IIS/Windows,...).
-# To make use easier and avoid permission's problems between update process 
-# (run by an admin user) and CGI process (ran by a low level user), AWStats
-# save its database files with read and write for everyone.
-# If you have experience on managing security policies (Web Hosting Provider),
-# you should set this parameter to 0. AWStats will keep default process user
-# permissions on its files.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 1
-#
-SaveDatabaseFilesWithPermissionsForEveryone=1
-
-
-# AWStats can purge log file, after analyzing it. Note that AWStats is able
-# to detect new lines in a log file, to process only them, so you can launch
-# AWStats as often as you want, even with this parameter to 0.
-# With 0, no purge is made, so you must use a scheduled task or a web server
-# that make this purge frequently.
-# With 1, the purge of the log file is made each time AWStats update is ran.
-# This parameter doesn't work with IIS (This web server doesn't let its log
-# file to be purged).
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-PurgeLogFile=0
-
-
-# When PurgeLogFile is setup to 1, AWStats will clean your log file after
-# processing it. You can however keep an archive file (saved in "DirData") of
-# all processed log records by setting this to 1 (For example if you want to
-# use another log analyzer).
-# This parameter is not used if PurgeLogFile=0
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-ArchiveLogRecords=0
-
-
-# Each time you run the update process, AWStats overwrite the 'historic file'
-# for the month (awstatsMMYYYY[.*].txt) with the updated one.
-# When write errors occurs (IO, disk full,...), this historic file can be
-# corrupted and must be deleted. Because this file contains information of all
-# past processed log files, you will loose old stats if removed. So you can
-# ask AWStats to save last non corrupted file in a .bak file. This file is
-# stored in "DirData" directory with other 'historic files'.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-KeepBackupOfHistoricFiles=0
-
-
-# Default index page name for your web server.
-# Change : Effective for new updates only
-# Example: "index.php index.html default.html"
-# Default: "index.html"
-#
-DefaultFile="index.html"
-
-
-# Do not include access from clients that match following criteria.
-# If your log file contains IP adresses in host field, you must enter here
-# matching IP adresses criteria.
-# If DNS lookup is already done in your log file, you must enter here hostname
-# criteria, else enter ip address criteria.
-# The opposite parameter of "SkipHosts" is "OnlyHosts".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "127.0.0.1 REGEX[^192\.168\.] REGEX[^10\.]"
-# Example: "localhost REGEX[^.*\.localdomain$]"
-# Default: ""
-#
-SkipHosts=""
-
-
-# Do not include access from clients with a user agent that match following
-# criteria. If you want to exclude a robot, you should update the robots.pm
-# file instead of this parameter.
-# The opposite parameter of "SkipUserAgents" is "OnlyUserAgents".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "konqueror REGEX[ua_test_v\d\.\d]"
-# Default: ""
-#
-SkipUserAgents=""
-
-
-# Use SkipFiles to ignore access to URLs that match one of following entries.
-# You can enter a list of not important URLs (like framed menus, hidden pages,
-# etc...) to exclude them from statistics. You must enter here exact relative
-# URL as found in log file, or a matching REGEX value.
-# For example, to ignore /badpage.html, just add "/badpage.html". To ignore
-# all pages in a particular directory, add "REGEX[^\/directorytoexclude]".
-# The opposite parameter of "SkipFiles" is "OnlyFiles".
-# Note: Use space between each value. This parameter is or not case sensitive
-# depending on URLNotCaseSensitive parameter.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "/badpage.html REGEX[^\/excludedirectory]"
-# Default: ""
-#
-SkipFiles=""
-
-
-# Include in stats, only accesses from hosts that match one of following
-# entries. For example, if you want AWStats to filter access to keep only
-# stats for visits from particular hosts, you can add those hosts names in
-# this parameter.
-# If DNS lookup is already done in your log file, you must enter here hostname
-# criteria, else enter ip address criteria.
-# The opposite parameter of "OnlyHosts" is "SkipHosts".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "127.0.0.1 REGEX[^192\.168\.] REGEX[^10\.]"
-# Default: ""
-#
-OnlyHosts=""
-
-
-# Include in stats, only accesses from user agent that match one of following
-# entries. For example, if you want AWStats to filter access to keep only
-# stats for visits from particular browsers, you can add their user agents
-# string in this parameter.
-# The opposite parameter of "OnlyUserAgents" is "SkipUserAgents".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "msie"
-# Default: ""
-#
-OnlyUserAgents=""
-
-
-# Include in stats, only accesses to URLs that match one of following entries.
-# For example, if you want AWStats to filter access to keep only stats that
-# match a particular string, like a particular directory, you can add this
-# directory name in this parameter.
-# The opposite parameter of "OnlyFiles" is "SkipFiles".
-# Note: Use space between each value. This parameter is or not case sensitive
-# depending on URLNotCaseSensitive parameter.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "REGEX[marketing_directory] REGEX[office\/.*\.(csv|sxw)$]"
-# Default: ""
-#
-#OnlyFiles=""
-
-
-# Add here a list of kind of url (file extension) that must be counted as
-# "Hit only" and not as a "Hit" and "Page/Download". You can set here all
-# images extensions as they are hit downloaded that must be counted but they
-# are not viewed pages. URLs with such extensions are not included in the TOP
-# Pages/URL report.
-# Note: If you want to exclude particular URLs from stats (No Pages and no
-# Hits reported), you must use SkipFiles parameter.
-# Change : Effective for new updates only
-# Example: "css js class gif jpg jpeg png bmp ico zip arj gz z wav mp3 wma mpg"
-# Example: ""
-# Default: "css js class gif jpg jpeg png bmp ico"
-#
-NotPageList="css js class gif jpg jpeg png bmp ico"
-
-
-# By default, AWStats considers that records found in web log file are
-# successful hits if HTTP code returned by server is a valid HTTP code (200
-# and 304). Any other code are reported in HTTP status chart.
-# Note that HTTP 'control codes', like redirection (302, 305) are not added by
-# default in this list as they are not pages seen by a visitor but are
-# protocol exchange codes to tell the browser to ask another page. Because
-# this other page will be counted and seen with a 200 or 304 code, if you 
-# add such codes, you will have 2 pages viewed reported for only one in facts.
-# Change : Effective for new updates only
-# Example: "200 304 302 305"
-# Default: "200 304"
-#
-ValidHTTPCodes="200 304"
-
-
-# By default, AWStats considers that records found in mail log file are
-# successful mail transfers if field that represent return code in analyzed
-# log file match values defined by this parameter.
-# Change : Effective for new updates only
-# Example: "1 250 200"
-# Default: "1 250"
-#
-ValidSMTPCodes="1 250"
-
-
-# Some web servers on some Operating systems (IIS-Windows) considers that a
-# login with same value but different case are the same login. To tell AWStats
-# to also considers them as one, set this parameter to 1.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-# 
-AuthenticatedUsersNotCaseSensitive=0
-
-
-# Some web servers on some Operating systems (IIS-Windows) considers that two
-# URLs with same value but different case are the same URL. To tell AWStats to
-# also considers them as one, set this parameter to 1.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-# 
-URLNotCaseSensitive=0
-
-
-# Keep or remove the anchor string you can find in some URLs.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-URLWithAnchor=0
-
-
-# In URL links, "?" char is used to add parameter's list in URLs. Syntax is:
-# /mypage.html?param1=value1&param2=value2
-# However, some servers/sites use also others chars to isolate dynamic part of
-# their URLs. You can complete this list with all such characters.
-# Change : Effective for new updates only
-# Example: "?;,"
-# Default: "?;"
-#
-URLQuerySeparators="?;"
-
-
-# Keep or remove the query string to the URL in the statistics for individual
-# pages. This is primarily used to differentiate between the URLs of dynamic
-# pages. If set to 1, mypage.html?id=x and mypage.html?id=y are counted as two
-# different pages.
-# Warning, when set to 1, memory required to run AWStats is dramatically
-# increased if you have a lot of changing URLs (for example URLs with a random
-# id inside). Such web sites should not set this option to 1 or use seriously
-# the next parameter URLWithQueryWithOnlyFollowingParameters (or eventually 
-# URLWithQueryWithoutFollowingParameters).
-# Change : Effective for new updates only
-# Possible values:
-# 0 - URLs are cleaned from the query string (ie: "/mypage.html")
-# 1 - Full URL with query string is used     (ie: "/mypage.html?p=x&q=y")
-# Default: 0
-# 
-URLWithQuery=0
-
-
-# When URLWithQuery is on, you will get the full URL with all parameters in
-# URL reports. But among thoose parameters, sometimes you don't need a
-# particular parameter because it does not identify the page or because it's
-# a random ID changing for each access even if URL points to same page. In
-# such cases, it is higly recommanded to ask AWStats to keep only parameters
-# you need (if you know them) before counting, manipulating and storing URL.
-# Enter here list of wanted parameters. For example, with "param", one hit on
-# /mypage.cgi?param=abc&id=Yo4UomP9d  and  /mypage.cgi?param=abc&id=Mu8fdxl3r
-# will be reported as 2 hits on /mypage.cgi?param=abc
-# This parameter is not used when URLWithQuery is 0 and can't be used with
-# URLWithQueryWithoutFollowingParameters.
-# Change : Effective for new updates only
-# Example: "param"
-# Default: ""
-# 
-URLWithQueryWithOnlyFollowingParameters=""
-
-
-# When URLWithQuery is on, you will get the full URL with all parameters in
-# URL reports. But among thoose parameters, sometimes you don't need a
-# particular parameter because it does not identify the page or because it's
-# a random ID changing for each access even if URL points to same page. In
-# such cases, it is higly recommanded to ask AWStats to remove such parameters
-# from the URL before counting, manipulating and storing URL. Enter here list
-# of all non wanted parameters. For example if you enter "id", one hit on
-# /mypage.cgi?param=abc&id=Yo4UomP9d  and  /mypage.cgi?param=abc&id=Mu8fdxl3r
-# will be reported as 2 hits on /mypage.cgi?param=abc
-# This parameter is not used when URLWithQuery is 0 and can't be used with
-# URLWithQueryWithOnlyFollowingParameters.
-# Change : Effective for new updates only
-# Example: "PHPSESSID jsessionid"
-# Default: ""
-# 
-URLWithQueryWithoutFollowingParameters=""
-
-
-# Keep or remove the query string to the referrer URL in the statistics for
-# external referrer pages. This is used to differentiate between the URLs of
-# dynamic referrer pages. If set to 1, mypage.html?id=x and mypage.html?id=y
-# are counted as two different referrer pages.
-# Change : Effective for new updates only
-# Possible values:
-# 0 - Referrer URLs are cleaned from the query string (ie: "/mypage.html")
-# 1 - Full URL with query string is used      (ie: "/mypage.html?p=x&q=y")
-# Default: 0
-# 
-URLReferrerWithQuery=0
-
-
-# AWStats can detect setup problems or show you important informations to have
-# a better use. Keep this to 1, except if AWStats says you can change it.
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 1
-#
-WarningMessages=1
-
-
-# When an error occurs, AWStats output a message related to errors. If you
-# want (in most cases for security reasons) to have no error messages, you
-# can set this parameter to your personalized generic message.
-# Change : Effective immediatly
-# Example: "An error occured. Contact your Administrator"
-# Default: ""
-#
-ErrorMessages=""
-
-
-# AWStat can be run with debug=x parameter to ouput various informations
-# to help in debugging or solving troubles. If you want (in most cases for 
-# security reasons) to disable debugging, set this parameter to 0.
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 1
-#
-DebugMessages=1
-
-
-# To help you to detect if your log format is good, AWStats report an error
-# if all the first NbOfLinesForCorruptedLog lines have a format that does not
-# match the LogFormat parameter.
-# However, some worm virus attack on your web server can result in a very high
-# number of corrupted lines in your log. So if you experience awstats stop
-# because of bad virus records at the beginning of your log file, you can
-# increase this parameter (very rare).
-# Change : Effective for new updates only
-# Default: 50
-#
-NbOfLinesForCorruptedLog=50
-
-
-# For some particular integration needs, you may want to have CGI links to
-# point to another script than awstats.pl.
-# Use the name of this script in WrapperScript parameter.
-# Change : Effective immediatly
-# Example: "awstatslauncher.pl"
-# Default: ""
-#
-WrapperScript=""
-
-
-# DecodeUA must be set to 1 if you use Roxen web server. This server converts
-# all spaces in user agent field into %20. This make the AWStats robots, os
-# and browsers detection fail in some cases. Just change it to 1 if and only
-# if your web server is Roxen.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-DecodeUA=0
-
-
-# MiscTrackerUrl can be used to make AWStats able to detect some miscellanous
-# things, that can not be tracked on other way, like:
-# - Javascript disabled
-# - Java enabled
-# - Screen size
-# - Color depth
-# - Macromedia Director plugin
-# - Macromedia Shockwave plugin
-# - Realplayer G2 plugin
-# - QuickTime plugin
-# - Mediaplayer plugin
-# - Acrobat PDF plugin
-# To enable all this features, you must copy the awstats_misc_tracker.js file
-# into a /js/ directory stored in your web document root and add the following
-# HTML code at the end of your index page (but before </BODY>) :
-#
-# <script language=javascript src="/js/awstats_misc_tracker.js"></script>
-# <noscript><img src="/js/awstats_misc_tracker.js?nojs=y" height=0 width=0 border=0 style="display: none"></noscript>
-#
-# If code is not added in index page, all those detection capabilities will be
-# disabled. You must also check that ShowScreenSizeStats and ShowMiscStats
-# parameters are set to 1 to make results appear in AWStats report page.
-# If you want to use another directory than /js/, you must also change the
-# awstatsmisctrackerurl variable into the awstats_misc_tracker.js file.
-# Change : Effective for new updates only.
-# Possible value: URL of javascript tracker file added in your HTML code.
-# Default: "/js/awstats_misc_tracker.js"
-#
-MiscTrackerUrl="/js/awstats_misc_tracker.js"
-
-
-
-#-----------------------------------------------------------------------------
-# OPTIONAL ACCURACY SETUP SECTION (Not required but increase AWStats features)
-#-----------------------------------------------------------------------------
-
-# Following values allows you to define accuracy of AWStats entities (robots,
-# browsers, os, referers, file types) detection.
-# It might be a good idea for large web sites or ISP that provides AWStats to
-# high number of customers, to set this parameter to 1 (or 0), instead of 2.
-# Possible values:
-#  0 = No detection,
-#  1 = Medium/Standard detection
-#  2 = Full detection
-# Change : Effective for new updates only
-# Default: 2 (0 for LevelForWormsDetection)
-#
-LevelForBrowsersDetection=2         # 0 disables Browsers detection.
-                                    # 2 reduces AWStats speed by 2%
-LevelForOSDetection=2               # 0 disables OS detection.
-                                    # 2 reduces AWStats speed by 3%
-LevelForRefererAnalyze=0            # 0 disables Origin detection.
-                                    # 2 reduces AWStats speed by 14%
-LevelForRobotsDetection=0           # 0 disables Robots detection.
-                                    # 2 reduces AWStats speed by 2.5%
-LevelForSearchEnginesDetection=0    # 0 disables Search engines detection.
-                                    # 2 reduces AWStats speed by 9%
-LevelForKeywordsDetection=0         # 0 disables Keyphrases/Keywords detection.
-                                    # 2 reduces AWStats speed by 1%
-LevelForFileTypesDetection=2        # 0 disables File types detection.
-                                    # 2 reduces AWStats speed by 1%
-LevelForWormsDetection=0            # 0 disables Worms detection.
-                                    # 2 reduces AWStats speed by 15%
-
-
-#-----------------------------------------------------------------------------
-# OPTIONAL APPEARANCE SETUP SECTION (Not required but increase AWStats features)
-#-----------------------------------------------------------------------------
-
-# When you use AWStats as a CGI, you can have the reports shown in HTML frames.
-# Frames are only available for report viewed dynamically. When you build
-# pages from command line, this option is not used and no frames are built.
-# Possible values: 0 or 1
-# Default: 1
-#
-
-UseFramesWhenCGI=1
-
-
-# This parameter ask your browser to open detailed reports into a different
-# window than the main page.
-# Possible values:
-# 0 - Open all in same browser window
-# 1 - Open detailed reports in another window except if using frames
-# 2 - Open always in a different window even if reports are framed
-# Default: 1
-#
-DetailedReportsOnNewWindows=1
-
-
-# You can add, in the HTML report page, a cache lifetime (in seconds) that
-# will be returned to browser in HTTP header answer by server.
-# This parameter is not used when report are built with -staticlinks option.
-# Example: 3600
-# Default: 0
-#
-Expires=0
-
-
-# To avoid too large web pages, you can ask AWStats to limit number of rows of
-# all reported charts to this number when no other limit apply.
-# Default: 1000
-#
-MaxRowsInHTMLOutput=1000
-
-
-# Set your primary language (ISO-639-1 language codes).
-# Possible value:
-#  Albanian=al, Bosnian=ba, Bulgarian=bg, Catalan=ca,
-#  Chinese (Taiwan)=tw, Chinese (Simpliefied)=cn, Czech=cz, Danish=dk,
-#  Dutch=nl, English=en, Estonian=et, Euskara=eu, Finnish=fi,
-#  French=fr, Galician=gl, German=de, Greek=gr, Hebrew=he, Hungarian=hu,
-#  Icelandic=is, Indonesian=id, Italian=it, Japanese=jp, Korean=kr,
-#  Latvian=lv, Norwegian (Nynorsk)=nn, Norwegian (Bokmal)=nb, Polish=pl,
-#  Portuguese=pt, Portuguese (Brazilian)=br, Romanian=ro, Russian=ru,
-#  Serbian=sr, Slovak=sk, Slovenian=si, Spanish=es, Swedish=se, Turkish=tr,
-#  Ukrainian=ua, Welsh=cy.
-#  First available language accepted by browser=auto
-# Default: "auto"
-#
-Lang="es"
-
-
-# Set the location of language files.
-# Example: "/usr/share/awstats/lang"
-# Default: "./lang" (means lang directory is in same location than awstats.pl)
-#
-DirLang="./lang"
-
-
-# Show menu header with reports' links
-# Possible values: 0 or 1
-# Default: 1
-#
-ShowMenu=1					
-
-
-# You choose here which reports you want to see in the main page and what you
-# want to see in those reports.
-# Possible values:
-#  0  - Report is not shown at all
-#  1  - Report is shown in main page with an entry in menu and default columns
-# XYZ - Report shows column informations defined by code X,Y,Z...
-#       X,Y,Z... are code letters among the following:
-#        U = Unique visitors
-#        V = Visits
-#        P = Number of pages
-#        H = Number of hits (or mails)
-#        B = Bandwith (or total mail size for mail logs)
-#        L = Last access date
-#        E = Entry pages
-#        X = Exit pages
-#        C = Web compression (mod_gzip,mod_deflate)
-#        M = Average mail size (mail logs)
-#
-
-# Show monthly chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: UVPHB, Possible column codes: UVPHB
-ShowMonthStats=UVPH
-
-# Show days of month chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: VPHB, Possible column codes: VPHB
-ShowDaysOfMonthStats=VPH
-
-# Show days of week chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHB, Possible column codes: PHB
-ShowDaysOfWeekStats=PH
-
-# Show hourly chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHB, Possible column codes: PHB
-ShowHoursStats=PH
-
-# Show domains/country chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHB, Possible column codes: PHB
-ShowDomainsStats=0
-
-# Show hosts chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHBL, Possible column codes: PHBL
-ShowHostsStats=PHL
-
-# Show authenticated users chart
-# Context: Web, Streaming, Ftp
-# Default: 0, Possible column codes: PHBL
-ShowAuthenticatedUsers=PHL
-
-# Show robots chart
-# Context: Web, Streaming
-# Default: HBL, Possible column codes: HBL
-ShowRobotsStats=0
-
-# Show worms chart
-# Context: Web, Streaming
-# Default: 0 (If set to 1, see also LevelForWormsDetection), Possible column codes: HBL
-ShowWormsStats=0
-
-# Show email senders chart (For use when analyzing mail log files)
-# Context: Mail
-# Default: 0, Possible column codes: HBML
-ShowEMailSenders=0
-
-# Show email receivers chart (For use when analyzing mail log files)
-# Context: Mail
-# Default: 0, Possible column codes: HBML
-ShowEMailReceivers=0
-
-# Show session chart
-# Context: Web, Streaming, Ftp
-# Default: 1, Possible column codes: None
-ShowSessionsStats=1
-
-# Show pages-url chart.
-# Context: Web, Streaming, Ftp
-# Default: PBEX, Possible column codes: PBEX
-ShowPagesStats=PEX
-
-# Show file types chart.
-# Context: Web, Streaming, Ftp
-# Default: HB, Possible column codes: HBC
-ShowFileTypesStats=H
-
-# Show file size chart (Not yet available)
-# Context: Web, Streaming, Mail, Ftp
-# Default: 1, Possible column codes: None
-ShowFileSizesStats=0		
-
-# Show operating systems chart
-# Context: Web, Streaming, Ftp
-# Default: 1, Possible column codes: None
-ShowOSStats=1
-
-# Show browsers chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowBrowsersStats=1
-
-# Show screen size chart
-# Context: Web, Streaming
-# Default: 0 (If set to 1, see also MiscTrackerUrl), Possible column codes: None
-ShowScreenSizeStats=0
-
-# Show origin chart
-# Context: Web, Streaming
-# Default: PH, Possible column codes: PH
-ShowOriginStats=0
-
-# Show keyphrases chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowKeyphrasesStats=0
-
-# Show keywords chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowKeywordsStats=0
-
-# Show misc chart
-# Context: Web, Streaming
-# Default: a (See also MiscTrackerUrl parameter), Possible column codes: anjdfrqwp
-ShowMiscStats=0
-
-# Show http errors chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowHTTPErrorsStats=1
-
-# Show smtp errors chart (For use when analyzing mail log files)
-# Context: Mail
-# Default: 0, Possible column codes: None
-ShowSMTPErrorsStats=0
-
-# Show the cluster report (Your LogFormat must contains the %cluster tag)
-# Context: Web, Streaming, Ftp
-# Default: 0, Possible column codes: PHB
-ShowClusterStats=0
-
-
-# Some graphical reports are followed by the data array of values.
-# If you don't want this array (to reduce report size for example), you can
-# set thoose options to 0.
-# Possible values: 0 or 1
-# Default: 1
-#
-# Data array values for the ShowMonthStats report
-AddDataArrayMonthStats=1
-# Data array values for the ShowDaysOfMonthStats report
-AddDataArrayShowDaysOfMonthStats=1
-# Data array values for the ShowDaysOfWeekStats report
-AddDataArrayShowDaysOfWeekStats=1
-# Data array values for the ShowHoursStats report
-AddDataArrayShowHoursStats=1
-
-
-# In the Origin chart, you have stats on where your hits came from. You can
-# includes hits on pages that comes from pages of same sites in this chart.
-# Possible values: 0 or 1
-# Default: 0
-#
-IncludeInternalLinksInOriginSection=1
-
-
-# Following parameter can be used to choose maximum number of lines shown for
-# the particular following report.
-#
-# Stats by countries/domains
-MaxNbOfDomain = 10
-MinHitDomain  = 1
-# Stats by hosts
-MaxNbOfHostsShown = 10
-MinHitHost    = 1
-# Stats by authenticated users
-MaxNbOfLoginShown = 10
-MinHitLogin   = 1
-# Stats by robots
-MaxNbOfRobotShown = 10
-MinHitRobot   = 1
-# Stats by pages
-MaxNbOfPageShown = 10
-MinHitFile    = 1
-# Stats by OS
-MaxNbOfOsShown = 10
-MinHitOs      = 1
-# Stats by browsers
-MaxNbOfBrowsersShown = 10
-MinHitBrowser = 1
-# Stats by screen size
-MaxNbOfScreenSizesShown = 5
-MinHitScreenSize = 1
-# Stats by window size (following 2 parameters are not yet used)
-MaxNbOfWindowSizesShown = 5
-MinHitWindowSize = 1
-# Stats by referers
-MaxNbOfRefererShown = 10
-MinHitRefer   = 1
-# Stats for keyphrases
-MaxNbOfKeyphrasesShown = 10
-MinHitKeyphrase = 1
-# Stats for keywords
-MaxNbOfKeywordsShown = 10
-MinHitKeyword = 1
-# Stats for sender or receiver emails
-MaxNbOfEMailsShown = 20
-MinHitEMail   = 1
-
-
-# Choose if you want the week report to start on sunday or monday
-# Possible values:
-# 0 - Week start on sunday
-# 1 - Week start on monday
-# Default: 1
-#
-FirstDayOfWeek=1
-
-
-# List of visible flags that links to other language translations.
-# See Lang parameter for list of allowed flag/language codes.
-# If you don't want any flag link, set ShowFlagLinks to "".
-# This parameter is used only if ShowMenu parameter is set to 1.
-# Possible values: "" or "language_codes_separated_by_space"
-# Example: "en es fr nl de"
-# Default: ""
-#
-ShowFlagLinks="en fr de"
-
-
-# Each URL, shown in stats report views, are links you can click.
-# Possible values: 0 or 1
-# Default: 1
-#
-ShowLinksOnUrl=1
-
-
-# When AWStats build HTML links in its report pages, it starts thoose link
-# with "http://". However some links might be HTTPS links, so you can enter
-# here the root of all your HTTPS links. If all your site is a SSL web site,
-# just enter "/".
-# This parameter is not used if ShowLinksOnUrl is 0.
-# Example: "/shopping"
-# Example: "/"
-# Default: ""
-UseHTTPSLinkForUrl=""
-
-
-# Maximum length of URL part shown on stats page (number of characters).
-# This affects only URL visible text, link still work.
-# Default: 64
-#
-MaxLengthOfShownURL=64
-
-
-# You can enter HTML code that will be added at the top of AWStats reports.
-# Default: ""
-#
-HTMLHeadSection=""
-
-
-# You can enter HTML code that will be added at the end of AWStats reports.
-# Great to add advert ban.
-# Default: ""
-#
-HTMLEndSection=""
-
-
-# You can set Logo and LogoLink to use your own logo.
-# Logo must be the name of image file (must be in $DirIcons/other directory).
-# LogoLink is the expected URL when clicking on Logo.
-# Default: "awstats_logo6.png"
-#
-Logo="awstats_logo6.png"
-LogoLink="http://awstats.sourceforge.net"
-
-
-# Value of maximum bar width/height for horizontal/vertical HTML graphics bar.
-# Default: 260/90
-#
-BarWidth   = 260
-BarHeight  = 90
-
-
-# You can ask AWStats to use a particular CSS (Cascading Style Sheet) to
-# change its look. To create a style sheet, you can use samples provided with
-# AWStats in wwwroot/css directory.
-# Example: "/awstatscss/awstats_bw.css"
-# Example: "/css/awstats_bw.css"
-# Default: ""
-#
-StyleSheet=""
-
-
-# Those colors parameters can be used (if StyleSheet parameter is not used)
-# to change AWStats look.
-# Example: color_name="RRGGBB"	# RRGGBB is Red Green Blue components in Hex
-#
-color_Background="FFFFFF"		# Background color for main page (Default = "FFFFFF")
-color_TableBGTitle="CCCCDD"		# Background color for table title (Default = "CCCCDD")
-color_TableTitle="000000"		# Table title font color (Default = "000000")
-color_TableBG="CCCCDD"			# Background color for table (Default = "CCCCDD")
-color_TableRowTitle="FFFFFF"	# Table row title font color (Default = "FFFFFF")
-color_TableBGRowTitle="ECECEC"	# Background color for row title (Default = "ECECEC")
-color_TableBorder="ECECEC"		# Table border color (Default = "ECECEC")
-color_text="000000"				# Color of text (Default = "000000")
-color_textpercent="606060"		# Color of text for percent values (Default = "606060")
-color_titletext="000000"		# Color of text title within colored Title Rows (Default = "000000")
-color_weekend="EAEAEA"			# Color for week-end days (Default = "EAEAEA")
-color_link="0011BB"				# Color of HTML links (Default = "0011BB")
-color_hover="605040"			# Color of HTML on-mouseover links (Default = "605040") 
-color_u="FFAA66"				# Background color for number of unique visitors (Default = "FFAA66")
-color_v="F4F090"				# Background color for number of visites (Default = "F4F090")
-color_p="4477DD"				# Background color for number of pages (Default = "4477DD")
-color_h="66DDEE"				# Background color for number of hits (Default = "66DDEE")
-color_k="2EA495"				# Background color for number of bytes (Default = "2EA495")
-color_s="8888DD"				# Background color for number of search (Default = "8888DD")
-color_e="CEC2E8"				# Background color for number of entry pages (Default = "CEC2E8")
-color_x="C1B2E2"				# Background color for number of exit pages (Default = "C1B2E2")
-
-
-
-#-----------------------------------------------------------------------------
-# PLUGINS
-#-----------------------------------------------------------------------------
-
-# Add here all plugins file you want to load.
-# Plugin files must be .pm files stored in 'plugins' directory.
-# Uncomment LoadPlugin lines to enable a plugin after checking that perl
-# modules required by the plugin are installed.
-
-# Plugin: Tooltips
-# Perl modules required: None
-# Add some tooltips help on HTML report pages.
-# Note that enabled this kind of help will increased HTML report pages size,
-# so server load and bandwidth.
-#
-#LoadPlugin="tooltips"
-
-# Plugin: DecodeUTFKeys
-# Perl modules required: Encode and URI::Escape
-# Allow AWStats to show correctly (in language charset) keywords/keyphrases
-# strings even if they were UTF8 coded by the referer search engine.
-#
-#LoadPlugin="decodeutfkeys"
-
-# Plugin: IPv6
-# Perl modules required: Net::IP and Net::DNS
-# This plugin gives AWStats capability to make reverse DNS lookup on IPv6
-# addresses.
-# Note: If you are interesting in having country report, you should use the
-# geoipfree or geoip plugin instead of enabled reverse DNS lookup.
-#
-#LoadPlugin="ipv6"
-
-# Plugin: HashFiles
-# Perl modules required: Storable
-# AWStats DNS cache files are read/saved as native hash files. This increase
-# DNS cache files loading speed, above all for very large web sites.
-#
-#LoadPlugin="hashfiles"
-
-# Plugin: GeoIP
-# Perl modules required: Geo::IP or Geo::IP::PurePerl (from Maxmind)
-# Country chart is built from an Internet IP-Country database.
-# This plugin is useless for intranet only log files.
-# Note: You must choose between using this plugin (need Perl Geo::IP module 
-# from Maxmind, database more up to date) or the GeoIPfree plugin (need
-# Perl Geo::IPfree module, database less up to date).
-# This plugin reduces AWStats speed of 8% !
-#
-#LoadPlugin="geoip GEOIP_STANDARD"
-
-# Plugin: GeoIPfree
-# Perl modules required: Geo::IPfree version 0.2+ (from Graciliano M.P.)
-# Country chart is built from an Internet IP-Country database.
-# This plugin is useless for intranet only log files.
-# Note: You must choose between using this plugin (need Perl Geo::IPfree
-# module, database less up to date) or the GeoIP plugin (need Perl Geo::IP
-# module from Maxmind, database more up to date).
-# Note: Activestate provide a corrupted version of Geo::IPfree 0.2 Perl
-# module, so install it from elsewhere (from www.cpan.org for example).
-# This plugin reduces AWStats speed of 10% !
-#
-#LoadPlugin="geoipfree"
-
-# Plugin: GeoIP_Region_Maxmind
-# Perl modules required: Geo::IP (from Maxmind)
-# This plugin add a chart of hits by regions. Only regions for US and 
-# Canada can be detected.
-# Note: This plugin need Maxmind GeoIP Perl module AND the region database.
-# Note: I get some problem with Maxmind Geo::IP Perl module with ActiveState
-# on Windows but it works great on Linux with default Perl.
-# You need to purchase a license from Maxmind to get/use the Region database.
-# This plugin reduces AWStats speed.
-#
-#LoadPlugin="geoip_region_maxmind GEOIP_STANDARD /pathto/GeoIPRegion.dat"
-
-# Plugin: UserInfo
-# Perl modules required: None
-# Add a text (Firtname, Lastname, Office Department, ...) in authenticated user
-# reports for each login value.
-# A text file called userinfo.myconfig.txt, with two fields (first is login,
-# second is text to show, separated by a tab char) must be created in DirData
-# directory.
-#
-LoadPlugin="userinfo"
-
-# Plugin: HostInfo
-# Perl modules required: Net::XWhois
-# Add a column into host chart with a link to open a popup window that shows
-# info on host (like whois records).
-#
-#LoadPlugin="hostinfo"
-
-# Plugin: ClusterInfo
-# Perl modules required: None
-# Add a text (for example a full hostname) in cluster reports for each cluster
-# number.
-# A text file called clusterinfo.myconfig.txt, with two fields (first is
-# cluster number, second is text to show) separated by a tab char. must be
-# created into DirData directory.
-# Note this plugin is useless if ShowClusterStats is set to 0 or if you don't
-# use a personalized log format that contains %cluster tag.
-#
-#LoadPlugin="clusterinfo"
-
-# Plugin: UrlAliases
-# Perl modules required: None
-# Add a text (Page title, description...) in URL reports before URL value.
-# A text file called urlalias.myconfig.txt, with two fields (first is URL,
-# second is text to show, separated by a tab char) must be created into
-# DirData directory.
-#
-#LoadPlugin="urlalias"
-
-# Plugin: TimeHiRes
-# Perl modules required: Time::HiRes (if Perl < 5.8)
-# Time reported by -showsteps option is in millisecond. For debug purpose.
-#
-#LoadPlugin="timehires"		
-
-# Plugin: TimeZone
-# Perl modules required: Time::Local
-# Allow AWStats to correct a bad timezone for user of some IIS that use
-# GMT date in its log instead of local server time.
-# This module is useless for Apache and most IIS version.
-# This plugin reduces AWStats speed of 40% !!!!!!!
-#
-#LoadPlugin="timezone +2"
-
-# Plugin: Rawlog
-# Perl modules required: None
-# This plugin adds a form in AWStats main page to allow users to see raw
-# content of current log files. A filter is also available.
-#
-#LoadPlugin="rawlog"
-
-# Plugin: GraphApplet
-# Perl modules required: None
-# Supported charts are built by a 3D graphic applet.
-#
-#LoadPlugin="graphapplet /awstatsclasses"				# EXPERIMENTAL FEATURE
-
-
-
-#-----------------------------------------------------------------------------
-# EXTRA SECTIONS
-#-----------------------------------------------------------------------------
-
-# You can define your own charts, you choose here what are rows and columns
-# keys. This feature is particularly usefull for marketing purpose, tracking
-# products orders for example.
-# For this, edit all parameters of Extra section. Each set of parameter is a
-# different chart. For several charts, duplicate section changing the number.
-# Note: Each Extra section reduces AWStats speed by 8%.
-#
-# WARNING: A wrong setup of Extra section might result in too large arrays
-# that will consume all your memory, making AWStats unusable after several
-# updates, so be sure to setup it correctly.
-# In most cases, you don't need this feature.
-#
-# ExtraSectionNameX is title of your personalized chart.
-# ExtraSectionCodeFilterX is list of codes the record code field must match.
-#   Put an empty string for no test on code.
-# ExtraSectionConditionX are conditions you can use to count or not the hit,
-#   Use one of the field condition (URL,QUERY_STRING,REFERER,UA,HOST,extraX)
-#   and a regex to match, after a coma. Use "||" for "OR".
-# ExtraSectionFirstColumnTitleX is the first column title of the chart.
-# ExtraSectionFirstColumnValuesX is a string to tell AWStats which field to
-#   extract value from (URL,QUERY_STRING,REFERER,UA,HOST,extraX)
-#   and how to extract the value (using regex syntax). Each different value
-#   found will appear in first column of report on a different row. Be sure
-#   that list of different possible values will not grow indefinitely.
-# ExtraSectionFirstColumnFormatX is the string used to write value.
-# ExtraSectionStatTypesX are things you want to count. You can use standard
-#   code letters (P for pages,H for hits,B for bandwidth,L for last access).
-# ExtraSectionAddAverageRowX add a row at bottom of chart with average values.
-# ExtraSectionAddSumRowX add a row at bottom of chart with sum values.
-# MaxNbOfExtraX is maximum number of rows shown in chart.
-# MinHitExtraX is minimum number of hits required to be shown in chart.
-#
-
-# Example to report the 20 products the most ordered by "order.cgi" script
-#ExtraSectionName1="Product orders"
-#ExtraSectionCodeFilter1="200 304"
-#ExtraSectionCondition1="URL,\/cgi\-bin\/order\.cgi||URL,\/cgi\-bin\/order2\.cgi"
-#ExtraSectionFirstColumnTitle1="Product ID"
-#ExtraSectionFirstColumnValues1="QUERY_STRING,productid=([^&]+)"
-#ExtraSectionFirstColumnFormat1="%s"
-#ExtraSectionStatTypes1=PL
-#ExtraSectionAddAverageRow1=0
-#ExtraSectionAddSumRow1=1
-#MaxNbOfExtra1=20
-#MinHitExtra1=1
-
-ExtraSectionName1="Objetos"
-ExtraSectionCodeFilter1="200 304"
-ExtraSectionCondition1="QUERY_STRING,(id=)"
-ExtraSectionFirstColumnTitle1="Id del objeto"
-ExtraSectionFirstColumnValues1="QUERY_STRING,(.+)"
-ExtraSectionFirstColumnFormat1="%s"
-ExtraSectionStatTypes1=HVL
-ExtraSectionAddAverageRow1=0
-ExtraSectionAddSumRow1=1
-MaxNbOfExtra1=20
-MinHitExtra1=1
-
-# Example to report the 20 products the most ordered by "order.cgi" script
-# Report of requests of xml/rdf/rss feeds
-ExtraSectionName2="Foros visitados"
-ExtraSectionCodeFilter2="200 304"
-ExtraSectionCondition2="URL,(forum-view)"
-ExtraSectionFirstColumnTitle2="Id del foro"
-ExtraSectionFirstColumnValues2="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat2="%s"
-ExtraSectionStatTypes2=HVL
-ExtraSectionAddAverageRow2=0
-ExtraSectionAddSumRow2=1
-MaxNbOfExtra2=20
-MinHitExtra2=1
-
-#message-view?message%5fid=7110
-ExtraSectionName3="Mensajes leidos"
-ExtraSectionCodeFilter3="200 304"
-ExtraSectionCondition3="URL,(message-view)"
-ExtraSectionFirstColumnTitle3="Id del mensaje"
-ExtraSectionFirstColumnValues3="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat3="%s"
-ExtraSectionStatTypes3=HVL
-ExtraSectionAddAverageRow3=0
-ExtraSectionAddSumRow3=1
-MaxNbOfExtra3=20
-MinHitExtra3=1
-
-#one-faq?faq_id=904
-ExtraSectionName4="FAQS visitados"
-ExtraSectionCodeFilter4="200 304"
-ExtraSectionCondition4="URL,(faq\/one-faq)"
-ExtraSectionFirstColumnTitle4="Id del FAQ"
-ExtraSectionFirstColumnValues4="QUERY_STRING,faq_id=([^&]+)"
-ExtraSectionFirstColumnFormat4="%s"
-ExtraSectionStatTypes4=HVL
-ExtraSectionAddAverageRow4=0
-ExtraSectionAddSumRow4=1
-MaxNbOfExtra4=20
-MinHitExtra4=1
-
-#file-storage/index?folder%5fid=716
-ExtraSectionName5="Folders visitados"
-ExtraSectionCodeFilter5="200 304"
-ExtraSectionCondition5="URL,(file-storage\/index)"
-ExtraSectionFirstColumnTitle5="Id del folder"
-ExtraSectionFirstColumnValues5="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat5="%s"
-ExtraSectionStatTypes5=HVL
-ExtraSectionAddAverageRow5=0
-ExtraSectionAddSumRow5=1
-MaxNbOfExtra5=20
-MinHitExtra5=1
-
-#news/item?item_id=7893
-ExtraSectionName6="Noticias leidas"
-ExtraSectionCodeFilter6="200 304"
-ExtraSectionCondition6="URL,(news\/item)"
-ExtraSectionFirstColumnTitle6="Id de la noticia"
-ExtraSectionFirstColumnValues6="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat6="%s"
-ExtraSectionStatTypes6=HVL
-ExtraSectionAddAverageRow6=0
-ExtraSectionAddSumRow6=1
-MaxNbOfExtra6=20
-MinHitExtra6=1
-
-#forums/message-view?message%5fid=7110
-ExtraSectionName7="Mensajes leidos en los foros"
-ExtraSectionCodeFilter7="200 304"
-ExtraSectionCondition7="URL,(forums\/message-view)"
-ExtraSectionFirstColumnTitle7="Id del mensaje"
-#ExtraSectionFirstColumnValues7="QUERY_STRING,id=([^&]+) | URL,(.+)"
-#ExtraSectionFirstColumnValues7="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnValues7="REFERER,(.+)"
-ExtraSectionFirstColumnFormat7="<a href='%s'>%s</a>"
-ExtraSectionStatTypes7=HVL
-ExtraSectionAddAverageRow7=0
-ExtraSectionAddSumRow7=1
-MaxNbOfExtra7=20
-MinHitExtra7=1
-
-#dotlrn/clubs/pruebasdenotificaciones/one-community?page_num=0
-ExtraSectionName8="Comunidades visitadas"
-ExtraSectionCodeFilter8="200 304"
-ExtraSectionCondition8="URL,(dotlrn\/clubs\/)"
-ExtraSectionFirstColumnTitle8="Nombre de la comunidad"
-ExtraSectionFirstColumnValues8="URL,/dotlrn/clubs/([\w]+)\/"
-ExtraSectionFirstColumnFormat8="%s"
-ExtraSectionStatTypes8=PHVL
-ExtraSectionAddAverageRow8=0
-ExtraSectionAddSumRow8=1
-MaxNbOfExtra8=20
-MinHitExtra8=1
-
-#Por medio del community_id
-ExtraSectionName9="Asignaturas visitadas"
-ExtraSectionCodeFilter9="200 304"
-ExtraSectionCondition9="extra1,community_id=(.+)"
-ExtraSectionFirstColumnTitle9="Id de la asignatura"
-ExtraSectionFirstColumnValues9="extra1,id=([\w]+)"
-ExtraSectionFirstColumnFormat9="%s"
-ExtraSectionStatTypes9=PHVL
-ExtraSectionAddAverageRow9=0
-ExtraSectionAddSumRow9=1
-MaxNbOfExtra9=20
-MinHitExtra9=1
-
-#-----------------------------------------------------------------------------
-# INCLUDES
-#-----------------------------------------------------------------------------
-
-# You can include other config files using the directive with the name of the
-# config file.
-# This is particularly usefull for users who have a lot of virtual servers, so
-# a lot of config files and want to maintain common values in only one file.
-# Note that when a variable is defined both in a config file and in an
-# included file, AWStats will use the last value read for parameters that
-# contains one value and AWStats will concat all values from both files for
-# parameters that are lists of value.
-#
-
-#Include ""
Index: openacs-4/packages/user-tracking/config/awstatsDirecto.user.conf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/config/Attic/awstatsDirecto.user.conf,v
diff -u -N
--- openacs-4/packages/user-tracking/config/awstatsDirecto.user.conf	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,1527 +0,0 @@
-# AWSTATS CONFIGURE FILE 6.2
-#-----------------------------------------------------------------------------
-# Copy this file into awstats.www.mydomain.conf and edit this new config file
-# to setup AWStats (See documentation in docs/ directory).
-# The config file must be in /etc/awstats, /usr/local/etc/awstats or /etc (for
-# Unix/Linux) or same directory than awstats.pl (Windows, Mac, Unix/Linux...)
-# To include an environment variable in any parameter (AWStats will replace
-# it with its value when reading it), follow the example:
-# Parameter="__ENVNAME__"
-# Note that environment variable AWSTATS_CURRENT_CONFIG is always defined with
-# the config value in an AWStats running session and can be used like others.
-#-----------------------------------------------------------------------------
-# $Revision: 1.1 $ - $Author: rocaelh $ - $Date: 2005/03/01 17:35:37 $
-
-
-
-#-----------------------------------------------------------------------------
-# MAIN SETUP SECTION (Required to make AWStats work)
-#-----------------------------------------------------------------------------
-
-# "LogFile" contains the web, ftp or mail server log file to analyze.
-# Possible values: A full path, or a relative path from awstats.pl directory.
-# Example: "/var/log/apache/access.log"
-# Example: "../logs/mycombinedlog.log"
-# You can also use tags in this filename if you need a dynamic file name
-# depending on date or time (Replacement is made by AWStats at the beginning
-# of its execution). This is available tags :
-#   %YYYY-n  is replaced with 4 digits year we were n hours ago
-#   %YY-n    is replaced with 2 digits year we were n hours ago
-#   %MM-n    is replaced with 2 digits month we were n hours ago
-#   %MO-n    is replaced with 3 letters month we were n hours ago
-#   %DD-n    is replaced with day we were n hours ago
-#   %HH-n    is replaced with hour we were n hours ago
-#   %NS-n    is replaced with number of seconds at 00:00 since 1970
-#   %WM-n    is replaced with the week number in month (1-5)
-#   %Wm-n    is replaced with the week number in month (0-4)
-#   %WY-n    is replaced with the week number in year (01-52)
-#   %Wy-n    is replaced with the week number in year (00-51)
-#   %DW-n    is replaced with the day number in week (1-7, 1=sunday)
-#                              use n=24 if you need (1-7, 1=monday)
-#   %Dw-n    is replaced with the day number in week (0-6, 0=sunday)
-#                              use n=24 if you need (0-6, 0=monday)
-#   Use 0 for n if you need current year, month, day, hour...
-# Example: "/var/log/access_log.%YYYY-0%MM-0%DD-0.log"
-# Example: "C:/WINNT/system32/LogFiles/W3SVC1/ex%YY-24%MM-24%DD-24.log"
-# You can also use a pipe if log file come from a pipe :
-# Example: "gzip -d </var/log/apache/access.log.gz |"
-# If there is several log files from load balancing servers :
-# Example: "/pathtotools/logresolvemerge.pl *.log |"
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-# Enter the log file type you want to analyze.
-# Possible values:
-#  W - For a web log file
-#  S - For a streaming log file
-#  M - For a mail log file
-#  F - For a ftp log file
-# Example: W
-# Default: W
-#
-LogType=W
-
-
-# Enter here your log format (Must match your web server config. See setup
-# instructions in documentation know how to configure your web server to have
-# the required log format).
-# Possible values: 1,2,3,4 or "your_own_personalized_log_format"
-# 1 - Apache or Lotus Notes/Domino native combined log format (NCSA combined/XLF/ELF log format)
-# 2 - Old IIS log format (IIS W3C log format). See FAQ for IIS 6.x.
-# 3 - Webstar native log format.
-# 4 - Apache or Squid native common log format (NCSA common/CLF log format)
-#     With LogFormat=4, some features (browsers, os, keywords...) can't work.
-# "your_own_personalized_log_format" = If your log is ftp, mail or other format,
-#     you must use following keys to define the log format string (See FAQ
-#     for ftp, mail or exotic web log format examples):
-#   %host             Host client name or IP address
-#   %lognamequot      Authenticated login/user with format: "john"
-#   %logname          Authenticated login/user with format: john
-#   %time1            Date and time with format: [dd/mon/yyyy:hh:mm:ss +0000] or [dd/mon/yyyy:hh:mm:ss]
-#   %time2            Date and time with format: yyyy-mm-dd hh:mm:ss
-#   %time3            Date and time with format: Mon dd hh:mm:ss or Mon dd hh:mm:ss yyyy
-#   %time4            Date and time with unix timestamp format: dddddddddd
-#   %methodurl        Method and URL with format: "GET /index.html HTTP/x.x"
-#   %methodurlnoprot  Method and URL with format: "GET /index.html"
-#   %method           Method with format: GET
-#   %url              URL only with format: /index.html
-#   %query            Query string (used by URLWithQuery option)
-#   %code             Return code status (with format for web log: 999)
-#   %bytesd           Size of document in bytes
-#   %refererquot      Referer page with format: "http://from.com/from.htm"
-#   %referer          Referer page with format: http://from.com/from.htm
-#   %uaquot           User agent with format: "Mozilla/4.0 (compatible, ...)"
-#   %ua               User agent with format: Mozilla/4.0_(compatible...)
-#   %gzipin           mod_gzip compression input bytes: In:XXX
-#   %gzipout          mod_gzip compression output bytes & ratio: Out:YYY:ZZpct.
-#   %gzipratio        mod_gzip compression ratio: ZZpct.
-#   %deflateratio     mod_deflate compression ratio with format: (ZZ)
-#   %email            EMail sender (for mail log)
-#   %email_r          EMail receiver (for mail log)
-#   %virtualname      Web sever virtual hostname. Use this tag when same log
-#                     contains data of several virtual web servers. AWStats
-#                     will discard records not in SiteDomain nor HostAliases
-#   %cluster          If log file is provided from several computers (merged by
-#                     logresolvemerge.pl), use this to define cluster id field.
-#   %extraX           Another field that you plan to use for building a
-#                     personalized report with ExtraSection feature (See later).
-#   If your log format has some fields not included in this list, use:
-#   %other            Means another not used field
-#   %otherquot        Means another not used double quoted field
-#
-# Examples for Apache combined logs (following two examples are equivalent):
-# LogFormat = 1
-# LogFormat = "%host %other %logname %time1 %methodurl %code %bytesd %refererquot %uaquot"
-#
-LogFormat= "%host %other %other %time1 %methodurl %code %bytesd %refererquot %uaquot %lognamequot %extra1
-
-# If your log field's separator is not a space, you can change this parameter.
-# This parameter is not used if LogFormat is a predefined value (1,2,3,4)
-# Backslash can be used as escape character.
-# Example: " "
-# Example: "\t"
-# Example: "\|"
-# Default: " "
-#
-LogSeparator=" "
-
-
-# "SiteDomain" must contain the main domain name, or the main intranet web
-# server name, used to reach the web site.
-# If you share the same log file for several virtual web servers, this
-# parameter is used to tell AWStats to filter record that contains records for
-# this virtual host name only (So check that this virtual hostname can be
-# found in your log file and use a personalized log format that include the
-# %virtualname tag).
-# But for multi hosting a better solution is to have one log file for each
-# virtual web server. In this case, this parameter is only used to generate
-# full URL's links when ShowLinksOnUrl option is set to 1.
-# If analysing mail log, enter here the domain name of mail server.
-# Example: "myintranetserver"
-# Example: "www.domain.com"
-# Example: "ftp.domain.com"
-# Example: "domain.com"
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-
-
-# Enter here all other possible domain names, addresses or virtual host
-# aliases someone can use to access your site. Try to keep only the minimum
-# number of possible names/addresses to have the best performances.
-# You can repeat the "SiteDomain" value in this list.
-# This parameter is used to analyze referer field in log file and to help
-# AWStats to know if a referer URL is a local URL of same site or an URL of
-# another site.
-# Note: Use space between each value.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Example: "www.myserver.com localhost 127.0.0.1 REGEX[mydomain\.(net|org)$]"
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-
-# If you want to have hosts reported by name instead of ip address, AWStats
-# need to make reverse DNS lookups (if not already done in your log file).
-# With DNSLookup to 0, all hosts will be reported by their IP addresses and
-# not by the full hostname of visitors (except if names are already available
-# in log file).
-# If you want/need to set DNSLookup to 1, don't forget that this will reduce
-# dramatically AWStats update process speed. Do not use on large web sites.
-# Note: Reverse DNS lookup is done on IPv4 only (Enable ipv6 plugin for IPv6).
-# Note: Result of DNS Lookup can be used to build the Country report. However
-# it is highly recommanded to enable the plugin 'geoipfree' or 'geoip' to
-# have an accurate Country report with no need of DNS Lookup.
-# Possible values:
-# 0 - No DNS Lookup
-# 1 - DNS Lookup is fully enabled
-# 2 - DNS Lookup is made only from static DNS cache file (if it exists)
-# Default: 2
-# 
-DNSLookup=2
-
-
-# When AWStats updates its statistics, it stores results of its analysis in 
-# files (AWStats database). All those files are written in the directory
-# defined by the "DirData" parameter. Set this value to the directory where
-# you want AWStats to save its database and working files into.
-# Warning: If you want to be able to use the "AllowToUpdateStatsFromBrowser"
-# feature (see later), you need "Write" permissions by web server user on this
-# directory (and "Modify" for Windows NTFS file systems).
-# Example: "/var/lib/awstats"
-# Example: "../data"
-# Example: "C:/awstats_data_dir"
-# Default: "."          (means same directory as awstats.pl)
-#
-# Added at the end of this by user-tracking::apm_callbacks::package_install
-
-
-# Relative or absolute web URL of your awstats cgi-bin directory.
-# This parameter is used only when AWStats is run from command line
-# with -output option (to generate links in HTML reported page).
-# Example: "/awstats"
-# Default: "/cgi-bin"   (means awstats.pl is in "/yourwwwroot/cgi-bin")
-#
-DirCgi="/cgi-bin"
-
-
-# Relative or absolute web URL of your awstats icon directory.
-# If you build static reports ("... -output > outputpath/output.html"), enter
-# path of icon directory relative to the output directory 'outputpath'.
-# Example: "/awstatsicons"
-# Example: "../icon"
-# Default: "/icon" (means you must copy icon directories in "/mywwwroot/icon")
-#
-DirIcons="/user-tracking/awstats/icon"
-
-
-# When this parameter is set to 1, AWStats add a button on report page to
-# allow to "update" statistics from a web browser. Warning, when "update" is
-# made from a browser, AWStats is ran as a CGI by the web server user defined
-# in your web server (user "nobody" by default with Apache, "IUSR_XXX" with
-# IIS), so the "DirData" directory and all already existing history files
-# awstatsMMYYYY[.xxx].txt must be writable by this user. Change permissions if
-# necessary to "Read/Write" (and "Modify" for Windows NTFS file systems).
-# Warning: Update process can be long so you might experience "time out"
-# browser errors if you don't launch AWStats enough frequently.
-# When set to 0, update is only made when AWStats is ran from the command
-# line interface (or a task scheduler).
-# Possible values: 0 or 1
-# Default: 0
-#
-AllowToUpdateStatsFromBrowser=1
-
-
-# AWStats save and sort its database on a month basis, this allows to build
-# build a report quickly. However, if you choose the -month=all from command
-# line or value '-Year-' from CGI combo form to have a report for all year,
-# AWStats needs to reload all data for full year, and resort them completely,
-# requiring a large amount of time, memory and CPU. This might be a problem
-# for web hosting providers that offer AWStats for large sites, on shared
-# servers, to non CPU cautious customers.
-# For this reason, the 'full year' is only enabled on Command Line by default.
-# You can change this by setting this parameter to 0, 1, 2 or 3.
-# Possible values:
-#  0 - Never allowed
-#  1 - Allowed on CLI only, -Year- value in combo is not visible
-#  2 - Allowed on CLI only, -Year- value in combo is visible but not allowed
-#  3 - Possible on CLI and CGI
-# Default: 2
-#
-AllowFullYearView=3
-
-
-
-#-----------------------------------------------------------------------------
-# OPTIONAL SETUP SECTION (Not required but increase AWStats features)
-#-----------------------------------------------------------------------------
-
-# When the update process run, AWStats can set a lock file in TEMP or TMP
-# directory. This lock is to avoid to have 2 update processes running at the
-# same time to prevent unknown conflicts problems and avoid DoS attacks when
-# AllowToUpdateStatsFromBrowser is set to 1.
-# Because, when you use lock file, you can experience sometimes problems in
-# lock file not correctly removed (killed process for example requires that
-# you remove the file manualy), this option is not enabled by default (Do
-# not enable this option with no console server access).
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 0
-#
-EnableLockForUpdate=1
-
-
-# AWStats can do reverse DNS lookups through a static DNS cache file that was
-# previously created manually. If no path is given in static DNS cache file
-# name, AWStats will search DirData directory. This file is never changed.
-# This option is not used if DNSLookup=0.
-# Note: DNS cache file format is 'minsince1970 ipaddress resolved_hostname'
-# or just 'ipaddress resolved_hostname'
-# Change : Effective for new updates only
-# Example: "/mydnscachedir/dnscache"
-# Default: "dnscache.txt"
-#
-DNSStaticCacheFile="dnscache.txt"
-
-
-# AWStats can do reverse DNS lookups through a DNS cache file that was created
-# by a previous run of AWStats. This file is erased and recreated after each
-# statistics update process. You don't need to create and/or edit it.
-# AWStats will read and save this file in DirData directory.
-# This option is used only if DNSLookup=1.
-# Note: If a DNSStaticCacheFile is available, AWStats will check for DNS
-# lookup in DNSLastUpdateCacheFile after checking into DNSStaticCacheFile.
-# Change : Effective for new updates only
-# Example: "/mydnscachedir/dnscachelastupdate"
-# Default: "dnscachelastupdate.txt"
-#
-DNSLastUpdateCacheFile="dnscachelastupdate.txt"
-
-
-# You can specify specific IP addresses that should NOT be looked up in DNS.
-# This option is used only if DNSLookup=1.
-# Note: Use space between each value.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "123.123.123.123 REGEX[^192\.168\.]"
-# Default: ""
-#
-SkipDNSLookupFor=""
-
-
-# The following two parameters allow you to protect a config file from being
-# read by AWStats when called from a browser if web user has not been
-# authenticated. Your AWStats program must be in a web protected "realm" (With
-# Apache, you can use .htaccess files to do so. With other web servers, see
-# your server setup manual).
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 0
-#
-AllowAccessFromWebToAuthenticatedUsersOnly=0
-
-
-# This parameter give the list of all authorized authenticated users to view
-# statistics for this domain/config file. This parameter is used only if
-# AllowAccessFromWebToAuthenticatedUsersOnly is set to 1.
-# Change : Effective immediatly
-# Example: "user1 user2"
-# Example: "__REMOTE_USER__"
-# Default: ""
-#
-AllowAccessFromWebToFollowingAuthenticatedUsers=""
-
-
-# When this parameter is define to something, the IP address of the user that
-# read its statistics from a browser (when AWStats is used as a CGI) is
-# checked and must match one of the IP address values or ranges.
-# Change : Effective immediatly
-# Example: "127.0.0.1 123.123.123.1-123.123.123.255"
-# Default: ""
-#
-AllowAccessFromWebToFollowingIPAddresses=""
-
-
-# If the "DirData" directory (see above) does not exists, AWStats return an
-# error. However, you can ask AWStats to create it.
-# This option can be used by some Web Hosting Providers that has defined a 
-# dynamic value for DirData (for example DirData="/home/__REMOTE_USER__") and
-# don't want to have to create a new directory each time they add a new user.
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 0
-#
-CreateDirDataIfNotExists=1
-
-
-# You can choose in which format the Awstats history database is saved.
-# Note: Using "xml" format make AWStats building database files three times
-# larger than using "text" format.
-# Change : Database format is switched after next update
-# Possible values: text or xml
-# Default: text
-#
-BuildHistoryFormat=text
-
-
-# If you prefer having the report output pages be built as XML compliant pages
-# instead of simple HTML pages, you can set this to 'xhtml' (May not works
-# properly with old browsers).
-# Change : Effective immediatly
-# Possible values: html or xhtml
-# Default: html
-#
-BuildReportFormat=html
-
-
-# In most case, AWStats is used as a cgi program. So AWStats process is ran
-# by default web server user (nobody for Unix, IUSR_xxx for IIS/Windows,...).
-# To make use easier and avoid permission's problems between update process 
-# (run by an admin user) and CGI process (ran by a low level user), AWStats
-# save its database files with read and write for everyone.
-# If you have experience on managing security policies (Web Hosting Provider),
-# you should set this parameter to 0. AWStats will keep default process user
-# permissions on its files.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 1
-#
-SaveDatabaseFilesWithPermissionsForEveryone=1
-
-
-# AWStats can purge log file, after analyzing it. Note that AWStats is able
-# to detect new lines in a log file, to process only them, so you can launch
-# AWStats as often as you want, even with this parameter to 0.
-# With 0, no purge is made, so you must use a scheduled task or a web server
-# that make this purge frequently.
-# With 1, the purge of the log file is made each time AWStats update is ran.
-# This parameter doesn't work with IIS (This web server doesn't let its log
-# file to be purged).
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-PurgeLogFile=0
-
-
-# When PurgeLogFile is setup to 1, AWStats will clean your log file after
-# processing it. You can however keep an archive file (saved in "DirData") of
-# all processed log records by setting this to 1 (For example if you want to
-# use another log analyzer).
-# This parameter is not used if PurgeLogFile=0
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-ArchiveLogRecords=0
-
-
-# Each time you run the update process, AWStats overwrite the 'historic file'
-# for the month (awstatsMMYYYY[.*].txt) with the updated one.
-# When write errors occurs (IO, disk full,...), this historic file can be
-# corrupted and must be deleted. Because this file contains information of all
-# past processed log files, you will loose old stats if removed. So you can
-# ask AWStats to save last non corrupted file in a .bak file. This file is
-# stored in "DirData" directory with other 'historic files'.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-KeepBackupOfHistoricFiles=0
-
-
-# Default index page name for your web server.
-# Change : Effective for new updates only
-# Example: "index.php index.html default.html"
-# Default: "index.html"
-#
-DefaultFile="index.html"
-
-
-# Do not include access from clients that match following criteria.
-# If your log file contains IP adresses in host field, you must enter here
-# matching IP adresses criteria.
-# If DNS lookup is already done in your log file, you must enter here hostname
-# criteria, else enter ip address criteria.
-# The opposite parameter of "SkipHosts" is "OnlyHosts".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "127.0.0.1 REGEX[^192\.168\.] REGEX[^10\.]"
-# Example: "localhost REGEX[^.*\.localdomain$]"
-# Default: ""
-#
-SkipHosts=""
-
-
-# Do not include access from clients with a user agent that match following
-# criteria. If you want to exclude a robot, you should update the robots.pm
-# file instead of this parameter.
-# The opposite parameter of "SkipUserAgents" is "OnlyUserAgents".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "konqueror REGEX[ua_test_v\d\.\d]"
-# Default: ""
-#
-SkipUserAgents=""
-
-
-# Use SkipFiles to ignore access to URLs that match one of following entries.
-# You can enter a list of not important URLs (like framed menus, hidden pages,
-# etc...) to exclude them from statistics. You must enter here exact relative
-# URL as found in log file, or a matching REGEX value.
-# For example, to ignore /badpage.html, just add "/badpage.html". To ignore
-# all pages in a particular directory, add "REGEX[^\/directorytoexclude]".
-# The opposite parameter of "SkipFiles" is "OnlyFiles".
-# Note: Use space between each value. This parameter is or not case sensitive
-# depending on URLNotCaseSensitive parameter.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "/badpage.html REGEX[^\/excludedirectory]"
-# Default: ""
-#
-SkipFiles=""
-
-
-# Include in stats, only accesses from hosts that match one of following
-# entries. For example, if you want AWStats to filter access to keep only
-# stats for visits from particular hosts, you can add those hosts names in
-# this parameter.
-# If DNS lookup is already done in your log file, you must enter here hostname
-# criteria, else enter ip address criteria.
-# The opposite parameter of "OnlyHosts" is "SkipHosts".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "127.0.0.1 REGEX[^192\.168\.] REGEX[^10\.]"
-# Default: ""
-#
-OnlyHosts=""
-
-
-# Include in stats, only accesses from user agent that match one of following
-# entries. For example, if you want AWStats to filter access to keep only
-# stats for visits from particular browsers, you can add their user agents
-# string in this parameter.
-# The opposite parameter of "OnlyUserAgents" is "SkipUserAgents".
-# Note: Use space between each value. This parameter is not case sensitive.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "msie"
-# Default: ""
-#
-OnlyUserAgents=""
-
-
-# Include in stats, only accesses to URLs that match one of following entries.
-# For example, if you want AWStats to filter access to keep only stats that
-# match a particular string, like a particular directory, you can add this
-# directory name in this parameter.
-# The opposite parameter of "OnlyFiles" is "SkipFiles".
-# Note: Use space between each value. This parameter is or not case sensitive
-# depending on URLNotCaseSensitive parameter.
-# Note: You can use regular expression values writing value with REGEX[value].
-# Change : Effective for new updates only
-# Example: "REGEX[marketing_directory] REGEX[office\/.*\.(csv|sxw)$]"
-# Default: ""
-#
-#OnlyFiles=""
-
-
-# Add here a list of kind of url (file extension) that must be counted as
-# "Hit only" and not as a "Hit" and "Page/Download". You can set here all
-# images extensions as they are hit downloaded that must be counted but they
-# are not viewed pages. URLs with such extensions are not included in the TOP
-# Pages/URL report.
-# Note: If you want to exclude particular URLs from stats (No Pages and no
-# Hits reported), you must use SkipFiles parameter.
-# Change : Effective for new updates only
-# Example: "css js class gif jpg jpeg png bmp ico zip arj gz z wav mp3 wma mpg"
-# Example: ""
-# Default: "css js class gif jpg jpeg png bmp ico"
-#
-NotPageList="css js class gif jpg jpeg png bmp ico"
-
-
-# By default, AWStats considers that records found in web log file are
-# successful hits if HTTP code returned by server is a valid HTTP code (200
-# and 304). Any other code are reported in HTTP status chart.
-# Note that HTTP 'control codes', like redirection (302, 305) are not added by
-# default in this list as they are not pages seen by a visitor but are
-# protocol exchange codes to tell the browser to ask another page. Because
-# this other page will be counted and seen with a 200 or 304 code, if you 
-# add such codes, you will have 2 pages viewed reported for only one in facts.
-# Change : Effective for new updates only
-# Example: "200 304 302 305"
-# Default: "200 304"
-#
-ValidHTTPCodes="200 304"
-
-
-# By default, AWStats considers that records found in mail log file are
-# successful mail transfers if field that represent return code in analyzed
-# log file match values defined by this parameter.
-# Change : Effective for new updates only
-# Example: "1 250 200"
-# Default: "1 250"
-#
-ValidSMTPCodes="1 250"
-
-
-# Some web servers on some Operating systems (IIS-Windows) considers that a
-# login with same value but different case are the same login. To tell AWStats
-# to also considers them as one, set this parameter to 1.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-# 
-AuthenticatedUsersNotCaseSensitive=0
-
-
-# Some web servers on some Operating systems (IIS-Windows) considers that two
-# URLs with same value but different case are the same URL. To tell AWStats to
-# also considers them as one, set this parameter to 1.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-# 
-URLNotCaseSensitive=0
-
-
-# Keep or remove the anchor string you can find in some URLs.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-URLWithAnchor=0
-
-
-# In URL links, "?" char is used to add parameter's list in URLs. Syntax is:
-# /mypage.html?param1=value1&param2=value2
-# However, some servers/sites use also others chars to isolate dynamic part of
-# their URLs. You can complete this list with all such characters.
-# Change : Effective for new updates only
-# Example: "?;,"
-# Default: "?;"
-#
-URLQuerySeparators="?;"
-
-
-# Keep or remove the query string to the URL in the statistics for individual
-# pages. This is primarily used to differentiate between the URLs of dynamic
-# pages. If set to 1, mypage.html?id=x and mypage.html?id=y are counted as two
-# different pages.
-# Warning, when set to 1, memory required to run AWStats is dramatically
-# increased if you have a lot of changing URLs (for example URLs with a random
-# id inside). Such web sites should not set this option to 1 or use seriously
-# the next parameter URLWithQueryWithOnlyFollowingParameters (or eventually 
-# URLWithQueryWithoutFollowingParameters).
-# Change : Effective for new updates only
-# Possible values:
-# 0 - URLs are cleaned from the query string (ie: "/mypage.html")
-# 1 - Full URL with query string is used     (ie: "/mypage.html?p=x&q=y")
-# Default: 0
-# 
-URLWithQuery=0
-
-
-# When URLWithQuery is on, you will get the full URL with all parameters in
-# URL reports. But among thoose parameters, sometimes you don't need a
-# particular parameter because it does not identify the page or because it's
-# a random ID changing for each access even if URL points to same page. In
-# such cases, it is higly recommanded to ask AWStats to keep only parameters
-# you need (if you know them) before counting, manipulating and storing URL.
-# Enter here list of wanted parameters. For example, with "param", one hit on
-# /mypage.cgi?param=abc&id=Yo4UomP9d  and  /mypage.cgi?param=abc&id=Mu8fdxl3r
-# will be reported as 2 hits on /mypage.cgi?param=abc
-# This parameter is not used when URLWithQuery is 0 and can't be used with
-# URLWithQueryWithoutFollowingParameters.
-# Change : Effective for new updates only
-# Example: "param"
-# Default: ""
-# 
-URLWithQueryWithOnlyFollowingParameters=""
-
-
-# When URLWithQuery is on, you will get the full URL with all parameters in
-# URL reports. But among thoose parameters, sometimes you don't need a
-# particular parameter because it does not identify the page or because it's
-# a random ID changing for each access even if URL points to same page. In
-# such cases, it is higly recommanded to ask AWStats to remove such parameters
-# from the URL before counting, manipulating and storing URL. Enter here list
-# of all non wanted parameters. For example if you enter "id", one hit on
-# /mypage.cgi?param=abc&id=Yo4UomP9d  and  /mypage.cgi?param=abc&id=Mu8fdxl3r
-# will be reported as 2 hits on /mypage.cgi?param=abc
-# This parameter is not used when URLWithQuery is 0 and can't be used with
-# URLWithQueryWithOnlyFollowingParameters.
-# Change : Effective for new updates only
-# Example: "PHPSESSID jsessionid"
-# Default: ""
-# 
-URLWithQueryWithoutFollowingParameters=""
-
-
-# Keep or remove the query string to the referrer URL in the statistics for
-# external referrer pages. This is used to differentiate between the URLs of
-# dynamic referrer pages. If set to 1, mypage.html?id=x and mypage.html?id=y
-# are counted as two different referrer pages.
-# Change : Effective for new updates only
-# Possible values:
-# 0 - Referrer URLs are cleaned from the query string (ie: "/mypage.html")
-# 1 - Full URL with query string is used      (ie: "/mypage.html?p=x&q=y")
-# Default: 0
-# 
-URLReferrerWithQuery=0
-
-
-# AWStats can detect setup problems or show you important informations to have
-# a better use. Keep this to 1, except if AWStats says you can change it.
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 1
-#
-WarningMessages=1
-
-
-# When an error occurs, AWStats output a message related to errors. If you
-# want (in most cases for security reasons) to have no error messages, you
-# can set this parameter to your personalized generic message.
-# Change : Effective immediatly
-# Example: "An error occured. Contact your Administrator"
-# Default: ""
-#
-ErrorMessages=""
-
-
-# AWStat can be run with debug=x parameter to ouput various informations
-# to help in debugging or solving troubles. If you want (in most cases for 
-# security reasons) to disable debugging, set this parameter to 0.
-# Change : Effective immediatly
-# Possible values: 0 or 1
-# Default: 1
-#
-DebugMessages=1
-
-
-# To help you to detect if your log format is good, AWStats report an error
-# if all the first NbOfLinesForCorruptedLog lines have a format that does not
-# match the LogFormat parameter.
-# However, some worm virus attack on your web server can result in a very high
-# number of corrupted lines in your log. So if you experience awstats stop
-# because of bad virus records at the beginning of your log file, you can
-# increase this parameter (very rare).
-# Change : Effective for new updates only
-# Default: 50
-#
-NbOfLinesForCorruptedLog=50
-
-
-# For some particular integration needs, you may want to have CGI links to
-# point to another script than awstats.pl.
-# Use the name of this script in WrapperScript parameter.
-# Change : Effective immediatly
-# Example: "awstatslauncher.pl"
-# Default: ""
-#
-WrapperScript=""
-
-
-# DecodeUA must be set to 1 if you use Roxen web server. This server converts
-# all spaces in user agent field into %20. This make the AWStats robots, os
-# and browsers detection fail in some cases. Just change it to 1 if and only
-# if your web server is Roxen.
-# Change : Effective for new updates only
-# Possible values: 0 or 1
-# Default: 0
-#
-DecodeUA=0
-
-
-# MiscTrackerUrl can be used to make AWStats able to detect some miscellanous
-# things, that can not be tracked on other way, like:
-# - Javascript disabled
-# - Java enabled
-# - Screen size
-# - Color depth
-# - Macromedia Director plugin
-# - Macromedia Shockwave plugin
-# - Realplayer G2 plugin
-# - QuickTime plugin
-# - Mediaplayer plugin
-# - Acrobat PDF plugin
-# To enable all this features, you must copy the awstats_misc_tracker.js file
-# into a /js/ directory stored in your web document root and add the following
-# HTML code at the end of your index page (but before </BODY>) :
-#
-# <script language=javascript src="/js/awstats_misc_tracker.js"></script>
-# <noscript><img src="/js/awstats_misc_tracker.js?nojs=y" height=0 width=0 border=0 style="display: none"></noscript>
-#
-# If code is not added in index page, all those detection capabilities will be
-# disabled. You must also check that ShowScreenSizeStats and ShowMiscStats
-# parameters are set to 1 to make results appear in AWStats report page.
-# If you want to use another directory than /js/, you must also change the
-# awstatsmisctrackerurl variable into the awstats_misc_tracker.js file.
-# Change : Effective for new updates only.
-# Possible value: URL of javascript tracker file added in your HTML code.
-# Default: "/js/awstats_misc_tracker.js"
-#
-MiscTrackerUrl="/js/awstats_misc_tracker.js"
-
-
-
-#-----------------------------------------------------------------------------
-# OPTIONAL ACCURACY SETUP SECTION (Not required but increase AWStats features)
-#-----------------------------------------------------------------------------
-
-# Following values allows you to define accuracy of AWStats entities (robots,
-# browsers, os, referers, file types) detection.
-# It might be a good idea for large web sites or ISP that provides AWStats to
-# high number of customers, to set this parameter to 1 (or 0), instead of 2.
-# Possible values:
-#  0 = No detection,
-#  1 = Medium/Standard detection
-#  2 = Full detection
-# Change : Effective for new updates only
-# Default: 2 (0 for LevelForWormsDetection)
-#
-LevelForBrowsersDetection=2         # 0 disables Browsers detection.
-                                    # 2 reduces AWStats speed by 2%
-LevelForOSDetection=2               # 0 disables OS detection.
-                                    # 2 reduces AWStats speed by 3%
-LevelForRefererAnalyze=0            # 0 disables Origin detection.
-                                    # 2 reduces AWStats speed by 14%
-LevelForRobotsDetection=0           # 0 disables Robots detection.
-                                    # 2 reduces AWStats speed by 2.5%
-LevelForSearchEnginesDetection=0    # 0 disables Search engines detection.
-                                    # 2 reduces AWStats speed by 9%
-LevelForKeywordsDetection=0         # 0 disables Keyphrases/Keywords detection.
-                                    # 2 reduces AWStats speed by 1%
-LevelForFileTypesDetection=2        # 0 disables File types detection.
-                                    # 2 reduces AWStats speed by 1%
-LevelForWormsDetection=0            # 0 disables Worms detection.
-                                    # 2 reduces AWStats speed by 15%
-
-
-#-----------------------------------------------------------------------------
-# OPTIONAL APPEARANCE SETUP SECTION (Not required but increase AWStats features)
-#-----------------------------------------------------------------------------
-
-# When you use AWStats as a CGI, you can have the reports shown in HTML frames.
-# Frames are only available for report viewed dynamically. When you build
-# pages from command line, this option is not used and no frames are built.
-# Possible values: 0 or 1
-# Default: 1
-#
-
-UseFramesWhenCGI=1
-
-
-# This parameter ask your browser to open detailed reports into a different
-# window than the main page.
-# Possible values:
-# 0 - Open all in same browser window
-# 1 - Open detailed reports in another window except if using frames
-# 2 - Open always in a different window even if reports are framed
-# Default: 1
-#
-DetailedReportsOnNewWindows=1
-
-
-# You can add, in the HTML report page, a cache lifetime (in seconds) that
-# will be returned to browser in HTTP header answer by server.
-# This parameter is not used when report are built with -staticlinks option.
-# Example: 3600
-# Default: 0
-#
-Expires=0
-
-
-# To avoid too large web pages, you can ask AWStats to limit number of rows of
-# all reported charts to this number when no other limit apply.
-# Default: 1000
-#
-MaxRowsInHTMLOutput=1000
-
-
-# Set your primary language (ISO-639-1 language codes).
-# Possible value:
-#  Albanian=al, Bosnian=ba, Bulgarian=bg, Catalan=ca,
-#  Chinese (Taiwan)=tw, Chinese (Simpliefied)=cn, Czech=cz, Danish=dk,
-#  Dutch=nl, English=en, Estonian=et, Euskara=eu, Finnish=fi,
-#  French=fr, Galician=gl, German=de, Greek=gr, Hebrew=he, Hungarian=hu,
-#  Icelandic=is, Indonesian=id, Italian=it, Japanese=jp, Korean=kr,
-#  Latvian=lv, Norwegian (Nynorsk)=nn, Norwegian (Bokmal)=nb, Polish=pl,
-#  Portuguese=pt, Portuguese (Brazilian)=br, Romanian=ro, Russian=ru,
-#  Serbian=sr, Slovak=sk, Slovenian=si, Spanish=es, Swedish=se, Turkish=tr,
-#  Ukrainian=ua, Welsh=cy.
-#  First available language accepted by browser=auto
-# Default: "auto"
-#
-Lang="es"
-
-
-# Set the location of language files.
-# Example: "/usr/share/awstats/lang"
-# Default: "./lang" (means lang directory is in same location than awstats.pl)
-#
-DirLang="./lang"
-
-
-# Show menu header with reports' links
-# Possible values: 0 or 1
-# Default: 1
-#
-ShowMenu=1					
-
-
-# You choose here which reports you want to see in the main page and what you
-# want to see in those reports.
-# Possible values:
-#  0  - Report is not shown at all
-#  1  - Report is shown in main page with an entry in menu and default columns
-# XYZ - Report shows column informations defined by code X,Y,Z...
-#       X,Y,Z... are code letters among the following:
-#        U = Unique visitors
-#        V = Visits
-#        P = Number of pages
-#        H = Number of hits (or mails)
-#        B = Bandwith (or total mail size for mail logs)
-#        L = Last access date
-#        E = Entry pages
-#        X = Exit pages
-#        C = Web compression (mod_gzip,mod_deflate)
-#        M = Average mail size (mail logs)
-#
-
-# Show monthly chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: UVPHB, Possible column codes: UVPHB
-ShowMonthStats=UVPH
-
-# Show days of month chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: VPHB, Possible column codes: VPHB
-ShowDaysOfMonthStats=VPH
-
-# Show days of week chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHB, Possible column codes: PHB
-ShowDaysOfWeekStats=PH
-
-# Show hourly chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHB, Possible column codes: PHB
-ShowHoursStats=PH
-
-# Show domains/country chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHB, Possible column codes: PHB
-ShowDomainsStats=0
-
-# Show hosts chart
-# Context: Web, Streaming, Mail, Ftp
-# Default: PHBL, Possible column codes: PHBL
-ShowHostsStats=PHL
-
-# Show authenticated users chart
-# Context: Web, Streaming, Ftp
-# Default: 0, Possible column codes: PHBL
-ShowAuthenticatedUsers=0
-
-# Show robots chart
-# Context: Web, Streaming
-# Default: HBL, Possible column codes: HBL
-ShowRobotsStats=0
-
-# Show worms chart
-# Context: Web, Streaming
-# Default: 0 (If set to 1, see also LevelForWormsDetection), Possible column codes: HBL
-ShowWormsStats=0
-
-# Show email senders chart (For use when analyzing mail log files)
-# Context: Mail
-# Default: 0, Possible column codes: HBML
-ShowEMailSenders=0
-
-# Show email receivers chart (For use when analyzing mail log files)
-# Context: Mail
-# Default: 0, Possible column codes: HBML
-ShowEMailReceivers=0
-
-# Show session chart
-# Context: Web, Streaming, Ftp
-# Default: 1, Possible column codes: None
-ShowSessionsStats=1
-
-# Show pages-url chart.
-# Context: Web, Streaming, Ftp
-# Default: PBEX, Possible column codes: PBEX
-ShowPagesStats=PEX
-
-# Show file types chart.
-# Context: Web, Streaming, Ftp
-# Default: HB, Possible column codes: HBC
-ShowFileTypesStats=H
-
-# Show file size chart (Not yet available)
-# Context: Web, Streaming, Mail, Ftp
-# Default: 1, Possible column codes: None
-ShowFileSizesStats=0		
-
-# Show operating systems chart
-# Context: Web, Streaming, Ftp
-# Default: 1, Possible column codes: None
-ShowOSStats=1
-
-# Show browsers chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowBrowsersStats=1
-
-# Show screen size chart
-# Context: Web, Streaming
-# Default: 0 (If set to 1, see also MiscTrackerUrl), Possible column codes: None
-ShowScreenSizeStats=0
-
-# Show origin chart
-# Context: Web, Streaming
-# Default: PH, Possible column codes: PH
-ShowOriginStats=0
-
-# Show keyphrases chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowKeyphrasesStats=0
-
-# Show keywords chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowKeywordsStats=0
-
-# Show misc chart
-# Context: Web, Streaming
-# Default: a (See also MiscTrackerUrl parameter), Possible column codes: anjdfrqwp
-ShowMiscStats=0
-
-# Show http errors chart
-# Context: Web, Streaming
-# Default: 1, Possible column codes: None
-ShowHTTPErrorsStats=1
-
-# Show smtp errors chart (For use when analyzing mail log files)
-# Context: Mail
-# Default: 0, Possible column codes: None
-ShowSMTPErrorsStats=0
-
-# Show the cluster report (Your LogFormat must contains the %cluster tag)
-# Context: Web, Streaming, Ftp
-# Default: 0, Possible column codes: PHB
-ShowClusterStats=0
-
-
-# Some graphical reports are followed by the data array of values.
-# If you don't want this array (to reduce report size for example), you can
-# set thoose options to 0.
-# Possible values: 0 or 1
-# Default: 1
-#
-# Data array values for the ShowMonthStats report
-AddDataArrayMonthStats=1
-# Data array values for the ShowDaysOfMonthStats report
-AddDataArrayShowDaysOfMonthStats=1
-# Data array values for the ShowDaysOfWeekStats report
-AddDataArrayShowDaysOfWeekStats=1
-# Data array values for the ShowHoursStats report
-AddDataArrayShowHoursStats=1
-
-
-# In the Origin chart, you have stats on where your hits came from. You can
-# includes hits on pages that comes from pages of same sites in this chart.
-# Possible values: 0 or 1
-# Default: 0
-#
-IncludeInternalLinksInOriginSection=1
-
-
-# Following parameter can be used to choose maximum number of lines shown for
-# the particular following report.
-#
-# Stats by countries/domains
-MaxNbOfDomain = 10
-MinHitDomain  = 1
-# Stats by hosts
-MaxNbOfHostsShown = 10
-MinHitHost    = 1
-# Stats by authenticated users
-MaxNbOfLoginShown = 10
-MinHitLogin   = 1
-# Stats by robots
-MaxNbOfRobotShown = 10
-MinHitRobot   = 1
-# Stats by pages
-MaxNbOfPageShown = 10
-MinHitFile    = 1
-# Stats by OS
-MaxNbOfOsShown = 10
-MinHitOs      = 1
-# Stats by browsers
-MaxNbOfBrowsersShown = 10
-MinHitBrowser = 1
-# Stats by screen size
-MaxNbOfScreenSizesShown = 5
-MinHitScreenSize = 1
-# Stats by window size (following 2 parameters are not yet used)
-MaxNbOfWindowSizesShown = 5
-MinHitWindowSize = 1
-# Stats by referers
-MaxNbOfRefererShown = 10
-MinHitRefer   = 1
-# Stats for keyphrases
-MaxNbOfKeyphrasesShown = 10
-MinHitKeyphrase = 1
-# Stats for keywords
-MaxNbOfKeywordsShown = 10
-MinHitKeyword = 1
-# Stats for sender or receiver emails
-MaxNbOfEMailsShown = 20
-MinHitEMail   = 1
-
-
-# Choose if you want the week report to start on sunday or monday
-# Possible values:
-# 0 - Week start on sunday
-# 1 - Week start on monday
-# Default: 1
-#
-FirstDayOfWeek=1
-
-
-# List of visible flags that links to other language translations.
-# See Lang parameter for list of allowed flag/language codes.
-# If you don't want any flag link, set ShowFlagLinks to "".
-# This parameter is used only if ShowMenu parameter is set to 1.
-# Possible values: "" or "language_codes_separated_by_space"
-# Example: "en es fr nl de"
-# Default: ""
-#
-ShowFlagLinks="en fr de"
-
-
-# Each URL, shown in stats report views, are links you can click.
-# Possible values: 0 or 1
-# Default: 1
-#
-ShowLinksOnUrl=1
-
-
-# When AWStats build HTML links in its report pages, it starts thoose link
-# with "http://". However some links might be HTTPS links, so you can enter
-# here the root of all your HTTPS links. If all your site is a SSL web site,
-# just enter "/".
-# This parameter is not used if ShowLinksOnUrl is 0.
-# Example: "/shopping"
-# Example: "/"
-# Default: ""
-UseHTTPSLinkForUrl=""
-
-
-# Maximum length of URL part shown on stats page (number of characters).
-# This affects only URL visible text, link still work.
-# Default: 64
-#
-MaxLengthOfShownURL=64
-
-
-# You can enter HTML code that will be added at the top of AWStats reports.
-# Default: ""
-#
-HTMLHeadSection=""
-
-
-# You can enter HTML code that will be added at the end of AWStats reports.
-# Great to add advert ban.
-# Default: ""
-#
-HTMLEndSection=""
-
-
-# You can set Logo and LogoLink to use your own logo.
-# Logo must be the name of image file (must be in $DirIcons/other directory).
-# LogoLink is the expected URL when clicking on Logo.
-# Default: "awstats_logo6.png"
-#
-Logo="awstats_logo6.png"
-LogoLink="http://awstats.sourceforge.net"
-
-
-# Value of maximum bar width/height for horizontal/vertical HTML graphics bar.
-# Default: 260/90
-#
-BarWidth   = 260
-BarHeight  = 90
-
-
-# You can ask AWStats to use a particular CSS (Cascading Style Sheet) to
-# change its look. To create a style sheet, you can use samples provided with
-# AWStats in wwwroot/css directory.
-# Example: "/awstatscss/awstats_bw.css"
-# Example: "/css/awstats_bw.css"
-# Default: ""
-#
-StyleSheet=""
-
-
-# Those colors parameters can be used (if StyleSheet parameter is not used)
-# to change AWStats look.
-# Example: color_name="RRGGBB"	# RRGGBB is Red Green Blue components in Hex
-#
-color_Background="FFFFFF"		# Background color for main page (Default = "FFFFFF")
-color_TableBGTitle="CCCCDD"		# Background color for table title (Default = "CCCCDD")
-color_TableTitle="000000"		# Table title font color (Default = "000000")
-color_TableBG="CCCCDD"			# Background color for table (Default = "CCCCDD")
-color_TableRowTitle="FFFFFF"	# Table row title font color (Default = "FFFFFF")
-color_TableBGRowTitle="ECECEC"	# Background color for row title (Default = "ECECEC")
-color_TableBorder="ECECEC"		# Table border color (Default = "ECECEC")
-color_text="000000"				# Color of text (Default = "000000")
-color_textpercent="606060"		# Color of text for percent values (Default = "606060")
-color_titletext="000000"		# Color of text title within colored Title Rows (Default = "000000")
-color_weekend="EAEAEA"			# Color for week-end days (Default = "EAEAEA")
-color_link="0011BB"				# Color of HTML links (Default = "0011BB")
-color_hover="605040"			# Color of HTML on-mouseover links (Default = "605040") 
-color_u="FFAA66"				# Background color for number of unique visitors (Default = "FFAA66")
-color_v="F4F090"				# Background color for number of visites (Default = "F4F090")
-color_p="4477DD"				# Background color for number of pages (Default = "4477DD")
-color_h="66DDEE"				# Background color for number of hits (Default = "66DDEE")
-color_k="2EA495"				# Background color for number of bytes (Default = "2EA495")
-color_s="8888DD"				# Background color for number of search (Default = "8888DD")
-color_e="CEC2E8"				# Background color for number of entry pages (Default = "CEC2E8")
-color_x="C1B2E2"				# Background color for number of exit pages (Default = "C1B2E2")
-
-
-
-#-----------------------------------------------------------------------------
-# PLUGINS
-#-----------------------------------------------------------------------------
-
-# Add here all plugins file you want to load.
-# Plugin files must be .pm files stored in 'plugins' directory.
-# Uncomment LoadPlugin lines to enable a plugin after checking that perl
-# modules required by the plugin are installed.
-
-# Plugin: Tooltips
-# Perl modules required: None
-# Add some tooltips help on HTML report pages.
-# Note that enabled this kind of help will increased HTML report pages size,
-# so server load and bandwidth.
-#
-#LoadPlugin="tooltips"
-
-# Plugin: DecodeUTFKeys
-# Perl modules required: Encode and URI::Escape
-# Allow AWStats to show correctly (in language charset) keywords/keyphrases
-# strings even if they were UTF8 coded by the referer search engine.
-#
-#LoadPlugin="decodeutfkeys"
-
-# Plugin: IPv6
-# Perl modules required: Net::IP and Net::DNS
-# This plugin gives AWStats capability to make reverse DNS lookup on IPv6
-# addresses.
-# Note: If you are interesting in having country report, you should use the
-# geoipfree or geoip plugin instead of enabled reverse DNS lookup.
-#
-#LoadPlugin="ipv6"
-
-# Plugin: HashFiles
-# Perl modules required: Storable
-# AWStats DNS cache files are read/saved as native hash files. This increase
-# DNS cache files loading speed, above all for very large web sites.
-#
-#LoadPlugin="hashfiles"
-
-# Plugin: GeoIP
-# Perl modules required: Geo::IP or Geo::IP::PurePerl (from Maxmind)
-# Country chart is built from an Internet IP-Country database.
-# This plugin is useless for intranet only log files.
-# Note: You must choose between using this plugin (need Perl Geo::IP module 
-# from Maxmind, database more up to date) or the GeoIPfree plugin (need
-# Perl Geo::IPfree module, database less up to date).
-# This plugin reduces AWStats speed of 8% !
-#
-#LoadPlugin="geoip GEOIP_STANDARD"
-
-# Plugin: GeoIPfree
-# Perl modules required: Geo::IPfree version 0.2+ (from Graciliano M.P.)
-# Country chart is built from an Internet IP-Country database.
-# This plugin is useless for intranet only log files.
-# Note: You must choose between using this plugin (need Perl Geo::IPfree
-# module, database less up to date) or the GeoIP plugin (need Perl Geo::IP
-# module from Maxmind, database more up to date).
-# Note: Activestate provide a corrupted version of Geo::IPfree 0.2 Perl
-# module, so install it from elsewhere (from www.cpan.org for example).
-# This plugin reduces AWStats speed of 10% !
-#
-#LoadPlugin="geoipfree"
-
-# Plugin: GeoIP_Region_Maxmind
-# Perl modules required: Geo::IP (from Maxmind)
-# This plugin add a chart of hits by regions. Only regions for US and 
-# Canada can be detected.
-# Note: This plugin need Maxmind GeoIP Perl module AND the region database.
-# Note: I get some problem with Maxmind Geo::IP Perl module with ActiveState
-# on Windows but it works great on Linux with default Perl.
-# You need to purchase a license from Maxmind to get/use the Region database.
-# This plugin reduces AWStats speed.
-#
-#LoadPlugin="geoip_region_maxmind GEOIP_STANDARD /pathto/GeoIPRegion.dat"
-
-# Plugin: UserInfo
-# Perl modules required: None
-# Add a text (Firtname, Lastname, Office Department, ...) in authenticated user
-# reports for each login value.
-# A text file called userinfo.myconfig.txt, with two fields (first is login,
-# second is text to show, separated by a tab char) must be created in DirData
-# directory.
-#
-LoadPlugin="userinfo"
-
-# Plugin: HostInfo
-# Perl modules required: Net::XWhois
-# Add a column into host chart with a link to open a popup window that shows
-# info on host (like whois records).
-#
-#LoadPlugin="hostinfo"
-
-# Plugin: ClusterInfo
-# Perl modules required: None
-# Add a text (for example a full hostname) in cluster reports for each cluster
-# number.
-# A text file called clusterinfo.myconfig.txt, with two fields (first is
-# cluster number, second is text to show) separated by a tab char. must be
-# created into DirData directory.
-# Note this plugin is useless if ShowClusterStats is set to 0 or if you don't
-# use a personalized log format that contains %cluster tag.
-#
-#LoadPlugin="clusterinfo"
-
-# Plugin: UrlAliases
-# Perl modules required: None
-# Add a text (Page title, description...) in URL reports before URL value.
-# A text file called urlalias.myconfig.txt, with two fields (first is URL,
-# second is text to show, separated by a tab char) must be created into
-# DirData directory.
-#
-#LoadPlugin="urlalias"
-
-# Plugin: TimeHiRes
-# Perl modules required: Time::HiRes (if Perl < 5.8)
-# Time reported by -showsteps option is in millisecond. For debug purpose.
-#
-#LoadPlugin="timehires"		
-
-# Plugin: TimeZone
-# Perl modules required: Time::Local
-# Allow AWStats to correct a bad timezone for user of some IIS that use
-# GMT date in its log instead of local server time.
-# This module is useless for Apache and most IIS version.
-# This plugin reduces AWStats speed of 40% !!!!!!!
-#
-#LoadPlugin="timezone +2"
-
-# Plugin: Rawlog
-# Perl modules required: None
-# This plugin adds a form in AWStats main page to allow users to see raw
-# content of current log files. A filter is also available.
-#
-#LoadPlugin="rawlog"
-
-# Plugin: GraphApplet
-# Perl modules required: None
-# Supported charts are built by a 3D graphic applet.
-#
-#LoadPlugin="graphapplet /awstatsclasses"				# EXPERIMENTAL FEATURE
-
-
-
-#-----------------------------------------------------------------------------
-# EXTRA SECTIONS
-#-----------------------------------------------------------------------------
-
-# You can define your own charts, you choose here what are rows and columns
-# keys. This feature is particularly usefull for marketing purpose, tracking
-# products orders for example.
-# For this, edit all parameters of Extra section. Each set of parameter is a
-# different chart. For several charts, duplicate section changing the number.
-# Note: Each Extra section reduces AWStats speed by 8%.
-#
-# WARNING: A wrong setup of Extra section might result in too large arrays
-# that will consume all your memory, making AWStats unusable after several
-# updates, so be sure to setup it correctly.
-# In most cases, you don't need this feature.
-#
-# ExtraSectionNameX is title of your personalized chart.
-# ExtraSectionCodeFilterX is list of codes the record code field must match.
-#   Put an empty string for no test on code.
-# ExtraSectionConditionX are conditions you can use to count or not the hit,
-#   Use one of the field condition (URL,QUERY_STRING,REFERER,UA,HOST,extraX)
-#   and a regex to match, after a coma. Use "||" for "OR".
-# ExtraSectionFirstColumnTitleX is the first column title of the chart.
-# ExtraSectionFirstColumnValuesX is a string to tell AWStats which field to
-#   extract value from (URL,QUERY_STRING,REFERER,UA,HOST,extraX)
-#   and how to extract the value (using regex syntax). Each different value
-#   found will appear in first column of report on a different row. Be sure
-#   that list of different possible values will not grow indefinitely.
-# ExtraSectionFirstColumnFormatX is the string used to write value.
-# ExtraSectionStatTypesX are things you want to count. You can use standard
-#   code letters (P for pages,H for hits,B for bandwidth,L for last access).
-# ExtraSectionAddAverageRowX add a row at bottom of chart with average values.
-# ExtraSectionAddSumRowX add a row at bottom of chart with sum values.
-# MaxNbOfExtraX is maximum number of rows shown in chart.
-# MinHitExtraX is minimum number of hits required to be shown in chart.
-#
-
-# Example to report the 20 products the most ordered by "order.cgi" script
-#ExtraSectionName1="Product orders"
-#ExtraSectionCodeFilter1="200 304"
-#ExtraSectionCondition1="URL,\/cgi\-bin\/order\.cgi||URL,\/cgi\-bin\/order2\.cgi"
-#ExtraSectionFirstColumnTitle1="Product ID"
-#ExtraSectionFirstColumnValues1="QUERY_STRING,productid=([^&]+)"
-#ExtraSectionFirstColumnFormat1="%s"
-#ExtraSectionStatTypes1=PL
-#ExtraSectionAddAverageRow1=0
-#ExtraSectionAddSumRow1=1
-#MaxNbOfExtra1=20
-#MinHitExtra1=1
-
-ExtraSectionName1="Objetos"
-ExtraSectionCodeFilter1="200 304"
-ExtraSectionCondition1="QUERY_STRING,(id=)"
-ExtraSectionFirstColumnTitle1="Id del objeto"
-ExtraSectionFirstColumnValues1="QUERY_STRING,(.+)"
-ExtraSectionFirstColumnFormat1="%s"
-ExtraSectionStatTypes1=HVL
-ExtraSectionAddAverageRow1=0
-ExtraSectionAddSumRow1=1
-MaxNbOfExtra1=20
-MinHitExtra1=1
-
-# Example to report the 20 products the most ordered by "order.cgi" script
-# Report of requests of xml/rdf/rss feeds
-ExtraSectionName2="Foros visitados"
-ExtraSectionCodeFilter2="200 304"
-ExtraSectionCondition2="URL,(forum-view)"
-ExtraSectionFirstColumnTitle2="Id del foro"
-ExtraSectionFirstColumnValues2="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat2="%s"
-ExtraSectionStatTypes2=HVL
-ExtraSectionAddAverageRow2=0
-ExtraSectionAddSumRow2=1
-MaxNbOfExtra2=20
-MinHitExtra2=1
-
-#message-view?message%5fid=7110
-ExtraSectionName3="Mensajes leidos"
-ExtraSectionCodeFilter3="200 304"
-ExtraSectionCondition3="URL,(message-view)"
-ExtraSectionFirstColumnTitle3="Id del mensaje"
-ExtraSectionFirstColumnValues3="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat3="%s"
-ExtraSectionStatTypes3=HVL
-ExtraSectionAddAverageRow3=0
-ExtraSectionAddSumRow3=1
-MaxNbOfExtra3=20
-MinHitExtra3=1
-
-#one-faq?faq_id=904
-ExtraSectionName4="FAQS visitados"
-ExtraSectionCodeFilter4="200 304"
-ExtraSectionCondition4="URL,(faq\/one-faq)"
-ExtraSectionFirstColumnTitle4="Id del FAQ"
-ExtraSectionFirstColumnValues4="QUERY_STRING,faq_id=([^&]+)"
-ExtraSectionFirstColumnFormat4="%s"
-ExtraSectionStatTypes4=HVL
-ExtraSectionAddAverageRow4=0
-ExtraSectionAddSumRow4=1
-MaxNbOfExtra4=20
-MinHitExtra4=1
-
-#file-storage/index?folder%5fid=716
-ExtraSectionName5="Folders visitados"
-ExtraSectionCodeFilter5="200 304"
-ExtraSectionCondition5="URL,(file-storage\/index)"
-ExtraSectionFirstColumnTitle5="Id del folder"
-ExtraSectionFirstColumnValues5="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat5="%s"
-ExtraSectionStatTypes5=HVL
-ExtraSectionAddAverageRow5=0
-ExtraSectionAddSumRow5=1
-MaxNbOfExtra5=20
-MinHitExtra5=1
-
-#news/item?item_id=7893
-ExtraSectionName6="Noticias leidas"
-ExtraSectionCodeFilter6="200 304"
-ExtraSectionCondition6="URL,(news\/item)"
-ExtraSectionFirstColumnTitle6="Id de la noticia"
-ExtraSectionFirstColumnValues6="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnFormat6="%s"
-ExtraSectionStatTypes6=HVL
-ExtraSectionAddAverageRow6=0
-ExtraSectionAddSumRow6=1
-MaxNbOfExtra6=20
-MinHitExtra6=1
-
-#forums/message-view?message%5fid=7110
-ExtraSectionName7="Mensajes leidos en los foros"
-ExtraSectionCodeFilter7="200 304"
-ExtraSectionCondition7="URL,(forums\/message-view)"
-ExtraSectionFirstColumnTitle7="Id del mensaje"
-#ExtraSectionFirstColumnValues7="QUERY_STRING,id=([^&]+) | URL,(.+)"
-#ExtraSectionFirstColumnValues7="QUERY_STRING,id=([^&]+)"
-ExtraSectionFirstColumnValues7="REFERER,(.+)"
-ExtraSectionFirstColumnFormat7="<a href='%s'>%s</a>"
-ExtraSectionStatTypes7=HVL
-ExtraSectionAddAverageRow7=0
-ExtraSectionAddSumRow7=1
-MaxNbOfExtra7=20
-MinHitExtra7=1
-
-#dotlrn/clubs/pruebasdenotificaciones/one-community?page_num=0
-ExtraSectionName8="Comunidades visitadas"
-ExtraSectionCodeFilter8="200 304"
-ExtraSectionCondition8="URL,(dotlrn\/clubs\/)"
-ExtraSectionFirstColumnTitle8="Nombre de la comunidad"
-ExtraSectionFirstColumnValues8="URL,/dotlrn/clubs/([\w]+)\/"
-ExtraSectionFirstColumnFormat8="%s"
-ExtraSectionStatTypes8=PHVL
-ExtraSectionAddAverageRow8=0
-ExtraSectionAddSumRow8=1
-MaxNbOfExtra8=20
-MinHitExtra8=1
-
-#Por medio del community_id
-ExtraSectionName9="Asignaturas visitadas"
-ExtraSectionCodeFilter9="200 304"
-ExtraSectionCondition9="extra1,community_id=(.+)"
-ExtraSectionFirstColumnTitle9="Id de la asignatura"
-ExtraSectionFirstColumnValues9="extra1,id=([\w]+)"
-ExtraSectionFirstColumnFormat9="%s"
-ExtraSectionStatTypes9=PHVL
-ExtraSectionAddAverageRow9=0
-ExtraSectionAddSumRow9=1
-MaxNbOfExtra9=20
-MinHitExtra9=1
-
-#-----------------------------------------------------------------------------
-# INCLUDES
-#-----------------------------------------------------------------------------
-
-# You can include other config files using the directive with the name of the
-# config file.
-# This is particularly usefull for users who have a lot of virtual servers, so
-# a lot of config files and want to maintain common values in only one file.
-# Note that when a variable is defined both in a config file and in an
-# included file, AWStats will use the last value read for parameters that
-# contains one value and AWStats will concat all values from both files for
-# parameters that are lists of value.
-#
Index: openacs-4/packages/user-tracking/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/user-tracking/tcl/apm-callback-procs.tcl	2 Mar 2005 16:38:07 -0000	1.2
+++ openacs-4/packages/user-tracking/tcl/apm-callback-procs.tcl	14 Apr 2005 15:44:27 -0000	1.3
@@ -1,91 +1,85 @@
-ad_library {
-
-    user-tracking Package APM callbacks library
-    
-    Procedures that deal with installing, instantiating, mounting.
-
-    @creation-date 2004-10-29
-    @author David Ortega <doa@tid.es>
-}
-
-namespace eval user-tracking::apm_callbacks {}
-
-ad_proc -private user-tracking::apm_callbacks::package_install {} {
-
-    Update config files
-
-    @author David Ortega (doa@tid.es)
-
-} {
-
-
-   #Leer un par�metro de config.tcl
-   set logdir [ns_config "ns/parameters" serverlog]
-   #Me quedo con lo que me interesa
-   set patron "(.*)(\/(.)*\.log$)"
-   regexp $patron $logdir all dir part2 ]
-   append dir "/"
-
-   set server [ns_info server]
-   set system_name [ad_system_name]
-   set http_port [ns_conn location]
-   
-   set ip [util_current_location]
-   
-   #Busco ficheros de configuraci�n
-   set ut_dir [acs_package_root_dir "user-tracking"]
-   append config_dir $ut_dir "/config" 
-   set files [exec "find" $config_dir "-maxdepth" "1" "-type" "f"] 
-   #Escribo los par�metros al final de cada fichero
-   	
-   for {set x 0} {$x<[llength $files]} {incr x} {
-   	set file_name [lindex $files $x]
-   	
-   	if { [file exists $file_name] == 1} {   
-
-   		set config_file [open $file_name a]
-		set logdir [ns_config "ns/server/[ns_info server]/module/nslog" file] 
-		set patron "(.*)(\.log$)"
-		regexp $patron $logdir all part1 part2 ]
-		
-		puts $config_file "LogFile=\"${ut_dir}/tools/logresolvemerge.pl ${part1}* | \""
-		puts $config_file "SiteDomain=\"${server}\""
-		puts $config_file "HostAliases=\"${server} www.${server} ${system_name} www.${system_name} ${ip} 127.0.0.1 localhost\""
-		puts $config_file "DirData=\"${dir}awstat\""
-		#puts $config_file "Lang=\"es\""
-		#puts $config_file "ShowFlagLinks=\"en fr de\""
- 
-   		close $config_file
-   	}
-   }
-
-
-   # Escribo fichero de users.txt
-   exec "/bin/mkdir" ${dir}awstat
-   set touch [exec "/bin/touch" ${dir}awstat/userinfo.txt]
-   set filename "${dir}awstat/userinfo.txt"
-   ns_log notice "Escribiendo en $filename"	
-   set config_file [open $filename w]
-   db_foreach get_users "select person_id, first_names, last_name from persons" {
-   	puts $config_file "$person_id \t $first_names $last_name"
-   }   
-   close $config_file   
-   
-   set touch [exec "/bin/touch" ${config_dir}/AllowedUrls.conf]
-   set filename "${config_dir}/AllowedUrls.conf"	
-   ns_log notice "Escribiendo en $filename"	
-   set config_file [open $filename w]
-   puts $config_file $ip
-
-   close $config_file   
-
-
-
-
-
-   #Leer un par�metro del paquete
-   #set paquete [parameter::get -parameter "logsDir"]     
-   #Fijar un par�metro del paquete
-   #parameter::set_value  -parameter "logsDir" -value $dir  
-     
-}
+ad_library {
+
+    user-tracking Package APM callbacks library
+    
+    Procedures that deal with installing, instantiating, mounting.
+
+    @creation-date 2004-10-29
+    @author David Ortega <doa@tid.es>
+}
+
+namespace eval user-tracking::apm_callbacks {}
+
+ad_proc -private user-tracking::apm_callbacks::package_install {} {
+
+    Update config files
+
+    @author David Ortega (doa@tid.es)
+
+} {
+
+
+   #Reading logdir from config.tcl
+   set logdir [ns_config "ns/parameters" serverlog]
+   set patron "(.*)(\/(.)*\.log$)"
+   regexp $patron $logdir all dir part2 ]
+   append dir "/"
+
+   set server [ns_info server]
+   set system_name [ad_system_name]
+   set http_port [ns_conn location]
+   
+   set ip [util_current_location]
+   
+   #Look for config files
+   set ut_dir [acs_package_root_dir "user-tracking"]
+   append config_dir $ut_dir "/config"
+   set execls [list "ls" $config_dir]
+   set files [exec [lindex $execls 0] [lindex $execls 1]]
+   
+   #Writes parameters at the end of the awstats config file
+   	
+   for {set x 0} {$x<[llength $files]} {incr x} {
+   	set file_name "${config_dir}/[lindex $files $x]"
+   	
+   	if { [file exists $file_name] == 1} {   
+
+   		set config_file [open $file_name a]
+		set logdir [ns_config "ns/server/[ns_info server]/module/nslog" file] 
+		set patron "(.*)(\.log$)"
+		regexp $patron $logdir all part1 part2 ]
+		
+		puts $config_file "LogFile=\"${ut_dir}/tools/logresolvemerge.pl ${part1}* | \""
+		puts $config_file "SiteDomain=\"${server}\""
+		puts $config_file "HostAliases=\"${server} www.${server} ${system_name} www.${system_name} ${ip} 127.0.0.1 localhost\""
+		puts $config_file "DirData=\"${dir}awstat\""
+		#puts $config_file "Lang=\"es\""
+		#puts $config_file "ShowFlagLinks=\"en fr de\""
+ 
+   		close $config_file
+   	}
+   }
+
+
+   # Writing userinfo.txt file
+   #exec "/bin/mkdir" ${dir}awstat
+   #set touch [exec "/bin/touch" ${dir}awstat/userinfo.txt]
+   #set filename "${dir}awstat/userinfo.txt"
+   #ns_log notice "Escribiendo en $filename"	
+   #set config_file [open $filename w]
+   #db_foreach get_users "select person_id, first_names, last_name from persons" {
+   #	puts $config_file "$person_id \t $first_names $last_name"
+   #}   
+   #close $config_file   
+   
+   #Needed in first release of user-tracking due to the use of cgi-bin
+   #set touch [exec "/bin/touch" ${config_dir}/AllowedUrls.conf]
+   #set filename "${config_dir}/AllowedUrls.conf"	
+   #ns_log notice "Escribiendo en $filename"	
+   #set config_file [open $filename w]
+   #puts $config_file $ip
+
+   #close $config_file   
+
+     
+}
Index: openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl	14 Apr 2005 15:44:27 -0000	1.2
@@ -22,7 +22,6 @@
     } {
 	Return directoy of user-tracking package
     } {
-	# return "[acs_root_dir][pkg_home [apm_package_key_from_id [ad_conn package_id]]]"
 	return "[acs_root_dir][pkg_home "user-tracking"]"
     }
 
@@ -42,9 +41,7 @@
 		set sessions_file [open [acs_root_dir]/www/results.dat r]
 		
 		while { [gets $sessions_file linea ] >= 0} { 
-		# Se procesa la variable "linea" 
-		# Hay un pb con el nombre del mes. No se puede meter directamente, ya que viene en espa�ol y la bd lo espera en ingl�s
-		# o en formato num�rico. Por eso lo paso a formato num�rico.
+
 		scan $linea "%u %u %s %u/%3s/%u %s %u/%3s/%u %s" session_id user_id ip day month year init_time f_day f_month f_year finish_time
 		set lista [lc_get abmon]
 		set init_date ""
@@ -68,7 +65,7 @@
 	db_dml delete_scheduled_processes {}
 	user-tracking::do_data_load $informes
 	set id [ad_schedule_proc  -thread "t" [expr [expr [lindex $horas 3] * 3600] + [expr [lindex $horas 4] * 60]] user-tracking::do_data_load $informes]
-    	ns_log notice "\n\nId del proc programado $id. Se ejecutar� dentro de [expr [expr [lindex $horas 3] * 3600] + [expr [lindex $horas 4] * 60]] segundos\n"
+    	ns_log notice "\n\nScheduled proc id: $id.  Process will be launched in [expr [expr [lindex $horas 3] * 3600] + [expr [lindex $horas 4] * 60]] seconds\n"
     	db_dml insert_scheduled_process_id {}
     }
     
@@ -78,62 +75,55 @@
     	Execute awstats 
     } {
     
-     #Proceso la variable "informes"
-     
-     foreach elm $informes {
-    	switch $elm {
-    		1 { set all_users_p 1}
-    		2 { set all_communities_p 1}
-    		3 { set all_all_p 1}
-    		4 { set site_p 1}
-    	}
-     }
-	
-     if {[exists_and_not_null all_users_p]} {
-     	
-     	ns_log notice "Ejecuto script para cada usuario"
-     	
-     	db_foreach user "select user_id  from cc_users" {
-     		#Ejecuto script para cada usuario
-     		#ns_log notice "USUARIO: $user_id"
-		set execAnalyzer [list "/usr/bin/perl" "[get_user_tracking_dir]/www/awstats/cgi-bin/awstatsDirecto.pl" "-config=elane" "-update" "-onlyusers=$user_id"]
-		#ns_log notice "User: $user_id, ejecutamos: $execAnalyzer"
-
-		catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4]} aux
-
-	}
-     }
-     if {[exists_and_not_null all_communities_p]} {
-     	
-     	ns_log notice "Ejecuto script para cada comunidad"
-     	
-     	db_foreach community "select community_id from dotlrn_communities" {
-     		
-     		#ejecuto script para cada comunidad
-     		#ns_log notice "Comunidad: $community_id"
-                set execAnalyzer [list "[get_user_tracking_dir]/www/awstats/cgi-bin/awstatsDirecto.pl" "-config=elane" "-update" "-onlylines=REGEX[.*community_id=$community_id.*]"] 
-                catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3]} aux
-     	}
-     }
- 
-     if {[exists_and_not_null all_all_p]} {
-     	ns_log notice "Ejecuto script para cada usuario en cada comunidad"
-     	db_foreach community "select community_id from dotlrn_communities" {
-     	     	db_foreach user "select user_id  from cc_users" {
-     	     		#ejecuto para cada user en cada comunidad
-     	     		ns_log notice "Comunidad: $community_id - User: $user_id"
-	                set execAnalyzer [list "[get_user_tracking_dir]/www/awstats/cgi-bin/awstatsDirecto.pl" "-config=elane" "-update" "-onlylines=REGEX[.*community_id=$community_id.*]" "-onlyusers=$user_id"]
-                catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4]} aux
-		}
+        #Processing var "informes"
+        
+        foreach elm $informes {
+       	switch $elm {
+       		1 { set all_users_p 1}
+       		2 { set all_communities_p 1}
+       		3 { set all_all_p 1}
+       		4 { set site_p 1}
+       	}
         }
-
-     }
-     if {[exists_and_not_null site_p]} {
-     	ns_log notice "Ejecuto script s�lo para el sitio web"
-        set execAnalyzer [list "[get_user_tracking_dir]/www/awstats/cgi-bin/awstatsDirecto.pl" "-config=elane" "-update"]
-        catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2]} aux
-
-     }
+   	
+        if {[exists_and_not_null all_users_p]} {
+        	
+        	ns_log notice "USER-TRACKING-->every user"
+        	
+        	db_foreach user "select user_id  from cc_users" {
+         		ns_log notice "USER: $user_id"
+			set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update" "-onlyusers=$user_id"]        	     		
+   			catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4]} aux
+   		}
+        }
+        if {[exists_and_not_null all_communities_p]} {
+        	
+        	ns_log notice "USER-TRACKING-->every community"
+        	
+        	db_foreach community "select community_id from dotlrn_communities" {
+        	   ns_log notice "Community: $community_id"
+		   set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update" "-onlycoms=$community_id"]        		
+   		   catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4]} aux
+        	}
+        }
+    
+        if {[exists_and_not_null all_all_p]} {
+        	ns_log notice "USER-TRACKING-->every user in every community"
+        	db_foreach community "select community_id from dotlrn_communities" {
+        	     	db_foreach user "select user_id  from cc_users" {
+	       	     		ns_log notice "Community: $community_id - User: $user_id"
+				set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update" "-onlycoms=$community_id" "-onlyusers=$user_id"]        	     		
+                   catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4] [lindex $execAnalyzer 5]} aux
+   		}
+           }
+   
+        }
+        if {[exists_and_not_null site_p]} {
+           ns_log notice "USER-TRACKING-->site"
+           set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update"]        	     		
+           catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 2]} aux
+   
+        }
     }
 
     ad_proc -public select_children_communities {
@@ -157,28 +147,80 @@
      	
      	return [join $ComList]
      }
+     
+     ad_proc -public converts_date {
+     	fecha_larga 
+     } {
+     	Returns a pretty date
+     } {
+	set anyo [string range $fecha_larga 0 3]
+	set mes [string range $fecha_larga 4 5]
+	set dia [string range $fecha_larga 6 7]
+	set hor [string range $fecha_larga 8 9]
+	set min [string range $fecha_larga 10 11]
+	set seg [string range $fecha_larga 12 13]
+	return "$dia/$mes/$anyo - $hor:$min:$seg"
+     }
 
-    ad_proc -public write_users_file {
-    } {
-    	Writes users in db to usersinfo.txt
-    } {
+     ad_proc -public get_data_file_name {
+     	onlylines
+     	onlyuser
+     	config
+     	{year ""}
+     	{month ""}
+     } {
+     	Returs the name of the DataFileName related with these params
+     } {
     
-   	   #Leer un par�metro de config.tcl
-	   set logdir [ns_config "ns/parameters" serverlog]
-	   #Me quedo con lo que me interesa
-	   set patron "(.*)(\/(.)*\.log$)"
-	   regexp $patron $logdir all dir part2 ]
-	   append dir "/" 
-
-	   #Escribo fichero de users.txt
-	   set filename "${dir}awstat/userinfo.txt"
-	   ns_log notice "Escribiendo en $filename"	
-	   set config_file [open $filename w]
-	   db_foreach get_users "select person_id, first_names, last_name from persons" {
-	   	puts $config_file "$person_id \t $first_names $last_name"
-	   }   
-	   close $config_file 
+	set config_dir [acs_package_root_dir "user-tracking"]
+	append config_dir "/config"
+	set configFile [open "${config_dir}/awstats_dotlrn.${config}.conf" r]
+	
+	set linea [gets $configFile]
+	set fin [eof $configFile]
+	set patron "\^(DirData)=(.*)"
+	
+	while { ![eof $configFile] && !$fin} {
+		set fin [eof $configFile]
+		set linea [gets $configFile]	
+		if { [regexp $patron $linea todo part1 DirData] ==1 } {
+			set err "Hemos encontrado el patron"
+			set fin 1
+		}
 	}
-
+	
+	# Symbol " is needed in the config file
+	set data_dir [lindex [split $DirData {"}] 1]
+	close $configFile    
+	
+	# Creating DataFileName
+	set date [template::util::date::today]
+	if {![exists_and_not_null year]} {
+		set year "[template::util::date::get_property year $date]"
+	}
+	if {![exists_and_not_null month]} {
+		set month "[template::util::date::get_property month $date]"
+	}
+	if { [string length $month] == 1} {
+		set month "0${month}"
+	}
+	set DataFileName "${data_dir}/awstats_dotlrn${month}${year}.${config}"
+	
+	if {[exists_and_not_null onlyuser]} {
+		set onlyuser_aux [lsort -integer -increasing $onlyuser]
+		foreach user $onlyuser_aux {
+			append DataFileName "ou$user"
+		}
+	}
+	if {[exists_and_not_null onlylines]} {
+		set onlylines_aux [lsort -integer -increasing $onlylines]
+		foreach group $onlylines_aux {
+	   		append DataFileName "oc$group"
+		}
+	}
+	append DataFileName ".txt"
+	return $DataFileName
 }
+	
+}
 
Index: openacs-4/packages/user-tracking/tcl/user-tracking-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/tcl/user-tracking-procs.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/tcl/user-tracking-procs.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/tcl/user-tracking-procs.xql	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,11 +1,11 @@
-<?xml version="1.0"?>
-
-<queryset>
-
-
-<fullquery name="user-tracking::process_sessions.write_to_db">
+<?xml version="1.0"?>
+
+<queryset>
+
+
+<fullquery name="user-tracking::process_sessions.write_to_db">
 	
-	<querytext>
+	<querytext>
 	insert into ut_sessions (
 	session_id,
 	user_id,
@@ -19,19 +19,19 @@
 	:finish_date,
 	:ip
 	)
+
+	</querytext>
+</fullquery>
 
-	</querytext>
+<fullquery name="user-tracking::launch_process.insert_scheduled_process_id">
+	<querytext>
+		insert into ut_sched values (:id)
+	</querytext>
 </fullquery>
 
-<fullquery name="user-tracking::launch_process.insert_scheduled_process_id">
-	<querytext>
-		insert into ut_sched values (:id)
-	</querytext>
-</fullquery>
-
-<fullquery name="user-tracking::launch_process.delete_scheduled_processes">
-	<querytext>
-		delete from ut_sched;
-	</querytext>
-</fullquery>
+<fullquery name="user-tracking::launch_process.delete_scheduled_processes">
+	<querytext>
+		delete from ut_sched;
+	</querytext>
+</fullquery>
 </queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/advanced-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-card-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/advanced-card-postgresql.xql	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1,29 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_user_info">      
+        <querytext>
+            select first_names,
+                   last_name,
+                   email,
+                   to_char(creation_date, 'YYYY-MM-DD HH24:MI:SS') as registration_date,
+                   to_char(last_visit, 'YYYY-MM-DD HH24:MI:SS') as last_visit
+            from cc_users
+            where user_id = :oneUser
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_com_data">
+        <querytext>
+	   select f.community_key as key,
+			f.community_id as id,
+			f.pretty_name as pretty_name,
+			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		from dotlrn_communities_full f, acs_objects o
+		where f.community_id= :oneCom
+		      and o.object_id= f.community_id
+        </querytext>
+    </fullquery>
+    
+</queryset>
Index: openacs-4/packages/user-tracking/www/advanced-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-card.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/advanced-card.adp	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1,248 @@
+
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+[<small>
+ <a href="site-card"><small>#user-tracking.lt_Site_Stats#</small></a>
+ |
+ <a href="communities-stats"><small>#user-tracking.lt_Communities_Stats#</small></a>
+ |
+ <a href="users-stats"><small>#user-tracking.lt_Users_Stats#</small></a>
+ |
+ <a href="advanced-stats"><small>#user-tracking.lt_Advanced_Stats_1#</small></a>
+</small>]
+
+<p></p>
+<p></p>
+<h3>#user-tracking.lt_Advanced_Stats_1#</h3>
+
+   <table border="0" width="100%">
+   <tr>
+      <td valign="top" width="50%">
+      <table class="element" border=0 cellpadding="0" cellspacing="0" width="100%">
+     <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr> 
+      <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+   	   <h3>#user-tracking.info_about#:</h3>
+   	   <center>
+	   <table cellspacing="0" cellpadding="0" class="element-content" width="90%">   
+	   <tr><td>		
+   	   <if @Users:rowcount@ gt 0>
+   	   <br>
+   	   <h2>#user-tracking.Users#:</h2><br>
+   	   <center><listtemplate name="Users"></listtemplate></center>
+   	   </if><BR>
+   	   <if @Communities:rowcount@ gt 0>
+   	   <if @Users:rowcount@ gt 0>
+   	   <H3>#user-tracking.in_communities#:</H3><br>
+   	   </if><else>
+   	   <H3>#user-tracking.Communities#:</H3><br>
+   	   </else>
+   	   <center><listtemplate name="Communities"></listtemplate></center>
+   	   </if>	   
+   	   </td></tr></table></center> 	   
+
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>
+  
+    <tr>
+      	<td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr>   
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+   	   <h3>#user-tracking.info_about_contributions#</h3>
+   		<include src="contributions-chunk2" user_id="@user_id@" community_id="@community_id@">
+   	   </td>
+   	</tr>
+   	</table>
+ 	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>      
+      <tr>
+      <td colspan="3" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+
+      
+      </table>
+      <td valign="top" width="50%">
+<if @today@ gt @asked_date@>
+   <if @nodata_p@ eq "1">
+     <table class="element" border="0" cellpadding="0" cellspacing="0" width="100%">
+
+     <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr> 
+      <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+               <h3>#user-tracking.lt_month_over_which_statistics_are_seen#</h3>
+               <center>
+               <br>
+               <form name="mia" action="advanced-card" method="post">
+               @datebox;noquote@
+               @hidden;noquote@
+               <input type="submit" value="#user-tracking.see#"/>
+               </form>
+                <if @nodata_p@ eq 1>
+   		<if @noloading@ eq 1>
+		<table cellspacing="0" cellpadding="0" class="element-content" width="90%">   		
+   		<tr><td><listtemplate name="summary"></listtemplate></td></tr>
+   		</table>
+   		<br>
+   		</if>  
+   		</if>   
+               <form name="otro" action="loading2" method="post">
+               @hidden2;noquote@
+               <input type="submit" value="#user-tracking.update_data#"/>
+               </form>  
+               </center>
+                	   
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>
+
+   	<tr><td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.temporary_reports#</h3>
+      		   <if @noloading@ eq 1>
+   	   	   	<include src="visits-chunk" DataFileName="@DataFileName@" user_id="@user_id@" community_id="@community_id@">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>
+
+   	<tr>
+   	   <td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+      	</tr> 
+   	<tr><td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.info_about_petitions#</h3>
+      		   <if @noloading@ eq 1>
+   	   	   	<include src="petitions-chunk" DataFileName="@DataFileName@" user_id="@user_id@" community_id="@community_id@">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>	
+   	<tr>
+   	   <td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+      	</tr> 
+   	<tr><td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.info_about_consulted_material#</h3>
+      		   <if @noloading@ eq 1>   		   
+   	   	   	<include src="visited-material-chunk" DataFileName="@DataFileName@" user_id="@user_id@" community_id="@community_id@">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>	
+   	<tr>
+   	<td colspan="3" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif"></td>
+   	</tr>
+   	   </if>
+   <else>
+      <include src="loading" url="advanced-card?community_id=@community_id@&" onlylines="@onlylines@" onlyuser="@onlyuser@" config="@config@" type="@type@" year="@year@" month="@month@">
+   </else>
+</if>
+<else>
+    <table class="element" border="0" cellpadding="0" cellspacing="0" width="100%">
+    <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+    </tr> 
+    <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+    </tr>
+    <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+               <h3>#user-tracking.lt_month_over_which_statistics_are_seen#</h3>
+               <center>
+               <br>
+               <form name="mia" action="advanced-card" method="post">
+               @datebox;noquote@
+               @hidden;noquote@
+               <input type="submit" value="#user-tracking.see#"/>	
+               </form>
+               </center>
+	       <font color=red>#user-tracking.future_date#</font>
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+    </tr>
+    </table>
+</else>
+</table>
+</table>	
+
+                                                                                                                                                                                                                                                                                     
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/advanced-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-card.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/advanced-card.tcl	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1,398 @@
+
+ad_page_contract {
+    @author doa (doa@tid.es)
+    @author sergiog (sergiog@tid.es)
+    @creation-date 2005-03-01
+} -query { 
+    {type "general"}
+    {onlyuser ""}
+    {onlylines ""}    
+    {config "site"}
+    {nodata_p "0"}
+    {noloading "1"}
+    {pretype ""}
+    {month ""}
+    {year ""}
+    {mydate:array ""}
+    {user_id ""}
+    {community_id ""}    
+} -properties {    
+    DataFileName:onevalue
+    config:onevalue
+    pretype:onevalue   
+    datebox:onevalue
+    mydate:onevalue
+    today:onevalue
+    asked_day:onevalue
+    hidden:onevalue
+    hidden2:onevalue
+    Users:multirow
+    Communities:multirow
+    user_id:onevalue
+    community_id:onevalue
+    onlyuser:onevalue
+    onlylines:onevalue
+
+}
+set user_id $onlyuser
+set community_id $onlylines
+if {[exists_and_not_null year] & [exists_and_not_null month]} {
+	set datebox [dt_widget_datetime -default "$year-$month-01" mydate "months"]
+} elseif {[exists_and_not_null mydate(year)] & [exists_and_not_null mydate(month)]} {
+	set datebox [dt_widget_datetime -default "$mydate(year)-$mydate(month)-01" mydate "months"]
+	set year $mydate(year)
+	set month $mydate(month)
+} else {
+set datebox [dt_widget_datetime -default now mydate "months"]
+	set year [template::util::date::get_property year [template::util::date::today]]
+	set month [template::util::date::get_property month [template::util::date::today]]
+}
+
+set fmt "%Y-%m-%d"
+set today [clock seconds]
+set asked_date [clock scan "$year-$month-1"]
+
+# -----------------------------------------------
+
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+
+set total_posted 0
+set faq_posted 0
+set news_posted 0
+set surveys_posted 0
+set forum_posted 0
+set files_posted 0
+
+
+template::multirow create Users ID Name Mail RegistrationDate LastVisit
+template::multirow create Communities ID Name CreationDate Key
+template::multirow create UsersPosts ID Name CreationDate Key
+template::multirow create CommunitiesData ID Name CreationDate Key
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+			}
+		}
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+			}
+		}		
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				
+			}
+		}
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key			
+				
+			}
+		}
+	} else {
+		ad_return_complaint 1 "Error no Data"
+		ad_script_abort
+	}
+}
+
+set page_title [_ user-tracking.lt_Advanced_Stats]
+set context [list $page_title]
+
+template::list::create \
+    -name Users \
+    -multirow Users \
+    -elements {
+        id {
+            label "#user-tracking.ID#"
+            display_col ID
+            html {align center}
+        }
+        name {
+            label "#user-tracking.User_Name#"
+            display_col Name            
+            html {align center}
+        }
+        mail {
+            label "#user-tracking.Mail#"
+            display_col Mail
+            html {align center}
+        }
+        registration_date {
+            label "#user-tracking.Registration_Date#"
+            display_col RegistrationDate
+            html {align center}
+        }
+        last {
+            label "#user-tracking.Last_Visit#"
+            display_col LastVisit
+            html {align center}
+        }
+     } \
+
+template::list::create \
+    -name Communities \
+    -multirow Communities \
+    -elements {
+        id {
+            label "#user-tracking.ID#"
+            display_col ID
+            html {align center}
+        }
+        name {
+            label "#user-tracking.Community_Name#"
+            display_col Name            
+            html {align center}
+        }
+        creation_date {
+            label "#user-tracking.Creation_Date#"
+            display_col CreationDate
+            html {align center}
+        }
+        key {
+            label "#user-tracking.Key#"
+            display_col Key
+            html {align center}
+        }
+     }
+     
+# -------------------------------------------
+
+set DataFileName [user-tracking::get_data_file_name $onlylines $onlyuser $config $year $month]
+set hidden [export_vars -form {{onlylines $community_id} {onlyuser $user_id}}]
+set hidden2 [export_vars -form { {config} {url "advanced-card"} {onlylines $community_id} {onlyuser $user_id}}]
+
+if {$asked_date <= $today } {
+
+set nodata_p 0
+if {[file exists $DataFileName]} {
+   set nodata_p 1
+   
+   set dataFile [open "$DataFileName" r]
+   
+   #Getting file map
+   set linea [gets $dataFile]
+   set fin [eof $dataFile]
+   set patron "(BEGIN_MAP) (.*)"
+   while { $fin == 0} {
+   	set linea [gets $dataFile]
+   	set fin [eof $dataFile]
+   	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+   		set fin 1
+   	}
+   }
+   
+   set fin 0
+   set patron "^(\[A-Z\\_0-9\]*) (.*)"
+   while { $fin == 0} {
+   	set linea [gets $dataFile]
+   	set fin [eof $dataFile]
+   	if { [regexp $patron $linea todo part1 part2] ==1 } {
+   		set Map($part1) $part2 
+   	}
+   	if { $linea == "END_MAP"} {
+   		set fin 1
+   	}
+   }
+   
+   #Getting data for general section
+   
+   set pos $Map(POS_GENERAL)
+   seek $dataFile $pos
+   set linea [gets $dataFile]
+   set patron "(BEGIN_GENERAL) (.*)"
+   while { ![regexp $patron $linea todo part1 part2] } {	
+   	set linea [gets $dataFile]	
+   	if {[eof $dataFile]} {
+   		set part2 0
+   		break;
+   	}
+   }
+   set i $part2
+   
+   while { $i > 0} {	
+   	set linea [gets $dataFile]
+   	set campos [split $linea]
+   	switch [lindex $campos 0] {
+   		FirstTime { 
+   			set FirstTime [user-tracking::converts_date [lindex $campos 1]]
+   			}
+   		LastTime { 
+   			set LastTime [user-tracking::converts_date [lindex $campos 1]]
+   			}
+   		LastUpdate { 
+   			set LastUp [user-tracking::converts_date [lindex $campos 1]]
+   			}
+   		TotalVisits { 
+   			set TotalVisits [lindex $campos 1]
+   			}
+   		TotalUnique { 
+   			set TotalUnique [lindex $campos 1]
+   			}
+   		default {}
+   	}
+   	set i [expr $i - 1]
+   	if {[eof $dataFile]} { #Wrong file?
+   		break;
+   	}
+   }
+   
+   #Getting number of visited pages
+   
+   set pos $Map(POS_DAY)
+   seek $dataFile $pos
+   set linea [gets $dataFile]
+   set patron "(BEGIN_DAY) (.*)"
+   while { ![regexp $patron $linea todo part1 part2] } {	
+   	set linea [gets $dataFile]	
+   	if {[eof $dataFile]} {
+   		set part2 0
+   		break;
+   	}
+   }
+   
+   set i $part2
+   
+   set TotalPages 0
+   set TotalAsked 0
+   
+   while { $i > 0} {	
+   	set linea [gets $dataFile]
+   	set campos [split $linea]
+   	set TotalPages [expr $TotalPages+ [lindex $campos 1]]
+   	set TotalAsked [expr $TotalAsked+ [lindex $campos 2]]
+   	set i [expr $i - 1]
+   	if {[eof $dataFile]} { #Wrong file?
+   		break;
+   	}
+   }
+   
+   close $dataFile
+   
+   template::multirow create summary from to nvisitors nsessions npages nhits
+   multirow append summary $FirstTime $LastTime $TotalUnique $TotalVisits $TotalPages $TotalAsked
+   set medSes [expr $TotalVisits/$TotalUnique]
+   template::list::create \
+       -name summary \
+       -multirow summary \
+       -elements {
+           from {
+               label "#user-tracking.Data_from#"
+               display_col from
+               html {align center}
+           }
+           to {
+               label "#user-tracking.Data_to#"
+               display_col to
+                html {align center}
+          }
+           nvisitors {
+               label "#user-tracking.Number_of_visitors#"
+               display_col nvisitors
+               html {align center}
+   	}        
+           nsessions {
+               label "#user-tracking.Number_of_sessions#"
+   	    display_template {
+   	    	<center>@summary.nsessions@ <BR> <small>($medSes #user-tracking.visits_by_user#)</small></center>
+   	    } 
+           }
+           npages {
+               label "#user-tracking.Visited_Pages#"
+   	    display_col npages        
+               html {align center}
+   	}
+           nhits {
+               label "#user-tracking.Hits#"
+               display_col nhits
+               html {align center}
+          }
+       
+        } \
+        -html { align center }
+     
+} else {
+  if {$noloading eq 0} {
+   	set nodata_p 1
+  }
+}
+}
+ad_return_template
+
Index: openacs-4/packages/user-tracking/www/advanced-communities-chunk-large.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-communities-chunk-large.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-communities-chunk-large.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-communities-chunk-large.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,21 +1,21 @@
-
-<formtemplate id="community_search" >
-  <formwidget id="type">
-  <formwidget id="referer">
-
-<table cellspacing="3" cellpadding="3">
-
-  <tr>
-    <th align="left">#dotlrn.Search_Text#</th>
-    <td><formwidget id="search_text"></td>
-    <td><input type="submit" value="#dotlrn.Search#"></td>
-  </tr>
-
-</table>
-
-</formtemplate>
-
-<include src="advanced-communities-chunk" type=@type@ &communities_list="communities_list" Users=@Users@ Communities=@Communities@ referer=@referer@>
-
-
-
+
+<formtemplate id="community_search" >
+  <formwidget id="type">
+  <formwidget id="referer">
+
+<table cellspacing="3" cellpadding="3">
+
+  <tr>
+    <th align="left">#dotlrn.Search_Text#</th>
+    <td><formwidget id="search_text"></td>
+    <td><input type="submit" value="#dotlrn.Search#"></td>
+  </tr>
+
+</table>
+
+</formtemplate>
+
+<include src="advanced-communities-chunk" type=@type@ &communities_list="communities_list" Users=@Users@ Communities=@Communities@ referer=@referer@>
+
+
+
Index: openacs-4/packages/user-tracking/www/advanced-communities-chunk-medium.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-communities-chunk-medium.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-communities-chunk-medium.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-communities-chunk-medium.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,6 +1,6 @@
-
-<p>@control_bar;noquote@</p>
-
-<include src="advanced-communities-chunk" type=@type@ &communities_list="communities_list" Users=@Users@ Communities=@Communities@ referer=@referer@>
-
-
+
+<p>@control_bar;noquote@</p>
+
+<include src="advanced-communities-chunk" type=@type@ &communities_list="communities_list" Users=@Users@ Communities=@Communities@ referer=@referer@>
+
+
Index: openacs-4/packages/user-tracking/www/advanced-communities-chunk-small.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-communities-chunk-small.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-communities-chunk-small.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-communities-chunk-small.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,3 +1,3 @@
-
-<include src="advanced-communities-chunk" type=@type@ &communities_list="communities_list" Users=@Users@ Communities=@Communities@ referer=@referer@>
-
+
+<include src="advanced-communities-chunk" type=@type@ &communities_list="communities_list" Users=@Users@ Communities=@Communities@ referer=@referer@>
+
Index: openacs-4/packages/user-tracking/www/advanced-communities-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-communities-chunk.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-communities-chunk.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-communities-chunk.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,62 +1,62 @@
-<%
-
-%>
-
-<center>
-<table bgcolor="#cccccc" cellpadding="5" cellspacing="3" width="95%">
-  <tr>
-    <th align="left" width="50%">#dotlrn.Community#</th>        
-    <th align="left">#user-tracking.add#</th>
-  </tr>
-
-<if @communities_list:rowcount@ gt 0>
-   <multiple name="communities_list">
-
-   	<if @communities_list.rownum@ odd>
-	  <tr bgcolor="#eeeeee">
-	</if>
-	<else>
-	  <tr bgcolor="#d9e4f9">
-	</else>
-	    <td align="left">    
-	       @communities_list.pretty_name@ ( @communities_list.community_id@ )
-	    </td>
-	    <td>
-	    <% 
-	    	
-		set selected 0
-		set without_selected ""
-		set patron "(.*)(@communities_list.community_id@)(.*)"
-		if { [regexp $patron @Communities@ todo part1 part2 part3] ==1 } {
-			set selected 1
-			append without_selected @part1@ @part3@
-		} else {
-			set temp ""
-	    		append temp @Communities@ " " @communities_list.community_id@
-			set tempLong ""
-			append tempLong @Communities@ " " [user-tracking::select_children_communities @communities_list.community_id@]
-		}
-	    %>
-		<if @selected@ eq 1><a href="@referer@?Communities=@without_selected@&Users=@Users@">#user-tracking.eliminate#</a></if>
-		<else>
-	    		<a href="@referer@?Communities=@temp@&Users=@Users@">#user-tracking.add#</a>
-			|
-			<a href="@referer@?Communities=@tempLong@&Users=@Users@">#user-tracking.add_subgroups#</a>
-		</else>
-	    </td>
-	  </tr>
-    </multiple>
-</if>
-<else>
-  <tr bgcolor="#eeeeee">
-    <td align="left" colspan="2"><i>#dotlrn.No_Communities#</i></td>
-  </tr>
-</else>
-
-</table>
-</center>
-
-
-
-
-
+<%
+
+%>
+
+<center>
+<table bgcolor="#cccccc" cellpadding="5" cellspacing="3" width="95%">
+  <tr>
+    <th align="left" width="50%">#dotlrn.Community#</th>        
+    <th align="left">#user-tracking.add#</th>
+  </tr>
+
+<if @communities_list:rowcount@ gt 0>
+   <multiple name="communities_list">
+
+   	<if @communities_list.rownum@ odd>
+	  <tr bgcolor="#eeeeee">
+	</if>
+	<else>
+	  <tr bgcolor="#d9e4f9">
+	</else>
+	    <td align="left">    
+	       @communities_list.pretty_name@ ( @communities_list.community_id@ )
+	    </td>
+	    <td>
+	    <% 
+	    	
+		set selected 0
+		set without_selected ""
+		set patron "(.*)(@communities_list.community_id@)(.*)"
+		if { [regexp $patron @Communities@ todo part1 part2 part3] ==1 } {
+			set selected 1
+			append without_selected @part1@ @part3@
+		} else {
+			set temp ""
+	    		append temp @Communities@ " " @communities_list.community_id@
+			set tempLong ""
+			append tempLong @Communities@ " " [user-tracking::select_children_communities @communities_list.community_id@]
+		}
+	    %>
+		<if @selected@ eq 1><a href="@referer@?Communities=@without_selected@&Users=@Users@">#user-tracking.eliminate#</a></if>
+		<else>
+	    		<a href="@referer@?Communities=@temp@&Users=@Users@">#user-tracking.add#</a>
+			|
+			<a href="@referer@?Communities=@tempLong@&Users=@Users@">#user-tracking.add_subgroups#</a>
+		</else>
+	    </td>
+	  </tr>
+    </multiple>
+</if>
+<else>
+  <tr bgcolor="#eeeeee">
+    <td align="left" colspan="2"><i>#dotlrn.No_Communities#</i></td>
+  </tr>
+</else>
+
+</table>
+</center>
+
+
+
+
+
Index: openacs-4/packages/user-tracking/www/advanced-communities-stats.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-communities-stats.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-communities-stats.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-communities-stats.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,15 +1,15 @@
-
-	<p>@control_bar_communities;noquote@</p>
-
-
-<if @n_vals@ gt 500>
-  <include src="advanced-communities-chunk-large"  type=@type@ Users=@Users@ Communities=@Communities@ referer="@referer@">
-</if>
-<else>
-  <if @n_vals@ gt 50>
-    <include src="advanced-communities-chunk-medium" type=@type@ Users=@Users@ Communities=@Communities@ referer="@referer@">
-  </if>
-  <else>
-    <include src="advanced-communities-chunk-small"  type=@type@ Users=@Users@ Communities=@Communities@ referer="@referer@">
-  </else>
-</else>
+
+	<p>@control_bar_communities;noquote@</p>
+
+
+<if @n_vals@ gt 500>
+  <include src="advanced-communities-chunk-large"  type=@type@ Users=@Users@ Communities=@Communities@ referer="@referer@">
+</if>
+<else>
+  <if @n_vals@ gt 50>
+    <include src="advanced-communities-chunk-medium" type=@type@ Users=@Users@ Communities=@Communities@ referer="@referer@">
+  </if>
+  <else>
+    <include src="advanced-communities-chunk-small"  type=@type@ Users=@Users@ Communities=@Communities@ referer="@referer@">
+  </else>
+</else>
Index: openacs-4/packages/user-tracking/www/advanced-stats.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-stats.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-stats.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-stats.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -28,13 +28,13 @@
 	<if @Users@ eq "" and @Communities@ eq "">
 		#user-tracking.lt_No_stats#
 	</if> <else>
-		<if @Users@ eq "">
-			<a href="/user-tracking/lanza?config=class&onlylines=@Communities@"> #user-tracking.lt_View_Comm_Stats#</a>
+		<if @Users@ eq "">			
+			<a href="/user-tracking/advanced-card?onlylines=@Communities@">#user-tracking.lt_View_Comm_Stats#</a>
 		</if> <else>
-			<if @Communities@ eq "">
-				<a href="/user-tracking/lanza?config=user&onlyusers=@Users@">#user-tracking.lt_View_Users_Stats#</a>
-			</if><else>
-				<a href="/user-tracking/lanza?config=site&onlyusers=@Users@&onlylines=@Communities@"> #user-tracking.lt_View_Advanced_Stats#</a>
+			<if @Communities@ eq "">				
+				<a href="/user-tracking/advanced-card?onlyuser=@Users@">#user-tracking.lt_View_Users_Stats#</a>
+			</if><else>				
+				<a href="/user-tracking/advanced-card?onlylines=@Communities@&onlyuser=@Users@">#user-tracking.lt_View_Advanced_Stats#</a>
 			</else>
 		</else>
 	</else>
Index: openacs-4/packages/user-tracking/www/advanced-users-chunk-large.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-users-chunk-large.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-users-chunk-large.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-users-chunk-large.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,22 +1,22 @@
-
-<formtemplate id="user_search">
-  <formwidget id="type_request">
-  <formwidget id="type">
-  <formwidget id="referer">
-
-<table cellspacing="3" cellpadding="3">
-
-  <tr>
-    <th align="left">#dotlrn.Search_Text#</th>
-    <td><formwidget id="search_text"></td>
-    <td><input type="submit" value="#dotlrn.Search#"></td>
-  </tr>
-
-</table>
-
-</formtemplate>
-
-<include src="advanced-users-chunk" &Userslist="Userslist" Users=@Users@ Communities=@Communities@ referer=@referer@>
-
-
-
+
+<formtemplate id="user_search">
+  <formwidget id="type_request">
+  <formwidget id="type">
+  <formwidget id="referer">
+
+<table cellspacing="3" cellpadding="3">
+
+  <tr>
+    <th align="left">#dotlrn.Search_Text#</th>
+    <td><formwidget id="search_text"></td>
+    <td><input type="submit" value="#dotlrn.Search#"></td>
+  </tr>
+
+</table>
+
+</formtemplate>
+
+<include src="advanced-users-chunk" &Userslist="Userslist" Users=@Users@ Communities=@Communities@ referer=@referer@>
+
+
+
Index: openacs-4/packages/user-tracking/www/advanced-users-chunk-medium.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-users-chunk-medium.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-users-chunk-medium.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-users-chunk-medium.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,6 +1,6 @@
-
-<p>@control_bar;noquote@</p>
-
-<include src="advanced-users-chunk" &Userslist="Userslist" Users=@Users@ Communities=@Communities@ referer=@referer@>
-
-
+
+<p>@control_bar;noquote@</p>
+
+<include src="advanced-users-chunk" &Userslist="Userslist" Users=@Users@ Communities=@Communities@ referer=@referer@>
+
+
Index: openacs-4/packages/user-tracking/www/advanced-users-chunk-small.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-users-chunk-small.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-users-chunk-small.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-users-chunk-small.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,2 +1,2 @@
-
-<include src="advanced-users-chunk" &Userslist="Userslist" Users=@Users@ Communities=@Communities@ referer=@referer@>
+
+<include src="advanced-users-chunk" &Userslist="Userslist" Users=@Users@ Communities=@Communities@ referer=@referer@>
Index: openacs-4/packages/user-tracking/www/advanced-users-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-users-chunk.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-users-chunk.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-users-chunk.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,60 +1,60 @@
-<%
-	set admin_url [dotlrn::get_admin_url]
-%>
-
-<center>
-<table bgcolor="#cccccc" cellpadding="5" cellspacing="3" width="95%">
-  <tr>
-    <th align="left" width="50%">#dotlrn.User#</th>        
-    <th align="left">#user-tracking.lt_User_id#</th>
-    <th align="left">#dotlrn.Guest#</th>    
-    <th align="left">#user-tracking.lt_Add_a_user#</th>    
-  </tr>
-
-<if @Userslist:rowcount@ gt 0>
-<multiple name="Userslist">
-
-<if @Userslist.rownum@ odd>
-  <tr bgcolor="#eeeeee">
-</if>
-<else>
-  <tr bgcolor="#d9e4f9">
-</else>
-    <td align="left">
-      <a href="@admin_url@/user?user_id=@Userslist.user_id@">@Userslist.last_name@, @Userslist.first_names@</a> (<a href="mailto:@Userslist.email@">@Userslist.email@</a>)
-    </td>
-    <td align="center">@Userslist.user_id@</td>
-    <td align="center">
-     <if @Userslist.guest_p@ eq t>#dotlrn.Yes#</if><else>#dotlrn.No#</else>
-    </td>
-<td>
-    	<%
-    		set selected 0
-		set temp ""
-		set without_selected ""
-		set patron "(.*)(@Userslist.user_id@)(.*)"
-		if { [regexp $patron @Users@ all part1 part2 part3] == 1} {
-			set selected 1
-			append without_selected @part1@ @part3@
-		} else {
-			append temp @Users@ " " @Userslist.user_id@
-		}
-    	%>
-	<if @selected@ eq 1><a href="@referer@?Users=@without_selected@&Communities=@Communities@">#user-tracking.eliminate#</a></if>
-	<else>
-    		<a href="@referer@?Users=@temp@&Communities=@Communities@">#user-tracking.add#</a>
-	</else>
-    </td>
-  </tr>
-
-</multiple>
-</if>
-<else>
-  <tr bgcolor="#eeeeee">
-    <td align="left" colspan="4"><i>#dotlrn.No_Users#</i></td>
-  </tr>
-</else>
-
-</table>
-</center>
-
+<%
+	set admin_url [dotlrn::get_admin_url]
+%>
+
+<center>
+<table bgcolor="#cccccc" cellpadding="5" cellspacing="3" width="95%">
+  <tr>
+    <th align="left" width="50%">#dotlrn.User#</th>        
+    <th align="left">#user-tracking.lt_User_id#</th>
+    <th align="left">#dotlrn.Guest#</th>    
+    <th align="left">#user-tracking.lt_Add_a_user#</th>    
+  </tr>
+
+<if @Userslist:rowcount@ gt 0>
+<multiple name="Userslist">
+
+<if @Userslist.rownum@ odd>
+  <tr bgcolor="#eeeeee">
+</if>
+<else>
+  <tr bgcolor="#d9e4f9">
+</else>
+    <td align="left">
+      <a href="@admin_url@/user?user_id=@Userslist.user_id@">@Userslist.last_name@, @Userslist.first_names@</a> (<a href="mailto:@Userslist.email@">@Userslist.email@</a>)
+    </td>
+    <td align="center">@Userslist.user_id@</td>
+    <td align="center">
+     <if @Userslist.guest_p@ eq t>#dotlrn.Yes#</if><else>#dotlrn.No#</else>
+    </td>
+<td>
+    	<%
+    		set selected 0
+		set temp ""
+		set without_selected ""
+		set patron "(.*)(@Userslist.user_id@)(.*)"
+		if { [regexp $patron @Users@ all part1 part2 part3] == 1} {
+			set selected 1
+			append without_selected @part1@ @part3@
+		} else {
+			append temp @Users@ " " @Userslist.user_id@
+		}
+    	%>
+	<if @selected@ eq 1><a href="@referer@?Users=@without_selected@&Communities=@Communities@">#user-tracking.eliminate#</a></if>
+	<else>
+    		<a href="@referer@?Users=@temp@&Communities=@Communities@">#user-tracking.add#</a>
+	</else>
+    </td>
+  </tr>
+
+</multiple>
+</if>
+<else>
+  <tr bgcolor="#eeeeee">
+    <td align="left" colspan="4"><i>#dotlrn.No_Users#</i></td>
+  </tr>
+</else>
+
+</table>
+</center>
+
Index: openacs-4/packages/user-tracking/www/advanced-users-stats.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/advanced-users-stats.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/advanced-users-stats.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/advanced-users-stats.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,15 +1,15 @@
-
-<p></p>
-
-
-<if @n_vals@ gt 500>
-  <include src="advanced-users-chunk-large" Communities=@Communities@ Users=@Users@ referer="@referer@?Users=@Users@&Comunities=@Communities@">
-</if>
-<else>
-  <if @n_vals@ gt 50>
-    <include src="advanced-users-chunk-medium" Communities=@Communities@ Users=@Users@ referer="@referer@?Users=@Users@&Comunities=@Communities@">
-  </if>
-  <else>
-    <include src="advanced-users-chunk-small" Communities=@Communities@ Users=@Users@ referer="@referer@">
-  </else>
-</else>
+
+<p></p>
+
+
+<if @n_vals@ gt 500>
+  <include src="advanced-users-chunk-large" Communities=@Communities@ Users=@Users@ referer="@referer@?Users=@Users@&Comunities=@Communities@">
+</if>
+<else>
+  <if @n_vals@ gt 50>
+    <include src="advanced-users-chunk-medium" Communities=@Communities@ Users=@Users@ referer="@referer@?Users=@Users@&Comunities=@Communities@">
+  </if>
+  <else>
+    <include src="advanced-users-chunk-small" Communities=@Communities@ Users=@Users@ referer="@referer@">
+  </else>
+</else>
Index: openacs-4/packages/user-tracking/www/communities-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/communities-card-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/communities-card-postgresql.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/communities-card-postgresql.xql	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,8 +1,7 @@
 <?xml version="1.0"?>
 
 <queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
+ 
     <fullquery name="select_class_data">
         <querytext>
 	   select f.community_key as key,
@@ -68,127 +67,4 @@
 	</querytext>
     </fullquery>
 
-    <fullquery name="select_forums_count">
-        <querytext>
-    	    select count(distinct forums.forum_id)
-            	from forums_forums_enabled forums, dotlrn_communities com
-            	where com.community_id= :community_id
-	    	 	and apm_package__parent_id(forums.package_id) = com.package_id	    		
-        </querytext>
-    </fullquery>
-    
-    <fullquery name="select_faqs_count">
-        <querytext>
-    	    select count(distinct f.faq_id)
-                from faqs f, dotlrn_communities com, acs_objects o
-    	    	where com.community_id= :community_id
-    	    		and o.object_id=f.faq_id
-	    		and apm_package__parent_id(o.context_id) = com.package_id
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_news_count">
-        <querytext>
-            select count(n.item_id)
-            	from news_items_approved n, dotlrn_communities com
-            	where com.community_id= :community_id
-            		and apm_package__parent_id(n.package_id) = com.package_id
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_surveys_count">
-        <querytext>
-           select count(s.survey_id)
-            	from surveys s, dotlrn_communities com
-            	where com.community_id= :community_id
-            		and apm_package__parent_id(s.package_id) = com.package_id
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_clubs_count">
-        <querytext>
-            select count (*)                   
-		from dotlrn_communities h, dotlrn_clubs c
-		where h.parent_community_id is not null
-			or c.club_id = h.community_id
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_classes_count">
-        <querytext>
-            select count (*)                   
-		from dotlrn_classes, dotlrn_communities_full
-		where dotlrn_communities_full.community_type = dotlrn_classes.class_key
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_portrait_info">      
-        <querytext>
-            select cr_items.live_revision as revision_id,
-                   coalesce(cr_revisions.title, 'view this portrait') as portrait_title
-            from acs_rels,
-                 cr_items,
-                 cr_revisions
-            where acs_rels.object_id_two = cr_items.item_id
-            and cr_items.live_revision = cr_revisions.revision_id
-            and acs_rels.object_id_one = :user_id
-            and acs_rels.rel_type = 'user_portrait_rel'
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_member_classes">
-        <querytext>
-            select dotlrn_class_instances_full.*,
-                   dotlrn_member_rels_approved.rel_type,
-                   dotlrn_member_rels_approved.role,
-                   '' as role_pretty_name
-            from dotlrn_class_instances_full,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id
-            order by dotlrn_class_instances_full.department_name,
-                     dotlrn_class_instances_full.department_key,
-                     dotlrn_class_instances_full.pretty_name,
-                     dotlrn_class_instances_full.community_key
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_member_clubs">
-        <querytext>
-            select dotlrn_clubs_full.*,
-                   dotlrn_member_rels_approved.rel_type,
-                   dotlrn_member_rels_approved.role,
-                   '' as role_pretty_name
-            from dotlrn_clubs_full,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_clubs_full.club_id
-            order by dotlrn_clubs_full.pretty_name,
-                     dotlrn_clubs_full.community_key
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_member_subgroups">
-        <querytext>
-            select dotlrn_communities.*,
-                   dotlrn_community__url(dotlrn_communities.community_id) as url,
-                   dotlrn_member_rels_approved.rel_type,
-                   dotlrn_member_rels_approved.role,
-                   '' as role_pretty_name
-            from dotlrn_communities,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_communities.community_id
-            and dotlrn_communities.community_type = 'dotlrn_community'
-            order by dotlrn_communities.pretty_name,
-                     dotlrn_communities.community_key
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_package_exists">
-        <querytext>
-		select distinct package_key from apm_packages where package_key= :package_key
-	</querytext>
-    </fullquery>
-
 </queryset>
Index: openacs-4/packages/user-tracking/www/communities-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/communities-card.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/communities-card.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/communities-card.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,75 +1,256 @@
-
-<master>
-<property name="title">@page_title;noquote@</property>
-<property name="context">@context;noquote@</property>
-
-[<small>
-  <a href="site-card"><small>#user-tracking.lt_Site_Stats#</small></a>
-  |
-  <a href="communities-stats"><small>#user-tracking.lt_Communities_Stats#</small></a>
-  |
-  <a href="users-stats"><small>#user-tracking.lt_Users_Stats#</small></a>
-  |
-  <a href="advanced-stats"><small>#user-tracking.lt_Advanced_Stats_1#</small></a>
-</small>]
-
-<p></p>
-<p></p>
-
-<h3>#user-tracking.ut_Community_Stats#</h3>
-
-<ul>
-  <li> #user-tracking.ut_Name#</li>
-
-<if @type@ eq 2>
-  <li> #user-tracking.ut_Type_Course#</li>
-  <if @NofMembers@ gt 0>
-  	<li> #user-tracking.ut_Number_Of_Members#</li>
-  </if>
-  <if @NofUsers@ gt 0>
-  	<li> #user-tracking.ut_Number_Of_Students#</li>
-  </if>
-  <if @NofAdmin@ gt 0>
-	<li> #user-tracking.ut_Number_Of_Proffesors#</li>
-  </if>
-</if>
-
-<else> 
-  <li> #user-tracking.ut_Type_Club#</li>
-  <if @NofMembers@ gt 0>
-  	<li> #user-tracking.ut_Number_Of_Members#</li>
-  </if>
-  <if @NofUsers@ gt 0>
-  	<li> #user-tracking.ut_Number_Of_Users#</li>
-  </if>
-  <if @NofAdmin@ gt 0>
-	<li> #user-tracking.ut_Number_Of_Admins#</li>
-  </if>
-</else>
-
-  <if @NofSub@ gt 0>
-	  <li> #user-tracking.ut_Number_Of_Sub# </li>
-  </if>
-  <li> #user-tracking.ut_Creation_Date# </li>  
-  <if @NofForums@ gt 0>
-	  <li> #user-tracking.ut_Number_Of_Forums# <a href="forums-card?community_id=@id@">#user-tracking.ut_See_Forums#</a></li>
-  </if>
-  <if @NofFaqs@ gt 0>
-	  <li> #user-tracking.ut_Number_Of_FAQS# <a href="faq-card?community_id=@id@">#user-tracking.ut_See_FAQS#</a></li>
-  </if>
-  <if @NofNews@ gt 0>
-	  <li> #user-tracking.ut_Number_Of_News# <a href="news-card?community_id=@id@">#user-tracking.ut_See_News#</a></li>
-  </if>
-  <if @NofSurveys@ gt 0>
-	  <li> #user-tracking.ut_Number_Of_Surveys# <a href="survey-card?community_id=@id@">#user-tracking.ut_See_Surveys#</a></li>
-  </if>
-
-  <li> <a href="lanza?config=site&community_id=@id@&sitedomain=@name@">#user-tracking.ut_See_Community_Stats#</a> </li>
-  <% set temp [user-tracking::select_children_communities @id@] %>
-  <if @temp@ ne @id@>
-  	<li> <a href="lanza?config=site&community_id=@temp@&sitedomain=@name@">#user-tracking.ut_See_Subgroups_Com_Stats#</a> </li>
-  </if>
- </p>
-</ul>
-
-
+
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+[<small>
+ <a href="site-card"><small>#user-tracking.lt_Site_Stats#</small></a>
+ |
+ <a href="communities-stats"><small>#user-tracking.lt_Communities_Stats#</small></a>
+ |
+ <a href="users-stats"><small>#user-tracking.lt_Users_Stats#</small></a>
+ |
+ <a href="advanced-stats"><small>#user-tracking.lt_Advanced_Stats_1#</small></a>
+</small>]
+
+<p></p>
+<p></p>
+<h3>#user-tracking.lt_Communities_Stats#</h3>
+
+   <table border="0" width="100%">
+   <tr>
+      <td valign="top" width="50%">
+      <table class="element" border=0 cellpadding="0" cellspacing="0" width="100%">
+     <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr> 
+      <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+   	   <h3>#user-tracking.community_info#</h3>
+   	   <ul>
+	   	<li> #user-tracking.ut_Name#</li>
+	   	<li> #user-tracking.ut_Creation_Date# </li>  	   	
+	   	<if @type@ eq 2>
+	   	<li> #user-tracking.ut_Type_Course#</li>
+	   		<li> #user-tracking.ut_Number_Of_Members#</li>
+		   	<ul>
+		   	<li> #user-tracking.ut_Number_Of_Students#</li>
+	   		<li> #user-tracking.ut_Number_Of_Proffesors#</li>
+	   		</ul>
+	   	</if>
+	   	<else> 
+	   		<li> #user-tracking.ut_Type_Club#</li>
+		   	<li> #user-tracking.ut_Number_Of_Members#</li>
+		   	<ul>
+	   		<li> #user-tracking.ut_Number_Of_Users#</li>
+		   	<li> #user-tracking.ut_Number_Of_Admins#</li>
+		   	</ul>
+	   	</else>
+	   	<if @NofSub@ gt 0><li> #user-tracking.ut_Number_Of_Sub# </li></if>
+	   	<br>
+   		<if @last_visit@ not nil>
+   		<li> #dotlrn.Last_Visit#: @last_visit@ </li>
+   		</if>
+   		<br>
+    	   </ul>
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>
+  
+    <tr>
+      	<td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr>   
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+   	   <h3>#user-tracking.info_about_contributions#</h3>
+   		<include src="contributions-chunk2" community_id="@community_id@">
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>      
+      <tr>
+      <td colspan="3" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+
+      
+      </table>
+      <td valign="top" width="50%">
+<if @today@ gt @asked_date@>
+   <if @nodata_p@ eq "1">
+     <table class="element" border="0" cellpadding="0" cellspacing="0" width="100%">
+
+     <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr> 
+      <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+               <h3>#user-tracking.lt_month_over_which_statistics_are_seen#</h3>
+               <center>
+               <br>
+               <form name="mia" action="communities-card" method="post">
+               @datebox;noquote@
+               @hidden;noquote@
+               <input type="submit" value="#user-tracking.see#"/>
+               </form>
+                <if @nodata_p@ eq 1>
+   		<if @noloading@ eq 1>
+		<table cellspacing="0" cellpadding="0" class="element-content" width="90%">   		
+   		<tr><td><listtemplate name="summary"></listtemplate></td></tr>
+   		</table>
+   		<br>
+   		</if>  
+   		</if>   
+               <form name="otro" action="loading2" method="post">
+               @hidden2;noquote@
+               <input type="submit" value="#user-tracking.update_data#"/>
+               </form>  
+               </center>
+                	   
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>
+
+   	<tr><td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.temporary_reports#</h3>
+      		   <if @noloading@ eq 1>
+   	   	   	<include src="visits-chunk" DataFileName="@DataFileName@" community_id="@community_id@" user_id="">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>
+
+   	<tr>
+   	   <td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+      	</tr> 
+   	<tr><td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.info_about_petitions#</h3>
+      		   <if @noloading@ eq 1>
+   	   	   	<include src="petitions-chunk" DataFileName="@DataFileName@" community_id="@community_id@" user_id="">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>	
+   	<tr>
+   	   <td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+      	</tr> 
+   	<tr><td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.info_about_consulted_material#</h3>
+      		   <if @noloading@ eq 1>   		   
+   	   	   	<include src="visited-material-chunk" DataFileName="@DataFileName@" community_id="@community_id@" user_id="">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>	
+   	<tr>
+   	<td colspan="3" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif"></td>
+   	</tr>
+   	   </if>
+   <else>
+      <include src="loading" url="communities-card?community_id=@community_id@&" onlylines="@community_id@" onlyuser="" config="@config@" type="@type@" year="@year@" month="@month@">
+   </else>
+</if>
+<else>
+    <table class="element" border="0" cellpadding="0" cellspacing="0" width="100%">
+    <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+    </tr> 
+    <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+    </tr>
+    <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+               <h3>#user-tracking.lt_month_over_which_statistics_are_seen#</h3>
+               <center>
+               <br>
+               <form name="mia" action="communities-card" method="post">
+               @datebox;noquote@
+               @hidden;noquote@
+               <input type="submit" value="#user-tracking.see#"/>	
+               </form>
+               </center>
+	       <font color=red>#user-tracking.future_date#</font>
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+    </tr>
+    </table>
+</else>
+</table>
+</table>	
+
+                                                                                                                                                                                                                                                                                     
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/communities-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/communities-card.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/communities-card.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/communities-card.tcl	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,38 +1,68 @@
 
 ad_page_contract {
-    @author yon (yon@openforce.net)
-    @creation-date 2002-01-30
-    @version $Id$
+    @author doa (doa@tid.es)
+    @author sergiog (sergiog@tid.es)
+    @creation-date 2005-03-01
 } -query { 
-    {community_id ""}
-    {type ""}
-    {NofSub ""}
-    {NofMembers ""}
-    {NofUsers ""}
-    {NofAdmin ""}
-    {NofForums ""}
-    {NofFaqs ""}
-    {NofNews ""}
-    {NofSurveys ""}
-    {name ""}
-    {creation_date ""}
-    {id ""}
-    
-} -properties {
-    type:onevalue
+    {type "general"}
+    {onlyuser ""}
+    {onlylines ""}    
+    {config "site"}
+    {nodata_p "0"}
+    {noloading "1"}
+    {pretype ""}
+    {month ""}
+    {year ""}
+    {mydate:array ""}
+    {community_id}
+} -properties {    
+    TotalUnique:onevalue
+    TotalPages:onevalue
+    TotalAsked:onevalue
+    NofMembers:onevalue
+    NofUsers:onevalue
+    LastVisit:onevalue
+    LastRegistration:onevalue
+    TotalVisits:onevalue
+    DataFileName:onevalue
+    FirstTime:onevalue
+    LastTime:onevalue
+    LastUp:onevalue
+    config:onevalue
+    pretype:onevalue   
+    datebox:onevalue
+    mydate:onevalue
+    today:onevalue
+    asked_day:onevalue
+    community_id:onevalue
+    hidden:onevalue
+    hidden2:onevalue
     NofSub:onevalue
     NofMembers:onevalue
     NofUsers:onevalue
-    NofAdmin:onevalue
-    NofForums:onevalue
-    NofFaqs:onevalue
-    NofNews:onevalue
-    NofSurveys:onevalue
-    name:onevalue
-    creation_date:onevalue
-    id:onevalue
+    NofAdmin:onevalue    
+
 }
 
+if {[exists_and_not_null year] & [exists_and_not_null month]} {
+	set datebox [dt_widget_datetime -default "$year-$month-01" mydate "months"]
+} elseif {[exists_and_not_null mydate(year)] & [exists_and_not_null mydate(month)]} {
+	set datebox [dt_widget_datetime -default "$mydate(year)-$mydate(month)-01" mydate "months"]
+	set year $mydate(year)
+	set month $mydate(month)
+} else {
+set datebox [dt_widget_datetime -default now mydate "months"]
+	set year [template::util::date::get_property year [template::util::date::today]]
+	set month [template::util::date::get_property month [template::util::date::today]]
+}
+
+set fmt "%Y-%m-%d"
+set today [clock seconds]
+set asked_date [clock scan "$year-$month-1"]
+
+
+# -----------------------------------------------
+
 if {![exists_and_not_null referer]} {
     set referer "[user-tracking::get_package_url]/communities-stats"
 }
@@ -46,8 +76,7 @@
 ad_require_permission $community_id "admin"
 
 
-#Hay que modificar el titulo de la pagina
-set page_title [_ user-tracking.User_Stats]
+set page_title [_ user-tracking.lt_Communities_Stats]
 set context [list $page_title]
 
 #Each kind of community is a number: Club 1, Class 2, other 3
@@ -77,26 +106,167 @@
 
 set rels $rol_admin_list
 set NofAdmin [db_string select_members_count_by_type {} ]
+# -------------------------------------------
 
-set package_key "forums"
-if {[db_0or1row select_package_exists {}]} {
-	set NofForums [db_string select_forums_count {} ]
-}
+set DataFileName [user-tracking::get_data_file_name $community_id "" $config $year $month]
+set hidden [export_vars -form {community_id}]
+set hidden2 [export_vars -form { {config} {url "communities-card"} {onlylines $community_id} }]
 
-set package_key "faq"
-if {[db_0or1row select_package_exists {}]} {
-	set NofFaqs [db_string select_faqs_count {} ]
-}
+if {$asked_date <= $today } {
 
-set package_key "news"
-if {[db_0or1row select_package_exists {}]} {
-	set NofNews [db_string select_news_count {} ]
+   set nodata_p 0
+   
+   if {[file exists $DataFileName]} {
+      
+      set nodata_p 1
+      set dataFile [open "$DataFileName" r]
+      
+      #Getting map
+      set linea [gets $dataFile]
+      set fin [eof $dataFile]
+      set patron "(BEGIN_MAP) (.*)"
+      while { $fin == 0} {
+      	set linea [gets $dataFile]
+      	set fin [eof $dataFile]
+      	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+      		set fin 1
+      	}
+      }
+      
+      set fin 0
+      set patron "^(\[A-Z\\_0-9\]*) (.*)"
+      while { $fin == 0} {
+      	set linea [gets $dataFile]
+      	set fin [eof $dataFile]
+      	if { [regexp $patron $linea todo part1 part2] ==1 } {
+      		set Map($part1) $part2 
+      	}
+      	if { $linea == "END_MAP"} {
+      		set fin 1
+      	}
+      }
+      
+      #Getting data in general section
+      
+      set pos $Map(POS_GENERAL)
+      seek $dataFile $pos
+      set linea [gets $dataFile]
+      set patron "(BEGIN_GENERAL) (.*)"
+      while { ![regexp $patron $linea todo part1 part2] } {	
+      	set linea [gets $dataFile]	
+      	if {[eof $dataFile]} {
+      		set part2 0
+      		break;
+      	}
+      }
+      set i $part2
+      
+      while { $i > 0} {	
+      	set linea [gets $dataFile]
+      	set campos [split $linea]
+      	switch [lindex $campos 0] {
+      		FirstTime { 
+      			set FirstTime [user-tracking::converts_date [lindex $campos 1]]
+      			}
+      		LastTime { 
+      			set LastTime [user-tracking::converts_date [lindex $campos 1]]
+      			}
+      		LastUpdate { 
+      			set LastUp [user-tracking::converts_date [lindex $campos 1]]
+      			}
+      		TotalVisits { 
+      			set TotalVisits [lindex $campos 1]
+      			}
+      		TotalUnique { 
+      			set TotalUnique [lindex $campos 1]
+      			}
+      		default {}
+      	}
+      	set i [expr $i - 1]
+      	if {[eof $dataFile]} { #Wrong file?
+      		break;
+      	}
+      }
+      
+      #Getting number of visited pages
+      
+      set pos $Map(POS_DAY)
+      seek $dataFile $pos
+      set linea [gets $dataFile]
+      set patron "(BEGIN_DAY) (.*)"
+      while { ![regexp $patron $linea todo part1 part2] } {	
+      	set linea [gets $dataFile]	
+      	if {[eof $dataFile]} {
+      		set part2 0
+      		break;
+      	}
+      }
+      
+      set i $part2
+      
+      set TotalPages 0
+      set TotalAsked 0
+      
+      while { $i > 0} {	
+      	set linea [gets $dataFile]
+      	set campos [split $linea]
+      	set TotalPages [expr $TotalPages+ [lindex $campos 1]]
+      	set TotalAsked [expr $TotalAsked+ [lindex $campos 2]]
+      	set i [expr $i - 1]
+      	if {[eof $dataFile]} { #wrong file?
+      		break;
+      	}
+      }
+      
+      close $dataFile
+      
+      template::multirow create summary from to nvisitors nsessions npages nhits
+      multirow append summary $FirstTime $LastTime $TotalUnique $TotalVisits $TotalPages $TotalAsked
+      set medSes [expr $TotalVisits/$TotalUnique]
+      template::list::create \
+          -name summary \
+          -multirow summary \
+          -elements {
+              from {
+                  label "#user-tracking.Data_from#"
+                  display_col from
+                  html {align center}
+              }
+              to {
+                  label "#user-tracking.Data_to#"
+                  display_col to
+                   html {align center}
+             }
+              nvisitors {
+                  label "#user-tracking.Number_of_visitors#"
+                  display_col nvisitors
+                  html {align center}
+      	}        
+              nsessions {
+                  label "#user-tracking.Number_of_sessions#"
+      	    display_template {
+      	    	<center>@summary.nsessions@ <BR> <small>($medSes #user-tracking.visits_by_user#)</small></center>
+      	    } 
+              }
+              npages {
+                  label "#user-tracking.Visited_Pages#"
+      	    display_col npages        
+                  html {align center}
+      	}
+              nhits {
+                  label "#user-tracking.Hits#"
+                  display_col nhits
+                  html {align center}
+             }
+          
+           } \
+           -html { align center }
+         
+   } else {
+     if {$noloading eq 0} {
+      	set nodata_p 1
+     }
 }
-
-set package_key "survey"
-if {[db_0or1row select_package_exists {}]} {
-	set NofSurveys [db_string select_surveys_count {} ]
 }
-
 ad_return_template
 
Index: openacs-4/packages/user-tracking/www/communities-chunk-large.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/communities-chunk-large.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/communities-chunk-large.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/communities-chunk-large.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,21 +1,21 @@
-
-<formtemplate id="community_search">
-  <formwidget id="type">
-  <formwidget id="referer">
-
-<table cellspacing="3" cellpadding="3">
-
-  <tr>
-    <th align="left">#dotlrn.Search_Text#</th>
-    <td><formwidget id="search_text"></td>
-    <td><input type="submit" value="#dotlrn.Search#"></td>
-  </tr>
-
-</table>
-
-</formtemplate>
-
-<include src="communities-chunk" type=@type@ &communities="communities" referer=@referer@>
-
-
-
+
+<formtemplate id="community_search">
+  <formwidget id="type">
+  <formwidget id="referer">
+
+<table cellspacing="3" cellpadding="3">
+
+  <tr>
+    <th align="left">#dotlrn.Search_Text#</th>
+    <td><formwidget id="search_text"></td>
+    <td><input type="submit" value="#dotlrn.Search#"></td>
+  </tr>
+
+</table>
+
+</formtemplate>
+
+<include src="communities-chunk" type=@type@ &communities="communities" referer=@referer@>
+
+
+
Index: openacs-4/packages/user-tracking/www/communities-chunk-medium.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/communities-chunk-medium.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/communities-chunk-medium.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/communities-chunk-medium.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,6 +1,6 @@
-
-<p>@control_bar;noquote@</p>
-
-<include src="communities-chunk" type=@type@ &communities="communities" referer=@referer@>
-
-
+
+<p>@control_bar;noquote@</p>
+
+<include src="communities-chunk" type=@type@ &communities="communities" referer=@referer@>
+
+
Index: openacs-4/packages/user-tracking/www/communities-chunk-small.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/communities-chunk-small.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/communities-chunk-small.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/communities-chunk-small.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,2 +1,2 @@
-
-<include src="communities-chunk" type=@type@ &communities="communities" referer=@referer@>
+
+<include src="communities-chunk" type=@type@ &communities="communities" referer=@referer@>
Index: openacs-4/packages/user-tracking/www/communities-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/communities-chunk.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/communities-chunk.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/communities-chunk.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,40 +1,40 @@
-
-
-<center>
-<table bgcolor="#cccccc" cellpadding="5" cellspacing="3" width="95%">
-  <tr>
-    <th align="left" width="50%">#dotlrn.Community#</th>        
-    <th align="left">#user-tracking.lt_View_Stats#</th>
-  </tr>
-
-<if @communities:rowcount@ gt 0>
-   <multiple name="communities">
-
-   	<if @communities.rownum@ odd>
-	  <tr bgcolor="#eeeeee">
-	</if>
-	<else>
-	  <tr bgcolor="#d9e4f9">
-	</else>
-	    <td align="left">    
-	       @communities.pretty_name@ ( @communities.community_id@ )
-	    </td>
-	    <td>
-	    	<a href="communities-card?community_id=@communities.community_id@">#user-tracking.Stats#</a>
-	    </td>
-	  </tr>
-    </multiple>
-</if>
-<else>
-  <tr bgcolor="#eeeeee">
-    <td align="left" colspan="2"><i>#dotlrn.No_Communities#</i></td>
-  </tr>
-</else>
-
-</table>
-</center>
-
-
-
-
-
+
+
+<center>
+<table bgcolor="#cccccc" cellpadding="5" cellspacing="3" width="95%">
+  <tr>
+    <th align="left" width="50%">#dotlrn.Community#</th>        
+    <th align="left">#user-tracking.lt_View_Stats#</th>
+  </tr>
+
+<if @communities:rowcount@ gt 0>
+   <multiple name="communities">
+
+   	<if @communities.rownum@ odd>
+	  <tr bgcolor="#eeeeee">
+	</if>
+	<else>
+	  <tr bgcolor="#d9e4f9">
+	</else>
+	    <td align="left">    
+	       @communities.pretty_name@ ( @communities.community_id@ )
+	    </td>
+	    <td>
+	    	<a href="communities-card?community_id=@communities.community_id@">#user-tracking.Stats#</a>
+	    </td>
+	  </tr>
+    </multiple>
+</if>
+<else>
+  <tr bgcolor="#eeeeee">
+    <td align="left" colspan="2"><i>#dotlrn.No_Communities#</i></td>
+  </tr>
+</else>
+
+</table>
+</center>
+
+
+
+
+
Index: openacs-4/packages/user-tracking/www/communities-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/communities-postgresql.xql,v
diff -u -N
--- openacs-4/packages/user-tracking/www/communities-postgresql.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,31 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-    <fullquery name="select_communities">
-        <querytext>
-            select dotlrn_communities_all.*,
-                   dotlrn_community__url(dotlrn_communities_all.community_id) as url,
-                   (CASE
-                      WHEN
-                         dotlrn_communities_all.community_type = 'dotlrn_community'
-                      THEN 'dotlrn_community'
-                      WHEN dotlrn_communities_all.community_type = 'dotlrn_club'
-                      THEN 'dotlrn_club'
-                      ELSE 'dotlrn_class_instance'
-                   END) as simple_community_type,
-                   tree_level(dotlrn_communities_all.tree_sortkey) as tree_level,
-                   coalesce((select tree_level(dotlrn_community_types.tree_sortkey)
-                        from dotlrn_community_types
-                        where dotlrn_community_types.community_type = dotlrn_communities_all.community_type), 0) as community_type_level,
-                   acs_permission__permission_p(dotlrn_communities_all.community_id, :user_id, 'admin') as admin_p
-            from dotlrn_communities_all,
-                 dotlrn_member_rels_approved
-            where dotlrn_communities_all.community_id = dotlrn_member_rels_approved.community_id
-            and dotlrn_member_rels_approved.user_id = :user_id
-            order by dotlrn_communities_all.tree_sortkey
-        </querytext>
-    </fullquery>
-
-</queryset>
Index: openacs-4/packages/user-tracking/www/communities.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/communities.adp,v
diff -u -N
--- openacs-4/packages/user-tracking/www/communities.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,69 +0,0 @@
-
-<master>
-<property name="context"></property>
-<property name="title">User Tracking</property>
-
-
-<if @communities:rowcount@ gt 0>
-
-<multiple name="communities">
-
-<%
-    set old_level 0
-    set new_level 0
-    set depth 0
-%>
-
-<group column="simple_community_type">
-
-<% set new_level $communities(tree_level) %>
-
-  <if @new_level@ lt @old_level@>
-    <% incr depth -1 %>
-    </ul>
-	<if @new_level@ eq 1 and @depth@ gt 1>
-	<% while {$depth > 1} {	
-		append close_tags "</ul>" 
-		incr depth -1 
-	} 
-	%>
-	@close_tags@
-        </if>
-     </if>
-
-  <if @new_level@ gt @old_level@>
-<% incr depth 1 %>
-    <ul>
-	<nobr>
-  </if>
-
-      <li>
-        <nobr>
-          <a href="@communities.url@">@communities.pretty_name@</a>
-	<if @communities.archived_p@><font color=red>Archived</font></if>
-	<if @show_buttons_p@ eq 1>
-		&nbsp; <small> 
-                        <a href="@communities.url@deregister?referer=@referer@">#dotlrn.drop_membership_link#</a>
-                      </small>
-		<if @communities.admin_p@ eq 1>
-                  &nbsp; <small>
-                           <a href="@communities.url@one-community-admin">#dotlrn.administer_link#</a>
-                         </small>
-		</if>
-	</if>
-        </nobr>
-      </li>
-
-<% set old_level $new_level %>
-
-</group>
-
-<%
-    for {set i $depth} {$i > 0} {incr i -1} {
-        template::adp_puts "</ul>\n"
-    }
-%>
-
-</multiple>
-
-</if>
Index: openacs-4/packages/user-tracking/www/communities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/communities.tcl,v
diff -u -N
--- openacs-4/packages/user-tracking/www/communities.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,35 +0,0 @@
-
-ad_page_contract {
-    The display logic for the dotlrn main (Groups) portlet
-
-    @author Arjun Sanyal (arjun@openforce.net)
-    @version $Id: communities.tcl,v 1.1 2005/03/01 17:35:37 rocaelh Exp $
-} {
-} -properties {
-    title:onevalue
-    context:onevalue 
-}
-
-set context {}
-set title {}
-if {![exists_and_not_null show_buttons_p]} {
-    set show_buttons_p 0
-}
-
-set user_id [ad_conn user_id]
-set user_can_browse_p [dotlrn::user_can_browse_p -user_id $user_id]
-
-set comm_type ""
-ns_log notice "hola"
-db_multirow communities select_communities {} {
-    set tree_level [expr $tree_level - $community_type_level]
-    if {![string equal $simple_community_type dotlrn_community]} {
-        set comm_type $simple_community_type
-    } else {
-        set simple_community_type $comm_type
-    }
-}
-
-set dotlrn_url [dotlrn::get_url]
-
-ad_return_template
Index: openacs-4/packages/user-tracking/www/contributions-chunk2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-chunk2-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-chunk2-postgresql.xql	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1,238 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_user_info">      
+        <querytext>
+            select first_names,
+                   last_name,
+                   email,
+                   to_char(creation_date, 'YYYY-MM-DD HH24:MI:SS') as registration_date,
+                   to_char(last_visit, 'YYYY-MM-DD HH24:MI:SS') as last_visit
+            from cc_users
+            where user_id = :oneUser
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_com_data">
+        <querytext>
+	   select f.community_key as key,
+			f.community_id as id,
+			f.pretty_name as pretty_name,
+			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		from dotlrn_communities_full f, acs_objects o
+		where f.community_id= :oneCom
+		      and o.object_id= f.community_id
+        </querytext>
+    </fullquery>
+    
+    
+	<fullquery name="select_advanced_faq_count">
+        	<querytext>    
+        	select count(distinct ans.entry_id)
+                from faq_q_and_as ans, faqs f, dotlrn_communities com, acs_objects o
+    	    	where o.object_id = f.faq_id
+                    and ans.faq_id=f.faq_id    	    		
+                    and o.creation_user= :oneUser
+	    	    and com.community_id= :oneCom
+    		    and apm_package__parent_id(o.context_id) = com.package_id
+        	</querytext>
+    	</fullquery>
+
+     <fullquery name="select_advanced_total_messages_post">
+        <querytext>   
+    	    select count (distinct forums_messages.message_id)	
+            from forums_forums_enabled ff,
+            	acs_objects o, forums_messages fm, dotlrn_communities com
+            where o.object_id = fm.message_id
+            	and fm.forum_id=ff.forum_id
+            	and apm_package__parent_id(ff.package_id) = com.package_id
+            	and com.community_id= :oneCom
+            	and o.creation_user = :oneUser
+         </querytext>
+    </fullquery> 
+ 
+    <fullquery name="select_advanced_total_posts_by_type">
+        <querytext>
+	select count(*) from acs_objects a, acs_objects b
+        	where b.object_id = :oneCom
+	        and a.tree_sortkey between b.tree_sortkey
+        	and tree_right(b.tree_sortkey)
+	        and a.creation_user = :oneUser 
+	        and a.object_type = :object_type;
+        </querytext>
+    </fullquery>
+    
+    <fullquery name="select_advanced_forums_count">
+        <querytext>
+                select count(distinct forums.forum_id)
+            	from forums_forums_enabled forums, dotlrn_communities com,
+            	acs_objects o
+            	where com.community_id= :oneCom
+	    	 	and apm_package__parent_id(forums.package_id) = com.package_id
+	    	 	and forums.forum_id = o.object_id and
+	    	 	o.creation_user = :oneUser    
+        </querytext>
+    </fullquery>
+    
+
+
+    <fullquery name="select_advanced_surveys_count">
+        <querytext>
+           select count(s.survey_id)
+            	from surveys s, dotlrn_communities com, acs_objects o
+            	where com.community_id=:oneCom
+            		and apm_package__parent_id(s.package_id) = com.package_id
+            		and o.object_id=s.survey_id
+            		and o.creation_user = :oneUser
+        </querytext>
+    </fullquery>      
+        
+     <fullquery name="select_advanced_news_count">
+        <querytext>
+            select count(n.item_id)
+            	from news_items_approved n, dotlrn_communities com
+            	where com.community_id= :oneCom
+            	and apm_package__parent_id(n.package_id) = com.package_id
+            	and n.creation_user= :oneUser
+        </querytext>
+    </fullquery>   
+     
+ 
+ 
+    <fullquery name="select_forums_count">
+        <querytext>
+    	    select count(distinct forums.forum_id)
+            	from forums_forums_enabled forums   		
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_faq_count">
+        <querytext>
+    	    select count(distinct f.faq_id)
+                from faqs f
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_news_count">
+        <querytext>
+            select count(distinct n.item_id)
+            	from news_items_approved n
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_surveys_count">
+        <querytext>
+           select count(distinct s.survey_id)
+            	from surveys s
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_package_exists">
+        <querytext>
+		select distinct package_key from apm_packages where package_key= :package_key
+	</querytext>
+    </fullquery>
+ 
+    <fullquery name="select_total_posts_by_type">
+        <querytext>
+            select count(*)
+            from acs_objects  
+            where object_type= :object_type
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_user_total_posts_by_type">
+        <querytext>
+            select count(*)
+            from acs_objects  
+            where creation_user = :oneUser 
+            	and object_type= :object_type
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_user_faq_count">
+        <querytext>
+    		select count(ans.question)
+    		       from faq_q_and_as ans, faqs f, acs_objects o
+    		       where o.object_id=ans.entry_id
+    		             and ans.faq_id=f.faq_id
+    		             and o.creation_user= :oneUser
+        </querytext>
+    </fullquery>
+    <fullquery name="select_user_news_count">
+        <querytext>
+            select count(news_items_approved.publish_title)
+            from news_items_approved
+            where news_items_approved.creation_user= :oneUser
+         </querytext>
+    </fullquery>
+
+    <fullquery name="select_community_forums_count">
+        <querytext>
+    	    select count(distinct forums.forum_id)
+            	from forums_forums_enabled forums, dotlrn_communities com
+            	where com.community_id= :oneCom
+	    	 	and apm_package__parent_id(forums.package_id) = com.package_id	    		
+        </querytext>
+    </fullquery>
+    
+
+    <fullquery name="select_community_total_messages_post">
+        <querytext>
+    	    select count (distinct forums_messages.message_id)	
+            from forums_forums_enabled,
+            	acs_objects, forums_messages, dotlrn_communities com
+            where acs_objects.object_id = forums_messages.message_id
+            	and forums_messages.forum_id=forums_forums.forum_id
+            	and apm_package__parent_id(forums_forums.package_id) = com.package_id
+            	and com.community_id= :oneCom
+         </querytext>
+    </fullquery>
+    
+   
+    <fullquery name="select_community_faq_count">
+        <querytext>
+    	    select count(distinct f.faq_id)
+                from faqs f, dotlrn_communities com, acs_objects o
+    	    	where com.community_id= :oneCom
+    	    		and o.object_id=f.faq_id
+	    		and apm_package__parent_id(o.context_id) = com.package_id
+        </querytext>
+    </fullquery>
+
+
+
+    <fullquery name="select_community_news_count">
+        <querytext>
+            select count(n.item_id)
+            	from news_items_approved n, dotlrn_communities com
+            	where com.community_id= :oneCom
+            		and apm_package__parent_id(n.package_id) = com.package_id
+        </querytext>
+    </fullquery>
+    
+
+    
+    <fullquery name="select_community_surveys_count">
+        <querytext>
+           select count(s.survey_id)
+            	from surveys s, dotlrn_communities com
+            	where com.community_id= :oneCom
+            		and apm_package__parent_id(s.package_id) = com.package_id
+        </querytext>
+    </fullquery>  
+
+    
+    <fullquery name="select_community_total_posts_by_type">
+        <querytext>
+	select count(*) from acs_objects a, acs_objects b
+        	where b.object_id = :oneCom
+	        and a.tree_sortkey between b.tree_sortkey
+        	and tree_right(b.tree_sortkey)
+	        and a.object_type = :object_type;
+         </querytext>
+    </fullquery>   
+
+
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/contributions-chunk2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-chunk2.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-chunk2.adp	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1,17 @@
+<if @total_posted@ gt 0>
+<ul>
+	
+	  	<li> #user-tracking.ut_Number_Of_Forums#
+	  	<if @NofForums@ gt 0><a href="contributions-cards/forums-card@link@">#user-tracking.Ver_Forosut_See_Forums#</a></if></li>
+	  	<li> #user-tracking.ut_Number_Of_FAQS#
+	  	<if @NofFaqs@ gt 0><a href="contributions-cards/faq-card@link@">#user-tracking.ut_See_FAQS#</a></if></li>
+		<li> #user-tracking.ut_Number_Of_News#
+		<if @NofNews@ gt 0><a href="contributions-cards/news-card@link@">#user-tracking.ut_See_News#</a></if></li>
+		<li> #user-tracking.ut_Number_Of_Surveys#
+		<if @NofSurveys@ gt 0><a href="contributions-cards/survey-card@link@">#user-tracking.Ver_Surveys#</a></if></li>
+		<li>  #user-tracking.ut_Number_Of_Mesagges# @NofMessages@
+		<if @NofMessages@ gt 0><a href="contributions-cards/messages-card@link@">#user-tracking.ut_See_Messages#</a></if></li>
+		<li>  #user-tracking.ut_ut_Forum_files# @NofFiles@
+		<if @NofFiles@ gt 0><a href="contributions-cards/files-card@link@">#user-tracking.ut_See_Files#</a></if></li>	  
+</ul>
+</if><else><br>#user-tracking.No_contributions#</else>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/contributions-chunk2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-chunk2.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-chunk2.tcl	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1,259 @@
+ad_page_contract {
+    @author doa (doa@tid.es)
+    @author sergiog (sergiog@tid.es)
+    @creation-date 2005-03-09
+} -query { 
+
+} -properties {    
+    NofForums:onevalue
+    NofFaqs:onevalue
+    NofNews:onevalue
+    NofSurveys:onevalue
+    NofMessages:onevalue
+    NofFiles:onevalue    
+    link:onevalue
+}
+
+
+# First of all, we have to delete all blank spaces
+if {[exists_and_not_null user_id]} {
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+} else { 
+set user_id ""
+}
+if {[exists_and_not_null community_id]} {
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+} else {
+set community_id ""
+}
+
+
+set total_posted 0
+set NofFaqs 0
+set NofNews 0
+set NofSurveys 0
+set NofMessages 0
+set NofFiles 0
+set NofForums 0
+
+
+#Creamos 4 multirows:
+# * Users: con los datos de los usuarios seleccionados
+# * Communities: con los datos de las comunidades seleccionadas
+# * UsersPosts: con los datos de los usuarios dentro de las comunidades seleccionadas
+# * CommunitiesData: con los datos de las comunidades, por si no hay usuarios seleccionados
+
+template::multirow create Users ID Name Mail RegistrationDate LastVisit
+template::multirow create Communities ID Name CreationDate Key
+template::multirow create UsersPosts ID Name CreationDate Key
+template::multirow create CommunitiesData ID Name CreationDate Key
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		#Advanced-card
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+
+			}
+		}	
+		set link "?community_id=$community_id&user_id=$user_id"
+		
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				foreach oneCom $ComsList {
+					set package_key "forums"
+					if {[db_0or1row select_package_exists {}]} {
+						set NofForums [expr $NofForums+[db_string select_advanced_forums_count {} ]]
+					}
+					set package_key "faq"
+					if {[db_0or1row select_package_exists {}]} {
+						set NofFaqs [expr $NofFaqs+[db_string select_advanced_faq_count {} ]]
+					}
+					set package_key "news"
+					if {[db_0or1row select_package_exists {}]} {
+						set NofNews [expr $NofNews+[db_string select_advanced_news_count {} ]]
+					}
+					set package_key "survey"
+					if {[db_0or1row select_package_exists {}]} {
+						set object_type "survey_response"
+						set NofSurveys [expr $NofSurveys+[db_string select_advanced_surveys_count {}]]
+					}
+	
+					set package_key "forums"
+					if {[db_0or1row select_package_exists {}]} {
+						set object_type "forums_message"
+						set NofMessages [expr $NofMessages+[db_string select_advanced_total_messages_post {} ]]
+					}
+	
+					set package_key "file-storage"
+					if {[db_0or1row select_package_exists {}]} {
+						set object_type "file_storage_object"
+						set NofFiles [expr $NofFiles+[db_string select_advanced_total_posts_by_type {} ]]
+					}
+				}
+			}
+		}
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+			}
+		}		
+	} else {
+		#Users-card
+		set link "?user_id=$user_id"
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				set package_key "forums"
+				if {[db_0or1row select_package_exists {}]} {
+					set object_type "forums_forum"
+					set NofForums [expr $NofForums+[db_string select_user_total_posts_by_type {} ]]
+				}
+				set package_key "faq"
+				if {[db_0or1row select_package_exists {}]} {
+					set NofFaqs [expr $NofFaqs+[db_string select_user_faq_count {} ]]
+				}
+				set package_key "news"
+				if {[db_0or1row select_package_exists {}]} {
+					set NofNews [expr $NofNews+[db_string select_user_news_count {} ]]
+				}
+				set package_key "survey"
+				if {[db_0or1row select_package_exists {}]} {
+					set object_type "survey_response"
+					set NofSurveys [expr $NofSurveys+[db_string select_user_total_posts_by_type {} ]]
+				}
+				set package_key "forums"
+				if {[db_0or1row select_package_exists {}]} {
+					set object_type "forums_message"
+					set NofMessages [expr $NofMessages+[db_string select_user_total_posts_by_type {} ]]
+				}
+				set package_key "file-storage"
+				if {[db_0or1row select_package_exists {}]} {
+					set object_type "file_storage_object"
+					set NofFiles [expr $NofFiles+[db_string select_user_total_posts_by_type {} ]]
+				}
+			}
+		}
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		#communities-card
+		set link "?community_id=$community_id"
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key			
+				set package_key "faq"
+				if {[db_0or1row select_package_exists {}]} {
+					set NofFaqs [expr $NofFaqs+[db_string select_community_faq_count {} ]]
+				}
+				set package_key "news"
+				if {[db_0or1row select_package_exists {}]} {
+					set NofNews [expr $NofNews+[db_string select_community_news_count {} ]]
+				}
+				set package_key "survey"
+				if {[db_0or1row select_package_exists {}]} {
+					set NofSurveys [expr $NofSurveys+[db_string select_community_surveys_count {} ]]
+				}
+				set package_key "forums"
+				if {[db_0or1row select_package_exists {}]} {
+					set NofMessages [expr $NofMessages+[db_string select_community_total_messages_post {} ]]
+				}
+			}
+		}
+	} else {
+		#Site-card
+		set link ""
+		ad_require_permission [ad_conn package_id] "admin"
+		set package_key "forums"
+		if {[db_0or1row select_package_exists {}]} {
+			set NofForums [expr $NofForums+[db_string select_forums_count {} ]]
+		}
+		set package_key "faq"
+		if {[db_0or1row select_package_exists {}]} {
+			set NofFaqs [expr $NofFaqs+[db_string select_faq_count {} ]]
+		}
+		set package_key "news"
+		if {[db_0or1row select_package_exists {}]} {
+			set NofNews [expr $NofNews+[db_string select_news_count {} ]]
+		}
+		set package_key "survey"
+		if {[db_0or1row select_package_exists {}]} {
+			set NofSurveys [expr $NofSurveys+[db_string select_surveys_count {}]]
+		}
+		set package_key "forums"
+		if {[db_0or1row select_package_exists {}]} {
+			set object_type "forums_message"
+			set NofMessages [expr $NofMessages+[db_string select_total_posts_by_type {} ]]
+		}
+		set package_key "file-storage"
+		if {[db_0or1row select_package_exists {}]} {
+			set object_type "file_storage_object"
+			set NofFiles [expr $NofFiles+[db_string select_total_posts_by_type {} ]]
+		}		
+	}
+}
+
+set total_posted [expr $NofForums+$NofFaqs+$NofNews+$NofSurveys+$NofFiles+$NofMessages]
Index: openacs-4/packages/user-tracking/www/dotlrn-admin-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/dotlrn-admin-master.adp,v
diff -u -N
--- openacs-4/packages/user-tracking/www/dotlrn-admin-master.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,27 +0,0 @@
-
-
-<master>
-<property name="title">@title@</property>
-<property name="link_all">1</property>
-<if @focus@ not nil><property name="focus">@focus;noquote@</property></if>
-
-<h2>@title@</h2>
-
-<if @context_bar@ not nil>
-  <%= [eval dotlrn::admin_navbar $context_bar] %>
-</if>
-<hr>
-<slave>
-
-
-
-
-
-
-
-
-
-
-
-
-
Index: openacs-4/packages/user-tracking/www/errors-report.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/errors-report.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/errors-report.adp	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+<h4>#user-tracking.Errors_Report#</h4> <BR>
+<listtemplate name="Errors"></listtemplate>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/errors-report.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/errors-report.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/errors-report.tcl	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1,185 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}
+} -properties {
+	Errors:multirow
+}
+
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+set page_title [_ user-tracking.Errors_Report]
+set context [list $page_title]
+
+set dataFile [open "$DataFileName" r]
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#Getting data about errors
+
+
+set pos $Map(POS_ERRORS)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_ERRORS) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+set i $part2
+
+#Creamos un multirow con el tipo del error, el numero de errores de cada tipo y el ancho de banda
+template::multirow create Errors ID Name Number AdB
+
+#Tenemos un array con los tipos de errores
+array set ErrorsTypes {
+	206 "#user-tracking.error_206#"
+	301 "#user-tracking.error_301#"
+	302 "#user-tracking.error_302#"
+	304 "#user-tracking.error_304#"
+	400 "#user-tracking.error_400#"
+	401 "#user-tracking.error_401#"
+	403 "#user-tracking.error_403#"
+	404 "#user-tracking.error_404#"
+	405 "#user-tracking.error_405#"
+	500 "#user-tracking.error_500#"
+	501 "#user-tracking.error_501#"
+	502 "#user-tracking.error_502#"
+	503 "#user-tracking.error_503#"
+	504 "#user-tracking.error_504#"
+	505 "#user-tracking.error_505#"}
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	set error_id [lindex $campos 0]
+	multirow append Errors [lindex $campos 0] $ErrorsTypes($error_id) [lindex $campos 1] [lindex $campos 2]	
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+}
+
+template::multirow sort Errors -integer -increasing ID
+
+close $dataFile
+
+template::list::create \
+    -name Errors \
+    -multirow Errors \
+    -elements {
+        id {
+            label "#user-tracking.ID#"
+            display_col ID
+            html {align center}
+        }
+        title {
+            label "#user-tracking.Name#"
+            display_col Name           
+            html {align center}
+        }
+        visits {
+            label "#user-tracking.Number#"
+            display_col Number
+            html {align center}
+        }
+     } -html {align center} 
+
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/faq-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/faq-card-postgresql.xql,v
diff -u -N
--- openacs-4/packages/user-tracking/www/faq-card-postgresql.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,76 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-    <fullquery name="select_faqs">
-        <querytext>
-		select ans.question as question,
-			ans.entry_id as entry_id,
-			f.faq_id as faq_id,
-			f.faq_name as faq_name, 
-			(select site_node__url(site_nodes.node_id)
-	                    from site_nodes, acs_objects
-	                    where site_nodes.object_id = acs_objects.context_id and acs_objects.object_id=f.faq_id) as url,
-	                to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
-		    from faq_q_and_as ans, faqs f, acs_objects o
-		    where o.object_id=ans.entry_id
-			and ans.faq_id=f.faq_id
-			and o.creation_user= :user_id
-	</querytext>
-    </fullquery>
-
-    <fullquery name="select_faqs_by_com">
-        <querytext>
-		select f.faq_name as faq_name, 
-			f.faq_id as faq_id,
-			(select site_node__url(site_nodes.node_id)
-	                    from site_nodes, acs_objects
-	                    where site_nodes.object_id = acs_objects.context_id and acs_objects.object_id=f.faq_id) as url,
-	                to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
-		    from faqs f, acs_objects o, dotlrn_communities com
-		    where o.object_id=f.faq_id
-			and com.community_id= :community_id
-			and apm_package__parent_id(o.context_id) = com.package_id
-	</querytext>
-    </fullquery>
-
-    <fullquery name="select_site_faqs">
-        <querytext>
-		select f.faq_name as faq_name, 
-			f.faq_id as faq_id,
-			(select site_node__url(site_nodes.node_id)
-	                    from site_nodes, acs_objects
-	                    where site_nodes.object_id = acs_objects.context_id and acs_objects.object_id=f.faq_id) as url,
-	                to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
-		    from faqs f, acs_objects o
-		    where o.object_id=f.faq_id
-	</querytext>
-    </fullquery>
-
-    <fullquery name="select_user_info">      
-        <querytext>
-            select first_names,
-                   last_name,
-                   email,
-                   screen_name,
-                   creation_date as registration_date,
-                   creation_ip,
-                   last_visit,
-                   member_state,
-                   email_verified_p
-            from cc_users
-            where user_id = :user_id
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_com_data">
-        <querytext>
-           select distinct h.pretty_name as first_names
-		from dotlrn_communities h
-		where h.community_id= :community_id
-        </querytext>
-    </fullquery>
-    
-
-</queryset>
Index: openacs-4/packages/user-tracking/www/faq-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/faq-card.adp,v
diff -u -N
--- openacs-4/packages/user-tracking/www/faq-card.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,42 +0,0 @@
-<master>
-<property name="title">@page_title;noquote@</property>
-<property name="context">@context;noquote@</property>
-
-<h3>#user-tracking.added_faqs#</h3>
-
-<ul>
-
-<if @user_id@ ne "">
-  <li> #dotlrn.Person_name#: @first_names@ @last_name@ </li>
-  <li> #dotlrn.Email# <a href="mailto:@email@">@email@</a> </li>
-  
-  </ul>
-
-	<center>
-	<listtemplate name="faqs_q_and_as"></listtemplate>
-	</center>
-
-</if>
-<else><if @community_id@ ne "">
-  <li> #user-tracking.ut_Community_Name# </li>
-
-  </ul>
-	<center>
-	<listtemplate name="faqs"></listtemplate>
-	</center>
-</if><else>
-	<center>
-	<listtemplate name="faqs"></listtemplate>
-	</center>
-
-</else></else>
- 
-
-</ul>
-
-
-
-
-
-
-
Index: openacs-4/packages/user-tracking/www/faq-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/faq-card.tcl,v
diff -u -N
--- openacs-4/packages/user-tracking/www/faq-card.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,122 +0,0 @@
-ad_page_contract {
-    @author sergiog (sergiog@tid.es)
-    @author doa (doa@tid.es)
-    @creation-date 2004-11-23
-} -query { 
-    {user_id ""}
-    {community_id ""}
-} -properties {
-    faqs:multirow
-    first_names:onevalue
-    last_name:onevalue
-    email:onevalue
-    user_id:onevalue
-    
-}
-
-if {![exists_and_not_null referer]} {
-    set referer "[user-tracking::get_package_url]/communities-stats"
-}
-
-if {![exists_and_not_null user_id]} {
-	if {![exists_and_not_null community_id]} {
-		#Only Admins can see this stats
-		ad_require_permission [ad_conn package_id] "admin"
-    		set query select_site_faqs
-    	} else {
-    		#Only Professor can see this stats
-    		ad_require_permission $community_id "admin"
-    		if {![db_0or1row select_com_data {}]} {
-		    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-		    ad_script_abort
-		}
-    		set query select_faqs_by_com
-    	}   	
-db_multirow -extend { 
-    faqs_url
-    posting_date_pretty
-    entry_url
-} faqs $query {} {
-
-   set posting_date_ansi [lc_time_system_to_conn $creation_date]
-   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-   set faqs_url "${url}one-faq?faq_id=${faq_id}"
-
-}
-} else {
-	set new_user_id [ad_conn user_id]
-	#An user can see his / her own stats
-        if {![string equal $new_user_id $user_id]} {
-		ad_require_permission [ad_conn package_id] "admin"
-	}
-	if {![db_0or1row select_user_info {}]} {
-	    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-	    ad_script_abort
-	}
-	set query select_faqs
-db_multirow -extend { 
-    faqs_url
-    posting_date_pretty
-    entry_url
-} faqs $query {} {
-
-   set posting_date_ansi [lc_time_system_to_conn $creation_date]
-   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-   set faqs_url "${url}one-faq?faq_id=${faq_id}"
-   set entry_url "${url}one-question?entry_id=${entry_id}"
-
-}
-}   	
-
-
-set page_title [_ user-tracking.Faqs_Stats]
-set context [list $page_title]
-
-#db_multirow faqs select_faqs {} {}
-
-#ad_return_template
-#ad_return_template
-
-template::list::create \
-    -name faqs_q_and_as \
-    -multirow faqs \
-    -elements {
-        name {
-            label "#user-tracking.faq_name#"
-            link_url_col faqs_url
-            display_col faq_name
-        }
-        question {
-            label "#user-tracking.faq_question#"
-            link_url_col entry_url
-            display_col question
-        }
-        posting_date {
-            label "#user-tracking.Post_Date#"
-            display_col posting_date_pretty
-        }
-
-    } -filters {
-        package_id {}
-    }
-
-template::list::create \
-    -name faqs \
-    -multirow faqs \
-    -elements {
-        name {
-            label "#user-tracking.faq_name#"
-            link_url_col faqs_url
-            display_col faq_name
-        }
-        posting_date {
-            label "#user-tracking.Post_Date#"
-            display_col posting_date_pretty
-        }
-
-    } -filters {
-        package_id {}
-    }
-
-
-
Index: openacs-4/packages/user-tracking/www/files-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/files-card-postgresql.xql,v
diff -u -N
--- openacs-4/packages/user-tracking/www/files-card-postgresql.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,62 +0,0 @@
-?xml version="1.0"?>
-
-<queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-    <fullquery name="select_modified_files">
-        <querytext>
-		select f.name, f.file_id, f.type, f.content_size,
-		       to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
-		       to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
-		       file_storage__get_package_id(f.parent_id) as package_id,
-		       (select site_node__url(node_id) from site_nodes
-        			where object_id= file_storage__get_package_id(f.parent_id)) as package_url,
-		       o.creation_user
-		from acs_objects o, fs_files f
-		where f.file_id=o.object_id and
-		      o.modifying_user= :user_id
-		      and o.creation_user <> :user_id
-	</querytext>
-    </fullquery>
-
-
-    <fullquery name="get_root_folder">
-        <querytext>
-	select content_item__get_root_folder(:file_id);
-	</querytext>
-    </fullquery>
-
-    <fullquery name="select_created_files">      
-        <querytext>
-		select f.name, f.file_id, f.type, f.content_size,
-		       to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
-		       to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
-		       file_storage__get_package_id(f.parent_id) as package_id,
-		       (select site_node__url(node_id) from site_nodes
-        			where object_id= file_storage__get_package_id(f.parent_id)) as package_url,
-		       o.creation_user
-		from acs_objects o, fs_files f
-		where f.file_id=o.object_id
-		      and o.creation_user= :user_id
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_user_info">      
-        <querytext>
-            select first_names,
-                   last_name,
-                   email,
-                   screen_name,
-                   creation_date as registration_date,
-                   creation_ip,
-                   last_visit,
-                   member_state,
-                   email_verified_p
-            from cc_users
-            where user_id = :user_id
-        </querytext>
-    </fullquery>
-    
-    
-    
-</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/files-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/files-card.adp,v
diff -u -N
--- openacs-4/packages/user-tracking/www/files-card.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,24 +0,0 @@
-<master>
-<property name="title">@page_title;noquote@</property>
-<property name="context">@context;noquote@</property>
-
-<h3>#user-tracking.added_files_by#</h3>
-
-<ul>
-
-  <li> #dotlrn.Person_name#: @first_names@ @last_name@ </li>
-  <li> #dotlrn.Email# <a href="mailto:@email@">@email@</a> </li>
- </p>
-
-</ul>
-<p>#user-tracking.added_files#</p>
-<center>
-<listtemplate name="created_files"></listtemplate>
-</center>
-
-
-<p>#user-tracking.modified_files#</p>
-<center>
-<listtemplate name="modified_files"></listtemplate>
-</center>
-
Index: openacs-4/packages/user-tracking/www/files-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/files-card.tcl,v
diff -u -N
--- openacs-4/packages/user-tracking/www/files-card.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,136 +0,0 @@
-ad_page_contract {
-    @author sergiog (sergiog@tid.es)
-    @author doa (doa@tid.es)
-    @creation-date 2004-11-23
-} -query { 
-    {user_id ""}
-} -properties {
-    created_files:multirow
-    modified_files:multirow
-    first_names:onevalue
-    last_name:onevalue
-    email:onevalue
-    user_id:onevalue
-    
-}
-
-if {![exists_and_not_null referer]} {
-    set referer "[user-tracking::get_package_url]/users-stats"
-}
-
-if {![exists_and_not_null user_id]} {    
-    ad_returnredirect $referer
-}
-
-if {![db_0or1row select_user_info {}]} {
-    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-    ad_script_abort
-}
-
-set page_title [_ user-tracking.Files_Stats]
-set context [list $page_title]
-
-set new_user_id [ad_conn user_id]
-if {![string equal $new_user_id $user_id]} {
-	ad_require_permission [ad_conn package_id] "admin"
-}
-
-
-set query select_created_files
-#ad_return_template
-
-template::list::create \
-    -name created_files \
-    -multirow created_files \
-    -elements {
-        name {
-            label "#file-storage.Name#"
-            link_url_col files_url
-            display_col name
-        }
-        type {
-            label "#file-storage.Type#"
-            display_col type
-        }  
-        size {
-            label "#file-storage.Size#"
-            display_col content_size
-        }              
-        creation_date {
-            label "#user-tracking.Post_Date#"
-            display_col posting_date_pretty
-        }
-        last_modified {
-            label "#file-storage.Last_Modified#"
-            display_col modified_date_pretty
-        }
-
-    } -filters {
-        package_id {}
-    }
-
-db_multirow -extend { 
-    files_url
-    posting_date_pretty
-    modified_date_pretty
-} created_files $query {} {
-
-   set posting_date_ansi [lc_time_system_to_conn $creation_date]
-   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-   set modified_date_ansi [lc_time_system_to_conn $creation_date]
-   set modified_date_pretty [lc_time_fmt $modified_date_ansi "%x %X"]
-  
-   set files_url "${package_url}file?file_id=$file_id"
-
-}
-
-set query select_modified_files
-#ad_return_template
-
-template::list::create \
-    -name modified_files \
-    -multirow modified_files \
-    -elements {
-        name {
-            label "#file-storage.Name#"
-            link_url_col files_url
-            display_col name
-        }
-        type {
-            label "#file-storage.Type#"
-            display_col type
-        }  
-        size {
-            label "#file-storage.Size#"
-            display_col content_size
-        }              
-        creation_date {
-            label "#user-tracking.Post_Date#"
-            display_col posting_date_pretty
-        }
-        last_modified {
-            label "#file-storage.Last_Modified#"
-            display_col modified_date_pretty
-        }
-
-    } -filters {
-        package_id {}
-    }
-
-db_multirow -extend { 
-    files_url
-    posting_date_pretty
-    modified_date_pretty
-} modified_files $query {} {
-
-   set posting_date_ansi [lc_time_system_to_conn $creation_date]
-   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-   set modified_date_ansi [lc_time_system_to_conn $creation_date]
-   set modified_date_pretty [lc_time_fmt $modified_date_ansi "%x %X"]
-  
-   set files_url "${package_url}file?file_id=$file_id"
-
-}
-
-
-ad_return_template
Index: openacs-4/packages/user-tracking/www/forums-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/forums-card-postgresql.xql,v
diff -u -N
--- openacs-4/packages/user-tracking/www/forums-card-postgresql.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,103 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-    <fullquery name="select_forums_old">
-        <querytext>
-	    select forums_forums.package_id,
-            	acs_object__name(apm_package__parent_id(forums_forums.package_id)) as parent_name,
-            	(select site_node__url(site_nodes.node_id)
-            		from site_nodes
-            		where site_nodes.object_id = forums_forums.package_id) as url,
-            	forums_forums.forum_id,
-            	forums_forums.name,
-            	case when last_modified > (cast(current_timestamp as date)- 1) then 't' else 'f' end as new_p,
-            	forums_messages.content
-            from forums_forums_enabled forums_forums,
-            	acs_objects, forums_messages
-            where acs_objects.object_id = forums_forums.forum_id
-            	and forums_messages.forum_id=forums_forums.forum_id
-            	and acs_objects.creation_user= :user_id
-            order by parent_name,
-            	forums_forums.name
-             
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_forums">
-        <querytext>
-    	    select (select site_node__url(site_nodes.node_id)
-                       from site_nodes, acs_objects
-                       where site_nodes.object_id = forums_forums.package_id and acs_objects.object_id = forums_forums.forum_id) as url,
-            	forums_forums.name,
-            	forums_messages.content,
-            	forums_messages.message_id,
-            	forums_messages.subject,
-            	to_char(acs_objects.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
-            	forums_forums.forum_id as forum_id            	
-            from forums_forums,
-            	acs_objects, forums_messages
-            where acs_objects.object_id = forums_messages.message_id
-            	and forums_messages.forum_id=forums_forums.forum_id
-            	and acs_objects.creation_user= :user_id
-            order by forums_forums.name
-         </querytext>
-    </fullquery>
-
-    <fullquery name="select_forums_by_com">
-        <querytext>
-   select distinct (select site_node__url(site_nodes.node_id)
-                       from site_nodes
-                       where site_nodes.object_id = forums.package_id) as url,
-            	forums.name as name,
-            	to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
-            	forums.forum_id as forum_id            	
-            from forums_forums forums,
-            	acs_objects o, dotlrn_communities com
-            where o.object_id = forums.forum_id            	
-            	and com.community_id= :community_id
-	    	and apm_package__parent_id(forums.package_id) = com.package_id
-            order by forums.name
-         </querytext>
-    </fullquery>
-
-    <fullquery name="select_site_forums">
-        <querytext>
-	   select distinct (select site_node__url(site_nodes.node_id)
-                       from site_nodes
-                       where site_nodes.object_id = forums.package_id) as url,
-            	forums.name as name,
-            	to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
-            	forums.forum_id as forum_id            	
-            from forums_forums forums, acs_objects o
-            where o.object_id = forums.forum_id
-            order by forums.name
-         </querytext>
-    </fullquery>
-
-    <fullquery name="select_user_info">      
-        <querytext>
-            select first_names,
-                   last_name,
-                   email,
-                   screen_name,
-                   creation_date as registration_date,
-                   creation_ip,
-                   last_visit,
-                   member_state,
-                   email_verified_p
-            from cc_users
-            where user_id = :user_id
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_com_data">
-        <querytext>
-           select distinct h.pretty_name as first_names
-		from dotlrn_communities h
-		where h.community_id= :community_id
-        </querytext>
-    </fullquery>
-
-</queryset>
Index: openacs-4/packages/user-tracking/www/forums-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/forums-card.adp,v
diff -u -N
--- openacs-4/packages/user-tracking/www/forums-card.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,39 +0,0 @@
-<master>
-<property name="title">@page_title;noquote@</property>
-<property name="context">@context;noquote@</property>
-
-<h3>#user-tracking.messages_added#</h3>
-
-<ul>
-
-<if @user_id@ ne "">
-  <li> #dotlrn.Person_name#: @first_names@ @last_name@ </li>
-  <li> #dotlrn.Email# <a href="mailto:@email@">@email@</a> </li>
-  
-  </ul>
-
-	<center>
-	<listtemplate name="forums_messages"></listtemplate>
-	</center>
-
-</if>
-<else><if @community_id@ ne "">
-  <li> #user-tracking.ut_Community_Name# </li>
-
-  </ul>
-	<center>
-	<listtemplate name="forums"></listtemplate>
-	</center>
-</if><else>
-	<center>
-	<listtemplate name="forums"></listtemplate>
-	</center>
-
-</else>
-</else>
-
-
-
-
-
-
Index: openacs-4/packages/user-tracking/www/forums-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/forums-card.tcl,v
diff -u -N
--- openacs-4/packages/user-tracking/www/forums-card.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,147 +0,0 @@
-ad_page_contract {
-    @author sergiog (sergiog@tid.es)
-    @author doa (doa@tid.es)
-    @creation-date 2004-11-23
-} -query { 
-    {user_id ""}
-    {community_id ""}
-} -properties {
-    forums:multirow
-}
-
-if {![exists_and_not_null referer]} {
-    set referer "[user-tracking::get_package_url]/communities-stats"
-}
-
-#if {![exists_and_not_null user_id]} {
-#    #Si no hay user_id redireccionamos a la seleccion de usuarios
-#    ad_returnredirect $referer
-#}
-
-#if {![db_0or1row select_user_info {}]} {
-#    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-#    ad_script_abort
-#}
-
-set page_title [_ user-tracking.Forums_Stats]
-set context [list $page_title]
-
-#set query select_forums
-#ad_return_template
-
-template::list::create \
-    -name forums_messages \
-    -multirow forums \
-    -elements {
-        forum {
-            label "#user-tracking.Forum_Name#"
-            display_template {
-		<if @forums.name@ eq @name@>
-      		</if> <else>	
-      		<a href="@forums.forum_url@">@forums.name@</a>
-      		<% set name @forums.name@ %>
-      		</else>      	
-            }
-        }
-        message {
-            label "#user-tracking.Subject#"
-            link_url_col message_url
-            display_col subject
-        }
-        posting_date {
-            label "#user-tracking.Post_Date#"
-            display_col posting_date_pretty
-        }
-
-    } -filters {
-        forum_id {}
-    }
-
-template::list::create \
-    -name forums \
-    -multirow forums \
-    -elements {
-        forum {
-            label "#user-tracking.Forum_Name#"
-            display_template {
-		<if @forums.name@ eq @name@>
-      		</if> <else>	
-      		<a href="@forums.forum_url@">@forums.name@</a>
-      		<% set name @forums.name@ %>
-      		</else>      	
-            }
-        }
-        posting_date {
-            label "#user-tracking.Post_Date#"
-            display_col posting_date_pretty
-        }
-
-    } -filters {
-        forum_id {}
-    }
-
-if {![exists_and_not_null user_id]} {
-	if {![exists_and_not_null community_id]} {
-		#Admin
-		ad_require_permission [ad_conn package_id] "admin"
-    		set query select_site_forums
-		db_multirow -extend { 
-		    forum_url
-		    posting_date_pretty
-		} forums $query {} {
-		
-		   set posting_date_ansi [lc_time_system_to_conn $posting_date]
-		   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-		   set forum_url "${url}forum-view?forum_id=$forum_id"
-		
-		}
-    	} else {
-    		#Proffesor
-    		ad_require_permission $community_id "admin"
-    		if {![db_0or1row select_com_data {}]} {
-		    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-		    ad_script_abort
-		}
-    		set query select_forums_by_com
-		db_multirow -extend { 
-		    forum_url
-		    posting_date_pretty
-		} forums $query {} {
-		
-		   set posting_date_ansi [lc_time_system_to_conn $posting_date]
-		   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-		   set forum_url "${url}forum-view?forum_id=$forum_id"
-		
-		}
-    	}   	
-} else {
-	set new_user_id [ad_conn user_id]
-	if {![string equal $new_user_id $user_id]} {
-		ad_require_permission [ad_conn package_id] "admin"
-	}
-	if {![db_0or1row select_user_info {}]} {
-	    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-	    ad_script_abort
-	}
-	set query select_forums
-	db_multirow -extend { 
-	    message_url
-	    forum_url
-	    posting_date_pretty
-	} forums $query {} {
-	
-	   set posting_date_ansi [lc_time_system_to_conn $posting_date]
-	   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-	   set message_url "${url}message-view?message_id=$message_id"
-	   set forum_url "${url}forum-view?forum_id=$forum_id"
-	
-	}
-}   	
-
-
-
-if {[exists_and_not_null alt_template]} {
-  ad_return_template $alt_template
-}
-
-
Index: openacs-4/packages/user-tracking/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/index.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/index.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/index.adp	14 Apr 2005 15:44:27 -0000	1.2
@@ -1,22 +1,22 @@
-<master>
-<property name="title">@title;noquote@</property>
-<property name="context">@context;noquote@</property>
-
-
-<if @admin_p@ ne 0>
-  <p>
-    <table width="100%">
-     <tr>
-      <th align=right>
-       [<a href="admin/">#user-tracking.Administer#</a>]
-      </th>
-     </tr>
-    </table>	
-</if>
-
-<ul>
-<li><a href="site-card">#user-tracking.lt_Site_Stats#</a></li>
-<li><a href="communities-stats">#user-tracking.lt_Communities_Stats_2#</a></li>
-<li><a href="users-stats">#user-tracking.lt_Users_Stats#</a></li>
-<li><a href="advanced-stats">#user-tracking.lt_Advanced_Stats_1#</a></li>
-</ul>
+<master>
+<property name="title">@title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+
+<if @admin_p@ ne 0>
+  <p>
+    <table width="100%">
+     <tr>
+      <th align=right>
+       [<a href="admin/">#user-tracking.Administer#</a>]
+      </th>
+     </tr>
+    </table>	
+</if>
+
+<ul>
+<li><a href="site-card">#user-tracking.lt_Site_Stats#</a></li>
+<li><a href="communities-stats">#user-tracking.lt_Communities_Stats_2#</a></li>
+<li><a href="users-stats">#user-tracking.lt_Users_Stats#</a></li>
+<li><a href="advanced-stats">#user-tracking.lt_Advanced_Stats_1#</a></li>
+</ul>
Index: openacs-4/packages/user-tracking/www/lanza-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/lanza-postgresql.xql,v
diff -u -N
--- openacs-4/packages/user-tracking/www/lanza-postgresql.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,35 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-    <fullquery name="select_instructor_from">
-        <querytext>
-		select * 
-		from acs_rels 
-		where object_id_one = :community_id and
-			(rel_type = 'dotlrn_instructor_rel' or
-			 rel_type = 'dotlrn_professor_profile_rel')
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_admin_from">
-        <querytext>
-		select object_id_two
-		from acs_rels 
-		where object_id_one = :community_id and
-			(rel_type = 'dotlrn_admin_rel' or
-			 rel_type = 'dotlrn_admin_profile_rel' or
-			 rel_type = 'dotlrn_cadmin_rel')			
-        </querytext>
-    </fullquery>
-    <fullquery name="select_admin">
-        <querytext>
-		select *
-		from dotlrn_users
-		where user_id = :user_id and
-			type = 'admin'
-        </querytext>
-    </fullquery>
-
-</queryset>
Index: openacs-4/packages/user-tracking/www/lanza.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/lanza.tcl,v
diff -u -N
--- openacs-4/packages/user-tracking/www/lanza.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,137 +0,0 @@
-# E-Lane 19-10-2004
-# Lanzador de awstats, comprobando Permisos
-# Version 0.1b
-# Author E-Lane TID
-
-ad_page_contract {
-    Displays the stats users page
-
-    @author sergiog (sergiog@tid.es)
-    @author doa     (doa@tid.es)    
-    @creation-date 2004-10-19
-    @version $Id: lanza.tcl,v 1.1 2005/03/01 17:35:37 rocaelh Exp $
-} -query {
-	{community_id ""}
-	{user_id ""}
-	{onlyusers ""}
-	{onlylines ""}
-	{config ""}
-	{sitedomain ""}
-} -properties {
-    user_id:onevalue
-    community_id:onevalue
-}
-
-# First of all, we have to delete all blank spaces
-regsub -all -- "(%20)+" $onlylines " " onlylines
-regsub -all -- "\[\\t \\r\\n\]+" $onlylines " " onlylines
-regsub -all -- "(%20)+" $onlyusers " " onlyusers
-regsub -all -- "\[\\t \\r\\n\]+" $onlyusers " " onlyusers
-
-
-# If we don�t receive any value, we do nothing
-if {[empty_string_p $community_id] && [empty_string_p $onlyusers] && [empty_string_p $onlylines] && [empty_string_p $config]} {
-    ns_log notice "No hay community Id, hace falta ser Adminisrtador"
-    ad_require_permission [ad_conn package_id] "admin"
-#    ad_returnredirect [user-tracking::get_package_url]
-    ad_returnredirect "/user-tracking"
-}
-
-#Add the prefer language of the user, if it isn�t implemented we use english by default
-set Language [lang::conn::locale]
-
-switch $Language {
-	en_Us {set parseString "&lang=en"}
-	es_ES {set parseString "&lang=es"}
-	de_DE {set parseString "&lang=de"}
-	fr_FR {set parseString "&lang=fr"}
-	ar_LB {set parseString "&lang=ar"}
-	hu_HU {set parseString "&lang=hu"}
-	pt_PT {set parseString "&lang=pt"}
-	ro_RO {set parseString "&lang=ro"}
-	ru_RU {set parseString "&lang=ru"}
-	sv_SE {set parseString "&lang=se"}
-	it_IT {set parseString "&lang=it"}
-	gl_ES {set parseString "&lang=gl"}
-	zh_CN {set parseString "&lang=cn"}
-	zh_TW {set parseString "&lang=cn"}
-	da_DK {set parseString "&lang=dk"}
-	en_GB {set parseString "&lang=en"}
-	el_GR {set parseString "&lang=gr"}
-	ja_JP {set parseString "&lang=jp"}
-	ko_KR {set parseString "&lang=kr"}
-	nn_NO {set parseString "&lang=nn"}	
-	no_NO {set parseString "&lang=nb"}
-	pl_PL {set parseString "&lang=pl"}
-	tr_TR {set parseString "&lang=tr"}
-	default {set parseString "&lang=en"}
-}
-
-#parseString contains all the parameters we need to pass awstats
-if {[empty_string_p $config]} {
-	append parseString "&config=site"
-} else {
-	append parseString "&config=$config"
-}
-
-if {![empty_string_p $sitedomain]} {
-	append parseString "&sitedomain=$sitedomain"
-}
-
-
-#Depend on kind of report, required permission will be different
-if {[empty_string_p $community_id] } {
-	if {![empty_string_p $user_id]} {
-                set new_user_id [ad_conn user_id]
-                if {[string equal $new_user_id $user_id]} {                        
-			append parseString "&onlyusers=$user_id"
-		} else {
-			ad_require_permission [ad_conn package_id] "admin"
-			append parseString "&onlyusers=$user_id"
-		}
-	} else {
-		ns_log notice "Informe general, hace falta ser Adminisrtador"
-		ad_require_permission [ad_conn package_id] "admin"
-		if {![empty_string_p $onlyusers]} {
-			append parseString "&onlyusers=$onlyusers"
-		}
-		if {![empty_string_p $onlylines]} {
-			set auxParse ""
-			foreach aux [split $onlylines] {
-				if {![empty_string_p $aux]} {
-					set auxParse "REGEX\[.*community_id=$aux.*\] $auxParse"
-				}
-			}
-			if {![empty_string_p $auxParse]} {
-				append parseString "&onlylines=$auxParse"
-			}
-		}
-	
-		ns_log notice "informe general: Vamos a llamar a awstats con los parametros: $parseString"
-	}
-	ad_returnredirect "/user-tracking/awstats/cgi-bin/awstatsDirecto.pl?$parseString&update=1"
-} else {	
-	if {![empty_string_p $user_id]} {		
-		set new_user_id [ad_conn user_id]
-		if {[string equal $new_user_id $user_id]} {
-			ad_require_permission $community_id "read"
-			ns_log notice "Estadisticas de un usuario, se permite solo con pertenecer: $parseString"
-			append parseString "&onlyusers=$user_id"
-		} else {			
-			ad_require_permission [ad_conn package_id] "admin"
-			ns_log notice "No es el mismo usuario,solo dejamos si es admin: $parseString"	
-			append parseString "&onlyusers=$user_id"
-		}
-	} else {
-		ns_log notice "Informe de clase, profesor"
-		ad_require_permission $community_id "admin"	
-		if {![empty_string_p $onlyusers]} {
-			append parseString "&onlyusers=$onlyusers"
-		}
-	}
-
-	append parseString "&onlylines=REGEX\[.*community_id=$community_id.*\]"
-	ns_log notice "Informe de profe: Vamos a llamar a awstats con los parametros: $parseString"	
-	ad_returnredirect "/user-tracking/awstats/cgi-bin/awstatsDirecto.pl?$parseString&update=1"
-}
-
Index: openacs-4/packages/user-tracking/www/loading.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/loading.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/loading.adp	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1 @@
+<h4>Cargando datos...</h4>
Index: openacs-4/packages/user-tracking/www/loading.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/loading.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/loading.tcl	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1,45 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+} -properties {
+}
+
+if {![exists_and_not_null onlyuser] & ![exists_and_not_null onlylines]} {
+	set message "[_ user-tracking.making_statistics_site]"
+} elseif {![exists_and_not_null onlylines]} {
+	set message "[_ user-tracking.making_statistics_users] $onlyuser"
+	set onlyuser [string trimleft $onlyuser " "]
+} elseif {![exists_and_not_null onlyuser]} {
+	set message "[_ user-tracking.making_statistics_communities] $onlylines"
+	set onlylines [string trimleft $onlylines " "]
+} else {
+	set message "[_ user-tracking.making_statistics_advanced]"
+	set onlylines [string trimleft $onlylines " "]
+	set onlyuser [string trimleft $onlyuser " "]
+}
+
+ad_progress_bar_begin \
+    -title "" \
+    -message_1 "#user-tracking.updating_datafile#" \
+    -message_2 "#user-tracking.we_will_continue#"
+
+ns_write "<h2>$message</h2><blockquote>"
+
+set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=$config" "-update" "-onlycoms=$onlylines" "-onlyusers=$onlyuser"]
+ns_log notice $execAnalyzer
+catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4] [lindex $execAnalyzer 5]} aux
+
+set DataFileName [user-tracking::get_data_file_name $onlylines $onlyuser $config $year $month]
+ns_log notice $DataFileName
+set nodata_p "0"
+set noloading 1
+if {![file exists $DataFileName]} {
+	set nodata_p "1"
+set noloading 0
+	
+}
+
+ad_progress_bar_end -url "${url}type=$type&onlyuser=$onlyuser&onlylines=$onlylines&year=$year&month=$month&nodata_p=$nodata_p&noloading=$noloading"
+
Index: openacs-4/packages/user-tracking/www/loading2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/loading2.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/loading2.adp	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1 @@
+<h4>Cargando datos...</h4>
Index: openacs-4/packages/user-tracking/www/loading2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/loading2.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/loading2.tcl	14 Apr 2005 15:44:27 -0000	1.1
@@ -0,0 +1,35 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config ""}
+	{onlyuser ""}
+	{onlylines ""}
+	{url ""}
+} -properties {
+}
+
+set message "[_ user-tracking.updating_statistics]"
+
+
+ad_progress_bar_begin \
+    -title "" \
+    -message_1 "#user-tracking.updating_datafile#" \
+    -message_2 "#user-tracking.we_will_continue#"
+
+ns_write "<h2>$message</h2><blockquote>"
+
+set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=$config" "-update" "-onlycoms=$onlylines" "-onlyusers=$onlyuser"]
+ns_log notice $execAnalyzer
+catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4] [lindex $execAnalyzer 5]} aux
+if {[exists_and_not_null url]} {
+	switch $url {
+		users-card { ad_progress_bar_end -url $url?user_id=$onlyuser }
+		communities-card {ad_progress_bar_end -url $url?community_id=$onlylines}
+		advanced-card {ad_progress_bar_end -url $url?onlylines=$onlylines&onlyuser=$onlyuser}
+	}
+} else {
+	ad_progress_bar_end -url site-card
+}
+
Index: openacs-4/packages/user-tracking/www/news-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/news-card-postgresql.xql,v
diff -u -N
--- openacs-4/packages/user-tracking/www/news-card-postgresql.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,155 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-    <fullquery name="select_active_news">
-        <querytext>
-            select news_items_approved.package_id,
-                   acs_object__name(apm_package__parent_id(news_items_approved.package_id)) as parent_name,
-                   (select site_node__url(site_nodes.node_id)
-                    from site_nodes
-                    where site_nodes.object_id = news_items_approved.package_id) as url,
-                   news_items_approved.item_id,
-                   news_items_approved.publish_title,
-                   to_char(news_items_approved.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
-            from news_items_approved
-            where news_items_approved.publish_date < current_timestamp
-            	and (news_items_approved.archive_date >= current_timestamp or news_items_approved.archive_date is null)
-             	and news_items_approved.creation_user= :user_id
-            order by news_items_approved.publish_date desc,
-                     news_items_approved.publish_title
-       </querytext>
-    </fullquery>
-
-
-    <fullquery name="select_non_active_news">
-        <querytext>
-            select news_items_approved.package_id,
-                   acs_object__name(apm_package__parent_id(news_items_approved.package_id)) as parent_name,
-                   (select site_node__url(site_nodes.node_id)
-                    from site_nodes
-                    where site_nodes.object_id = news_items_approved.package_id) as url,
-                   news_items_approved.item_id,
-                   news_items_approved.publish_title,
-                   to_char(news_items_approved.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
-            from news_items_approved
-            where (news_items_approved.publish_date >= current_timestamp
-            	or news_items_approved.archive_date < current_timestamp)
-             	and news_items_approved.creation_user= :user_id
-            order by news_items_approved.publish_date desc,
-                     news_items_approved.publish_title
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_active_news_by_com">
-        <querytext>
-            select distinct news.package_id,
-                   acs_object__name(apm_package__parent_id(news.package_id)) as parent_name,
-                   (select site_node__url(site_nodes.node_id)
-                    from site_nodes
-                    where site_nodes.object_id = news.package_id) as url,
-                   news.item_id,
-                   news.publish_title,
-                   to_char(news.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
-            from news_items_approved news, dotlrn_communities com
-            where news.publish_date < current_timestamp
-            	and (news.archive_date >= current_timestamp or news.archive_date is null)
-             	and com.community_id= :community_id
-            	and apm_package__parent_id(news.package_id) = com.package_id
-            order by publish_date_ansi desc,
-                     news.publish_title
-       </querytext>
-    </fullquery>
-
-
-    <fullquery name="select_non_active_news_by_com">
-        <querytext>
-            select distinct news.package_id,
-                   acs_object__name(apm_package__parent_id(news.package_id)) as parent_name,
-                   (select site_node__url(site_nodes.node_id)
-                    from site_nodes
-                    where site_nodes.object_id = news.package_id) as url,
-                   news.item_id,
-                   news.publish_title,
-                   to_char(news.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
-            from news_items_approved news, dotlrn_communities com
-            where (news.publish_date >= current_timestamp
-            	or news.archive_date < current_timestamp)
-             	and com.community_id= :community_id
-            	and apm_package__parent_id(news.package_id) = com.package_id
-            order by publish_date_ansi desc,
-                     news.publish_title
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_site_active_news">
-        <querytext>
-            select distinct news.package_id,
-                   acs_object__name(apm_package__parent_id(news.package_id)) as parent_name,
-                   (select site_node__url(site_nodes.node_id)
-                    from site_nodes
-                    where site_nodes.object_id = news.package_id) as url,
-                   news.item_id,
-                   news.publish_title,
-                   to_char(news.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
-            from news_items_approved news
-            where news.publish_date < current_timestamp
-            	and (news.archive_date >= current_timestamp or news.archive_date is null)
-            order by publish_date_ansi desc,
-                     news.publish_title
-       </querytext>
-    </fullquery>
-
-
-    <fullquery name="select_site_non_active_news">
-        <querytext>
-            select distinct news.package_id,
-                   acs_object__name(apm_package__parent_id(news.package_id)) as parent_name,
-                   (select site_node__url(site_nodes.node_id)
-                    from site_nodes
-                    where site_nodes.object_id = news.package_id) as url,
-                   news.item_id,
-                   news.publish_title,
-                   to_char(news.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
-            from news_items_approved news
-            where (news.publish_date >= current_timestamp
-            	or news.archive_date < current_timestamp)
-            order by publish_date_ansi desc,
-                     news.publish_title
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_user_info">      
-        <querytext>
-            select first_names,
-                   last_name,
-                   email,
-                   screen_name,
-                   creation_date as registration_date,
-                   creation_ip,
-                   last_visit,
-                   member_state,
-                   email_verified_p
-            from cc_users
-            where user_id = :user_id
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_total_posts">
-        <querytext>
-            select count(*)
-            from acs_objects  
-            where creation_user = :user_id 
-        </querytext>
-    </fullquery>
-    
-    <fullquery name="select_com_data">
-        <querytext>
-           select distinct h.pretty_name as first_names
-		from dotlrn_communities h
-		where h.community_id= :community_id
-        </querytext>
-    </fullquery>
-
-</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/news-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/news-card.adp,v
diff -u -N
--- openacs-4/packages/user-tracking/www/news-card.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,38 +0,0 @@
-<master>
-<property name="title">@page_title;noquote@</property>
-<property name="context">@context;noquote@</property>
-
-
-<h3>#user-tracking.Added_news#</h3>
-
-<ul>
-
-<if @user_id@ ne "">
-  <li> #dotlrn.Person_name#: @first_names@ @last_name@ </li>
-  <li> #dotlrn.Email# <a href="mailto:@email@">@email@</a> </li>
-  
-  </ul>
-</if>
-<else><if @community_id@ ne "">
-  <li> #user-tracking.ut_Community_Name# </li>
-  </ul>
-</if>
-</else>
-
-<center>
-<h4>#user-tracking.Active_news#</h4>
-<listtemplate name="active_news"></listtemplate>
-</center>
-<br>
-<br>
-<center>
-<h4>#user-tracking.Non_active_news#</h4>
-<listtemplate name="non_active_news"></listtemplate>
-</center>
-<br>
-<br>
-
-
-
-
-
Index: openacs-4/packages/user-tracking/www/news-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/news-card.tcl,v
diff -u -N
--- openacs-4/packages/user-tracking/www/news-card.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,133 +0,0 @@
-ad_page_contract {
-    @author sergiog (sergiog@tid.es)
-    @author doa (doa@tid.es)
-    @creation-date 2004-11-23
-} -query { 
-    {user_id ""}
-    {community_id ""}
-} -properties {
-    active_news:multirow
-    non_active_news:multirow
-    first_names:onevalue
-    last_name:onevalue
-    email:onevalue
-    user_id:onevalue
-    
-}
-
-if {![exists_and_not_null referer]} {
-    set referer "[user-tracking::get_package_url]/users-stats"
-}
-
-if {![exists_and_not_null user_id]} {
-	if {![exists_and_not_null community_id]} {
-		#Admin
-		ad_require_permission [ad_conn package_id] "admin"    		
-		set query select_site_active_news
-		set queryb select_site_non_active_news
-    	} else {
-    		#Profesor
-    		ad_require_permission $community_id "admin"
-    		if {![db_0or1row select_com_data {}]} {
-		    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-		    ad_script_abort
-		}
-		set query select_active_news_by_com
-		set queryb select_non_active_news_by_com
-    	}   	
-} else {
-	set new_user_id [ad_conn user_id]	
-        if {![string equal $new_user_id $user_id]} {
-		ad_require_permission [ad_conn package_id] "admin"
-	}
-
-	if {![db_0or1row select_user_info {}]} {
-	    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-	    ad_script_abort
-	}
-	set query select_active_news
-	set queryb select_non_active_news
-}   	
-
-#if {![exists_and_not_null user_id]} {
-#    #Si no hay user_id redireccionamos a la seleccion de usuarios
-#    ad_returnredirect $referer
-#}
-
-#if {![db_0or1row select_user_info {}]} {
-#    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-#    ad_script_abort
-#}
-
-#Hay que modificar el titulo de la pagina
-set page_title [_ user-tracking.News_Stats]
-set context [list $page_title]
-
-# db_multirow active_news select_active_news {} {}
-
-# db_multirow non_active_news select_non_active_news {} {}
-
-#set query select_active_news
-#ad_return_template
-
-template::list::create \
-    -name active_news \
-    -multirow active_news \
-    -elements {
-        title {
-            label "#user-tracking.news_title#"
-            link_url_col news_url
-            display_col publish_title
-        }
-        posting_date {
-            label "#user-tracking.Post_Date#"
-            display_col posting_date_pretty
-        }
-
-    } -filters {
-        package_id {}
-    }
-
-db_multirow -extend { 
-    news_url
-    posting_date_pretty
-} active_news $query {} {
-
-   set posting_date_pretty [lc_time_fmt $publish_date_ansi "%x %X"]
-   set news_url "${url}item?item_id=$item_id"
-
-}
-
-#set queryb select_non_active_news
-
-template::list::create \
-    -name non_active_news \
-    -multirow non_active_news \
-    -elements {
-        title {
-            label "#user-tracking.news_title#"
-            link_url_col news_url
-            display_col publish_title
-        }
-        posting_date {
-            label "#user-tracking.Post_Date#"
-            display_col posting_date_pretty
-        }
-
-    } -filters {
-        package_id {}
-    }
-
-db_multirow -extend { 
-    news_url
-    posting_date_pretty
-} non_active_news $queryb {} {
-
-   set posting_date_pretty [lc_time_fmt $publish_date_ansi "%x %X"]
-   set news_url "${url}item?item_id=$item_id"
-
-}
-
-if {[exists_and_not_null alt_template]} {
-  ad_return_template $alt_template
-}
Index: openacs-4/packages/user-tracking/www/pages-report.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/pages-report.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/pages-report.adp	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+<h4>#user-tracking.Visited_Pages#</h4> <BR>
+<listtemplate name="mymulti"></listtemplate>
Index: openacs-4/packages/user-tracking/www/pages-report.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/pages-report.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/pages-report.tcl	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,166 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}
+} -properties {
+	urlsList:onelist
+	mymulti:multirow
+}
+
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+set page_title [_ user-tracking.Visited_Pages]
+set context [list $page_title]
+set dataFile [open "$DataFileName" r]
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#Getting data about visited pages
+
+
+set pos $Map(POS_SIDER)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_SIDER) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+set i $part2
+
+template::multirow create mymulti url npages ref
+
+set j 1
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	set ref "[util_current_location][lindex $campos 0]"
+	multirow append mymulti [lindex $campos 0] [lindex $campos 1] $ref
+	incr j
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+}
+close $dataFile
+
+template::multirow sort mymulti -integer -decreasing npages
+
+template::list::create \
+    -name mymulti \
+    -multirow mymulti \
+    -elements {
+        url {
+            label "#user-tracking.Page#"
+            display_col url
+            link_url_col ref
+            html {align center}
+        }
+        npages {
+            label "#user-tracking.Hits#"
+            display_col npages
+            html {align center}
+        }
+     } -html {align center}
+
+
+
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/petitions-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/petitions-chunk.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/petitions-chunk.adp	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,5 @@
+<ul>
+  	<li> <a href="pages-report?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.visited_pages#</a></li>
+  	<li> <a href="errors-report?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.errors#</a></li>
+
+</ul>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/petitions-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/petitions-chunk.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/petitions-chunk.tcl	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,10 @@
+ad_page_contract {
+    @author doa (doa@tid.es)
+    @author sergiog (sergiog@tid.es)
+    @creation-date 2005-03-09
+} -query { 
+} -properties {    
+user_id:onevalue
+community_id:onevalue 
+}
+
Index: openacs-4/packages/user-tracking/www/registration-history-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/registration-history-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/registration-history-oracle.xql	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="registrations">      
+      <querytext>
+      select to_char(creation_date,'YYYYMM') as sort_key, rtrim(to_char(creation_date,'Month')) as pretty_month, to_char(creation_date,'YYYY') as pretty_year, count(*) as n_new
+from users, acs_objects
+where users.user_id = acs_objects.object_id
+and creation_date is not null
+group by to_char(creation_date,'YYYYMM'), to_char(creation_date,'Month'), to_char(creation_date,'YYYY')
+order by 1
+      </querytext>
+</fullquery>
+
+<fullquery name="max_register">
+      <querytext>
+	select max(t1.n_new) as MaxReg
+		from (select count(*) as n_new
+			from users, acs_objects
+			where users.user_id = acs_objects.object_id
+				and creation_date is not null
+			group by to_char(creation_date,'YYYYMM'), to_char(creation_date,'Month'), to_char(creation_date,'YYYY')) as t1
+      </querytext>
+</fullquery>
+ 
+</queryset>
Index: openacs-4/packages/user-tracking/www/registration-history-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/registration-history-postgresql.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/user-tracking/www/registration-history-postgresql.xql	20 Mar 2005 01:43:12 -0000	1.2
+++ openacs-4/packages/user-tracking/www/registration-history-postgresql.xql	14 Apr 2005 15:44:28 -0000	1.3
@@ -1,7 +1,6 @@
 <?xml version="1.0"?>
 
 <queryset>
-  <rdbms><type>postgresql</type><version>7.2</version></rdbms>
 
 <fullquery name="registrations">      
       <querytext>
Index: openacs-4/packages/user-tracking/www/registration-history.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/registration-history.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/registration-history.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/registration-history.adp	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,6 +1,7 @@
-<master>
-<property name=title>#user-tracking.ut_Register_Historic#</property>
-<property name="context">@context;noquote@</property>
-<listtemplate name="registrations"></listtemplate>
-
-
+<master>
+<property name=title>#user-tracking.Registrations_history#</property>
+<property name="context">@context;noquote@</property>
+<h4>#user-tracking.Registrations_history#<h4><br>
+<listtemplate name="registrations"></listtemplate>
+
+
Index: openacs-4/packages/user-tracking/www/registration-history.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/registration-history.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/registration-history.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/registration-history.tcl	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,68 +1,69 @@
-ad_page_contract {
-    displays a table of number of registrations by month
-
-    @author philg@mit.edu
-    @creation-date Jan 1999
-    @cvs-id $Id$
-    @modified by sergiog@tid.es
-} -properties {
-    context:onevalue
-    user_rows:multirow
-    MaxReg:onevalue
-    temp:onevalue
-}
-
-
-#Only Admin can see this stats
-ad_require_permission [ad_conn package_id] "admin"
-
-
-set context [list [list "./site-card" "#user-tracking.lt_Site_Stats#"] "[_ user-tracking.lt_Site_Stats]"]
-set page_title [_ user-tracking.ut_Registration_Historic]
-
-# we have to query for pretty month and year separately because Oracle pads
-# month with spaces that we need to trim
-
-set temp 0
-set MaxReg 10
-
-
-set query registrations
-
-db_0or1row max_register {}
-
-template::list::create \
-    -name registrations \
-    -multirow registrations \
-    -pass_properties temp \
-    -elements {
-        year {
-            label #user-tracking.year#
-	    display_col pretty_year
-	}
-        month {
-            label #user-tracking.month#
-	    display_col pretty_month
-	}
-	MaxReg {
-	    label "#user-tracking.registers#"
-	    display_template {
-	    	<img src=img/vh.png height=13 width=@registrations.temp1@>
-	    }
-	}
-        NofReg {
-            label "#user-tracking.registers_number#"
-	    display_col n_new
-	}
-
-    } -filters {
-        sort_key {}
-    }
-
-db_multirow -extend { 
-    temp1
-} registrations $query {} {
-set temp1 [expr $n_new*100/$MaxReg]
-}
-
-#ad_return_template
+ad_page_contract {
+    displays a table of number of registrations by month
+
+    @author philg@mit.edu
+    @creation-date Jan 1999
+    @cvs-id $Id$
+    @modified by sergiog@tid.es
+} -properties {
+    context:onevalue
+    user_rows:multirow
+    MaxReg:onevalue
+    temp:onevalue
+}
+
+
+#Only Admin can see this stats
+ad_require_permission [ad_conn package_id] "admin"
+
+
+set context [list [list "./site-card" "#user-tracking.lt_Site_Stats#"] "[_ user-tracking.lt_Site_Stats]"]
+set page_title [_ user-tracking.Registrations_history]
+
+# we have to query for pretty month and year separately because Oracle pads
+# month with spaces that we need to trim
+
+set temp 0
+set MaxReg 10
+
+
+set query registrations
+
+db_0or1row max_register {}
+
+template::list::create \
+    -name registrations \
+    -multirow registrations \
+    -pass_properties temp \
+    -elements {
+        year {
+            label #user-tracking.year#
+	    display_col pretty_year
+	}
+        month {
+            label #user-tracking.month#
+	    display_col pretty_month
+	}
+        NofReg {
+            label "#user-tracking.registers_number#"
+	    display_col n_new
+	    html {align center}
+	}	
+	MaxReg {
+	    display_template {
+	    	<img src=img/vh.png height=13 width=@registrations.temp1@>
+	    }
+	}
+
+
+    } -filters {
+        sort_key {}
+    } -html {align center}
+
+db_multirow -extend { 
+    temp1
+} registrations $query {} {
+set temp1 [expr $n_new*100/$MaxReg]
+}
+
+#ad_return_template
Index: openacs-4/packages/user-tracking/www/registration-history_old.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/registration-history_old.tcl,v
diff -u -N
--- openacs-4/packages/user-tracking/www/registration-history_old.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,62 +0,0 @@
-ad_page_contract {
-    displays a table of number of registrations by month
-
-    @author philg@mit.edu
-    @creation-date Jan 1999
-    @cvs-id $Id: registration-history_old.tcl,v 1.1 2005/03/01 17:35:37 rocaelh Exp $
-    @modified by sergiog@tid.es
-} -properties {
-    context:onevalue
-    user_rows:multirow
-    MaxReg:onevalue
-    temp:onevalue
-}
-
-set context [list [list "./" "Users"] "Registration History"]
-
-# we have to query for pretty month and year separately because Oracle pads
-# month with spaces that we need to trim
-
-set temp 0
-set MaxReg 10
-
-db_multirow user_rows user_rows "select to_char(creation_date,'YYYYMM') as sort_key, rtrim(to_char(creation_date,'Month')) as pretty_month, to_char(creation_date,'YYYY') as pretty_year, count(*) as n_new
-	from users, acs_objects
-	where users.user_id = acs_objects.object_id
-	and creation_date is not null
-	group by to_char(creation_date,'YYYYMM'), to_char(creation_date,'Month'), to_char(creation_date,'YYYY')
-	order by 1" 
-
-db_0or1row max_register {}
-
-template::list::create \
-    -name registrations \
-    -multirow user_rows \
-    -pass_properties { MaxReg } \
-    -elements {
-        year {
-            label "A&ntilde;o"
-	    display_col pretty_year
-	}
-        month {
-            label "Mes"
-	    display_col pretty_month
-	}
-	MaxReg {
-	    label "Registros"
-	    display_template {
-	    	<% set temp [expr @n_new@*100/@MaxReg@] %>
-	    	<img src=img/vh.png height=@ancho_col@>@ancho_col@
-	    }
-	}
-        NofReg {
-            label "N&uacute;mero de registros"
-	    display_col n_new
-	}
-
-    } -filters {
-        sort_key {}
-    }
-
-
-ad_return_template
Index: openacs-4/packages/user-tracking/www/site-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/site-card-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/site-card-postgresql.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/site-card-postgresql.xql	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,9 +1,7 @@
 <?xml version="1.0"?>
 
 <queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-
     <fullquery name="select_n_users">
         <querytext>
           select count(u.user_id) as n_users,
@@ -17,13 +15,6 @@
         </querytext>
     </fullquery>
     
-    <fullquery name="select_users_count">
-        <querytext>
-            select count (*)                   
-            from dotlrn_users             
-        </querytext>
-    </fullquery>
-
     <fullquery name="select_clubs_count">
         <querytext>
             select count (*)                   
@@ -41,76 +32,7 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="select_portrait_info">      
-        <querytext>
-            select cr_items.live_revision as revision_id,
-                   coalesce(cr_revisions.title, 'view this portrait') as portrait_title
-            from acs_rels,
-                 cr_items,
-                 cr_revisions
-            where acs_rels.object_id_two = cr_items.item_id
-            and cr_items.live_revision = cr_revisions.revision_id
-            and acs_rels.object_id_one = :user_id
-            and acs_rels.rel_type = 'user_portrait_rel'
-        </querytext>
-    </fullquery>
 
-    <fullquery name="select_member_classes">
-        <querytext>
-            select dotlrn_class_instances_full.*,
-                   dotlrn_member_rels_approved.rel_type,
-                   dotlrn_member_rels_approved.role,
-                   '' as role_pretty_name
-            from dotlrn_class_instances_full,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id
-            order by dotlrn_class_instances_full.department_name,
-                     dotlrn_class_instances_full.department_key,
-                     dotlrn_class_instances_full.pretty_name,
-                     dotlrn_class_instances_full.community_key
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_member_clubs">
-        <querytext>
-            select dotlrn_clubs_full.*,
-                   dotlrn_member_rels_approved.rel_type,
-                   dotlrn_member_rels_approved.role,
-                   '' as role_pretty_name
-            from dotlrn_clubs_full,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_clubs_full.club_id
-            order by dotlrn_clubs_full.pretty_name,
-                     dotlrn_clubs_full.community_key
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_member_subgroups">
-        <querytext>
-            select dotlrn_communities.*,
-                   dotlrn_community__url(dotlrn_communities.community_id) as url,
-                   dotlrn_member_rels_approved.rel_type,
-                   dotlrn_member_rels_approved.role,
-                   '' as role_pretty_name
-            from dotlrn_communities,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_communities.community_id
-            and dotlrn_communities.community_type = 'dotlrn_community'
-            order by dotlrn_communities.pretty_name,
-                     dotlrn_communities.community_key
-        </querytext>
-    </fullquery>
-    <fullquery name="select_subgroup_count">
-        <querytext>
-		select count(distinct community_id)
-			from dotlrn_communities 
-			where parent_community_id= :community_id
-        </querytext>
-    </fullquery>
-
     <fullquery name="select_members_count_by_type">
         <querytext>
 		select count (distinct acs_rels.object_id_two) 
@@ -119,39 +41,4 @@
 				and dotlrn_users.user_id=acs_rels.object_id_two
 	</querytext>
     </fullquery>
-    
-    <fullquery name="select_forums_count">
-        <querytext>
-    	    select count(distinct forums.forum_id)
-            	from forums_forums_enabled forums   		
-        </querytext>
-    </fullquery>
-    
-    <fullquery name="select_faqs_count">
-        <querytext>
-    	    select count(distinct f.faq_id)
-                from faqs f
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_news_count">
-        <querytext>
-            select count(distinct n.item_id)
-            	from news_items_approved n
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_surveys_count">
-        <querytext>
-           select count(distinct s.survey_id)
-            	from surveys s
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_package_exists">
-        <querytext>
-		select distinct package_key from apm_packages where package_key= :package_key
-	</querytext>
-    </fullquery>
-
 </queryset>
Index: openacs-4/packages/user-tracking/www/site-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/site-card.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/site-card.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/site-card.adp	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,61 +1,265 @@
-
-<master>
-<property name="title">@page_title;noquote@</property>
-<property name="context">@context;noquote@</property>
-
-[<small>
-  <small>#user-tracking.lt_Site_Stats#</small>
-  |
-  <a href="communities-stats"><small>#user-tracking.lt_Communities_Stats#</small></a>
-  |
-  <a href="users-stats"><small>#user-tracking.lt_Users_Stats#</small></a>
-  |
-  <a href="advanced-stats"><small>#user-tracking.lt_Advanced_Stats_1#</small></a>
-</small>]
-
-<p></p>
-<p></p>
-
-<h3>#user-tracking.lt_Site_Stats#</h3>
-
-<ul>
-  <li> #user-tracking.ut_Number_Of_Users_1# <a href="registration-history">#user-tracking.ut_See_Register_Historic#</a></li>
-  <if @NofUsers@ gt 0>
-  	<ul> <li>#user-tracking.ut_Are_Students#</li></ul>
-  </if>
-  <if @NofAdmin@ gt 0>
-	<ul> <li>#user-tracking.ut_Are_Admin#</li></ul>
-  </if>
-
-  <if @LastRegistration@ gt 0>
-	  <li> #user-tracking.ut_Last_Register#</li>
-  </if>
-  <if @LastVisit@ gt 0>
-	  <li> #user-tracking.ut_Last_View#</li>
-  </if>
-  <if @TotalVisits@ gt 0>
-	  <li> #user-tracking.ut_Total_of_Sessiones#</li>
-  </if>
-  
-  <li> #user-tracking.ut_Number_Of_Communities# </li>
-  <li> #user-tracking.ut_Number_Of_Classes#</li>
-
-  <if @NofForums@ gt 0>
-	  <li> #user-tracking.ut_Number_Of_Forums# <a href="forums-card">#user-tracking.Ver_Forosut_See_Forums#</a></li>
-  </if>
-  <if @NofFaqs@ gt 0>
-	  <li> #user-tracking.ut_Number_Of_FAQS# <a href="faq-card">#user-tracking.ut_See_FAQS#</a></li>
-  </if>
-  <if @NofNews@ gt 0>
-	  <li> #user-tracking.ut_Number_Of_News# <a href="news-card">#user-tracking.ut_See_News#</a></li>
-  </if>
-  <if @NofSurveys@ gt 0>
-	  <li> #user-tracking.ut_Number_Of_Surveys# <a href="survey-card">#user-tracking.Ver_Surveys#</a></li>
-  </if>
-  
-  <li> <a href="lanza?config=site">#user-tracking.ut_See_System_Stats#</a> </li>
- </p>
-</ul>
-
-
-
+
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+[<small>
+ <small>#user-tracking.lt_Site_Stats#</small>
+ |
+ <a href="communities-stats"><small>#user-tracking.lt_Communities_Stats#</small></a>
+ |
+ <a href="users-stats"><small>#user-tracking.lt_Users_Stats#</small></a>
+ |
+ <a href="advanced-stats"><small>#user-tracking.lt_Advanced_Stats_1#</small></a>
+</small>]
+
+<p></p>
+<p></p>
+<h3>#user-tracking.lt_Site_Stats#</h3>
+
+
+   
+
+ 
+   <table border="0" width="100%">
+   <tr>
+      <td valign="top" width="50%">
+      <table class="element" border=0 cellpadding="0" cellspacing="0" width="100%">
+     <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr> 
+      <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+   	   <h3>#user-tracking.site_info#</h3>
+   	   <ul>
+   		<li>#user-tracking.server_name#:@system_name@</li>
+   		<li>#user-tracking.instance_name#:@server@</li>
+   		<br>
+   		<if @nodata_p@ eq 1>
+   		<if @noloading@ eq 1>
+   		<li>#user-tracking.Data_from#: @FirstTime@</li> 
+   		<li>#user-tracking.Data_to#: @LastTime@ </li>  
+   		<li>#user-tracking.Number_of_visitors#: @TotalUnique@</li>
+   		<li>#user-tracking.Number_of_sessions#: @TotalVisits@ </li>
+   		<li>#user-tracking.Visited_Pages#: @TotalPages@</li>
+   		<li>#user-tracking.Hits#: @TotalAsked@</li>  
+   		<br>
+   		</if>
+   		</if>
+   		<li> #user-tracking.ut_Number_Of_Communities# </li>
+   		<li> #user-tracking.ut_Number_Of_Classes#</li>
+     	   </ul>
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>
+     <tr>
+      	<td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr>   
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+   	   <h3>#user-tracking.info_about_registered_users#</h3>
+   	   <ul>
+     		<li> #user-tracking.ut_Number_Of_Users_1#</li>
+     		<if @NofUsers@ gt 0>
+     	   	<ul> <li>#user-tracking.ut_Are_Students#</li></ul>
+     		</if>
+     		<if @NofAdmin@ gt 0>
+   		<ul> <li>#user-tracking.ut_Are_Admin#</li></ul>
+   		</if>
+     		<if @LastRegistration@ gt 0>
+   			<li> #user-tracking.ut_Last_Register#</li>
+   		</if>		
+   	   	<li><a href="registration-history">#user-tracking.ut_See_Register_Historic#</a></li>
+     	   </ul>
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>   
+    <tr>
+      	<td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr>   
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+   	   <h3>#user-tracking.info_about_contributions#</h3>
+   		<include src="contributions-chunk2">
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>      
+      <tr>
+      <td colspan="3" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+      </table>
+      <td valign="top" width="50%">
+<if @today@ gt @asked_date@>
+   <if @nodata_p@ eq "1">
+     <table class="element" border="0" cellpadding="0" cellspacing="0" width="100%">
+
+     <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr> 
+      <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+               <h3>#user-tracking.lt_month_over_which_statistics_are_seen#</h3>
+               <center>
+               <br>
+               <form name="mia" action="site-card" method="post">
+               @datebox;noquote@
+               <input type="submit" value="#user-tracking.see#"/>
+               </form>
+               </center>
+               <ul><li><a href="loading2?config=@config@">#user-tracking.update_data#</a></li></ul>
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>
+
+   	<tr><td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.temporary_reports#</h3>
+      		   <if @noloading@ eq 1>
+   	   	   		<include src="visits-chunk" DataFileName="@DataFileName@" p_hits="1" user_id="" community_id="">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>
+
+   	<tr>
+   	   <td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+      	</tr> 
+   	<tr><td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.info_about_petitions#</h3>
+      		   <if @noloading@ eq 1>
+   	   	   	<include src="petitions-chunk" DataFileName="@DataFileName@" user_id="" community_id="">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>	
+   	<tr>
+   	   <td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+      	</tr> 
+   	<tr><td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.info_about_consulted_material#</h3>
+      		   <if @noloading@ eq 1>   		   
+   	   	   	<include src="visited-material-chunk" DataFileName="@DataFileName@" user_id="" community_id="">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>	
+   	<tr>
+   	<td colspan="3" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif"></td>
+   	</tr>
+   	   </if>
+   <else>
+      <include src="loading" url="site-card?" onlylines="@onlylines@" onlyuser="@onlyuser@" config="@config@" type="@type@" year="@year@" month="@month@">
+   </else>
+</if>
+<else>
+    <table class="element" border="0" cellpadding="0" cellspacing="0" width="100%">
+    <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+    </tr> 
+    <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+    </tr>
+    <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+               <h3>#user-tracking.lt_month_over_which_statistics_are_seen#</h3>
+               <center>
+               <br>
+               <form name="mia" action="site-card" method="post">
+               @datebox;noquote@
+               <input type="submit" value="#user-tracking.see#"/>	
+               </form>
+               </center>
+	       <font color=red>#user-tracking.future_date#</font>
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+    </tr>
+    </table>
+</else>
+</table>
+</table>	
+
+
+
Index: openacs-4/packages/user-tracking/www/site-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/site-card.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/site-card.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/site-card.tcl	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,91 +1,214 @@
 
 ad_page_contract {
-    @author yon (yon@openforce.net)
-    @creation-date 2002-01-30
-    @version $Id$
+    @author doa (doa@tid.es)
+    @author sergiog (sergiog@tid.es)
+    @creation-date 2005-03-01
 } -query { 
     {NofMembers ""}
     {NofUsers ""}
     {LastVisit ""}
     {LastRegistration ""}
     {TotalVisits ""}
-    {NofClasses ""}
-    {NofCommunities ""}
-    {NofForums ""}
-    {NofFaqs ""}
-    {NofNews ""}
-    {NofSurveys ""}
-
+    {type "general"}
+    {config "site"}
+    {onlyuser ""}
+    {onlylines ""}
+    {nodata_p "0"}
+    {noloading "1"}
+    {pretype ""}
+    {month ""}
+    {year ""}
+    {mydate:array ""}
 } -properties {    
+    TotalUnique:onevalue
+    TotalPages:onevalue
+    TotalAsked:onevalue
     NofMembers:onevalue
     NofUsers:onevalue
     LastVisit:onevalue
     LastRegistration:onevalue
     TotalVisits:onevalue
-    NofClasses:onevalue
-    NofCommunities:onevalue
-    NofForums:onevalue
-    NofFaqs:onevalue
-    NofNews:onevalue
-    NofSurveys:onevalue    
+    DataFileName:onevalue
+    FirstTime:onevalue
+    LastTime:onevalue
+    LastUp:onevalue
+    onlyuser:onevalue
+    onlylines:onevalue
+    config:onevalue
+    pretype:onevalue   
+    datebox:onevalue
+    mydate:onevalue
+    today:onevalue
+    asked_day:onevalue
+    server:onevalue
+    system_name:onevalue
 }
 
+
+#Only available for admin users
+ad_require_permission [ad_conn package_id] "admin"
+
 if {![exists_and_not_null referer]} {
     set referer "[user-tracking::get_package_url]/users-stats"
 }
 
-#Admin
-ad_require_permission [ad_conn package_id] "admin"
+if {[exists_and_not_null year] & [exists_and_not_null month]} {
+	set datebox [dt_widget_datetime -default "$year-$month-01" mydate "months"]
+} elseif {[exists_and_not_null mydate(year)] & [exists_and_not_null mydate(month)]} {
+	set datebox [dt_widget_datetime -default "$mydate(year)-$mydate(month)-01" mydate "months"]
+	set year $mydate(year)
+	set month $mydate(month)
+} else {
+set datebox [dt_widget_datetime -default now mydate "months"]
+	set year [template::util::date::get_property year [template::util::date::today]]
+	set month [template::util::date::get_property month [template::util::date::today]]
+}
 
-#Hay que modificar el titulo de la pagina
+set fmt "%Y-%m-%d"
+set today [clock seconds]
+set asked_date [clock scan "$year-$month-1"]
+
 set page_title [_ user-tracking.lt_Site_Stats]
 set context [list $page_title]
 
-db_1row select_n_users {}
-set NofMembers $n_users
-   set LastRegistration_ansi [lc_time_system_to_conn $last_registration]
-   set LastRegistration [lc_time_fmt $LastRegistration_ansi "%x %X"]
-   
-   set LastVisit_ansi [lc_time_system_to_conn $last_visit]
-   set LastVisit [lc_time_fmt $LastVisit_ansi "%x %X"]
-set TotalVisits $total_visits
 
 
+set DataFileName [user-tracking::get_data_file_name $onlylines $onlyuser $config $year $month]
 
-set rol_users_list {dotlrn_student_rel dotlrn_member_rel membership_rel dotlrn_non_guest_rel dotlrn_student_profile_rel}
-set rol_admin_list {dotlrn_admin_rel dotlrn_cadmin_rel dotlrn_instructor_rel dotlrn_admin_profile_rel dotlrn_professor_profile_rel}
+   set rol_users_list {dotlrn_student_rel dotlrn_member_rel membership_rel dotlrn_non_guest_rel dotlrn_student_profile_rel}
+   set rol_admin_list {dotlrn_admin_rel dotlrn_cadmin_rel dotlrn_instructor_rel dotlrn_admin_profile_rel dotlrn_professor_profile_rel}
+   
+   set rels $rol_users_list
+   set NofUsers [db_string select_members_count_by_type {} ]
+   
+   set rels $rol_admin_list
+   set NofAdmin [db_string select_members_count_by_type {} ]
 
-set rels $rol_users_list
-set NofUsers [db_string select_members_count_by_type {} ]
+   set NofClasses [db_string select_classes_count {} ]
+   
+   set NofCommunities [db_string select_clubs_count {} ]
+   db_1row select_n_users {}
+   set NofMembers $n_users  
 
-set rels $rol_admin_list
-set NofAdmin [db_string select_members_count_by_type {} ]
-
-
-set NofClasses [db_string select_classes_count {} ]
-
-set NofCommunities [db_string select_clubs_count {} ]
-
-set package_key "forums"
-if {[db_0or1row select_package_exists {}]} {
-	set NofForums [db_string select_forums_count {} ]
+   set server [ns_info server]
+   set system_name [ad_system_name]
+       
+if {$asked_date <= $today } {
+   set nodata_p 0
+   if {[file exists $DataFileName]} {
+      set nodata_p 1
+      set LastRegistration_ansi [lc_time_system_to_conn $last_registration]
+      set LastRegistration [lc_time_fmt $LastRegistration_ansi "%x %X"]
+      set LastVisit_ansi [lc_time_system_to_conn $last_visit]
+      set LastVisit [lc_time_fmt $LastVisit_ansi "%x %X"]
+      set TotalVisits $total_visits
+   
+      set dataFile [open "$DataFileName" r]
+      
+      #Getting file map
+      set linea [gets $dataFile]
+      set fin [eof $dataFile]
+      set patron "(BEGIN_MAP) (.*)"
+      while { $fin == 0} {
+      	set linea [gets $dataFile]
+      	set fin [eof $dataFile]
+      	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+      		set fin 1
+      	}
+      }
+   
+      set fin 0
+      set patron "^(\[A-Z\\_0-9\]*) (.*)"
+      while { $fin == 0} {
+      	set linea [gets $dataFile]
+      	set fin [eof $dataFile]
+      	if { [regexp $patron $linea todo part1 part2] ==1 } {
+      		set Map($part1) $part2 
+      	}
+      	if { $linea == "END_MAP"} {
+      		set fin 1
+      	}
+      }
+      
+      #Getting data about general section
+      
+      set pos $Map(POS_GENERAL)
+      seek $dataFile $pos
+      set linea [gets $dataFile]
+      set patron "(BEGIN_GENERAL) (.*)"
+      while { ![regexp $patron $linea todo part1 part2] } {	
+      	set linea [gets $dataFile]	
+      	if {[eof $dataFile]} {
+      		set part2 0
+      		break;
+      	}
+      }
+      set i $part2
+      
+      while { $i > 0} {	
+      	set linea [gets $dataFile]
+      	set campos [split $linea]
+      	switch [lindex $campos 0] {
+      		FirstTime { 
+      			set FirstTime [user-tracking::converts_date [lindex $campos 1]]
+      			}
+      		LastTime { 
+      			set LastTime [user-tracking::converts_date [lindex $campos 1]]
+      			}
+      		LastUpdate { 
+      			set LastUp [user-tracking::converts_date [lindex $campos 1]]
+      			}
+      		TotalVisits { 
+      			set TotalVisits [lindex $campos 1]
+      			}
+      		TotalUnique { 
+      			set TotalUnique [lindex $campos 1]
+      			}
+      		default {}
+      	}
+      	set i [expr $i - 1]
+      	if {[eof $dataFile]} { #Wrong file?
+      		break;
+      	}
+      }
+      
+      #Getting number of visited pages
+      
+      set pos $Map(POS_DAY)
+      seek $dataFile $pos
+      set linea [gets $dataFile]
+      set patron "(BEGIN_DAY) (.*)"
+      while { ![regexp $patron $linea todo part1 part2] } {	
+      	set linea [gets $dataFile]	
+      	if {[eof $dataFile]} {
+      		set part2 0
+      		break;
+      	}
+      }
+      
+      set i $part2
+      
+      set TotalPages 0
+      set TotalAsked 0
+      
+      while { $i > 0} {	
+      	set linea [gets $dataFile]
+      	set campos [split $linea]
+      	set TotalPages [expr $TotalPages+ [lindex $campos 1]]
+      	set TotalAsked [expr $TotalAsked+ [lindex $campos 2]]
+      	set i [expr $i - 1]
+      	if {[eof $dataFile]} { #Wrong file?
+      		break;
+      	}
+      }
+      
+      close $dataFile
+      
+   } else {
+     if {$noloading eq 0} {
+      	set nodata_p 1
+     }
+   }
 }
-
-set package_key "faq"
-if {[db_0or1row select_package_exists {}]} {
-	set NofFaqs [db_string select_faqs_count {} ]
-}
-
-set package_key "news"
-if {[db_0or1row select_package_exists {}]} {
-	set NofNews [db_string select_news_count {} ]
-}
-
-set package_key "survey"
-if {[db_0or1row select_package_exists {}]} {
-	set NofSurveys [db_string select_surveys_count {} ]
-}
-
-
 ad_return_template
 
Index: openacs-4/packages/user-tracking/www/survey-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/survey-card-postgresql.xql,v
diff -u -N
--- openacs-4/packages/user-tracking/www/survey-card-postgresql.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,69 +0,0 @@
-?xml version="1.0"?>
-
-<queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-    <fullquery name="select_survey">
-        <querytext>
-		select s.survey_id, s.name, s.editable_p, s.single_response_p,
-			sr.response_id, to_char(sr.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
-			s.package_id
-  		from surveys s, survey_responses_latest sr
- 		where s.enabled_p='t'
- 		      and s.survey_id = sr.survey_id
- 		      and sr.initial_user_id= :user_id
- 		order by upper(s.name)
- 	</querytext>
-    </fullquery>
-
-    <fullquery name="select_survey_by_com">
-        <querytext>
-		select s.survey_id, s.name, s.editable_p, s.single_response_p,
-			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
-			s.package_id
-  		from surveys s, dotlrn_communities com, acs_objects o
- 		where s.enabled_p='t'
-	              and o.object_id=s.survey_id 		
- 		      and com.community_id= 3461
-	              and apm_package__parent_id(s.package_id) = com.package_id
- 		order by upper(s.name)
- 	</querytext>
-    </fullquery>
-
-    <fullquery name="select_site_surveys">
-        <querytext>
-		select s.survey_id, s.name, s.editable_p, s.single_response_p,
-			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
-			s.package_id
-  		from surveys s, acs_objects o
- 		where s.enabled_p='t'
-	              and o.object_id=s.survey_id
- 		order by upper(s.name)
- 	</querytext>
-    </fullquery>
-
-    <fullquery name="select_user_info">      
-        <querytext>
-            select first_names,
-                   last_name,
-                   email,
-                   screen_name,
-                   creation_date as registration_date,
-                   creation_ip,
-                   last_visit,
-                   member_state,
-                   email_verified_p
-            from cc_users
-            where user_id = :user_id
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_com_data">
-        <querytext>
-           select distinct h.pretty_name as first_names
-		from dotlrn_communities h
-		where h.community_id= :community_id
-        </querytext>
-    </fullquery>
-    
-</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/survey-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/survey-card.adp,v
diff -u -N
--- openacs-4/packages/user-tracking/www/survey-card.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,34 +0,0 @@
-<master>
-<property name="title">@page_title;noquote@</property>
-<property name="context">@context;noquote@</property>
-
-<h3>#user-tracking.added_survey#</h3>
-
-<ul>
-
-<if @user_id@ ne "">
-  <li> #dotlrn.Person_name#: @first_names@ @last_name@ </li>
-  <li> #dotlrn.Email# <a href="mailto:@email@">@email@</a> </li>
-  
-  </ul>
-
-	<center>
-	<listtemplate name="surveys_responses"></listtemplate>
-	</center>
-
-</if>
-<else><if @community_id@ ne "">
-  <li> #user-tracking.ut_Community_Name# </li>
-
-  </ul>
-	<center>
-	<listtemplate name="surveys"></listtemplate>
-	</center>
-</if><else>
-	<center>
-	<listtemplate name="surveys"></listtemplate>
-	</center>
-</else>
-</else>
-</p>
-  
Index: openacs-4/packages/user-tracking/www/survey-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/survey-card.tcl,v
diff -u -N
--- openacs-4/packages/user-tracking/www/survey-card.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,145 +0,0 @@
-ad_page_contract {
-    @author sergiog (sergiog@tid.es)
-    @author doa (doa@tid.es)
-    @creation-date 2004-11-23
-} -query { 
-    {user_id ""}
-    {community_id ""}
-} -properties {
-    surveys:multirow
-    first_names:onevalue
-    last_name:onevalue
-    email:onevalue
-    user_id:onevalue
-    
-}
-
-if {![exists_and_not_null referer]} {
-    set referer "[user-tracking::get_package_url]/users-stats"
-}
-
-if {![exists_and_not_null user_id]} {	
-	if {![exists_and_not_null community_id]} {
-		#Admin
-		ad_require_permission [ad_conn package_id] "admin"
-		set query select_site_surveys
-		db_multirow -extend { 
-			posting_date_pretty
-	    		url
-	    		goto
-		} surveys $query {} {
-		   set posting_date_ansi [lc_time_system_to_conn $creation_date]
-		   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-		   set url [site_node::get_url_from_object_id -object_id $package_id]
-		   set url "${url}one-survey?survey_id=${survey_id}"
-		   set goto "#user-tracking.survey_goto#"
-		}
-    	} else {
-    		#Proffesor
-    		ad_require_permission $community_id "admin"
-    		if {![db_0or1row select_com_data {}]} {
-		    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-		    ad_script_abort
-		}
-		set query select_survey_by_com
-		db_multirow -extend { 
-			posting_date_pretty
-	    		url
-	    		goto
-		} surveys $query {} {
-
-		   set posting_date_ansi [lc_time_system_to_conn $creation_date]
-		   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-		   set url [site_node::get_url_from_object_id -object_id $package_id]
-		   set url "${url}one-survey?survey_id=${survey_id}"
-		   set goto "#user-tracking.survey_goto#"
-
-		}
-    	}   	
-} else {
-	set new_user_id [ad_conn user_id]	
-        if {![string equal $new_user_id $user_id]} {
-		ad_require_permission [ad_conn package_id] "admin"
-	}
-	
-	if {![db_0or1row select_user_info {}]} {
-	    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-	    ad_script_abort
-	}
-	set query select_survey
-	db_multirow -extend { 
-	    survey_url
-	    posting_date_pretty
-	    url
-	    goto
-	} surveys $query {} {
-	
-	   set posting_date_ansi [lc_time_system_to_conn $creation_date]
-	   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
-	   set url [site_node::get_url_from_object_id -object_id $package_id]
-	   set survey_url "${url}one-respondent?survey_id=$survey_id#$response_id"
-	   set url "${url}one-survey?survey_id=${survey_id}"
-	   set goto "#user-tracking.survey_goto#"	
-	}
-}   	
-
-#if {![exists_and_not_null user_id]} {
-#    #Si no hay user_id redireccionamos a la seleccion de usuarios
-#    ad_returnredirect $referer
-#}
-
-#if {![db_0or1row select_user_info {}]} {
-#    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
-#    ad_script_abort
-#}
-
-set page_title [_ user-tracking.Surveys_Stats]
-set context [list $page_title]
-
-#db_multirow surveys select_survey {} {
-#}
-
-#ad_return_template
-#set query select_survey
-
-template::list::create \
-    -name surveys \
-    -multirow surveys \
-    -elements {
-        title {
-            label "#user-tracking.survey_title#"
-            link_url_col url
-            display_col name
-        }
-        posting_date {
-            label "#user-tracking.Post_Date#"
-            display_col posting_date_pretty
-        }
-    } -filters {
-        package_id {}
-    }
-
-template::list::create \
-    -name surveys_responses \
-    -multirow surveys \
-    -elements {
-        title {
-            label "#user-tracking.survey_title#"
-            link_url_col url
-            display_col name
-        }
-        posting_date {
-            label "#user-tracking.Post_Date#"
-            display_col posting_date_pretty
-        }
-        goto {
-            label "#user-tracking.survey_goto#"
-            link_url_col survey_url
-	    display_col goto
-        }
-
-    } -filters {
-        package_id {}
-    }
-
-ad_return_template
Index: openacs-4/packages/user-tracking/www/users-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/users-card-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/users-card-postgresql.xql	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/users-card-postgresql.xql	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,8 +1,7 @@
 <?xml version="1.0"?>
 
 <queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
+ 
     <fullquery name="select_user_info">      
         <querytext>
             select first_names,
@@ -19,93 +18,4 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="select_member_classes">
-        <querytext>
-            select dotlrn_class_instances_full.*,
-                   dotlrn_member_rels_approved.rel_type,
-                   dotlrn_member_rels_approved.role,
-                   '' as role_pretty_name
-            from dotlrn_class_instances_full,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id
-            order by dotlrn_class_instances_full.department_name,
-                     dotlrn_class_instances_full.department_key,
-                     dotlrn_class_instances_full.pretty_name,
-                     dotlrn_class_instances_full.community_key
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_member_clubs">
-        <querytext>
-            select dotlrn_clubs_full.*,
-                   dotlrn_member_rels_approved.rel_type,
-                   dotlrn_member_rels_approved.role,
-                   '' as role_pretty_name
-            from dotlrn_clubs_full,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_clubs_full.club_id
-            order by dotlrn_clubs_full.pretty_name,
-                     dotlrn_clubs_full.community_key
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_member_subgroups">
-        <querytext>
-            select dotlrn_communities.*,
-                   dotlrn_community__url(dotlrn_communities.community_id) as url,
-                   dotlrn_member_rels_approved.rel_type,
-                   dotlrn_member_rels_approved.role,
-                   '' as role_pretty_name
-            from dotlrn_communities,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_communities.community_id
-            and dotlrn_communities.community_type = 'dotlrn_community'
-            order by dotlrn_communities.pretty_name,
-                     dotlrn_communities.community_key
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_total_posts">
-        <querytext>
-            select count(*)
-            from acs_objects  
-            where creation_user = :user_id 
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_total_posts_by_type">
-        <querytext>
-            select count(*)
-            from acs_objects  
-            where creation_user = :user_id 
-            	and object_type= :object_type
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_faq_count">
-        <querytext>
-    		select count(ans.question)
-    		       from faq_q_and_as ans, faqs f, acs_objects o
-    		       where o.object_id=ans.entry_id
-    		             and ans.faq_id=f.faq_id
-    		             and o.creation_user= :user_id
-        </querytext>
-    </fullquery>
-    <fullquery name="select_news_count">
-        <querytext>
-            select count(news_items_approved.publish_title)
-            from news_items_approved
-            where news_items_approved.creation_user= :user_id
-         </querytext>
-    </fullquery>
-
-    <fullquery name="select_package_exists">
-        <querytext>
-		select distinct package_key from apm_packages where package_key= :package_key
-	</querytext>
-    </fullquery>
-
 </queryset>
Index: openacs-4/packages/user-tracking/www/users-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/users-card.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/users-card.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/users-card.adp	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,101 +1,244 @@
-
-<master>
-<property name="title">@page_title;noquote@</property>
-<property name="context">@context;noquote@</property>
-
-[<small>
-  <a href="site-card"><small>#user-tracking.lt_Site_Stats#</small></a>
-  |
-  <a href="communities-stats"><small>#user-tracking.lt_Communities_Stats#</small></a>
-  |
-  <a href="users-stats"><small>#user-tracking.lt_Users_Stats#</small></a>
-  |
-  <a href="advanced-stats"><small>#user-tracking.lt_Advanced_Stats_1#</small></a>
-</small>]
-
-<p></p>
-<p></p>
-
-<h3>#dotlrn.General_Information#</h3>
-
-<ul>
-  <li> #dotlrn.Person_name#: @first_names@ @last_name@ </li>
-  <li> #dotlrn.Email#: <a href="mailto:@email@">@email@</a> </li>
-  <li> #dotlrn.Screen_name#: @screen_name@ </li>
-  <li> #dotlrn.User_ID#: @user_id@  </li>
-  <li> #dotlrn.Registration_date# @registration_date@ </li>
-  <if @last_visit@ not nil>
-    <li> #dotlrn.Last_Visit#: @last_visit@ </li>
-  </if>
-  <li> <a href="lanza?config=user&user_id=@user_id@&sitedomain=@last_name@, @first_names@">#user-tracking.lt_View_Stats#</a> </li>
- </p>
-
-</ul>
-
-
-<if @member_classes:rowcount@ gt 0>
-  <blockquote>
-    <h3>#dotlrn.class_memberships#</h3>
-    <ul>
-    <multiple name="member_classes">
-      <li>
-        <a href="@member_classes.url@">@member_classes.pretty_name@</a>
-        @member_classes.term_name@ @member_classes.term_year@
-        (@member_classes.role_pretty_name@)
-      </li>
-     </multiple>
-     </ul>
-  </blockquote>
-</if>
-
-<if @member_clubs:rowcount@ gt 0>
-  <blockquote>
-    <h3>#dotlrn.community_memberships#</h3>
-    <ul>
-    <multiple name="member_clubs">
-      <li>
-        <a href="@member_clubs.url@">@member_clubs.pretty_name@</a>
-        (@member_clubs.role_pretty_name@)
-      </li>
-    </multiple>
-    </ul>
-  </blockquote>
-</if>
-
-<if @member_subgroups:rowcount@ gt 0>
-  <blockquote>
-    <h3>#dotlrn.subcommunity_memberships#</h3>
-    <ul>
-    <multiple name="member_subgroups">
-      <li>
-        <a href="@member_subgroups.url@">@member_subgroups.pretty_name@</a>
-        (@member_subgroups.role_pretty_name@)
-      </li>
-    </multiple>
-    </ul>
-  </blockquote>
-</if>
-
-<if @total_posted@ gt 0>
-  <blockquote>
-    <h3>#user-tracking.ut_User_has_Added# @total_posted@ #user-tracking.ut_Site_objects#</h3>
-    <ul>
-	<if @faq_posted@ gt 0>
-	  <li> #user-tracking.ut_User_has_posted# @faq_posted@  #user-tracking.ut_FAQS# <a href="faq-card?user_id=@user_id@">#user-tracking.ut_See_FAQS#</a></li>
-	</if>
-	<if @news_posted@ gt 0>
-	  <li>  #user-tracking.ut_User_has_posted# @news_posted@ #user-tracking.ut_News# <a href="news-card?user_id=@user_id@">#user-tracking.ut_See_News#</a></li>	  
-	</if>
-	<if @surveys_posted@ gt 0>
-	  <li>  #user-tracking.ut_User_has_posted# @surveys_posted@ #user-tracking.ut_Surveys# <a href="survey-card?user_id=@user_id@">#user-tracking.ut_See_Surveys#</a></li></li>	  
-	</if>
-	<if @forum_posted@ gt 0>
-	  <li>  #user-tracking.ut_User_has_posted# @forum_posted@ #user-tracking.ut_Forum_messages# <a href="forums-card?user_id=@user_id@">#user-tracking.ut_See_Messages#</a></li>	  
-	</if>
-	<if @files_posted@ gt 0>
-	  <li>  #user-tracking.ut_User_has_posted# @files_posted@ #user-tracking.ut_Files# <a href="files-card?user_id=@user_id@">#user-tracking.ut_See_Files#</a></li>	  
-	</if>
-    </ul>
-  </blockquote>
-</if>
-
+
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+[<small>
+ <a href="site-card"><small>#user-tracking.lt_Site_Stats#</small></a>
+ |
+ <a href="communities-stats"><small>#user-tracking.lt_Communities_Stats#</small></a>
+ |
+ <a href="users-stats"><small>#user-tracking.lt_Users_Stats#</small></a>
+ |
+ <a href="advanced-stats"><small>#user-tracking.lt_Advanced_Stats_1#</small></a>
+</small>]
+
+<p></p>
+<p></p>
+<h3>#user-tracking.User_Stats#</h3>
+
+
+   
+
+ 
+   <table border="0" width="100%">
+   <tr>
+      <td valign="top" width="50%">
+      <table class="element" border=0 cellpadding="0" cellspacing="0" width="100%">
+     <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr> 
+      <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+   	   <h3>#user-tracking.user_info#</h3>
+   	   <ul>
+
+   		<li> #user-tracking.Person_name#: @first_names@ @last_name@ </li>
+   		<li> #user-tracking.Email# <a href="mailto:@email@">@email@</a> </li>
+   		<li> #user-tracking.Screen_name#: @screen_name;noquote@ </li>
+   		<li> #user-tracking.User_ID#: @user_id@  </li>
+   		<li> #user-tracking.Registration_date# @registration_date@ </li>
+   		<if @last_visit@ not nil>
+   		<li> #user-tracking.Last_Visit#: @last_visit@ </li>
+   		</if>
+   		<br>
+   		<if @nodata_p@ eq 1>
+   		<if @noloading@ eq 1>
+   		<li>#user-tracking.Data_from#: @FirstTime@</li> 
+   		<li>#user-tracking.Data_to#: @LastTime@ </li>  
+   		<li>#user-tracking.Number_of_visitors#: @TotalUnique@</li>
+   		<li>#user-tracking.Number_of_sessions#: @TotalVisits@ </li>
+   		<li>#user-tracking.Visited_Pages#: @TotalPages@</li>
+   		<li>#user-tracking.Hits#: @TotalAsked@</li>  
+   		<br>
+   		</if>
+   		</if>   		
+
+     	   </ul>
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>
+  
+    <tr>
+      	<td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr>   
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+   	   <h3>#user-tracking.info_about_contributions#</h3>
+   		<include src="contributions-chunk2" user_id="@user_id@">
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>      
+      <tr>
+      <td colspan="3" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+      </table>
+      <td valign="top" width="50%">
+<if @today@ gt @asked_date@>
+   <if @nodata_p@ eq "1">
+     <table class="element" border="0" cellpadding="0" cellspacing="0" width="100%">
+
+     <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+     </tr> 
+      <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+      </tr>
+      <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+               <h3>#user-tracking.lt_month_over_which_statistics_are_seen#</h3>
+               <center>
+               <br>
+               <form name="mia" action="users-card" method="post">
+               @datebox;noquote@
+               @hidden;noquote@
+               <input type="submit" value="#user-tracking.see#"/>
+               </form>
+               </center>
+               <ul><li><a href="loading2?config=@config@&url=users-card&onlyuser=@user_id@">#user-tracking.update_data#</a></li></ul>
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+      </tr>
+
+   	<tr><td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>Informes Temporales</h3>
+      		   <if @noloading@ eq 1>
+   	   	   		<include src="visits-chunk" DataFileName="@DataFileName@" user_id="@user_id@" community_id="">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>
+
+   	<tr>
+   	   <td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+      	</tr> 
+   	<tr><td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.info_about_petitions#</h3>
+      		   <if @noloading@ eq 1>
+   	   	   	<include src="petitions-chunk" DataFileName="@DataFileName@" user_id="@user_id@" community_id=""> 
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>	
+   	<tr>
+   	   <td colspan="3" class="dark-line" height="20"><img src="/resources/dotlrn/spacer.gif"></td>
+      	</tr> 
+   	<tr><td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td></tr>
+   	<tr>
+     		<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   		<td class="element-text" width="100%">
+   		   <table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   		   <tr>
+   		   <td>
+   		   <h3>#user-tracking.info_about_consulted_material#</h3>
+      		   <if @noloading@ eq 1>   		   
+   	   	   	<include src="visited-material-chunk" DataFileName="@DataFileName@" user_id="@user_id@" community_id="">
+   	   	   </if><else>
+   	   	   	<center>
+   	   	   	<br>
+   	   	   	<font color=red>#user-tracking.no_data#</font>
+   	   	   	</center>
+   	   	   </else>
+   	   	   </td>
+   		   </tr>
+   		   </table>
+      		</td>
+      		<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	</tr>	
+   	<tr>
+   	<td colspan="3" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif"></td>
+   	</tr>
+   	   </if>
+   <else>
+      <include src="loading" url="users-card?user_id=@user_id@&" onlylines="@onlylines@" onlyuser="@user_id@" config="@config@" type="@type@" year="@year@" month="@month@">
+   </else>
+</if>
+<else>
+    <table class="element" border="0" cellpadding="0" cellspacing="0" width="100%">
+    <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+    </tr> 
+    <tr>
+      	<td colspan="3" class="dark-line" height="0"><img src="/resources/dotlrn/spacer.gif"></td>
+    </tr>
+    <tr>
+   	<td class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+   	<td class="element-text" width="100%">
+   	<table cellspacing="0" cellpadding="0" class="element-content" width="100%">
+   	<tr>
+   	   <td>
+               <h3>#user-tracking.lt_month_over_which_statistics_are_seen#</h3>
+               <center>
+               <br>
+               <form name="mia" action="users-card" method="post">
+               @datebox;noquote@
+               @hidden;noquote@
+               <input type="submit" value="#user-tracking.see#"/>	
+               </form>
+               </center>
+	       <font color=red>#user-tracking.future_date#</font>
+   	   </td>
+   	</tr>
+   	</table>
+    	</td>
+   	<td align="right" class="light-line" width="1"><img src="/resources/dotlrn/spacer.gif" width="1"></td>
+    </tr>
+    </table>
+</else>
+</table>
+</table>	
+
+                                                                                                                                 
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/users-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/users-card.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/users-card.tcl	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/users-card.tcl	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,43 +1,45 @@
 
-
 ad_page_contract {
-    @author yon (yon@openforce.net)
-    @creation-date 2002-01-30
-    @version $Id$
+    @author doa (doa@tid.es)
+    @author sergiog (sergiog@tid.es)
+    @creation-date 2005-03-01
 } -query { 
-	{user_id ""}
-	{first_names ""}
-	{last_name ""}
-	{email ""}
-	{screen_name ""}
-	{user_id ""}
-	{registration_date ""}
-	{last_visit ""}
-	{total_posted ""}
-	{faq_posted ""}
-	{news_posted ""}
-	{surveys_posted ""}
-	{forum_posted ""}
-	{files_posted ""}
-} -properties {
-    first_names:onevalue
-    last_name:onevalue
-    email:onevalue
-    screen_name:onevalue
+    {type "general"}
+    {onlyuser ""}
+    {onlylines ""}    
+    {config "site"}
+    {nodata_p "0"}
+    {noloading "1"}
+    {pretype ""}
+    {month ""}
+    {year ""}
+    {mydate:array ""}
+    {user_id}
+} -properties {    
+    TotalUnique:onevalue
+    TotalPages:onevalue
+    TotalAsked:onevalue
+    NofMembers:onevalue
+    NofUsers:onevalue
+    LastVisit:onevalue
+    LastRegistration:onevalue
+    TotalVisits:onevalue
+    DataFileName:onevalue
+    FirstTime:onevalue
+    LastTime:onevalue
+    LastUp:onevalue
+    config:onevalue
+    pretype:onevalue   
+    datebox:onevalue
+    mydate:onevalue
+    today:onevalue
+    asked_day:onevalue
     user_id:onevalue
-    registration_date:onevalue
-    last_visit:onevalue
-    member_classes:multirow
-    member_clubs:multirow
-    member_subgroups:multirow
-    total_posted:onevalue
-    faq_posted:onevalue
-    news_posted:onevalue
-    surveys_posted:onevalue
-    forum_posted:onevalue
-    files_posted:onevalue
+    hidden:onevalue
+
 }
 
+
 if {![exists_and_not_null referer]} {
     set referer "[user-tracking::get_package_url]/users-stats"
 }
@@ -54,7 +56,6 @@
 }
 
 
-#Hay que modificar el titulo de la pagina
 set page_title [_ user-tracking.User_Stats]
 set context [list $page_title]
 
@@ -71,63 +72,137 @@
     set last_visit [lc_time_fmt $last_visit "%q"]
 }
 
-db_multirow member_classes select_member_classes {} {
-    set role_pretty_name [dotlrn_community::get_role_pretty_name -community_id $class_instance_id -rel_type $rel_type]
-}
-db_multirow member_clubs select_member_clubs {} {
-    set role_pretty_name [dotlrn_community::get_role_pretty_name -community_id $club_id -rel_type $rel_type]
-}
-db_multirow member_subgroups select_member_subgroups {} {
-    set role_pretty_name [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type]
-}
-
-set package_key "faq"
-if {[db_0or1row select_package_exists {}]} {
-	set object_type "faq"
-	set faq_posted [db_string select_faq_count {} ]
+if {[exists_and_not_null year] & [exists_and_not_null month]} {
+	set datebox [dt_widget_datetime -default "$year-$month-01" mydate "months"]
+} elseif {[exists_and_not_null mydate(year)] & [exists_and_not_null mydate(month)]} {
+	set datebox [dt_widget_datetime -default "$mydate(year)-$mydate(month)-01" mydate "months"]
+	set year $mydate(year)
+	set month $mydate(month)
 } else {
-	set faq_posted 0
+set datebox [dt_widget_datetime -default now mydate "months"]
+	set year [template::util::date::get_property year [template::util::date::today]]
+	set month [template::util::date::get_property month [template::util::date::today]]
 }
 
-set package_key "news"
-if {[db_0or1row select_package_exists {}]} {
-	set object_type "content_item"    
-	set news_posted [db_string select_news_count {} ]
-} else {
-	set news_posted 0
-}
+set fmt "%Y-%m-%d"
+set today [clock seconds]
+set asked_date [clock scan "$year-$month-1"]
 
-set package_key "survey"
-if {[db_0or1row select_package_exists {}]} {
-	set object_type "survey_response"
-	set surveys_posted [db_string select_total_posts_by_type {} ]
-} else {
-	set surveys_posted 0
-}
+set DataFileName [user-tracking::get_data_file_name "" $user_id $config $year $month]
 
-set package_key "forums"
-if {[db_0or1row select_package_exists {}]} {
-	set object_type "forums_message"
-	set forum_posted [db_string select_total_posts_by_type {} ]
-} else {
-	set forum_posted  0
-}
+set hidden [export_vars -form {user_id}]
 
-set package_key "file-storage"
-if {[db_0or1row select_package_exists {}]} {
-	set object_type "file_storage_object"
-	set files_posted [db_string select_total_posts_by_type {} ]
+
+if {$asked_date <= $today } {
+   set nodata_p 0
+   if {[file exists $DataFileName]} {
+      set nodata_p 1
+      set dataFile [open "$DataFileName" r]
+      
+      #Getting file map
+      set linea [gets $dataFile]
+      set fin [eof $dataFile]
+      set patron "(BEGIN_MAP) (.*)"
+      while { $fin == 0} {
+      	set linea [gets $dataFile]
+      	set fin [eof $dataFile]
+      	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+      		set fin 1
+      	}
+      }
+      
+      set fin 0
+      set patron "^(\[A-Z\\_0-9\]*) (.*)"
+      while { $fin == 0} {
+      	set linea [gets $dataFile]
+      	set fin [eof $dataFile]
+      	if { [regexp $patron $linea todo part1 part2] ==1 } {
+      		set Map($part1) $part2 
+      	}
+      	if { $linea == "END_MAP"} {
+      		set fin 1
+      	}
+      }
+      
+      #Getting data in general section
+      
+      set pos $Map(POS_GENERAL)
+      seek $dataFile $pos
+      set linea [gets $dataFile]
+      set patron "(BEGIN_GENERAL) (.*)"
+      while { ![regexp $patron $linea todo part1 part2] } {	
+      	set linea [gets $dataFile]	
+      	if {[eof $dataFile]} {
+      		set part2 0
+      		break;
+      	}
+      }
+      set i $part2
+      
+      while { $i > 0} {	
+      	set linea [gets $dataFile]
+      	set campos [split $linea]
+      	switch [lindex $campos 0] {
+      		FirstTime { 
+      			set FirstTime [user-tracking::converts_date [lindex $campos 1]]
+      			}
+      		LastTime { 
+      			set LastTime [user-tracking::converts_date [lindex $campos 1]]
+      			}
+      		LastUpdate { 
+      			set LastUp [user-tracking::converts_date [lindex $campos 1]]
+      			}
+      		TotalVisits { 
+      			set TotalVisits [lindex $campos 1]
+      			}
+      		TotalUnique { 
+      			set TotalUnique [lindex $campos 1]
+      			}
+      		default {}
+      	}
+      	set i [expr $i - 1]
+      	if {[eof $dataFile]} { #Wrong file?
+      		break;
+      	}
+      }
+      
+      #Getting the number of visited pages
+      
+      set pos $Map(POS_DAY)
+      seek $dataFile $pos
+      set linea [gets $dataFile]
+      set patron "(BEGIN_DAY) (.*)"
+      while { ![regexp $patron $linea todo part1 part2] } {	
+      	set linea [gets $dataFile]	
+      	if {[eof $dataFile]} {
+      		set part2 0
+      		break;
+      	}
+      }
+      
+      set i $part2
+      
+      set TotalPages 0
+      set TotalAsked 0
+      
+      while { $i > 0} {	
+      	set linea [gets $dataFile]
+      	set campos [split $linea]
+      	set TotalPages [expr $TotalPages+ [lindex $campos 1]]
+      	set TotalAsked [expr $TotalAsked+ [lindex $campos 2]]
+      	set i [expr $i - 1]
+      	if {[eof $dataFile]} { #Wrong file?
+      		break;
+      	}
+      }
+      
+      close $dataFile
+   
 } else {
-	set files_posted 0
+  if {$noloading eq 0} {
+   	set nodata_p 1
+  }
 }
-
-
-set total_posted [expr $faq_posted+$news_posted+$surveys_posted+$files_posted+$forum_posted]
-
-
-set class_instances_pretty_name [parameter::get -localize -parameter class_instances_pretty_name]
-set clubs_pretty_name [parameter::get -localize -parameter clubs_pretty_name]
-set subcommunities_pretty_name [parameter::get -localize -parameter subcommunities_pretty_name]
-
+}
 ad_return_template
 
Index: openacs-4/packages/user-tracking/www/users-chunk-large.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/users-chunk-large.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/users-chunk-large.adp	1 Mar 2005 17:35:37 -0000	1.1
+++ openacs-4/packages/user-tracking/www/users-chunk-large.adp	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,19 +1,19 @@
-
-
-<formtemplate id="user_search">
-  <formwidget id="type">
-  <formwidget id="referer">
-
-<table cellspacing="3" cellpadding="3">
-
-  <tr>
-    <th align="left">#dotlrn.Search_Text#</th>
-    <td><formwidget id="search_text"></td>
-    <td><input type="submit" value="#dotlrn.Search#"></td>
-  </tr>
-
-</table>
-
-</formtemplate>
-
-<include src="users-chunk" &users="users" referer=@referer@>
+
+
+<formtemplate id="user_search">
+  <formwidget id="type">
+  <formwidget id="referer">
+
+<table cellspacing="3" cellpadding="3">
+
+  <tr>
+    <th align="left">#dotlrn.Search_Text#</th>
+    <td><formwidget id="search_text"></td>
+    <td><input type="submit" value="#dotlrn.Search#"></td>
+  </tr>
+
+</table>
+
+</formtemplate>
+
+<include src="users-chunk" &users="users" referer=@referer@>
Index: openacs-4/packages/user-tracking/www/users-chunk-medium.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/users-chunk-medium.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/users-chunk-medium.adp	1 Mar 2005 17:35:38 -0000	1.1
+++ openacs-4/packages/user-tracking/www/users-chunk-medium.adp	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,6 +1,6 @@
-
-<p>@control_bar;noquote@</p>
-
-<include src="users-chunk" &users="users" referer=@referer@>
-
-
+
+<p>@control_bar;noquote@</p>
+
+<include src="users-chunk" &users="users" referer=@referer@>
+
+
Index: openacs-4/packages/user-tracking/www/users-chunk-small.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/users-chunk-small.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/users-chunk-small.adp	1 Mar 2005 17:35:38 -0000	1.1
+++ openacs-4/packages/user-tracking/www/users-chunk-small.adp	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,3 +1,3 @@
-
-
-<include src="users-chunk" &users="users" referer=@referer@>
+
+
+<include src="users-chunk" &users="users" referer=@referer@>
Index: openacs-4/packages/user-tracking/www/users-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/users-chunk.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/users-chunk.adp	1 Mar 2005 17:35:38 -0000	1.1
+++ openacs-4/packages/user-tracking/www/users-chunk.adp	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,49 +1,49 @@
-
-<%
-	set admin_url [dotlrn::get_admin_url]
-%>
-<center>
-<table bgcolor="#cccccc" cellpadding="5" cellspacing="3" width="95%">
-  <tr>
-    <th align="left" width="50%">#dotlrn.User#</th>        
-    <th align="left">#dotlrn.Access#</th>
-    <th align="left">#dotlrn.Guest#</th>    
-    <th align="left">#user-tracking.lt_View_Stats#</th>    
-  </tr>
-
-<if @users:rowcount@ gt 0>
-<multiple name="users">
-
-<if @users.rownum@ odd>
-  <tr bgcolor="#eeeeee">
-</if>
-<else>
-  <tr bgcolor="#d9e4f9">
-</else>
-    <td align="left">
-      <a href="@admin_url@/user?user_id=@users.user_id@">@users.last_name@, @users.first_names@</a> (<a href="mailto:@users.email@">@users.email@</a>)
-    </td>
-    <td align="center">@users.access_level@</td>
-    <td align="center">
-     <if @users.guest_p@ eq t>#dotlrn.Yes#</if><else>#dotlrn.No#</else>
-    </td>
-    <td>
-    	<a href="/user-tracking/users-card?user_id=@users.user_id@">#user-tracking.Stats#</a>
-    </td>
-  </tr>
-
-</multiple>
-</if>
-<else>
-  <tr bgcolor="#eeeeee">
-    <td align="left" colspan="4"><i>#dotlrn.No_Users#</i></td>
-  </tr>
-</else>
-
-</table>
-</center>
-
-
-
-
-
+
+<%
+	set admin_url [dotlrn::get_admin_url]
+%>
+<center>
+<table bgcolor="#cccccc" cellpadding="5" cellspacing="3" width="95%">
+  <tr>
+    <th align="left" width="50%">#dotlrn.User#</th>        
+    <th align="left">#dotlrn.Access#</th>
+    <th align="left">#dotlrn.Guest#</th>    
+    <th align="left">#user-tracking.lt_View_Stats#</th>    
+  </tr>
+
+<if @users:rowcount@ gt 0>
+<multiple name="users">
+
+<if @users.rownum@ odd>
+  <tr bgcolor="#eeeeee">
+</if>
+<else>
+  <tr bgcolor="#d9e4f9">
+</else>
+    <td align="left">
+      <a href="@admin_url@/user?user_id=@users.user_id@">@users.last_name@, @users.first_names@</a> (<a href="mailto:@users.email@">@users.email@</a>)
+    </td>
+    <td align="center">@users.access_level@</td>
+    <td align="center">
+     <if @users.guest_p@ eq t>#dotlrn.Yes#</if><else>#dotlrn.No#</else>
+    </td>
+    <td>
+    	<a href="/user-tracking/users-card?user_id=@users.user_id@">#user-tracking.Stats#</a>
+    </td>
+  </tr>
+
+</multiple>
+</if>
+<else>
+  <tr bgcolor="#eeeeee">
+    <td align="left" colspan="4"><i>#dotlrn.No_Users#</i></td>
+  </tr>
+</else>
+
+</table>
+</center>
+
+
+
+
+
Index: openacs-4/packages/user-tracking/www/users-stats.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/users-stats.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/users-stats.adp	1 Mar 2005 17:35:38 -0000	1.1
+++ openacs-4/packages/user-tracking/www/users-stats.adp	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,32 +1,32 @@
-
-
-<master>
-<property name="title">@page_title;noquote@</property>
-<property name="context">@context;noquote@</property>
-
-<% set referer "[user-tracking::get_package_url]/users-stats" %>
-
-[<small>
-  <a href="/user-tracking/awstats/cgi-bin/lanza?config=site"><small>#user-tracking.lt_Site_Stats#</small></a>
-  |
-  <a href="communities-stats"><small>#user-tracking.lt_Communities_Stats_2#</small></a>
-  |
-  <small>#user-tracking.lt_Users_Stats#</small>
-  |
-  <a href="advanced-stats"><small>#user-tracking.lt_Advanced_Stats_1#</small></a>
-</small>]
-<p></p>
-<p></p>
-
-<if @n_users@ gt 500>
-  <include src="users-chunk-large" referer="@referer@">
-</if>
-<else>
-  <if @n_users@ gt 50>
-    <include src="users-chunk-medium" referer="@referer@">
-  </if>
-  <else>
-    <include src="users-chunk-small" referer="@referer@">
-  </else>
-</else>
-
+
+
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<% set referer "[user-tracking::get_package_url]/users-stats" %>
+
+[<small>
+  <a href="site-card"><small>#user-tracking.lt_Site_Stats#</small></a>
+  |
+  <a href="communities-stats"><small>#user-tracking.lt_Communities_Stats_2#</small></a>
+  |
+  <small>#user-tracking.lt_Users_Stats#</small>
+  |
+  <a href="advanced-stats"><small>#user-tracking.lt_Advanced_Stats_1#</small></a>
+</small>]
+<p></p>
+<p></p>
+
+<if @n_users@ gt 500>
+  <include src="users-chunk-large" referer="@referer@">
+</if>
+<else>
+  <if @n_users@ gt 50>
+    <include src="users-chunk-medium" referer="@referer@">
+  </if>
+  <else>
+    <include src="users-chunk-small" referer="@referer@">
+  </else>
+</else>
+
Index: openacs-4/packages/user-tracking/www/visited-material-chunk-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material-chunk-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material-chunk-postgresql.xql	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_forum_data">
+        <querytext>
+    	    select name as forum_name
+            from forums_forums
+            where forum_id= :forum_id
+        </querytext>
+    </fullquery>
+</queryset>
Index: openacs-4/packages/user-tracking/www/visited-material-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material-chunk.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material-chunk.adp	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,10 @@
+<ul>
+	<li><a href="visited-material/top?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.top10#</a></li><br>
+	<li><a href="visited-material/forums-visited?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.ut_See_Forums#</a></li>
+	<li><a href="visited-material/faqs-visited?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.ut_See_FAQS#</a></li>
+	<li><a href="visited-material/news-visited?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.ut_See_News#</a></li>
+	<li><a href="visited-material/surveys-visited?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.Ver_Surveys#</a></li>
+  	<li><a href="visited-material/messages-visited?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.ut_See_Messages#</a></li>	  
+	<li><a href="visited-material/folders-visited?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.ut_See_Folders#</a></li>	  
+</ul>
+
Index: openacs-4/packages/user-tracking/www/visited-material-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material-chunk.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material-chunk.tcl	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,10 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query {
+} -properties {
+user_id:onevalue
+community_id:onevalue
+}
+
Index: openacs-4/packages/user-tracking/www/visits-chunk-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits-chunk-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits-chunk-postgresql.xql	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,6 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/visits-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits-chunk.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits-chunk.adp	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,9 @@
+<ul>
+  	<li> <a href="visits/dayweek?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.visits_by_weekday#</a></li>
+  	<li> <a href="visits/daymonth?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.visits_by_monthday#</a></li>
+  	<li> <a href="visits/hourly?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.visits_by_hour#</a></li>
+  	<li> <a href="visits/duration?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.visits_duration#</a></li>
+  	<li> <a href="visits/users-report?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.users_visits#</a></li>
+  	<li> <a href="visits/ip-report?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.ips_visits#</a></li>
+  	<if @admin_p@ eq 1><li> <a href="visits/hits?DataFileName=@DataFileName@&user_id=@user_id@&community_id=@community_id@">#user-tracking.most_of_hits#</a></li></if>
+</ul>
Index: openacs-4/packages/user-tracking/www/visits-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits-chunk.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits-chunk.tcl	14 Apr 2005 15:44:28 -0000	1.1
@@ -0,0 +1,15 @@
+ad_page_contract {
+    @author doa (doa@tid.es)
+    @author sergiog (sergiog@tid.es)
+    @creation-date 2005-03-09
+} -query {
+} -properties {  
+user_id:onevalue
+community_id:onevalue
+}
+set admin_p 0
+if {[exists_and_not_null p_hits]} {
+	if {$p_hits == 1} { 
+		set admin_p [permission::permission_p -party_id [ad_conn user_id] -object_id [ad_conn package_id] -privilege admin]
+	}
+}
Index: openacs-4/packages/user-tracking/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/admin/index.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/admin/index.adp	1 Mar 2005 17:35:38 -0000	1.1
+++ openacs-4/packages/user-tracking/www/admin/index.adp	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,8 +1,7 @@
-<master>
-  <property name="title">@page_title;noquote@</property>
-  <property name="context">@context;noquote@</property>
-
-<ul>
-<li><a href="scheduling"> #user-tracking.lt_Program_Data_Charge# </a></li>
-<li><a href="write"> #user-tracking.lt_Write_Users_File# </a></li>
-</ul>
+<master>
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<ul>
+<li><a href="scheduling"> #user-tracking.lt_Program_Data_Charge# </a></li>
+</ul>
Index: openacs-4/packages/user-tracking/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/admin/index.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/admin/index.tcl	1 Mar 2005 17:35:38 -0000	1.1
+++ openacs-4/packages/user-tracking/www/admin/index.tcl	14 Apr 2005 15:44:28 -0000	1.2
@@ -9,7 +9,7 @@
 
 
 }
-set page_title "Administraci�n de user-tracking"
+set page_title "#user-tracking.Admin#"
 set context ""
 
 #Pages in this directory are only runnable by dotlrn-wide admins.
Index: openacs-4/packages/user-tracking/www/admin/scheduling.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/admin/scheduling.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/admin/scheduling.adp	1 Mar 2005 17:35:38 -0000	1.1
+++ openacs-4/packages/user-tracking/www/admin/scheduling.adp	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,28 +1,28 @@
-<master>
-  <property name="title">@page_title;noquote@</property>
-  <property name="context">@context;noquote@</property>
-
-<script language="JavaScript">
-    function TimePChanged(elm) {
-      var form_name = "ut_sched";
-
-      if (elm == null) return;
-      if (document.forms == null) return;
-      if (document.forms[form_name] == null) return;
-
-      if (elm.value == 1) {
-          <multiple name="time_format_elms">
-            document.forms[form_name].elements["horas.@time_format_elms.name@"].disabled = false;
-          </multiple>
-      } else {
-          <multiple name="time_format_elms">
-            document.forms[form_name].elements["horas.@time_format_elms.name@"].disabled = true;
-          </multiple>
-      }
-  }
-</script>
-
-
-  <div id="events">   
-    <formtemplate id="ut_sched"></formtemplate>
-  </div>
+<master>
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<script language="JavaScript">
+    function TimePChanged(elm) {
+      var form_name = "ut_sched";
+
+      if (elm == null) return;
+      if (document.forms == null) return;
+      if (document.forms[form_name] == null) return;
+
+      if (elm.value == 1) {
+          <multiple name="time_format_elms">
+            document.forms[form_name].elements["horas.@time_format_elms.name@"].disabled = false;
+          </multiple>
+      } else {
+          <multiple name="time_format_elms">
+            document.forms[form_name].elements["horas.@time_format_elms.name@"].disabled = true;
+          </multiple>
+      }
+  }
+</script>
+
+
+  <div id="events">   
+    <formtemplate id="ut_sched"></formtemplate>
+  </div>
Index: openacs-4/packages/user-tracking/www/admin/scheduling.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/admin/scheduling.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/admin/scheduling.tcl	1 Mar 2005 17:35:38 -0000	1.1
+++ openacs-4/packages/user-tracking/www/admin/scheduling.tcl	14 Apr 2005 15:44:28 -0000	1.2
@@ -9,7 +9,7 @@
 
 
 }
-set page_title "Programar carga de Datos"
+set page_title "#user-tracking.lt_Program_Data_Charge#"
 set context [list $page_title]
 
 #Pages in this directory are only runnable by dotlrn-wide admins.
@@ -19,40 +19,32 @@
 ad_form -name ut_sched  -form {
     {ut_sched_id:key}
 
-#   {start_date:date,to_sql(linear_date),to_html(sql_date)
-#	{label "Fecha de inicio"}
-#    }
-	
     {start_time:date
-        {label "Hora de inicio"}
+        {label "#user-tracking.init_time#"}
         {format {[lc_get formbuilder_time_format]}}
     }
  
     {perioricidad:text(radio)     
-        {label "Perioricidad"}
+        {label "#user-tracking.perioricity#"}
         {html {onClick "javascript:TimePChanged(this);"}} 
-        {options {{"Cada x horas" 1}
-        	  {"Diaria" 2}
-                  {"Semanal" 3}}}
+        {options {{"#user-tracking.every_x_hours#" 1}
+        	  {"#user-tracking.Daily#" 2}
+                  {"#user-tracking.weekly#" 3}}}
     }
     
     {horas:date,optional
-    	{label "Cada cu�ntas horas?"}
+    	{label "#user-tracking.every_how_many_hours#"}
     	{format {[lc_get formbuilder_time_format]}}
     }
     
     {informes:text(checkbox),multiple
-    	{label "Tipos de informes"}
-    	{options {{"Todos los usuarios" 1}
-    		  {"Todas las comunidades" 2}
-    		  {"Todos los usuarios en todas la comunidades" 3}
-    		  {"Todo el sitio web" 4}}}
+    	{label "#user-tracking.reports_types#"}
+    	{options {{"#user-tracking.all_users#" 1}
+    		  {"#user-tracking.all_communities#" 2}
+    		  {"#user-tracking.every_user_in_every_comm#" 3}
+    		  {"#user-tracking.all_site#" 4}}}
     }
     
-  #  {my_key:text(multiselect),multiple       {label "select some values"}
-  #                                           {options {first second third fourth fifth}}
-  #                                            {html {size 4}}}
-    
 } 
 #----------------------------------------------------------------------
 # LARS: Hack to make enable/disable time widgets work with i18n
@@ -97,22 +89,13 @@
 	set perioricidad 1
 } -on_submit {
     
-    ns_log notice "He obtenido lo siguiente:\n \t\t \n\t\t Hora inicio= $start_time \n\t\t perioricidad=$perioricidad horas=$horas informes=$informes"
-
-    #Programo la ejecuci�n del procedimiento
-    #user-tracking::do_data_load $informes
-    
-    #Borro programaciones anteriores
+    #deleting before progrmas 
     db_foreach get_scheduled_processes {} {
     	ns_unschedule_proc $process_id
     	db_dml delete_scheduled_process {}
-    	ns_log notice "Desprogramado proceso $process_id"
+    	ns_log notice "Deleting process $process_id"
     }
-    
-    
- 
-    
-    
+  
     if {$perioricidad == 1 } {
     	
     	#estimating seconds to start_time
@@ -125,31 +108,29 @@
     	set minutes_diff [expr [lindex $start_time 4] - $minutes]
      	set diff [expr [expr [expr $hours_diff * 3600] + [expr $minutes_diff * 60]] - $seconds]
      	
-     	ns_log notice "El proceso se lanzar� dentro de $diff segundos"
+     	ns_log notice "Process will be launched in $diff seconds"
 	if {$diff < 0 } {
 		#seconds in a day
 		incr diff 86400
 	}
 	#scheduling first execution
    	set id [ad_schedule_proc -once "t" -thread "t" $diff user-tracking::launch_process $horas $informes]
-    	ns_log notice "\n\nId del proc programado $id\n"
+    	ns_log notice "\n\nScheduled proc id: $id\n"
     	db_dml insert_scheduled_process_id {}
     	ns_log notice "[ns_info scheduled]"   	
 
     } elseif {$perioricidad == 2} {
     	set id [ad_schedule_proc -thread "t" -schedule_proc ns_schedule_daily [list [lindex $start_time 3] [lindex $start_time 4]] user-tracking::do_data_load $informes]
-    	ns_log notice "\n\nId del proc programado $id\n"
+    	ns_log notice "\n\nScheduled proc id: $id\n"
     	db_dml insert_scheduled_process_id {}
 
     } else { #perioricidad=3 
     	set id [ad_schedule_proc -thread "t" -schedule_proc ns_schedule_weekly [list [lindex $start_time 3] [lindex $start_time 4]] user-tracking::do_data_load $informes]
-    	ns_log notice "\n\nId del proc programado $id\n"
+    	ns_log notice "\n\nScheduled proc id: $id\n"
     	db_dml insert_scheduled_process_id {}
 
     }
 
-
-    #P�gina siguiente
     ad_returnredirect ""
     ad_script_abort
 }
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/admin/scheduling.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/admin/scheduling.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking/www/admin/scheduling.xql	1 Mar 2005 17:35:38 -0000	1.1
+++ openacs-4/packages/user-tracking/www/admin/scheduling.xql	14 Apr 2005 15:44:28 -0000	1.2
@@ -1,24 +1,24 @@
-<?xml version="1.0"?>
-
-<queryset>
-
-<fullquery name="get_scheduled_processes">
-	<querytext>
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="get_scheduled_processes">
+	<querytext>
 		select process_id
-		from ut_sched
-	</querytext>
+		from ut_sched
+	</querytext>
 </fullquery>
 
-<fullquery name="insert_scheduled_process_id">
-	<querytext>
-		insert into ut_sched values (:id)
-	</querytext>
+<fullquery name="insert_scheduled_process_id">
+	<querytext>
+		insert into ut_sched values (:id)
+	</querytext>
 </fullquery>
 
-<fullquery name="delete_scheduled_process">
-	<querytext>
-		delete from ut_sched where process_id = :process_id
-	</querytext>
-</fullquery>
-
+<fullquery name="delete_scheduled_process">
+	<querytext>
+		delete from ut_sched where process_id = :process_id
+	</querytext>
+</fullquery>
+
 </queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/awstats/cgi-bin/awredir.pl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/awstats/cgi-bin/Attic/awredir.pl,v
diff -u -N
--- openacs-4/packages/user-tracking/www/awstats/cgi-bin/awredir.pl	1 Mar 2005 17:35:38 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,140 +0,0 @@
-#!/usr/bin/perl
-#-------------------------------------------------------
-# Save the click done on managed hits into a trace file
-# and return to browser a redirector to tell browser to visit this URL.
-# Ex: <a href="http://athena/cgi-bin/awredir/awredir.pl?tag=TAGFORLOG&url=http://212.43.217.240/%7Eforumgp/forum/list.php3?f=11">XXX</a>
-#-------------------------------------------------------
-
-#use DBD::mysql;
-
-
-#-------------------------------------------------------
-# Defines
-#-------------------------------------------------------
-use vars qw/ $REVISION $VERSION /;
-$REVISION='$Revision: 1.1 $'; $REVISION =~ /\s(.*)\s/; $REVISION=$1;
-$VERSION="1.1 (build $REVISION)";
-
-use vars qw / $DIR $PROG $Extension $DEBUG $DEBUGFILE $REPLOG $DEBUGRESET $SITE $REPCONF /;
-($DIR=$0) =~ s/([^\/\\]*)$//; ($PROG=$1) =~ s/\.([^\.]*)$//; $Extension=$1;
-$DEBUG=0;					# Debug level
-$DEBUGFILE="$PROG.log";		# Debug output (A log file name or "screen" to have debug on screen)
-$REPLOG="$DIR";				# Debug directory
-
-$TRACEBASE=0;	# Set to 1 to track click on links that point to extern site into a database
-$TRACEFILE=0;	# Set to 1 to track click on links that point to extern site into a file
-$TXTDIR="$DIR/../../../logs";	# Directory where to write tracking file (if TRACEFILE=1)
-$TXTFILE="awredir.trc";			# Tracking file (if TRACEFILE=1)
-$EXCLUDEIP="127.0.0.1";
-
-
-#-------------------------------------------------------
-# Functions
-#-------------------------------------------------------
-
-sub error {
-	print "Content-type: text/html; charset=iso-8859-1\n";
-	print "\n";
-	print "<html>\n";
-	print "<head>\n";
-	print "</head>\n";
-	print "\n";
-	print "<body>\n";
-	print "<center><br>\n";
-	print "<font size=2><b>AWRedir</b></font><br>\n\n";
-   	print "<font color=#880000>$_[0].</font><br><br>\n";
-	print "Setup (setup or logfile permissions) may be wrong.\n";
-	$date=localtime();
-	print "<CENTER><br><font size=1>$date - <b>Advanced Web Redirector $VERSION</b><br>\n";
-	print "<br>\n";
-	print "</body>";
-	print "</html>";
-    die;
-}
-
-#-------------------------------------------------------
-# MAIN
-#-------------------------------------------------------
-
-if ($DEBUG) {
-	open(LOGFILE,">$REPLOG/$PROG.log");
-	print LOGFILE "----- $PROG $VERSION -----\n";	
-}
-
-if (! $ENV{'GATEWAY_INTERFACE'}) {	# Run from command line
-	print "----- $PROG $VERSION (c) Laurent Destailleur -----\n";
-	print "This script is absolutely not required to use AWStats.\n";
-	print "It's a third tool that can help webmaster in their tracking tasks but is\n";
-	print "not used by AWStats engine.\n";
-	print "\n";
-	print "This tools must be used as a CGI script. When called as a CGI, it returns to\n";
-	print "browser a redirector to tell it to show the page provided in 'url' parameter.\n";
-	print "So, to use this script, you must replace HTML code for external links onto your\n";
-	print "HTML pages from\n";
-	print "<a href=\"http://externalsite/pagelinked\">Link</a>\n";
-	print "to\n";
-	print "<a href=\"http://mysite/cgi-bin/awredir.pl?url=http://externalsite/pagelinked\">Link</a>\n";
-	print "\n";
-	print "For your web visitor, there is no difference. However this allow you to track\n";
-	print "clicks done on links onto your web pages that point to external web sites,\n";
-	print "because an entry will be seen in your own server log, to awredir.pl script\n";
-	print "with url parameter, even if link was pointing to another external web server.\n";
-	print "\n";
-	sleep 2;
-	exit 0;
-}
-
-# Extract tag
-$Tag='NOTAG';
-if ($ENV{QUERY_STRING} =~ /tag=\"?([^\"&]+)\"?/) { $Tag=$1; }
-
-# Extract url to redirect to
-$Url=$ENV{QUERY_STRING};
-if ($Url =~ /url=\"([^\"]+)\"/) { $Url=$1; }
-elsif ($Url =~ /url=(.+)$/) { $Url=$1; }
-
-if ($Url !~ /^http/i) { $Url = "http://".$Url; }
-if (! $Url) {
-	error("Error: Bad use of $PROG. To redirect an URL with $PROG, use the following syntax:<br><i>/cgi-bin/$PROG.pl?url=http://urltogo</i>");
-}
-if ($DEBUG) { print LOGFILE "Url=$Url\n"; }
-
-# Get date
-($nowsec,$nowmin,$nowhour,$nowday,$nowmonth,$nowyear,$nowwday,$nowyday,$nowisdst) = localtime(time);
-if ($nowyear < 100) { $nowyear+=2000; } else { $nowyear+=1900; }
-$nowsmallyear=$nowyear;$nowsmallyear =~ s/^..//;
-if (++$nowmonth < 10) { $nowmonth = "0$nowmonth"; }
-if ($nowday < 10) { $nowday = "0$nowday"; }
-if ($nowhour < 10) { $nowhour = "0$nowhour"; }
-if ($nowmin < 10) { $nowmin = "0$nowmin"; }
-if ($nowsec < 10) { $nowsec = "0$nowsec"; }
-
-if ($TRACEBASE == 1) {
-	if ($ENV{REMOTE_ADDR} !~ /$EXCLUDEIP/) {
-		if ($DEBUG == 1) { print LOGFILE "Execution requete Update sur BASE=$BASE, USER=$USER, PASS=$PASS\n"; }
-		my $dbh = DBI->connect("DBI:mysql:$BASE", $USER, $PASS) || die "Can't connect to DBI:mysql:$BASE: $dbh->errstr\n";
-		my $sth = $dbh->prepare("UPDATE T_LINKS set HITS_LINKS = HIT_LINKS+1 where URL_LINKS = '$Url'");
-		$sth->execute || error("Error: Unable execute query:$dbh->err, $dbh->errstr");
-		$sth->finish;
-		$dbh->disconnect;
-		if ($DEBUG == 1) { print LOGFILE "Execution requete Update - OK\n"; }
-	}
-}
-
-if ($TRACEFILE == 1) {
-	if ($ENV{REMOTE_ADDR} !~ /$EXCLUDEIP/) {
-		open(FICHIER,">>$TXTDIR/$TXTFILE") || error("Error: Enable to open trace file $TXTDIR/$TXTFILE: $!");
-		print FICHIER "$nowyear-$nowmonth-$nowday $nowhour:$nowmin:$nowsec\t$ENV{REMOTE_ADDR}\t$Tag\t$Url\n";
-		close(FICHIER);
-	}
-}
-
-# Redir html instructions
-print "Location: $Url\n\n";
-
-if ($DEBUG) {
-	print LOGFILE "Redirect to $Url\n";
-	close(LOGFILE);
-}
-
-0;
Index: openacs-4/packages/user-tracking/www/awstats/cgi-bin/awstatsDirecto.pl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/awstats/cgi-bin/Attic/awstatsDirecto.pl,v
diff -u -N
--- openacs-4/packages/user-tracking/www/awstats/cgi-bin/awstatsDirecto.pl	1 Mar 2005 17:35:40 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,10409 +0,0 @@
-#!/usr/bin/perl
-#------------------------------------------------------------------------------
-# Free realtime web server logfile analyzer to show advanced web statistics.
-# Works from command line or as a CGI. You must use this script as often as
-# necessary from your scheduler to update your statistics and from command
-# line or a browser to read report results.
-# See AWStats documentation (in docs/ directory) for all setup instructions.
-#------------------------------------------------------------------------------
-# $Revision: 1.1 $ - $Author: rocaelh $ - $Date: 2005/03/01 17:35:40 $
-# $Modifications by Sergio Gonzalez, TID, E-Lane proyect
-require 5.005;
-
-#$|=1;
-#use warnings;                # Must be used in test mode only. This reduce a little process speed
-#use diagnostics;        # Must be used in test mode only. This reduce a lot of process speed
-use strict;no strict "refs";
-use Time::Local;        # use Time::Local 'timelocal_nocheck' is faster but not supported by all Time::Local modules
-use Socket;
-
-
-#------------------------------------------------------------------------------
-# Defines
-#------------------------------------------------------------------------------
-use vars qw/ $REVISION $VERSION /;
-$REVISION='$Revision: 1.1 $'; $REVISION =~ /\s(.*)\s/; $REVISION=$1;
-$VERSION="6.2 (build $REVISION)";
-
-# ----- Constants -----
-use vars qw/
-$DEBUGFORCED $NBOFLINESFORBENCHMARK $FRAMEWIDTH $NBOFLASTUPDATELOOKUPTOSAVE
-$LIMITFLUSH $NEWDAYVISITTIMEOUT $VISITTIMEOUT $NOTSORTEDRECORDTOLERANCE
-$WIDTHCOLICON $TOOLTIPON
-$lastyearbeforeupdate
-/;
-$DEBUGFORCED=0;                                                # Force debug level to log lesser level into debug.log file (Keep this value to 0)
-$NBOFLINESFORBENCHMARK=8192;                # Benchmark info are printing every NBOFLINESFORBENCHMARK lines (Must be a power of 2)
-$FRAMEWIDTH=240;                                        # Width of left frame when UseFramesWhenCGI is on
-$NBOFLASTUPDATELOOKUPTOSAVE=500;        # Nb of records to save in DNS last update cache file
-$LIMITFLUSH=5000;                                        # Nb of records in data arrays after how we need to flush data on disk
-$NEWDAYVISITTIMEOUT=764041;                        # Delay between 01-23:59:59 and 02-00:00:00
-$VISITTIMEOUT=10000;                                # Lapse of time to consider a page load as a new visit. 10000 = 1 hour (Default = 10000)
-$NOTSORTEDRECORDTOLERANCE=20000;        # Lapse of time to accept a record if not in correct order. 20000 = 2 hour (Default = 20000)
-$WIDTHCOLICON=32;
-$TOOLTIPON=0;                                                # Tooltips plugin loaded
-# ----- Running variables -----
-use vars qw/
-$DIR $PROG $Extension
-$Debug $ShowSteps
-$DebugResetDone $DNSLookupAlreadyDone
-$RunAsCli $UpdateFor $HeaderHTTPSent $HeaderHTMLSent
-$LastLine $LastLineNumber $LastLineOffset $LastLineChecksum $LastUpdate
-$lowerval
-$PluginMode
-$TotalUnique $TotalVisits $TotalHostsKnown $TotalHostsUnknown
-$TotalPages $TotalHits $TotalBytes
-$TotalNotViewedPages $TotalNotViewedHits $TotalNotViewedBytes
-$TotalEntries $TotalExits $TotalBytesPages $TotalDifferentPages
-$TotalKeyphrases $TotalKeywords $TotalDifferentKeyphrases $TotalDifferentKeywords
-$TotalSearchEnginesPages $TotalSearchEnginesHits $TotalRefererPages $TotalRefererHits $TotalDifferentSearchEngines $TotalDifferentReferer
-$FrameName $Center $FileConfig $FileSuffix $Host $DayRequired $MonthRequired $YearRequired
-$QueryString $SiteConfig $StaticLinks $PageCode $PageDir $PerlParsingFormat $UserAgent
-$pos_vh $pos_host $pos_logname $pos_date $pos_tz $pos_method $pos_url $pos_code $pos_size
-$pos_referer $pos_agent $pos_query $pos_gzipin $pos_gzipout $pos_compratio $pos_timetaken
-$pos_cluster $pos_emails $pos_emailr $pos_hostr @pos_extra
-/;
-$DIR=$PROG=$Extension='';
-$Debug = $ShowSteps = 0;
-$DebugResetDone = $DNSLookupAlreadyDone = 0;
-$RunAsCli = $UpdateFor = $HeaderHTTPSent = $HeaderHTMLSent = 0;
-$LastLine = $LastLineNumber = $LastLineOffset = $LastLineChecksum = $LastUpdate = 0;
-$lowerval = 0;
-$PluginMode = '';
-$TotalUnique = $TotalVisits = $TotalHostsKnown = $TotalHostsUnknown = 0;
-$TotalPages = $TotalHits = $TotalBytes = 0;
-$TotalNotViewedPages = $TotalNotViewedHits = $TotalNotViewedBytes = 0;
-$TotalEntries = $TotalExits = $TotalBytesPages = $TotalDifferentPages = 0;
-$TotalKeyphrases = $TotalKeywords = $TotalDifferentKeyphrases = $TotalDifferentKeywords = 0;
-$TotalSearchEnginesPages = $TotalSearchEnginesHits = $TotalRefererPages = $TotalRefererHits = $TotalDifferentSearchEngines = $TotalDifferentReferer = 0;
-($FrameName, $Center, $FileConfig, $FileSuffix, $Host, $DayRequired, $MonthRequired, $YearRequired,
-$QueryString, $SiteConfig, $StaticLinks, $PageCode, $PageDir, $PerlParsingFormat, $UserAgent)=
-('','','','','','','','','','','','','','','');
-$pos_vh = $pos_host = $pos_logname = $pos_date = $pos_tz = $pos_method = $pos_url = $pos_code = $pos_size = -1;
-$pos_referer = $pos_agent = $pos_query = $pos_gzipin = $pos_gzipout = $pos_compratio = -1;
-$pos_cluster = $pos_emails = $pos_emailr = $pos_hostr = -1;
-@pos_extra=();
-# ----- Plugins variable -----
-use vars qw/ %PluginsLoaded $PluginDir $AtLeastOneSectionPlugin /;
-%PluginsLoaded=();
-$PluginDir='';
-$AtLeastOneSectionPlugin=0;
-# ----- Time vars -----
-use vars qw/
-$starttime
-$nowtime $tomorrowtime
-$nowweekofmonth $nowweekofyear $nowdaymod $nowsmallyear
-$nowsec $nowmin $nowhour $nowday $nowmonth $nowyear $nowwday $nowyday $nowns
-$StartSeconds $StartMicroseconds
-/;
-$StartSeconds=$StartMicroseconds=0;
-# ----- Variables for config file reading -----
-use vars qw/
-$FoundNotPageList
-/;
-$FoundNotPageList=0;
-# ----- Config file variables -----
-use vars qw/
-$StaticExt
-$DNSStaticCacheFile
-$DNSLastUpdateCacheFile
-$MiscTrackerUrl
-$Lang
-$MaxRowsInHTMLOutput
-$MaxLengthOfShownURL
-$MaxLengthOfStoredURL
-$MaxLengthOfStoredUA
-%BarPng
-$BuildReportFormat
-$BuildHistoryFormat
-$ExtraTrackedRowsLimit
-/;
-$StaticExt='html';
-$DNSStaticCacheFile='dnscache.txt';
-$DNSLastUpdateCacheFile='dnscachelastupdate.txt';
-$MiscTrackerUrl='/js/awstats_misc_tracker.js';
-$Lang='auto';
-$MaxRowsInHTMLOutput=1000;
-$MaxLengthOfShownURL=64;
-$MaxLengthOfStoredURL=256;                        # Note: Apache LimitRequestLine is default to 8190
-$MaxLengthOfStoredUA=256;
-%BarPng=('vv'=>'vv.png','vu'=>'vu.png','hu'=>'hu.png','vp'=>'vp.png','hp'=>'hp.png',
-'he'=>'he.png','hx'=>'hx.png','vh'=>'vh.png','hh'=>'hh.png','vk'=>'vk.png','hk'=>'hk.png');
-$BuildReportFormat='html';
-$BuildHistoryFormat='text';
-$ExtraTrackedRowsLimit=500;
-use vars qw/
-$EnableLockForUpdate $DNSLookup $AllowAccessFromWebToAuthenticatedUsersOnly
-$BarHeight $BarWidth $CreateDirDataIfNotExists $KeepBackupOfHistoricFiles
-$NbOfLinesParsed $NbOfLinesDropped $NbOfLinesCorrupted $NbOfOldLines $NbOfNewLines
-$NbOfLinesShowsteps $NewLinePhase $NbOfLinesForCorruptedLog $PurgeLogFile $ArchiveLogRecords
-$ShowDropped $ShowCorrupted $ShowUnknownOrigin $ShowLinksToWhoIs
-$ShowAuthenticatedUsers $ShowFileSizesStats $ShowScreenSizeStats $ShowSMTPErrorsStats
-$ShowEMailSenders $ShowEMailReceivers $ShowWormsStats $ShowClusterStats
-$IncludeInternalLinksInOriginSection
-$AuthenticatedUsersNotCaseSensitive
-$Expires $UpdateStats $MigrateStats $URLNotCaseSensitive $URLWithQuery $URLReferrerWithQuery
-$DecodeUA
-/;
-($EnableLockForUpdate, $DNSLookup, $AllowAccessFromWebToAuthenticatedUsersOnly,
-$BarHeight, $BarWidth, $CreateDirDataIfNotExists, $KeepBackupOfHistoricFiles,
-$NbOfLinesParsed, $NbOfLinesDropped, $NbOfLinesCorrupted, $NbOfOldLines, $NbOfNewLines,
-$NbOfLinesShowsteps, $NewLinePhase, $NbOfLinesForCorruptedLog, $PurgeLogFile, $ArchiveLogRecords,
-$ShowDropped, $ShowCorrupted, $ShowUnknownOrigin, $ShowLinksToWhoIs,
-$ShowAuthenticatedUsers, $ShowFileSizesStats, $ShowScreenSizeStats, $ShowSMTPErrorsStats,
-$ShowEMailSenders, $ShowEMailReceivers, $ShowWormsStats, $ShowClusterStats,
-$IncludeInternalLinksInOriginSection,
-$AuthenticatedUsersNotCaseSensitive,
-$Expires, $UpdateStats, $MigrateStats, $URLNotCaseSensitive, $URLWithQuery, $URLReferrerWithQuery,
-$DecodeUA)=
-(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
-use vars qw/
-$AllowToUpdateStatsFromBrowser $DetailedReportsOnNewWindows
-$FirstDayOfWeek $KeyWordsNotSensitive $SaveDatabaseFilesWithPermissionsForEveryone
-$WarningMessages $DebugMessages $ShowLinksOnUrl $UseFramesWhenCGI
-$ShowMenu $ShowMonthStats $ShowDaysOfMonthStats $ShowDaysOfWeekStats
-$ShowHoursStats $ShowDomainsStats $ShowHostsStats
-$ShowRobotsStats $ShowSessionsStats $ShowPagesStats $ShowFileTypesStats
-$ShowOSStats $ShowBrowsersStats $ShowOriginStats
-$ShowKeyphrasesStats $ShowKeywordsStats $ShowMiscStats $ShowHTTPErrorsStats
-$AddDataArrayMonthStats $AddDataArrayShowDaysOfMonthStats $AddDataArrayShowDaysOfWeekStats $AddDataArrayShowHoursStats
-/;
-($AllowToUpdateStatsFromBrowser, $DetailedReportsOnNewWindows,
-$FirstDayOfWeek, $KeyWordsNotSensitive, $SaveDatabaseFilesWithPermissionsForEveryone,
-$WarningMessages, $DebugMessages, $ShowLinksOnUrl, $UseFramesWhenCGI,
-$ShowMenu, $ShowMonthStats, $ShowDaysOfMonthStats, $ShowDaysOfWeekStats,
-$ShowHoursStats, $ShowDomainsStats, $ShowHostsStats,
-$ShowRobotsStats, $ShowSessionsStats, $ShowPagesStats, $ShowFileTypesStats,
-$ShowOSStats, $ShowBrowsersStats, $ShowOriginStats,
-$ShowKeyphrasesStats, $ShowKeywordsStats, $ShowMiscStats, $ShowHTTPErrorsStats,
-$AddDataArrayMonthStats, $AddDataArrayShowDaysOfMonthStats, $AddDataArrayShowDaysOfWeekStats, $AddDataArrayShowHoursStats
-)=
-(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1);
-use vars qw/
-$AllowFullYearView
-$LevelForRobotsDetection $LevelForWormsDetection $LevelForBrowsersDetection $LevelForOSDetection $LevelForRefererAnalyze
-$LevelForFileTypesDetection $LevelForSearchEnginesDetection $LevelForKeywordsDetection
-/;
-($AllowFullYearView,
-$LevelForRobotsDetection, $LevelForWormsDetection, $LevelForBrowsersDetection, $LevelForOSDetection, $LevelForRefererAnalyze,
-$LevelForFileTypesDetection, $LevelForSearchEnginesDetection, $LevelForKeywordsDetection)=
-(2,2,0,2,2,2,2,2,2);
-use vars qw/
-$DirLock $DirCgi $DirConfig $DirData $DirIcons $DirLang $AWScript $ArchiveFileName
-$AllowAccessFromWebToFollowingIPAddresses $HTMLHeadSection $HTMLEndSection $LinksToWhoIs $LinksToIPWhoIs
-$LogFile $LogType $LogFormat $LogSeparator $Logo $LogoLink $StyleSheet $WrapperScript $SiteDomain
-$UseHTTPSLinkForUrl $URLQuerySeparators $URLWithAnchor $ErrorMessages $ShowFlagLinks
-/;
-($DirLock, $DirCgi, $DirConfig, $DirData, $DirIcons, $DirLang, $AWScript, $ArchiveFileName,
-$AllowAccessFromWebToFollowingIPAddresses, $HTMLHeadSection, $HTMLEndSection, $LinksToWhoIs, $LinksToIPWhoIs,
-$LogFile, $LogType, $LogFormat, $LogSeparator, $Logo, $LogoLink, $StyleSheet, $WrapperScript, $SiteDomain,
-$UseHTTPSLinkForUrl, $URLQuerySeparators, $URLWithAnchor, $ErrorMessages, $ShowFlagLinks)=
-('','','','','','','','','','','','','','','','','','','','','','','','','','','');
-use vars qw/
-$color_Background $color_TableBG $color_TableBGRowTitle
-$color_TableBGTitle $color_TableBorder $color_TableRowTitle $color_TableTitle
-$color_text $color_textpercent $color_titletext $color_weekend $color_link $color_hover $color_other
-$color_h $color_k $color_p $color_e $color_x $color_s $color_u $color_v
-/;
-($color_Background, $color_TableBG, $color_TableBGRowTitle,
-$color_TableBGTitle, $color_TableBorder, $color_TableRowTitle, $color_TableTitle,
-$color_text, $color_textpercent, $color_titletext, $color_weekend, $color_link, $color_hover, $color_other,
-$color_h, $color_k, $color_p, $color_e, $color_x, $color_s, $color_u, $color_v)=
-('','','','','','','','','','','','','','','','','','','','','','');
-# ---------- Init arrays --------
-use vars qw/
-@RobotsSearchIDOrder_list1 @RobotsSearchIDOrder_list2 @RobotsSearchIDOrder_listgen
-@SearchEnginesSearchIDOrder_list1 @SearchEnginesSearchIDOrder_list2 @SearchEnginesSearchIDOrder_listgen
-@BrowsersSearchIDOrder @OSSearchIDOrder @WordsToExtractSearchUrl @WordsToCleanSearchUrl
-@WormsSearchIDOrder
-@RobotsSearchIDOrder @SearchEnginesSearchIDOrder
-@_from_p @_from_h
-@_time_p @_time_h @_time_k @_time_nv_p @_time_nv_h @_time_nv_k
-@DOWIndex @fieldlib @keylist
-/;
-@RobotsSearchIDOrder = @SearchEnginesSearchIDOrder = ();
-@_from_p = @_from_h = ();
-@_time_p = @_time_h = @_time_k = @_time_nv_p = @_time_nv_h = @_time_nv_k = ();
-@DOWIndex = @fieldlib = @keylist = ();
-#New params OnlyUsers and OnlyLines defined by E-Lane
-use vars qw/
-@MiscListOrder %MiscListCalc
-@OSFamily %BrowsersFamily @SessionsRange %SessionsAverage
-%LangBrowserToLangAwstats %LangAWStatsToFlagAwstats
-@HostAliases @AllowAccessFromWebToFollowingAuthenticatedUsers
-@DefaultFile @SkipDNSLookupFor
-@SkipHosts @SkipUserAgents @SkipFiles
-@OnlyHosts @OnlyUserAgents @OnlyFiles
-@OnlyUsers @OnlyLines
-@URLWithQueryWithOnly @URLWithQueryWithout
-@ExtraName @ExtraCondition @ExtraStatTypes @MaxNbOfExtra @MinHitExtra
-@ExtraFirstColumnTitle @ExtraFirstColumnValues @ExtraFirstColumnFormat
-@ExtraCodeFilter @ExtraConditionType @ExtraConditionTypeVal
-@ExtraFirstColumnValuesType @ExtraFirstColumnValuesTypeVal
-@ExtraAddAverageRow @ExtraAddSumRow
-@PluginsToLoad
-/;
-@MiscListOrder=('AddToFavourites','JavascriptDisabled','JavaEnabled','DirectorSupport','FlashSupport','RealPlayerSupport','QuickTimeSupport','WindowsMediaPlayerSupport','PDFSupport');
-%MiscListCalc=('TotalMisc'=>'','AddToFavourites'=>'u','JavascriptDisabled'=>'hm','JavaEnabled'=>'hm','DirectorSupport'=>'hm','FlashSupport'=>'hm','RealPlayerSupport'=>'hm','QuickTimeSupport'=>'hm','WindowsMediaPlayerSupport'=>'hm','PDFSupport'=>'hm');
-@OSFamily=('win','mac');
-#%BrowsersFamily=('msie'=>1,'netscape'=>2,'mozilla'=>3);
-%BrowsersFamily=('msie'=>1,'netscape'=>2);
-@SessionsRange=('0s-30s','30s-2mn','2mn-5mn','5mn-15mn','15mn-30mn','30mn-1h','1h+');
-%SessionsAverage=('0s-30s',15,'30s-2mn',75,'2mn-5mn',210,'5mn-15mn',600,'15mn-30mn',1350,'30mn-1h',2700,'1h+',3600);
-# HTTP-Accept or Lang parameter => AWStats code to use for lang
-# ISO-639-1 or 2 or other       => awstats-xx.txt where xx is ISO-639-1
-%LangBrowserToLangAwstats=(
-'sq'=>'al','ar'=>'ar','ba'=>'ba','bg'=>'bg','zh-tw'=>'tw','zh'=>'cn','cz'=>'cz',
-'de'=>'de','da'=>'dk',
-'en'=>'en','et'=>'et','fi'=>'fi','fr'=>'fr','gl'=>'gl',
-'es'=>'es','eu'=>'eu','ca'=>'ca',
-'el'=>'gr','hu'=>'hu','is'=>'is','in'=>'id','it'=>'it',
-'ja'=>'jp','ko'=>'kr','lv'=>'lv','nl'=>'nl','no'=>'nb','nb'=>'nb','nn'=>'nn',
-'pl'=>'pl','pt'=>'pt','pt-br'=>'br','ro'=>'ro','ru'=>'ru','sr'=>'sr','sk'=>'sk',
-'sv'=>'se','th'=>'th','tr'=>'tr','uk'=>'ua','cy'=>'cy','wlk'=>'cy'
-);
-%LangAWStatsToFlagAwstats=(  # If flag (country ISO-3166 two letters) is not same than AWStats Lang code
-'ca'=>'es_cat','et'=>'ee','eu','es_eu',
-'cy'=>'wlk',
-'gl'=>'glg',
-'he'=>'il',
-'ar'=>'sa',
-'sr'=>'cs'
-);
-@HostAliases = @AllowAccessFromWebToFollowingAuthenticatedUsers=();
-@DefaultFile = @SkipDNSLookupFor = ();
-@SkipHosts = @SkipUserAgents = @SkipFiles = ();
-@OnlyHosts = @OnlyUserAgents = @OnlyFiles = ();
-#Defined OnlyXXX by E-Lane
-@OnlyUsers = @OnlyLines = ();
-@URLWithQueryWithOnly = @URLWithQueryWithout = ();
-@ExtraName = @ExtraCondition = @ExtraStatTypes = @MaxNbOfExtra = @MinHitExtra = ();
-@ExtraFirstColumnTitle = @ExtraFirstColumnValues = @ExtraFirstColumnFormat = ();
-@ExtraCodeFilter = @ExtraConditionType = @ExtraConditionTypeVal = ();
-@ExtraFirstColumnValuesType = @ExtraFirstColumnValuesTypeVal = ();
-@ExtraAddAverageRow = @ExtraAddSumRow = ();
-@PluginsToLoad = ();
-# ---------- Init hash arrays --------
-use vars qw/
-%BrowsersHashIDLib %BrowsersHashIcon %BrowsersHereAreGrabbers
-%DomainsHashIDLib
-%MimeHashLib %MimeHashIcon %MimeHashFamily
-%OSHashID %OSHashLib
-%RobotsHashIDLib %RobotsAffiliateLib
-%SearchEnginesHashID %SearchEnginesHashLib %SearchEnginesKnownUrl %NotSearchEnginesKeys
-%WormsHashID %WormsHashLib %WormsHashTarget
-/;
-use vars qw/
-%HTMLOutput %NoLoadPlugin %FilterIn %FilterEx
-%BadFormatWarning
-%MonthNumLib
-%ValidHTTPCodes %ValidSMTPCodes
-%TrapInfosForHTTPErrorCodes %NotPageList %DayBytes %DayHits %DayPages %DayVisits
-%MaxNbOf %MinHit
-%ListOfYears %HistoryAlreadyFlushed %PosInFile %ValueInFile
-%val %nextval %egal
-%TmpDNSLookup %TmpOS %TmpRefererServer %TmpRobot %TmpBrowser %MyDNSTable
-/;
-%HTMLOutput = %NoLoadPlugin = %FilterIn = %FilterEx = ();
-%BadFormatWarning = ();
-%MonthNumLib = ();
-%ValidHTTPCodes = %ValidSMTPCodes = ();
-%TrapInfosForHTTPErrorCodes=(); $TrapInfosForHTTPErrorCodes{404}=1;        # TODO Add this in config file
-%NotPageList=();
-%DayBytes = %DayHits = %DayPages = %DayVisits = ();
-%MaxNbOf = %MinHit = ();
-%ListOfYears = %HistoryAlreadyFlushed = %PosInFile = %ValueInFile = ();
-%val = %nextval = %egal = ();
-%TmpDNSLookup = %TmpOS = %TmpRefererServer = %TmpRobot = %TmpBrowser = %MyDNSTable = ();
-use vars qw/
-%FirstTime %LastTime
-%MonthHostsKnown %MonthHostsUnknown
-%MonthUnique %MonthVisits
-%MonthPages %MonthHits %MonthBytes
-%MonthNotViewedPages %MonthNotViewedHits %MonthNotViewedBytes
-%_session %_browser_h
-%_domener_p %_domener_h %_domener_k %_errors_h %_errors_k
-%_filetypes_h %_filetypes_k %_filetypes_gz_in %_filetypes_gz_out
-%_host_p %_host_h %_host_k %_host_l %_host_s %_host_u
-%_waithost_e %_waithost_l %_waithost_s %_waithost_u
-%_keyphrases %_keywords %_os_h %_pagesrefs_p %_pagesrefs_h %_robot_h %_robot_k %_robot_l %_robot_r
-%_worm_h %_worm_k %_worm_l %_login_h %_login_p %_login_k %_login_l %_screensize_h
-%_misc_p %_misc_h %_misc_k
-%_cluster_p %_cluster_h %_cluster_k
-%_se_referrals_p %_se_referrals_h %_sider404_h %_referer404_h %_url_p %_url_k %_url_e %_url_x
-%_unknownreferer_l %_unknownrefererbrowser_l
-%_emails_h %_emails_k %_emails_l %_emailr_h %_emailr_k %_emailr_l
-/;
-&Init_HashArray();
-# ---------- Init Regex --------
-use vars qw/ $regclean1 $regclean2 $regdate /;
-$regclean1=qr/<(recnb|\/td)>/i;
-$regclean2=qr/<\/?[^<>]+>/i;
-$regdate=qr/(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/;
-
-# ---------- Init Tie::hash arrays --------
-# Didn't find a tie that increase speed
-#use Tie::StdHash;
-#use Tie::Cache::LRU;
-#tie %_host_p, 'Tie::StdHash';
-#tie %TmpOS, 'Tie::Cache::LRU';
-
-# PROTOCOL CODES
-use vars qw/ %httpcodelib %ftpcodelib %smtpcodelib /;
-
-# DEFAULT MESSAGE
-use vars qw/ @Message /;
-@Message=(
-'Unknown',
-'Unknown (unresolved ip)',
-'Others',
-'View details',
-'Day',
-'Month',
-'Year',
-'Statistics for',
-'First visit',
-'Last visit',
-'Number of visits',
-'Unique visitors',
-'Visit',
-'different keywords',
-'Search',
-'Percent',
-'Traffic',
-'Domains/Countries',
-'Visitors',
-'Pages-URL',
-'Hours',
-'Browsers',
-'',
-'Referers',
-'Never updated (See \'Build/Update\' on awstats_setup.html page)',
-'Visitors domains/countries',
-'hosts',
-'pages',
-'different pages-url',
-'Viewed',
-'Other words',
-'Pages not found',
-'HTTP Error codes',
-'Netscape versions',
-'IE versions',
-'Last Update',
-'Connect to site from',
-'Origin',
-'Direct address / Bookmarks',
-'Origin unknown',
-'Links from an Internet Search Engine',
-'Links from an external page (other web sites except search engines)',
-'Links from an internal page (other page on same site)',
-'Keyphrases used on search engines',
-'Keywords used on search engines',
-'Unresolved IP Address',
-'Unknown OS (Referer field)',
-'Required but not found URLs (HTTP code 404)',
-'IP Address',
-'Error&nbsp;Hits',
-'Unknown browsers (Referer field)',
-'different robots',
-'visits/visitor',
-'Robots/Spiders visitors',
-'Free realtime logfile analyzer for advanced web statistics',
-'of',
-'Pages',
-'Hits',
-'Versions',
-'Operating Systems',
-'Jan',
-'Feb',
-'Mar',
-'Apr',
-'May',
-'Jun',
-'Jul',
-'Aug',
-'Sep',
-'Oct',
-'Nov',
-'Dec',
-'Navigation',
-'File type',
-'Update now',
-'Bandwidth',
-'Back to main page',
-'Top',
-'dd mmm yyyy - HH:MM',
-'Filter',
-'Full list',
-'Hosts',
-'Known',
-'Robots',
-'Sun',
-'Mon',
-'Tue',
-'Wed',
-'Thu',
-'Fri',
-'Sat',
-'Days of week',
-'Who',
-'When',
-'Authenticated users',
-'Min',
-'Average',
-'Max',
-'Web compression',
-'Bandwidth saved',
-'Compression on',
-'Compression result',
-'Total',
-'different keyphrases',
-'Entry',
-'Code',
-'Average size',
-'Links from a NewsGroup',
-'KB',
-'MB',
-'GB',
-'Grabber',
-'Yes',
-'No',
-'Info.',
-'OK',
-'Exit',
-'Visits duration',
-'Close window',
-'Bytes',
-'Search&nbsp;Keyphrases',
-'Search&nbsp;Keywords',
-'different refering search engines',
-'different refering sites',
-'Other phrases',
-'Other logins (and/or anonymous users)',
-'Refering search engines',
-'Refering sites',
-'Summary',
-'Exact value not available in "Year" view',
-'Data value arrays',
-'Sender EMail',
-'Receiver EMail',
-'Reported period',
-'Extra/Marketing',
-'Screen sizes',
-'Worm/Virus attacks',
-'Add to favorites (estimated)',
-'Days of month',
-'Miscellaneous',
-'Browsers with Java support',
-'Browsers with Macromedia Director Support',
-'Browsers with Flash Support',
-'Browsers with Real audio playing support',
-'Browsers with Quictime audio playing support',
-'Browsers with Windows Media audio playing support',
-'Browsers with PDF support',
-'SMTP Error codes',
-'Countries',
-'Mails',
-'Size',
-'First',
-'Last',
-'Exclude filter',
-'Codes shown here gave hits or traffic "not viewed" by visitors, so they are not included in other charts.',
-'Cluster',
-'Robots shown here gave hits or traffic "not viewed" by visitors, so they are not included in other charts.',
-'Numbers after + are successful hits on "robots.txt" files',
-'Worms shown here gave hits or traffic "not viewed" by visitors, so thay are not included in other charts.',
-'Not viewed traffic includes traffic generated by robots, worms, or replies with special HTTP status codes.',
-'Traffic viewed',
-'Traffic not viewed',
-'Monthly history',
-'Worms',
-'different worms',
-'Mails successfully sent',
-'Mails failed/refused',
-'Sensitive targets',
-'Javascript disabled'
-);
-
-
-
-#------------------------------------------------------------------------------
-# Functions
-#------------------------------------------------------------------------------
-
-#------------------------------------------------------------------------------
-# Function:                Write on ouput header of HTTP answer
-# Parameters:        None
-# Input:                $HeaderHTTPSent $BuildReportFormat $PageCode $Expires
-# Output:                $HeaderHTTPSent=1
-# Return:                None
-#------------------------------------------------------------------------------
-sub http_head {
-        if (! $HeaderHTTPSent) {
-                if ($BuildReportFormat eq 'xhtml' || $BuildReportFormat eq 'xml') { print ($ENV{'HTTP_USER_AGENT'}=~/MSIE|Googlebot/i?"Content-type: text/html; charset=$PageCode\n":"Content-type: text/xml; charset=$PageCode\n"); }
-                else { print "Content-type: text/html; charset=$PageCode\n"; }
-
-                # Expires must be GMT ANSI asctime and must be after Content-type to avoid pb with some servers (SAMBAR)
-                if ($Expires =~ /^\d+$/) {
-                    print "Cache-Control: public\n";
-                    print "Last-Modified: ".gmtime($starttime)."\n";
-                    print "Expires: ".(gmtime($starttime+$Expires))."\n";
-                }
-                print "\n";
-        }
-        $HeaderHTTPSent++;;
-}
-
-#------------------------------------------------------------------------------
-# Function:                Write on ouput header of HTML page
-# Parameters:        None
-# Input:                %HTMLOutput $PluginMode $Expires $Lang $StyleSheet $HTMLHeadSection $PageCode $PageDir
-# Output:                $HeaderHTMLSent=1
-# Return:                None
-#------------------------------------------------------------------------------
-sub html_head {
-        my $dir=$PageDir?'right':'left';
-        if (scalar keys %HTMLOutput || $PluginMode) {
-                my $MetaRobot=0;        # meta robots
-        my $periodtitle=" ($YearRequired".($MonthRequired ne 'all'?"-$MonthRequired":"").")";
-                # Write head section
-                if ($BuildReportFormat eq 'xhtml' || $BuildReportFormat eq 'xml') {
-                        if ($PageCode) { print "<?xml version=\"1.0\" encoding=\"$PageCode\"?>\n"; }
-                        else { print "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n"; };
-            if ($FrameName ne 'index') { print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n";  }
-                        else { print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Frameset//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd\">\n"; }
-                        print "<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"$Lang\">\n";
-                } else {
-                        if ($FrameName ne 'index') { print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n\n";  }
-                        else { print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Frameset//EN\">\n\n"; }
-                        print "<html lang='$Lang'".($PageDir?" dir='rtl'":"").">\n";
-                }
-                print "<head>\n";
-
-        print "<meta name=\"generator\" content=\"AWStats $VERSION from config file awstats.$SiteConfig.conf (http://awstats.sourceforge.net)\" />\n";
-
-                if ($MetaRobot) { print "<meta name=\"robots\" content=\"".($FrameName eq 'mainleft'?'no':'')."index,nofollow\" />\n"; }
-                else { print "<meta name=\"robots\" content=\"noindex,nofollow\" />\n"; }
-
-                # Affiche tag meta content-type
-                if ($BuildReportFormat eq 'xhtml' || $BuildReportFormat eq 'xml') { print ($ENV{'HTTP_USER_AGENT'}=~/MSIE|Googlebot/i?"<meta http-equiv=\"content-type\" content=\"text/html; charset=".($PageCode?$PageCode:"iso-8859-1")."\" />\n":"<meta http-equiv=\"content-type\" content=\"text/xml; charset=".($PageCode?$PageCode:"iso-8859-1")."\" />\n"); }
-                else { print "<meta http-equiv=\"content-type\" content=\"text/html; charset=".($PageCode?$PageCode:"iso-8859-1")."\" />\n"; }
-
-                if ($Expires)  { print "<meta http-equiv=\"expires\" content=\"".(gmtime($starttime+$Expires))."\" />\n"; }
-                print "<meta http-equiv=\"description\" content=\"".ucfirst($PROG)." - Advanced Web Statistics for $SiteDomain$periodtitle\" />\n";
-                if ($MetaRobot && $FrameName ne 'mainleft') { print "<meta http-equiv=\"keywords\" content=\"$SiteDomain, free, advanced, realtime, web, server, logfile, log, analyzer, analysis, statistics, stats, perl, analyse, performance, hits, visits\" />\n"; }
-                print "<title>$Message[7] $SiteDomain$periodtitle</title>\n";
-                if ($FrameName ne 'index') {
-
-                        # A STYLE section must be in head section. Do not use " for number in a style section
-                        print "<style type=\"text/css\">\n";
-                        if ($BuildReportFormat eq 'xhtml' || $BuildReportFormat eq 'xml') { print ($ENV{'HTTP_USER_AGENT'}=~/Firebird/i?"<!--\n":"<![CDATA[\n"); }
-                        else { print "<!--\n"; }
-print "body { font: 11px verdana, arial, helvetica, sans-serif; background-color: #$color_Background; margin-top: 0; margin-bottom: 0; }\n";
-print ".aws_bodyl  { }\n";
-print ".aws_border { background-color: #$color_TableBG; padding: 1px 1px ".($BuildReportFormat eq 'xhtml' || $BuildReportFormat eq 'xml'?"2px":"1px")." 1px; margin-top: 0; margin-bottom: 0; }\n";
-print ".aws_title  { font: 13px verdana, arial, helvetica, sans-serif; font-weight: bold; background-color: #$color_TableBGTitle; text-align: center; margin-top: 0; margin-bottom: 0; padding: 1px 1px 1px 1px; color: #$color_TableTitle; }\n";
-print ".aws_blank  { font: 13px verdana, arial, helvetica, sans-serif; background-color: #".($ENV{'HTTP_USER_AGENT'} && $ENV{'HTTP_USER_AGENT'}=~/MSIE/i?$color_Background:$color_TableBG)."; text-align: center; margin-bottom: 0; padding: 1px 1px 1px 1px; }\n";
-print <<EOF;
-.aws_data {
-        background-color: #$color_Background;
-        border-top-width: 1px;
-        border-left-width: 0px;
-        border-right-width: 0px;
-        border-bottom-width: 0px;
-}
-.aws_formfield { font: 13px verdana, arial, helvetica; }
-.aws_button {
-        font-family: arial,verdana,helvetica, sans-serif;
-        font-size: 12px;
-        border: 1px solid #ccd7e0;
-        background-image : url($DirIcons/other/button.gif);
-}
-th                { border-color: #$color_TableBorder; border-left-width: 0px; border-right-width: 1px; border-top-width: 0px; border-bottom-width: 1px; padding: 1px 2px 1px 1px; font: 11px verdana, arial, helvetica, sans-serif; text-align:center; color: #$color_titletext; }
-th.aws        { border-color: #$color_TableBorder; border-left-width: 0px; border-right-width: 1px; border-top-width: 0px; border-bottom-width: 1px; padding: 1px 2px 1px 1px; font-size: 13px; font-weight: bold; }
-td                { border-color: #$color_TableBorder; border-left-width: 0px; border-right-width: 1px; border-top-width: 0px; border-bottom-width: 1px; font: 11px verdana, arial, helvetica, sans-serif; text-align:center; color: #$color_text; }
-td.aws        { border-color: #$color_TableBorder; border-left-width: 0px; border-right-width: 1px; border-top-width: 0px; border-bottom-width: 1px; font: 11px verdana, arial, helvetica, sans-serif; text-align:$dir; color: #$color_text; padding: 0px;}
-td.awsm        { border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; border-bottom-width: 0px; font: 11px verdana, arial, helvetica, sans-serif; text-align:$dir; color: #$color_text; padding: 0px; }
-b { font-weight: bold; }
-a { font: 11px verdana, arial, helvetica, sans-serif; }
-a:link    { color: #$color_link; text-decoration: none; }
-a:visited { color: #$color_link; text-decoration: none; }
-a:hover   { color: #$color_hover; text-decoration: underline; }
-.currentday { font-weight: bold; }
-EOF
-                        # Call to plugins' function AddHTMLStyles
-                        foreach my $pluginname (keys %{$PluginsLoaded{'AddHTMLStyles'}})  {
-                                my $function="AddHTMLStyles_$pluginname()";
-                                eval("$function");
-                        }
-
-                        if ($BuildReportFormat eq 'xhtml' || $BuildReportFormat eq 'xml') { print ($ENV{'HTTP_USER_AGENT'}=~/Firebird/i?"//-->\n":"]]>\n"); }
-                        else { print "//-->\n"; }
-                        print "</style>\n";
-
-                        if ($StyleSheet) {
-                                print "<link rel=\"stylesheet\" href=\"$StyleSheet\" />\n";
-                        }
-                }
-                print "</head>\n\n";
-                if ($FrameName ne 'index') {
-                        print "<body style=\"margin-top: 0px\"";
-                         if ($FrameName eq 'mainleft') { print " class=\"aws_bodyl\""; }
-                         print ">\n";
-                }
-        }
-        $HeaderHTMLSent++;
-}
-
-#------------------------------------------------------------------------------
-# Function:                Write on ouput end of HTML page
-# Parameters:        0|1 (0=no list plugins,1=list plugins)
-# Input:                %HTMLOutput $HTMLEndSection $FrameName $BuildReportFormat
-# Output:                None
-# Return:                None
-#------------------------------------------------------------------------------
-sub html_end {
-        my $listplugins=shift||0;
-        if (scalar keys %HTMLOutput) {
-
-            # Call to plugins' function AddHTMLBodyFooter
-            foreach my $pluginname (keys %{$PluginsLoaded{'AddHTMLBodyFooter'}})  {
-                    my $function="AddHTMLBodyFooter_$pluginname()";
-                    eval("$function");
-            }
-
-                if ($FrameName ne 'index' && $FrameName ne 'mainleft') {
-                        print "$Center<br /><br />\n";
-                        print "<span dir=\"ltr\" style=\"font: 11px verdana, arial, helvetica; color: #$color_text;\">";
-                        print "<b>Advanced Web Statistics $VERSION</b> - <a href=\"http://awstats.sourceforge.net\" target=\"awstatshome\">Created by $PROG";
-                        if ($listplugins) {
-                                my $atleastoneplugin=0;
-                                foreach my $pluginname (keys %{$PluginsLoaded{'init'}}) {
-                                        if (! $atleastoneplugin) { $atleastoneplugin=1; print " (with plugin "; }
-                                        else { print ", "; }
-                                        print "$pluginname";
-                                }
-                                if ($atleastoneplugin) { print ")"; }
-                        }
-                        print "</a></span><br />\n";
-                        if ($HTMLEndSection) { print "<br />\n$HTMLEndSection\n"; }
-                }
-                print "\n";
-                if ($FrameName ne 'index') {
-                        if ($FrameName ne 'mainleft' && $BuildReportFormat eq 'html') { print "<br />\n"; }
-                        print "</body>\n";
-                }
-                print "</html>\n";
-#                print "<!-- NEW PAGE --><!-- NEW SHEET -->\n";
-        }
-}
-
-#------------------------------------------------------------------------------
-# Function:                Print on stdout tab header of a chart
-# Parameters:        $title $tooltipnb [$width percentage of chart title]
-# Input:                None
-# Output:                None
-# Return:                None
-#------------------------------------------------------------------------------
-sub tab_head {
-        my $title=shift;
-        my $tooltipnb=shift;
-        my $width=shift||70;
-        my $class=shift;
-        if ($width == 70 && $QueryString =~ /buildpdf/i) { print "<table class=\"aws_border\" border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"800\">\n"; }
-        else { print "<table class=\"aws_border\" border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"100%\">\n"; }
-
-        if ($tooltipnb) {
-                print "<tr><td class=\"aws_title\" width=\"$width%\"".Tooltip($tooltipnb,$tooltipnb).">$title </td>";
-        }
-        else {
-                print "<tr><td class=\"aws_title\" width=\"$width%\">$title </td>";
-        }
-        print "<td class=\"aws_blank\">&nbsp;</td></tr>\n";
-        print "<tr><td colspan=\"2\">\n";
-        if ($width == 70 && $QueryString =~ /buildpdf/i) { print "<table class=\"aws_data\" border=\"1\" bordercolor=\"#$color_TableBorder\" cellpadding=\"2\" cellspacing=\"0\" width=\"796\">\n"; }
-        else { print "<table class=\"aws_data\" border=\"1\" bordercolor=\"#$color_TableBorder\" cellpadding=\"2\" cellspacing=\"0\" width=\"100%\">\n"; }
-}
-
-#------------------------------------------------------------------------------
-# Function:                Print on stdout tab ender of a chart
-# Parameters:        None
-# Input:                None
-# Output:                None
-# Return:                None
-#------------------------------------------------------------------------------
-sub tab_end {
-        my $string=shift;
-        print "</table></td></tr></table>";
-        if ($string) { print "<span style=\"font: 11px verdana, arial, helvetica;\">$string</span><br />\n"; }
-        print "<br />\n\n";
-}
-
-#------------------------------------------------------------------------------
-# Function:                Write error message and exit
-# Parameters:        $message $secondmessage $thirdmessage $donotshowsetupinfo
-# Input:                $HeaderHTTPSent $HeaderHTMLSent %HTMLOutput $LogSeparator $LogFormat
-# Output:                None
-# Return:                None
-#------------------------------------------------------------------------------
-sub error {
-        my $message=shift||''; if (scalar keys %HTMLOutput) { $message =~ s/\</&lt;/g; $message =~ s/\>/&gt;/g; }
-        my $secondmessage=shift||'';
-        my $thirdmessage=shift||'';
-        my $donotshowsetupinfo=shift||0;
-
-        if (! $HeaderHTTPSent && $ENV{'GATEWAY_INTERFACE'}) { http_head(); }
-        if (! $HeaderHTMLSent && scalar keys %HTMLOutput)         { print "<html><body>\n"; $HeaderHTMLSent=1; }
-        if ($Debug) { debug("$message $secondmessage $thirdmessage",1); }
-        my $tagbold=''; my $tagunbold=''; my $tagbr=''; my $tagfontred=''; my $tagfontgrey=''; my $tagunfont='';
-        if (scalar keys %HTMLOutput) {
-                $tagbold='<b>'; $tagunbold='</b>'; $tagbr='<br />';
-                $tagfontred='<span style="color: #880000">';
-                $tagfontgrey='<span style="color: #888888">';
-                $tagunfont='</span>';
-        }
-        if (! $ErrorMessages && $message =~ /^Format error$/i) {
-                # Files seems to have bad format
-                if (scalar keys %HTMLOutput) { print "<br /><br />\n"; }
-                if ($message !~ $LogSeparator) {
-                        # Bad LogSeparator parameter
-                        print "${tagfontred}AWStats did not found the ${tagbold}LogSeparator${tagunbold} in your log records.${tagbr}${tagunfont}\n";
-                }
-                else {
-                        # Bad LogFormat parameter
-                        print "AWStats did not find any valid log lines that match your ${tagbold}LogFormat${tagunbold} parameter, in the ${NbOfLinesForCorruptedLog}th first non commented lines read of your log.${tagbr}\n";
-                        print "${tagfontred}Your log file ${tagbold}$thirdmessage${tagunbold} must have a bad format or ${tagbold}LogFormat${tagunbold} parameter setup does not match this format.${tagbr}${tagbr}${tagunfont}\n";
-                        print "Your AWStats ${tagbold}LogFormat${tagunbold} parameter is:\n";
-                        print "${tagbold}$LogFormat${tagunbold}${tagbr}\n";
-                        print "This means each line in your web server log file need to have ";
-                        if ($LogFormat == 1) {
-                                print "${tagbold}\"combined log format\"${tagunbold} like this:${tagbr}\n";
-                                print (scalar keys %HTMLOutput?"$tagfontgrey<i>":"");
-                                print "111.22.33.44 - - [10/Jan/2001:02:14:14 +0200] \"GET / HTTP/1.1\" 200 1234 \"http://www.fromserver.com/from.htm\" \"Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)\"\n";
-                                print (scalar keys %HTMLOutput?"</i>$tagunfont${tagbr}${tagbr}\n":"");
-                        }
-                        if ($LogFormat == 2) {
-                                print "${tagbold}\"MSIE Extended W3C log format\"${tagunbold} like this:${tagbr}\n";
-                                print (scalar keys %HTMLOutput?"$tagfontgrey<i>":"");
-                                print "date time c-ip c-username cs-method cs-uri-sterm sc-status sc-bytes cs-version cs(User-Agent) cs(Referer)\n";
-                                print (scalar keys %HTMLOutput?"</i>$tagunfont${tagbr}${tagbr}\n":"");
-                        }
-                        if ($LogFormat == 3) {
-                                print "${tagbold}\"WebStar native log format\"${tagunbold}${tagbr}\n";
-                        }
-                        if ($LogFormat == 4) {
-                                print "${tagbold}\"common log format\"${tagunbold} like this:${tagbr}\n";
-                                print (scalar keys %HTMLOutput?"$tagfontgrey<i>":"");
-                                print "111.22.33.44 - - [10/Jan/2001:02:14:14 +0200] \"GET / HTTP/1.1\" 200 1234\n";
-                                print (scalar keys %HTMLOutput?"</i>$tagunfont${tagbr}${tagbr}\n":"");
-                        }
-                        if ($LogFormat == 5) {
-                                print "${tagbold}\"ISA native log format\"${tagunbold}${tagbr}\n";
-                        }
-                        if ($LogFormat == 6) {
-                                print "${tagbold}\"Lotus Notes/Lotus Domino\"${tagunbold}${tagbr}\n";
-                                print (scalar keys %HTMLOutput?"$tagfontgrey<i>":"");
-                                print "111.22.33.44 - Firstname Middlename Lastname [10/Jan/2001:02:14:14 +0200] \"GET / HTTP/1.1\" 200 1234 \"http://www.fromserver.com/from.htm\" \"Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)\"\n";
-                                print (scalar keys %HTMLOutput?"</i></span>${tagbr}${tagbr}\n":"");
-                        }
-                        if ($LogFormat !~ /^[1-6]$/) {
-                                print "the following personalized log format:${tagbr}\n";
-                                print (scalar keys %HTMLOutput?"$tagfontgrey<i>":"");
-                                print "$LogFormat\n";
-                                print (scalar keys %HTMLOutput?"</i>$tagunfont${tagbr}${tagbr}\n":"");
-                        }
-                        print "And this is an example of records AWStats found in your log file (the record number $NbOfLinesForCorruptedLog in your log):\n";
-                        print (scalar keys %HTMLOutput?"<br />$tagfontgrey<i>":"");
-                        print "$secondmessage";
-                        print (scalar keys %HTMLOutput?"</i>$tagunfont${tagbr}${tagbr}":"");
-                        print "\n";
-                }
-                #print "Note: If your $NbOfLinesForCorruptedLog first lines in your log files are wrong because of ";
-                #print "a worm virus attack, you can increase the NbOfLinesForCorruptedLog parameter in config file.\n";
-                #print "\n";
-        }
-        else {
-                print (scalar keys %HTMLOutput?"<br />$tagfontred\n":"");
-                print ($ErrorMessages?"$ErrorMessages":"Error: $message");
-                print (scalar keys %HTMLOutput?"\n</span><br />":"");
-                print "\n";
-        }
-        if (! $ErrorMessages && ! $donotshowsetupinfo) {
-                if ($message =~ /Couldn.t open config file/i) {
-                        my $dir=$DIR;
-                        if ($dir =~ /^\./) { $dir.='/../..'; }
-                        else { $dir =~ s/[\\\/]?wwwroot[\/\\]cgi-bin[\\\/]?//; }
-                        print "${tagbr}\n";
-                        if ($ENV{'GATEWAY_INTERFACE'}) {
-                                print "- ${tagbold}Did you use the correct URL ?${tagunbold}${tagbr}\n";
-                                print "Example: http://localhost/awstats/awstats.pl?config=mysite${tagbr}\n";
-                                print "Example: http://127.0.0.1/cgi-bin/awstats.pl?config=mysite${tagbr}\n";
-                        } else {
-                                print "- ${tagbold}Did you use correct config parameter ?${tagunbold}${tagbr}\n";
-                                print "Example: If your config file is awstats.mysite.conf, use -config=mysite\n";
-                        }
-                        print "- ${tagbold}Did you create your config file 'awstats.$SiteConfig.conf' ?${tagunbold}${tagbr}\n";
-                        print "If not, you can run \"$dir/tools/configure.pl\"\nfrom command line, or create it manually.${tagbr}\n";
-                        print "${tagbr}\n";
-                }
-                else { print "${tagbr}${tagbold}Setup (".($FileConfig?"'".$FileConfig."'":"Config")." file, web server or permissions) may be wrong.${tagunbold}${tagbr}\n"; }
-                print "Check config file, permissions and AWStats documentation (in 'docs' directory).\n";
-        }
-        # Remove lock if not a lock message
-        if ($EnableLockForUpdate && $message !~ /lock file/) { &Lock_Update(0); }
-        if (scalar keys %HTMLOutput) { print "</body></html>\n"; }
-        exit 1;
-}
-
-#------------------------------------------------------------------------------
-# Function:                Write a warning message
-# Parameters:        $message
-# Input:                $HeaderHTTPSent $HeaderHTMLSent $WarningMessage %HTMLOutput
-# Output:                None
-# Return:                None
-#------------------------------------------------------------------------------
-sub warning {
-        my $messagestring=shift;
-
-        if (! $HeaderHTTPSent && $ENV{'GATEWAY_INTERFACE'}) { http_head(); }
-        if (! $HeaderHTMLSent) { html_head(); }
-        if ($Debug) { debug("$messagestring",1); }
-        if ($WarningMessages) {
-                if (scalar keys %HTMLOutput) {
-                        $messagestring =~ s/\n/\<br\>/g;
-                        print "$messagestring<br />\n";
-                }
-                else {
-                        print "$messagestring\n";
-                }
-        }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Write debug message and exit
-# Parameters:   $string $level
-# Input:        %HTMLOutput  $Debug=required level  $DEBUGFORCED=required level forced
-# Output:                None
-# Return:                None
-#------------------------------------------------------------------------------
-sub debug {
-        my $level = $_[1] || 1;
-
-        if (! $HeaderHTTPSent && $ENV{'GATEWAY_INTERFACE'}) { http_head(); }        # To send the HTTP header and see debug
-        if ($level <= $DEBUGFORCED) {
-                my $debugstring = $_[0];
-                if (! $DebugResetDone) { open(DEBUGFORCEDFILE,"debug.log"); close DEBUGFORCEDFILE; chmod 0666,"debug.log"; $DebugResetDone=1; }
-                open(DEBUGFORCEDFILE,">>debug.log");
-                print DEBUGFORCEDFILE localtime(time)." - $$ - DEBUG $level - $debugstring\n";
-                close DEBUGFORCEDFILE;
-        }
-        if ($DebugMessages && $level <= $Debug) {
-                my $debugstring = $_[0];
-                if (scalar keys %HTMLOutput) { $debugstring =~ s/^ /&nbsp;&nbsp; /; $debugstring .= "<br />"; }
-                print localtime(time)." - DEBUG $level - $debugstring\n";
-        }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Optimize an array removing duplicate entries
-# Parameters:        @Array notcasesensitive=0|1
-# Input:        None
-# Output:                None
-# Return:                None
-#------------------------------------------------------------------------------
-sub OptimizeArray {
-        my $array=shift;
-        my @arrayunreg=map{if (/\(\?[-\w]*:(.*)\)/) { $1 } } @$array;
-        my $notcasesensitive=shift;
-        my $searchlist=0;
-        if ($Debug) { debug("OptimizeArray (notcasesensitive=$notcasesensitive)",4); }
-        while ($searchlist>-1 && @arrayunreg) {
-                my $elemtoremove=-1;
-                OPTIMIZELOOP:
-                foreach my $i ($searchlist..(scalar @arrayunreg)-1) {
-                        # Search if $i elem is already treated by another elem
-                        foreach my $j (0..(scalar @arrayunreg)-1) {
-                                if ($i == $j) { next; }
-                                my $parami=$notcasesensitive?lc($arrayunreg[$i]):$arrayunreg[$i];
-                                my $paramj=$notcasesensitive?lc($arrayunreg[$j]):$arrayunreg[$j];
-                                if ($Debug) { debug(" Compare $i ($parami) to $j ($paramj)",4); }
-                                if (index($parami,$paramj)>-1) {
-                                        if ($Debug) { debug(" Elem $i ($arrayunreg[$i]) already treated with elem $j ($arrayunreg[$j])",4); }
-                                        $elemtoremove=$i;
-                                        last OPTIMIZELOOP;
-                                }
-                        }
-                }
-                if ($elemtoremove > -1) {
-                        if ($Debug) { debug(" Remove elem $elemtoremove - $arrayunreg[$elemtoremove]",4); }
-                        splice @arrayunreg, $elemtoremove, 1;
-                        $searchlist=$elemtoremove;
-                }
-                else {
-                        $searchlist=-1;
-                }
-        }
-        if ($notcasesensitive) { return map{qr/$_/i} @arrayunreg; }
-        return map{qr/$_/} @arrayunreg;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Check if parameter is in SkipDNSLookupFor array
-# Parameters:        ip @SkipDNSLookupFor (a NOT case sensitive precompiled regex array)
-# Return:                0 Not found, 1 Found
-#------------------------------------------------------------------------------
-sub SkipDNSLookup {
-        foreach (@SkipDNSLookupFor) { if ($_[0] =~ /$_/) { return 1; } }
-        0; # Not in @SkipDNSLookupFor
-}
-
-#------------------------------------------------------------------------------
-# Function:     Check if parameter is in SkipHosts array
-# Parameters:        host @SkipHosts (a NOT case sensitive precompiled regex array)
-# Return:                0 Not found, 1 Found
-#------------------------------------------------------------------------------
-sub SkipHost {
-        foreach (@SkipHosts) { if ($_[0] =~ /$_/) { return 1; } }
-        0; # Not in @SkipHosts
-}
-
-#------------------------------------------------------------------------------
-# Function:     Check if parameter is in SkipUserAgents array
-# Parameters:        useragent @SkipUserAgents (a NOT case sensitive precompiled regex array)
-# Return:                0 Not found, 1 Found
-#------------------------------------------------------------------------------
-sub SkipUserAgent {
-        foreach (@SkipUserAgents) { if ($_[0] =~ /$_/) { return 1; } }
-        0; # Not in @SkipUserAgent
-}
-
-#------------------------------------------------------------------------------
-# Function:     Check if parameter is in SkipFiles array
-# Parameters:        url @SkipFiles (a NOT case sensitive precompiled regex array)
-# Return:                0 Not found, 1 Found
-#------------------------------------------------------------------------------
-sub SkipFile {
-        foreach (@SkipFiles) { if ($_[0] =~ /$_/) { return 1; } }
-        0; # Not in @SkipFiles
-}
-
-#------------------------------------------------------------------------------
-# Function:     Check if parameter is in OnlyHosts array
-# Parameters:        host @OnlyHosts (a NOT case sensitive precompiled regex array)
-# Return:                0 Not found, 1 Found
-#------------------------------------------------------------------------------
-sub OnlyHost {
-        foreach (@OnlyHosts) { if ($_[0] =~ /$_/) { return 1; } }
-        0; # Not in @OnlyHosts
-}
-
-#------------------------------------------------------------------------------
-# Function:     Check if parameter is in OnlyUserAgents array
-# Parameters:        useragent @OnlyUserAgents (a NOT case sensitive precompiled regex array)
-# Return:                0 Not found, 1 Found
-#------------------------------------------------------------------------------
-sub OnlyUserAgent {
-        foreach (@OnlyUserAgents) { if ($_[0] =~ /$_/) { return 1; } }
-        0; # Not in @OnlyHosts
-}
-
-#------------------------------------------------------------------------------
-# Function:     Check if parameter is in OnlyUsers array
-# Parameters:        useragent @OnlyUsers (a NOT case sensitive precompiled regex array)
-# Return:                0 Not found, 1 Found
-# Author:                E-Lane
-#------------------------------------------------------------------------------
-sub OnlyUser {
-        foreach (@OnlyUsers) { if ($_[0] =~ /$_/) { return 1; } }
-        0; # Not in @OnlyUsers
-}
-
-#------------------------------------------------------------------------------
-# Function:     Check if parameter is in OnlyLines array
-# Parameters:        useragent @OnlyLines (a NOT case sensitive precompiled regex array)
-# Return:                0 Not found, 1 Found
-# Author:                E-Lane
-#------------------------------------------------------------------------------
-sub OnlyLine {
-        foreach (@OnlyLines) { if ($_[0] =~ /$_/) { return 1; } }
-        0; # Not in @OnlyUsers
-}
-
-#------------------------------------------------------------------------------
-# Function:     Check if parameter is in OnlyFiles array
-# Parameters:        url @OnlyFiles (a NOT case sensitive precompiled regex array)
-# Return:                0 Not found, 1 Found
-#------------------------------------------------------------------------------
-sub OnlyFile {
-        foreach (@OnlyFiles) {
-                if ($_[0] =~ /$_/) { return 1;  }
-        }
-        0; # Not in @OnlyFiles
-}
-
-#------------------------------------------------------------------------------
-# Function:     Return day of week of a day
-# Parameters:        $day $month $year
-# Return:                0-6
-#------------------------------------------------------------------------------
-sub DayOfWeek {
-        my ($day, $month, $year) = @_;
-        if ($Debug) { debug("DayOfWeek for $day $month $year",4); }
-        if ($month < 3) {  $month += 10;  $year--; }
-        else { $month -= 2; }
-        my $cent = sprintf("%1i",($year/100));
-        my $y = ($year % 100);
-        my $dw = (sprintf("%1i",(2.6*$month)-0.2) + $day + $y + sprintf("%1i",($y/4)) + sprintf("%1i",($cent/4)) - (2*$cent)) % 7;
-        $dw += 7 if ($dw<0);
-        if ($Debug) { debug(" is $dw",4); }
-        return $dw;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Return 1 if a date exists
-# Parameters:        $day $month $year
-# Return:                1 if date exists else 0
-#------------------------------------------------------------------------------
-sub DateIsValid {
-        my ($day, $month, $year) = @_;
-        if ($Debug) { debug("DateIsValid for $day $month $year",4); }
-        if ($day < 1)  { return 0; }
-        if ($day > 31) { return 0; }
-        if ($month==4 || $month==6 || $month==9 || $month==11) {
-                if ($day > 30) { return 0; }
-        }
-        elsif ($month==2) {
-                my $leapyear=($year%4==0?1:0);                                                # A leap year every 4 years
-                if ($year%100==0 && $year%400!=0) { $leapyear=0; }        # Except if year is 100x and not 400x
-                if ($day > (28+$leapyear)) { return 0; }
-        }
-        return 1;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Return string of visit duration
-# Parameters:        $starttime $endtime
-# Input:        None
-# Output:                None
-# Return:                A string that identify the visit duration range
-#------------------------------------------------------------------------------
-sub GetSessionRange {
-        my $starttime = my $endtime;
-        if (shift =~ /$regdate/o) { $starttime = Time::Local::timelocal($6,$5,$4,$3,$2-1,$1); }
-        if (shift =~ /$regdate/o) { $endtime = Time::Local::timelocal($6,$5,$4,$3,$2-1,$1); }
-        my $delay=$endtime-$starttime;
-        if ($Debug) { debug("GetSessionRange $endtime - $starttime = $delay",4); }
-        if ($delay <= 30)   { return $SessionsRange[0]; }
-        if ($delay <= 120)  { return $SessionsRange[1]; }
-        if ($delay <= 300)  { return $SessionsRange[2]; }
-        if ($delay <= 900)  { return $SessionsRange[3]; }
-        if ($delay <= 1800) { return $SessionsRange[4]; }
-        if ($delay <= 3600) { return $SessionsRange[5]; }
-        return $SessionsRange[6];
-}
-
-#------------------------------------------------------------------------------
-# Function:     Read config file
-# Parameters:        None or configdir to scan
-# Input:        $DIR $PROG $SiteConfig
-# Output:                Global variables
-# Return:                -
-#------------------------------------------------------------------------------
-sub Read_Config {
-        # Check config file in common possible directories :
-        # Windows :                                                   "$DIR" (same dir than awstats.pl)
-        # Standard, Mandrake and Debian package :        "/etc/awstats"
-        # Other possible directories :                                "/usr/local/etc/awstats", "/etc"
-        # FHS standard, Suse package :                                 "/etc/opt/awstats"
-        my $configdir=shift;
-        my @PossibleConfigDir=();
-
-        if ($configdir) { @PossibleConfigDir=("$configdir","$DIR","${DIR}/../../../config","/etc/awstats","/usr/local/etc/awstats","/etc","/etc/opt/awstats"); }
-        else { @PossibleConfigDir=("$DIR","${DIR}/../../../config","/etc/awstats","/usr/local/etc/awstats","/etc","/etc/opt/awstats"); }
-
-        # Open config file
-        $FileConfig='';
-#        $FileConfig=$FileSuffix='';
-        foreach (@PossibleConfigDir) {
-                my $searchdir=$_;
-                if ($searchdir && $searchdir !~ /[\\\/]$/) { $searchdir .= "/"; }
-                if (open(CONFIG,"$searchdir$PROG.$SiteConfig.conf"))         { $FileConfig="$searchdir$PROG.$SiteConfig.conf"; $FileSuffix=".$SiteConfig$FileSuffix"; last; }
-                if (open(CONFIG,"$searchdir$PROG.conf"))                                  { $FileConfig="$searchdir$PROG.conf"; $FileSuffix="$FileSuffix"; last; }
-        }
-        if (! $FileConfig) { error("Couldn't open config file \"$PROG.$SiteConfig.conf\" nor \"$PROG.conf\" after searching in path \"".join(',',@PossibleConfigDir)."\": $!"); }
-
-        # Analyze config file content and close it
-        &Parse_Config( *CONFIG , 1 , $FileConfig);
-        close CONFIG;
-
-        # If parameter NotPageList not found, init for backward compatibility
-        if (! $FoundNotPageList) {
-                %NotPageList=('css'=>1,'js'=>1,'class'=>1,'gif'=>1,'jpg'=>1,'jpeg'=>1,'png'=>1,'bmp'=>1);
-        }
-        # If parameter ValidHTTPCodes empty, init for backward compatibility
-        if (! scalar keys %ValidHTTPCodes) { $ValidHTTPCodes{"200"}=$ValidHTTPCodes{"304"}=1; }
-        # If parameter ValidSMTPCodes empty, init for backward compatibility
-        if (! scalar keys %ValidSMTPCodes) { $ValidSMTPCodes{"1"}=$ValidSMTPCodes{"250"}=1; }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Parse content of a config file
-# Parameters:        opened file handle, depth level, file name
-# Input:        -
-# Output:                Global variables
-# Return:                -
-#------------------------------------------------------------------------------
-sub Parse_Config {
-    my ( $confighandle ) = $_[0];
-        my $level = $_[1];
-        my $configFile = $_[2];
-        my $versionnum=0;
-        my $conflinenb=0;
-
-        if ($level > 10) { error("$PROG can't read down more than 10 level of includes. Check that no 'included' config files include their parent config file (this cause infinite loop)."); }
-
-           while (<$confighandle>) {
-                chomp $_; s/\r//;
-                $conflinenb++;
-
-                # Extract version from first line
-                if (! $versionnum && $_ =~ /^# AWSTATS CONFIGURE FILE (\d+).(\d+)/i) {
-                        $versionnum=($1*1000)+$2;
-                        #if ($Debug) { debug(" Configure file version is $versionnum",1); }
-                        next;
-                }
-
-                if ($_ =~ /^\s*$/) { next; }
-
-                # Check includes
-                if ($_ =~ /^Include "([^\"]+)"/ || $_ =~ /^#include "([^\"]+)"/) {        # #include kept for backward compatibility
-                    my $includeFile = $1;
-                        if ($Debug) { debug("Found an include : $includeFile",2); }
-                    if ( $includeFile !~ /^[\\\/]/ ) {
-                            # Correct relative include files
-                                if ($FileConfig =~ /^(.*[\\\/])[^\\\/]*$/) { $includeFile = "$1$includeFile"; }
-                        }
-                        if ($level > 1) {
-                                warning("Warning: Perl versions before 5.6 cannot handle nested includes");
-                                next;
-                        }
-                    if ( open( CONFIG_INCLUDE, $includeFile ) ) {
-                                &Parse_Config( *CONFIG_INCLUDE , $level+1, $includeFile);
-                                close( CONFIG_INCLUDE );
-                    }
-                    else {
-                                error("Could not open include file: $includeFile" );
-                    }
-                        next;
-                }
-
-                # Remove comments
-                if ($_ =~ /^\s*#/) { next; }
-                $_ =~ s/\s#.*$//;
-
-                # Extract param and value
-                my ($param,$value)=split(/=/,$_,2);
-                $param =~ s/^\s+//; $param =~ s/\s+$//;
-
-                # If not a param=value, try with next line
-                if (! $param) { warning("Warning: Syntax error line $conflinenb in file '$configFile'. Config line is ignored."); next; }
-                if (! defined $value) { warning("Warning: Syntax error line $conflinenb in file '$configFile'. Config line is ignored."); next; }
-
-                if ($value) {
-                        $value =~ s/^\s+//; $value =~ s/\s+$//;
-                        $value =~ s/^\"//; $value =~ s/\";?$//;
-                        # Replace __MONENV__ with value of environnement variable MONENV
-                        # Must be able to replace __VAR_1____VAR_2__
-                        while ($value =~ /__([^\s_]+(?:_[^\s_]+)*)__/) { my $var=$1; $value =~ s/__${var}__/$ENV{$var}/g; }
-                }
-
-                # Initialize parameter for (param,value)
-                if ($param =~ /^LogFile/) {
-                        if ($QueryString !~ /logfile=([^\s&]+)/i) { $LogFile=$value; }
-                        next;
-                        }
-                if ($param =~ /^DirIcons/) {
-                        if ($QueryString !~ /diricons=([^\s&]+)/i) { $DirIcons=$value; }
-                        next;
-                        }
-#We have modified this option, because is more important the line command param
-                if ($param =~ /^SiteDomain/)  {
-                        # No regex test as SiteDomain is always exact value
-                        if ($SiteDomain eq '') { $SiteDomain=$value;}
-                        next;
-                }
-                if ($param =~ /^HostAliases/) {
-                        foreach my $elem (split(/\s+/,$value))        {
-                            if ($elem =~ s/^\@//) { # If list of hostaliases in a file
-                                open(DATAFILE,"<$elem") || error("Failed to open file '$elem' declared in HostAliases parameter");
-                                my @val=map(/^(.*)$/i,<DATAFILE>);
-                                push @HostAliases, map{qr/^$_$/i} @val;
-                                close(DATAFILE);
-                            }
-                                else {
-                                    if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                    else { $elem='^'.quotemeta($elem).'$'; }
-                                    if ($elem) { push @HostAliases, qr/$elem/i; }
-                                }
-                        }
-                        next;
-                        }
-                # Special optional setup params
-                if ($param =~ /^SkipDNSLookupFor/) {
-                        foreach my $elem (split(/\s+/,$value))        {
-                                if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                else { $elem='^'.quotemeta($elem).'$'; }
-                                if ($elem) { push @SkipDNSLookupFor, qr/$elem/i; }
-                        }
-                        next;
-                        }
-                if ($param =~ /^AllowAccessFromWebToFollowingAuthenticatedUsers/) {
-                        foreach (split(/\s+/,$value))        { push @AllowAccessFromWebToFollowingAuthenticatedUsers,$_; }
-                        next;
-                        }
-                if ($param =~ /^DefaultFile/)           {
-                        foreach my $elem (split(/\s+/,$value))        {
-                                # No REGEX for this option
-                                #if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                #else { $elem='^'.quotemeta($elem).'$'; }
-                                if ($elem) { push @DefaultFile,$elem; }
-                        }
-                        next;
-                        }
-                if ($param =~ /^SkipHosts/) {
-                        foreach my $elem (split(/\s+/,$value))        {
-                                if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                else { $elem='^'.quotemeta($elem).'$'; }
-                                if ($elem) { push @SkipHosts, qr/$elem/i; }
-                        }
-                        next;
-                        }
-                if ($param =~ /^SkipUserAgents/) {
-                        foreach my $elem (split(/\s+/,$value))        {
-                                if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                else { $elem='^'.quotemeta($elem).'$'; }
-                                if ($elem) { push @SkipUserAgents, qr/$elem/i; }
-                        }
-                        next;
-                        }
-                if ($param =~ /^SkipFiles/) {
-                        foreach my $elem (split(/\s+/,$value))        {
-                                if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                else { $elem='^'.quotemeta($elem).'$'; }
-                                if ($elem) { push @SkipFiles, qr/$elem/i; }
-                        }
-                        next;
-                        }
-                if ($param =~ /^OnlyHosts/) {
-                        foreach my $elem (split(/\s+/,$value))        {
-                                if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                else { $elem='^'.quotemeta($elem).'$'; }
-                                if ($elem) { push @OnlyHosts, qr/$elem/i; }
-                        }
-                        next;
-                        }
-                if ($param =~ /^OnlyUserAgents/) {
-                        foreach my $elem (split(/\s+/,$value))        {
-                                if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                else { $elem='^'.quotemeta($elem).'$'; }
-                                if ($elem) { push @OnlyUserAgents, qr/$elem/i; }
-                        }
-                        next;
-                        }
-                if ($param =~ /^OnlyFiles/) {
-                        foreach my $elem (split(/\s+/,$value))        {
-                                if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                else { $elem='^'.quotemeta($elem).'$'; }
-                                if ($elem) { push @OnlyFiles, qr/$elem/i; }
-                        }
-                        next;
-                        }
-#Params OnlyXXX defined by E-Lane
-                if ($param =~ /^OnlyUsers/) {
-                        foreach my $elem (split(/\s+/,$value))        {
-                                if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                else { $elem='^'.quotemeta($elem).'$'; }
-                                if ($elem) { push @OnlyUsers, qr/$elem/i; }
-                        }
-                        next;
-                        }
-                if ($param =~ /^OnlyLines/) {
-                        foreach my $elem (split(/\s+/,$value))        {
-                                if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; }
-                                else { $elem='^'.quotemeta($elem).'$'; }
-                                if ($elem) { push @OnlyLines, qr/$elem/i; }
-                        }
-                        next;
-                        }
-                if ($param =~ /^NotPageList/) {
-                        foreach (split(/\s+/,$value))        { $NotPageList{$_}=1; }
-                        $FoundNotPageList=1;
-                        next;
-                        }
-                if ($param =~ /^ValidHTTPCodes/) {
-                        foreach (split(/\s+/,$value))        { $ValidHTTPCodes{$_}=1; }
-                        next;
-                        }
-                if ($param =~ /^ValidSMTPCodes/) {
-                        foreach (split(/\s+/,$value))        { $ValidSMTPCodes{$_}=1; }
-                        next;
-                        }
-                if ($param =~ /^URLWithQueryWithOnlyFollowingParameters$/)        {
-                        @URLWithQueryWithOnly=split(/\s+/,$value);
-                        next;
-                        }
-                if ($param =~ /^URLWithQueryWithoutFollowingParameters$/)        {
-                        @URLWithQueryWithout=split(/\s+/,$value);
-                        next;
-                        }
-
-                 # Extra parameters
-                 if ($param =~ /^ExtraSectionName(\d+)/)                        { $ExtraName[$1]=$value; next; }
-                 if ($param =~ /^ExtraSectionCodeFilter(\d+)/)          { @{$ExtraCodeFilter[$1]}=split(/\s+/,$value); next; }
-                 if ($param =~ /^ExtraSectionCondition(\d+)/)          { $ExtraCondition[$1]=$value; next; }
-                 if ($param =~ /^ExtraSectionStatTypes(\d+)/)    { $ExtraStatTypes[$1]=$value; next; }
-                 if ($param =~ /^ExtraSectionFirstColumnTitle(\d+)/)         { $ExtraFirstColumnTitle[$1]=$value; next; }
-                 if ($param =~ /^ExtraSectionFirstColumnValues(\d+)/)         { $ExtraFirstColumnValues[$1]=$value; next; }
-                 if ($param =~ /^ExtraSectionFirstColumnFormat(\d+)/)         { $ExtraFirstColumnFormat[$1]=$value; next; }
-                 if ($param =~ /^ExtraSectionAddAverageRow(\d+)/)         { $ExtraAddAverageRow[$1]=$value; next; }
-                 if ($param =~ /^ExtraSectionAddSumRow(\d+)/)         { $ExtraAddSumRow[$1]=$value; next; }
-                 if ($param =~ /^MaxNbOfExtra(\d+)/)                         { $MaxNbOfExtra[$1]=$value; next; }
-                 if ($param =~ /^MinHitExtra(\d+)/)                                 { $MinHitExtra[$1]=$value; next; }
-                # Special appearance parameters
-                if ($param =~ /^LoadPlugin/)                                  { push @PluginsToLoad, $value; next; }
-                # Other parameter checks we need to put after MaxNbOfExtra and MinHitExtra
-                 if ($param =~ /^MaxNbOf(\w+)/)         { $MaxNbOf{$1}=$value; next; }
-                 if ($param =~ /^MinHit(\w+)/)         { $MinHit{$1}=$value; next; }
-                # Check if this is a known parameter
-#                if (! $ConfOk{$param}) { error("Unknown config parameter '$param' found line $conflinenb in file \"configFile\""); }
-                # If parameters was not found previously, defined variable with name of param to value
-                $$param=$value;
-        }
-
-        # For backward compatibility
-        if ($versionnum < 5001) { $BarHeight=$BarHeight>>1; }
-
-        if ($Debug) { debug("Config file read was \"$configFile\" (level $level)"); }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Load the reference databases
-# Parameters:        List of files to load
-# Input:                $DIR
-# Output:                Arrays and Hash tables are defined
-# Return:       -
-#------------------------------------------------------------------------------
-sub Read_Ref_Data {
-        # Check lib files in common possible directories :
-        # Windows and standard package:                        "$DIR/lib" (lib in same dir than awstats.pl)
-        # Debian package :                                    "/usr/share/awstats/lib"
-        my @PossibleLibDir=("$DIR/lib","/usr/share/awstats/lib");
-        my %FilePath=(); my %DirAddedInINC=();
-        my @FileListToLoad=();
-        while (my $file=shift) { push @FileListToLoad, "$file.pm"; }
-        if ($Debug) { debug("Call to Read_Ref_Data with files to load: ".(join(',',@FileListToLoad))); }
-        foreach my $file (@FileListToLoad) {
-                foreach my $dir (@PossibleLibDir) {
-                        my $searchdir=$dir;
-                        if ($searchdir && (!($searchdir =~ /\/$/)) && (!($searchdir =~ /\\$/)) ) { $searchdir .= "/"; }
-                        if (! $FilePath{$file}) {        # To not load twice same file in different path
-                                if (-s "${searchdir}${file}") {
-                                        $FilePath{$file}="${searchdir}${file}";
-                                        if ($Debug) { debug("Call to Read_Ref_Data [FilePath{$file}=\"$FilePath{$file}\"]"); }
-                                        # Note: cygwin perl 5.8 need a push + require file
-                                        if (! $DirAddedInINC{"$dir"}) {
-                                                push @INC, "$dir";
-                                                $DirAddedInINC{"$dir"}=1;
-                                        }
-                                        my $loadret=require "$file";
-                                        #my $loadret=(require "$FilePath{$file}"||require "${file}");
-                                }
-                        }
-                }
-                if (! $FilePath{$file}) {
-                        my $filetext=$file; $filetext =~ s/\.pm$//; $filetext =~ s/_/ /g;
-                        warning("Warning: Can't read file \"$file\" ($filetext detection will not work correctly).\nCheck if file is in \"".($PossibleLibDir[0])."\" directory and is readable.");
-                }
-        }
-        # Sanity check (if loaded)
-        if ((scalar keys %OSHashID) && @OSSearchIDOrder != scalar keys %OSHashID) { error("Not same number of records of OSSearchIDOrder (".(@OSSearchIDOrder)." entries) and OSHashID (".(scalar keys %OSHashID)." entries) in OS database. Check your file ".$FilePath{"operating_systems.pm"}); }
-        if ((scalar keys %SearchEnginesHashID) && (@SearchEnginesSearchIDOrder_list1+@SearchEnginesSearchIDOrder_list2+@SearchEnginesSearchIDOrder_listgen) != scalar keys %SearchEnginesHashID) { error("Not same number of records of SearchEnginesSearchIDOrder_listx (total is ".(@SearchEnginesSearchIDOrder_list1+@SearchEnginesSearchIDOrder_list2+@SearchEnginesSearchIDOrder_listgen)." entries) and SearchEnginesHashID (".(scalar keys %SearchEnginesHashID)." entries) in Search Engines database. Check your file ".$FilePath{"search_engines.pm"}); }
-        if ((scalar keys %BrowsersHashIDLib) && @BrowsersSearchIDOrder != (scalar keys %BrowsersHashIDLib) - 2) { error("Not same number of records of BrowsersSearchIDOrder (".(@BrowsersSearchIDOrder)." entries) and BrowsersHashIDLib (".((scalar keys %BrowsersHashIDLib) - 2)." entries without msie and netscape) in Browsers database. Check your file ".$FilePath{"browsers.pm"}); }
-        if ((scalar keys %RobotsHashIDLib) && (@RobotsSearchIDOrder_list1+@RobotsSearchIDOrder_list2+@RobotsSearchIDOrder_listgen) != (scalar keys %RobotsHashIDLib) - 1) { error("Not same number of records of RobotsSearchIDOrder_listx (total is ".(@RobotsSearchIDOrder_list1+@RobotsSearchIDOrder_list2+@RobotsSearchIDOrder_listgen)." entries) and RobotsHashIDLib (".((scalar keys %RobotsHashIDLib) - 1)." entries without 'unknown') in Robots database. Check your file ".$FilePath{"robots.pm"}); }
-}
-
-
-#------------------------------------------------------------------------------
-# Function:     Get the messages for a specified language
-# Parameters:        LanguageId
-# Input:                $DirLang $DIR
-# Output:                $Message table is defined in memory
-# Return:                None
-#------------------------------------------------------------------------------
-sub Read_Language_Data {
-        # Check lang files in common possible directories :
-        # Windows and standard package:                 "$DIR/lang" (lang in same dir than awstats.pl)
-        # Debian package :                                    "/usr/share/awstats/lang"
-        my @PossibleLangDir=("$DirLang","$DIR/lang","/usr/share/awstats/lang");
-
-        my $FileLang='';
-        foreach (@PossibleLangDir) {
-                my $searchdir=$_;
-                if ($searchdir && (!($searchdir =~ /\/$/)) && (!($searchdir =~ /\\$/)) ) { $searchdir .= "/"; }
-                if (open(LANG,"${searchdir}awstats-$_[0].txt")) { $FileLang="${searchdir}awstats-$_[0].txt"; last; }
-        }
-        # If file not found, we try english
-        if (! $FileLang) {
-                foreach (@PossibleLangDir) {
-                        my $searchdir=$_;
-                        if ($searchdir && (!($searchdir =~ /\/$/)) && (!($searchdir =~ /\\$/)) ) { $searchdir .= "/"; }
-                        if (open(LANG,"${searchdir}awstats-en.txt")) { $FileLang="${searchdir}awstats-en.txt"; last; }
-                }
-        }
-        if ($Debug) { debug("Call to Read_Language_Data [FileLang=\"$FileLang\"]"); }
-        if ($FileLang) {
-                my $i = 0;
-                binmode LANG;        # Might avoid 'Malformed UTF-8 errors'
-                my $cregcode=qr/^PageCode=[\t\s\"\']*([\w-]+)/i;
-                my $cregdir=qr/^PageDir=[\t\s\"\']*([\w-]+)/i;
-                my $cregmessage=qr/^Message\d+=/i;
-                while (<LANG>) {
-                        chomp $_; s/\r//;
-                        if ($_ =~ /$cregcode/o) { $PageCode = $1; }
-                        if ($_ =~ /$cregdir/o)  { $PageDir = $1; }
-                        if ($_ =~ s/$cregmessage//o) {
-                                $_ =~ s/#.*//;                                                                # Remove comments
-                                $_ =~ tr/\t /  /s;                                                        # Change all blanks into " "
-                                $_ =~ s/^\s+//; $_ =~ s/\s+$//;
-                                $_ =~ s/^\"//; $_ =~ s/\"$//;
-                                $Message[$i] = $_;
-                                $i++;
-                        }
-                }
-                close(LANG);
-        }
-        else {
-                warning("Warning: Can't find language files for \"$_[0]\". English will be used.");
-        }
-        # Some language string changes
-        if ($LogType eq 'M') {        # For mail
-                $Message[8]=$Message[151];
-                $Message[9]=$Message[152];
-                $Message[57]=$Message[149];
-                $Message[75]=$Message[150];
-        }
-        if ($LogType eq 'F') {        # For web
-
-        }
-}
-
-
-#------------------------------------------------------------------------------
-# Function:     Check if all parameters are correctly defined. If not set them to default.
-# Parameters:        None
-# Input:                All global variables
-# Output:                Change on some global variables
-# Return:                None
-#------------------------------------------------------------------------------
-sub Check_Config {
-        if ($Debug) { debug("Call to Check_Config"); }
-
-        my %MonthNumLibEn = ("01","Jan","02","Feb","03","Mar","04","Apr","05","May","06","Jun","07","Jul","08","Aug","09","Sep","10","Oct","11","Nov","12","Dec");
-
-        # Show initial values of main parameters before check
-        if ($Debug) {
-                debug(" LogFile='$LogFile'",2);
-                debug(" LogType='$LogType'",2);
-                debug(" LogFormat='$LogFormat'",2);
-                debug(" LogSeparator='$LogSeparator'",2);
-                debug(" DNSLookup='$DNSLookup'",2);
-                debug(" DirData='$DirData'",2);
-                debug(" DirCgi='$DirCgi'",2);
-                debug(" DirIcons='$DirIcons'",2);
-                debug(" NotPageList ".(join(',',keys %NotPageList)),2);
-                debug(" ValidHTTPCodes ".(join(',',keys %ValidHTTPCodes)),2);
-                debug(" ValidSMTPCodes ".(join(',',keys %ValidSMTPCodes)),2);
-                debug(" UseFramesWhenCGI=$UseFramesWhenCGI",2);
-                debug(" BuildReportFormat=$BuildReportFormat",2);
-                debug(" BuildHistoryFormat=$BuildHistoryFormat",2);
-                debug(" URLWithQueryWithOnlyFollowingParameters=".(join(',',@URLWithQueryWithOnly)),2);
-                debug(" URLWithQueryWithoutFollowingParameters=".(join(',',@URLWithQueryWithout)),2);
-        }
-
-        # Main section
-        while ($LogFile =~ /%([ymdhwYMDHWNSO]+)-(\(\d+\)|\d+)/) {
-                # Accept tag %xx-dd and %xx-(dd)
-                my $timetag="$1";
-                my $timephase=quotemeta("$2");
-                my $timephasenb="$2"; $timephasenb=~s/[^\d]//g;
-                if ($Debug) { debug(" Found a time tag '$timetag' with a phase of '$timephasenb' hour in log file name",1); }
-                # Get older time
-                my ($oldersec,$oldermin,$olderhour,$olderday,$oldermonth,$olderyear,$olderwday,$olderyday) = localtime($starttime-($timephasenb*3600));
-                my $olderweekofmonth=int($olderday/7);
-                my $olderweekofyear=int(($olderyday-1+6-($olderwday==0?6:$olderwday-1))/7)+1; if ($olderweekofyear > 52) { $olderweekofyear = 1; }
-                my $olderdaymod=$olderday%7;
-                $olderwday++;
-                my $olderns=Time::Local::timegm(0,0,0,$olderday,$oldermonth,$olderyear);
-                if ($olderdaymod <= $olderwday) { if (($olderwday != 7) || ($olderdaymod != 0)) { $olderweekofmonth=$olderweekofmonth+1; } }
-                if ($olderdaymod >  $olderwday) { $olderweekofmonth=$olderweekofmonth+2; }
-                # Change format of time variables
-                $olderweekofmonth = "0$olderweekofmonth";
-                if ($olderweekofyear < 10) { $olderweekofyear = "0$olderweekofyear"; }
-                if ($olderyear < 100) { $olderyear+=2000; } else { $olderyear+=1900; }
-                my $oldersmallyear=$olderyear;$oldersmallyear =~ s/^..//;
-                if (++$oldermonth < 10) { $oldermonth = "0$oldermonth"; }
-                if ($olderday < 10) { $olderday = "0$olderday"; }
-                if ($olderhour < 10) { $olderhour = "0$olderhour"; }
-                if ($oldermin < 10) { $oldermin = "0$oldermin"; }
-                if ($oldersec < 10) { $oldersec = "0$oldersec"; }
-                # Replace tag with new value
-                if ($timetag eq 'YYYY') { $LogFile =~ s/%YYYY-$timephase/$olderyear/ig; next; }
-                if ($timetag eq 'YY')   { $LogFile =~ s/%YY-$timephase/$oldersmallyear/ig; next; }
-                if ($timetag eq 'MM')   { $LogFile =~ s/%MM-$timephase/$oldermonth/ig; next; }
-                if ($timetag eq 'MO')   { $LogFile =~ s/%MO-$timephase/$MonthNumLibEn{$oldermonth}/ig; next; }
-                if ($timetag eq 'DD')   { $LogFile =~ s/%DD-$timephase/$olderday/ig; next; }
-                if ($timetag eq 'HH')   { $LogFile =~ s/%HH-$timephase/$olderhour/ig; next; }
-                if ($timetag eq 'NS')   { $LogFile =~ s/%NS-$timephase/$olderns/ig; next; }
-                if ($timetag eq 'WM')   { $LogFile =~ s/%WM-$timephase/$olderweekofmonth/g; next; }
-                if ($timetag eq 'Wm')   { my $olderweekofmonth0=$olderweekofmonth-1; $LogFile =~ s/%Wm-$timephase/$olderweekofmonth0/g; next; }
-                if ($timetag eq 'WY')   { $LogFile =~ s/%WY-$timephase/$olderweekofyear/g; next; }
-                if ($timetag eq 'Wy')   { my $olderweekofyear0=sprintf("%02d",$olderweekofyear-1); $LogFile =~ s/%Wy-$timephase/$olderweekofyear0/g; next; }
-                if ($timetag eq 'DW')   { $LogFile =~ s/%DW-$timephase/$olderwday/g; next; }
-                if ($timetag eq 'Dw')   { my $olderwday0=$olderwday-1; $LogFile =~ s/%Dw-$timephase/$olderwday0/g; next; }
-                # If unknown tag
-                error("Unknown tag '\%$timetag' in LogFile parameter.");
-        }
-        # Replace %YYYY %YY %MM %DD %HH with current value. Kept for backward compatibility.
-        $LogFile =~ s/%YYYY/$nowyear/ig;
-        $LogFile =~ s/%YY/$nowsmallyear/ig;
-        $LogFile =~ s/%MM/$nowmonth/ig;
-        $LogFile =~ s/%MO/$MonthNumLibEn{$nowmonth}/ig;
-        $LogFile =~ s/%DD/$nowday/ig;
-        $LogFile =~ s/%HH/$nowhour/ig;
-        $LogFile =~ s/%NS/$nowns/ig;
-        $LogFile =~ s/%WM/$nowweekofmonth/g;
-        my $nowweekofmonth0=$nowweekofmonth-1; $LogFile =~ s/%Wm/$nowweekofmonth0/g;
-        $LogFile =~ s/%WY/$nowweekofyear/g;
-        my $nowweekofyear0=$nowweekofyear-1; $LogFile =~ s/%Wy/$nowweekofyear0/g;
-        $LogFile =~ s/%DW/$nowwday/g;
-        my $nowwday0=$nowwday-1; $LogFile =~ s/%Dw/$nowwday0/g;
-        if (! $LogFile)   { error("LogFile parameter is not defined in config/domain file"); }
-        if ($LogType !~ /[WSMF]/i) { $LogType='W'; }
-        $LogFormat =~ s/\\//g;
-        if (! $LogFormat) { error("LogFormat parameter is not defined in config/domain file"); }
-        if ($LogFormat =~ /^\d$/ && $LogFormat !~ /[1-6]/)  { error("LogFormat parameter is wrong in config/domain file. Value is '$LogFormat' (should be 1,2,3,4,5 or a 'personalized AWStats log format string')"); }
-        $LogSeparator||="\\s";
-        $DirData||='.';
-        $DirCgi||='/cgi-bin';
-        $DirIcons||='/icon';
-        if ($DNSLookup !~ /[0-2]/)                      { error("DNSLookup parameter is wrong in config/domain file. Value is '$DNSLookup' (should be 0 or 1)"); }
-        if (! $SiteDomain)                              { error("SiteDomain parameter not defined in your config/domain file. You must add it for using this version of AWStats."); }
-        if ($AllowToUpdateStatsFromBrowser !~ /[0-1]/)         { $AllowToUpdateStatsFromBrowser=0; }
-        if ($AllowFullYearView !~ /[0-3]/)                                 { $AllowFullYearView=2; }
-        # Optional setup section
-        if ($EnableLockForUpdate !~ /[0-1]/)                   { $EnableLockForUpdate=0; }
-        $DNSStaticCacheFile||='dnscache.txt';
-        $DNSLastUpdateCacheFile||='dnscachelastupdate.txt';
-        if ($DNSStaticCacheFile eq $DNSLastUpdateCacheFile)        { error("DNSStaticCacheFile and DNSLastUpdateCacheFile must have different values."); }
-        if ($AllowAccessFromWebToAuthenticatedUsersOnly !~ /[0-1]/)     { $AllowAccessFromWebToAuthenticatedUsersOnly=0; }
-        if ($CreateDirDataIfNotExists !~ /[0-1]/)              { $CreateDirDataIfNotExists=0; }
-        if ($BuildReportFormat !~ /html|xhtml|xml/i)         { $BuildReportFormat='html'; }
-        if ($BuildHistoryFormat !~ /text|xml/)                         { $BuildHistoryFormat='text'; }
-        if ($SaveDatabaseFilesWithPermissionsForEveryone !~ /[0-1]/)        { $SaveDatabaseFilesWithPermissionsForEveryone=1; }
-        if ($PurgeLogFile !~ /[0-1]/)                         { $PurgeLogFile=0; }
-        if ($ArchiveLogRecords !~ /[0-1]/)                    { $ArchiveLogRecords=0; }
-        if ($KeepBackupOfHistoricFiles !~ /[0-1]/)             { $KeepBackupOfHistoricFiles=0; }
-        $DefaultFile[0]||='index.html';
-        if ($AuthenticatedUsersNotCaseSensitive !~ /[0-1]/)       { $AuthenticatedUsersNotCaseSensitive=0; }
-        if ($URLNotCaseSensitive !~ /[0-1]/)                   { $URLNotCaseSensitive=0; }
-        if ($URLWithAnchor !~ /[0-1]/)                         { $URLWithAnchor=0; }
-        $URLQuerySeparators =~ s/\s//g;
-        if (! $URLQuerySeparators)                                 { $URLQuerySeparators='?;'; }
-        if ($URLWithQuery !~ /[0-1]/)                         { $URLWithQuery=0; }
-        if ($URLReferrerWithQuery !~ /[0-1]/)                  { $URLReferrerWithQuery=0; }
-        if ($WarningMessages !~ /[0-1]/)                      { $WarningMessages=1; }
-        if ($DebugMessages !~ /[0-1]/)                      { $DebugMessages=1; }
-        if ($NbOfLinesForCorruptedLog !~ /^\d+/ || $NbOfLinesForCorruptedLog<1)        { $NbOfLinesForCorruptedLog=50; }
-        if ($Expires !~ /^\d+/)                                 { $Expires=0; }
-        if ($DecodeUA !~ /[0-1]/)                                                { $DecodeUA=0; }
-        $MiscTrackerUrl||='/js/awstats_misc_tracker.js';
-        # Optional accuracy setup section
-        if ($LevelForWormsDetection !~ /^\d+/)               { $LevelForWormsDetection=0; }
-        if ($LevelForRobotsDetection !~ /^\d+/)               { $LevelForRobotsDetection=2; }
-        if ($LevelForBrowsersDetection !~ /^\d+/)             { $LevelForBrowsersDetection=2; }
-        if ($LevelForOSDetection !~ /^\d+/)                            { $LevelForOSDetection=2; }
-        if ($LevelForRefererAnalyze !~ /^\d+/)                        { $LevelForRefererAnalyze=2; }
-        if ($LevelForFileTypesDetection !~ /^\d+/)                { $LevelForFileTypesDetection=2; }
-        if ($LevelForSearchEnginesDetection !~ /^\d+/)        { $LevelForSearchEnginesDetection=2; }
-        if ($LevelForKeywordsDetection !~ /^\d+/)                  { $LevelForKeywordsDetection=2; }
-        # Optional extra setup section
-        foreach my $extracpt (1..@ExtraName-1) {
-                if ($ExtraStatTypes[$extracpt] !~ /[PHBL]/)  { $ExtraStatTypes[$extracpt]='PHBL'; }
-                if ($MaxNbOfExtra[$extracpt] !~ /^\d+$/ || $MaxNbOfExtra[$extracpt]<1) { $MaxNbOfExtra[$extracpt]=20; }
-                if ($MinHitExtra[$extracpt] !~ /^\d+$/ || $MinHitExtra[$extracpt]<1) { $MinHitExtra[$extracpt]=1; }
-                if (! $ExtraFirstColumnValues[$extracpt]) { error("Extra section number $extracpt is defined without ExtraSectionFirstColumnValues$extracpt parameter"); }
-                if (! $ExtraFirstColumnFormat[$extracpt]) { $ExtraFirstColumnFormat[$extracpt] = '%s'; }
-        }
-        # Optional appearance setup section
-        if ($MaxRowsInHTMLOutput !~ /^\d+/ || $MaxRowsInHTMLOutput<1)     { $MaxRowsInHTMLOutput=1000; }
-        if ($ShowMenu !~ /[01]/)                             { $ShowMenu=1; }
-        if ($ShowMonthStats !~ /[01UVPHB]/)                 { $ShowMonthStats='UVPHB'; }
-        if ($ShowDaysOfMonthStats !~ /[01VPHB]/)            { $ShowDaysOfMonthStats='VPHB'; }
-        if ($ShowDaysOfWeekStats !~ /[01PHBL]/)                { $ShowDaysOfWeekStats='PHBL'; }
-        if ($ShowHoursStats !~ /[01PHBL]/)                     { $ShowHoursStats='PHBL'; }
-        if ($ShowDomainsStats !~ /[01PHB]/)                    { $ShowDomainsStats='PHB'; }
-        if ($ShowHostsStats !~ /[01PHBL]/)                     { $ShowHostsStats='PHBL'; }
-        if ($ShowAuthenticatedUsers !~ /[01PHBL]/)             { $ShowAuthenticatedUsers=0; }
-        if ($ShowRobotsStats !~ /[01HBL]/)                    { $ShowRobotsStats='HBL'; }
-        if ($ShowWormsStats !~ /[01HBL]/)                    { $ShowWormsStats='HBL'; }
-        if ($ShowEMailSenders !~ /[01HBML]/)                       { $ShowEMailSenders=0; }
-        if ($ShowEMailReceivers !~ /[01HBML]/)                 { $ShowEMailReceivers=0; }
-        if ($ShowSessionsStats !~ /[01]/)                     { $ShowSessionsStats=1; }
-        if ($ShowPagesStats !~ /[01PBEX]/i)                   { $ShowPagesStats='PBEX'; }
-        if ($ShowFileTypesStats !~ /[01HBC]/)                 { $ShowFileTypesStats='HB'; }
-        if ($ShowFileSizesStats !~ /[01]/)                   { $ShowFileSizesStats=1; }
-        if ($ShowOSStats !~ /[01]/)                          { $ShowOSStats=1; }
-        if ($ShowBrowsersStats !~ /[01]/)                    { $ShowBrowsersStats=1; }
-        if ($ShowScreenSizeStats !~ /[01]/)                   { $ShowScreenSizeStats=0; }
-        if ($ShowOriginStats !~ /[01PH]/)                      { $ShowOriginStats='PH'; }
-        if ($ShowKeyphrasesStats !~ /[01]/)                  { $ShowKeyphrasesStats=1; }
-        if ($ShowKeywordsStats !~ /[01]/)                    { $ShowKeywordsStats=1; }
-        if ($ShowClusterStats !~ /[01PHB]/)                        { $ShowClusterStats=0; }
-        if ($ShowMiscStats !~ /[01anjdfrqwp]/)                 { $ShowMiscStats='a'; }
-        if ($ShowHTTPErrorsStats !~ /[01]/)                  { $ShowHTTPErrorsStats=1; }
-        if ($ShowSMTPErrorsStats !~ /[01]/)                  { $ShowSMTPErrorsStats=0; }
-        if ($AddDataArrayMonthStats !~ /[01]/)                { $AddDataArrayMonthStats=1; }
-        if ($AddDataArrayShowDaysOfMonthStats !~ /[01]/)       { $AddDataArrayShowDaysOfMonthStats=1; }
-        if ($AddDataArrayShowDaysOfWeekStats !~ /[01]/)               { $AddDataArrayShowDaysOfWeekStats=1; }
-        if ($AddDataArrayShowHoursStats !~ /[01]/)                  { $AddDataArrayShowHoursStats=1; }
-        my @maxnboflist=('Domain','HostsShown','LoginShown','RobotShown','WormsShown','PageShown','OsShown','BrowsersShown','ScreenSizesShown','RefererShown','KeyphrasesShown','KeywordsShown','EMailsShown');
-        my @maxnboflistdefaultval=(10,10,10,10,5,10,10,10,5,10,10,10,20);
-        foreach my $i (0..(@maxnboflist-1)) {
-                if (! $MaxNbOf{$maxnboflist[$i]} || $MaxNbOf{$maxnboflist[$i]} !~ /^\d+$/ || $MaxNbOf{$maxnboflist[$i]}<1)         { $MaxNbOf{$maxnboflist[$i]}=$maxnboflistdefaultval[$i]; }
-        }
-        my @minhitlist=('Domain','Host','Login','Robot','Worm','File','Os','Browser','ScreenSize','Refer','Keyphrase','Keyword','EMail');
-        my @minhitlistdefaultval=(1,1,1,1,1,1,1,1,1,1,1,1,1);
-        foreach my $i (0..(@minhitlist-1)) {
-                if (! $MinHit{$minhitlist[$i]} || $MinHit{$minhitlist[$i]} !~ /^\d+$/ || $MinHit{$minhitlist[$i]}<1)         { $MinHit{$minhitlist[$i]}=$minhitlistdefaultval[$i]; }
-        }
-        if ($FirstDayOfWeek !~ /[01]/)                       { $FirstDayOfWeek=1; }
-        if ($UseFramesWhenCGI !~ /[01]/)                                  { $UseFramesWhenCGI=1; }
-        if ($DetailedReportsOnNewWindows !~ /[012]/)          { $DetailedReportsOnNewWindows=1; }
-        if ($ShowLinksOnUrl !~ /[01]/)                       { $ShowLinksOnUrl=1; }
-        if ($MaxLengthOfShownURL !~ /^\d+/ || $MaxLengthOfShownURL<1) { $MaxLengthOfShownURL=64; }
-        if ($ShowLinksToWhoIs !~ /[01]/)                      { $ShowLinksToWhoIs=0; }
-        $Logo||='awstats_logo6.png';
-        $LogoLink||='http://awstats.sourceforge.net';
-        if ($BarWidth !~ /^\d+/ || $BarWidth<1)                 { $BarWidth=260; }
-        if ($BarHeight !~ /^\d+/ || $BarHeight<1)                { $BarHeight=90; }
-        $color_Background =~ s/#//g; if ($color_Background !~ /^[0-9|A-H]+$/i)           { $color_Background='FFFFFF';        }
-        $color_TableBGTitle =~ s/#//g; if ($color_TableBGTitle !~ /^[0-9|A-H]+$/i)       { $color_TableBGTitle='CCCCDD'; }
-        $color_TableTitle =~ s/#//g; if ($color_TableTitle !~ /^[0-9|A-H]+$/i)           { $color_TableTitle='000000'; }
-        $color_TableBG =~ s/#//g; if ($color_TableBG !~ /^[0-9|A-H]+$/i)                 { $color_TableBG='CCCCDD'; }
-        $color_TableRowTitle =~ s/#//g; if ($color_TableRowTitle !~ /^[0-9|A-H]+$/i)     { $color_TableRowTitle='FFFFFF'; }
-        $color_TableBGRowTitle =~ s/#//g; if ($color_TableBGRowTitle !~ /^[0-9|A-H]+$/i) { $color_TableBGRowTitle='ECECEC'; }
-        $color_TableBorder =~ s/#//g; if ($color_TableBorder !~ /^[0-9|A-H]+$/i)         { $color_TableBorder='ECECEC'; }
-        $color_text =~ s/#//g; if ($color_text !~ /^[0-9|A-H]+$/i)                                    { $color_text='000000'; }
-        $color_textpercent =~ s/#//g; if ($color_textpercent !~ /^[0-9|A-H]+$/i)                   { $color_textpercent='606060'; }
-        $color_titletext =~ s/#//g; if ($color_titletext !~ /^[0-9|A-H]+$/i)                          { $color_titletext='000000'; }
-        $color_weekend =~ s/#//g; if ($color_weekend !~ /^[0-9|A-H]+$/i)                              { $color_weekend='EAEAEA'; }
-        $color_link =~ s/#//g; if ($color_link !~ /^[0-9|A-H]+$/i)                                    { $color_link='0011BB'; }
-        $color_hover =~ s/#//g; if ($color_hover !~ /^[0-9|A-H]+$/i)                                  { $color_hover='605040'; }
-        $color_other =~ s/#//g; if ($color_other !~ /^[0-9|A-H]+$/i)                                  { $color_other='666688'; }
-        $color_u =~ s/#//g; if ($color_u !~ /^[0-9|A-H]+$/i)                                          { $color_u='FFA060'; }
-        $color_v =~ s/#//g; if ($color_v !~ /^[0-9|A-H]+$/i)                                          { $color_v='F4F090'; }
-        $color_p =~ s/#//g; if ($color_p !~ /^[0-9|A-H]+$/i)                                          { $color_p='4477DD'; }
-        $color_h =~ s/#//g; if ($color_h !~ /^[0-9|A-H]+$/i)                                          { $color_h='66EEFF'; }
-        $color_k =~ s/#//g; if ($color_k !~ /^[0-9|A-H]+$/i)                                          { $color_k='2EA495'; }
-        $color_s =~ s/#//g; if ($color_s !~ /^[0-9|A-H]+$/i)                                          { $color_s='8888DD'; }
-        $color_e =~ s/#//g; if ($color_e !~ /^[0-9|A-H]+$/i)                                          { $color_e='CEC2E8'; }
-        $color_x =~ s/#//g; if ($color_x !~ /^[0-9|A-H]+$/i)                                          { $color_x='C1B2E2'; }
-
-        # Correct param if default value is asked
-        if ($ShowMonthStats eq '1')              { $ShowMonthStats = 'UVPHB'; }
-        if ($ShowDaysOfMonthStats eq '1')         { $ShowDaysOfMonthStats = 'VPHB'; }
-        if ($ShowDaysOfWeekStats eq '1')    { $ShowDaysOfWeekStats = 'PHBL'; }
-        if ($ShowHoursStats eq '1')         { $ShowHoursStats = 'PHBL'; }
-        if ($ShowDomainsStats eq '1')       { $ShowDomainsStats = 'PHB'; }
-        if ($ShowHostsStats eq '1')         { $ShowHostsStats = 'PHBL'; }
-        if ($ShowEMailSenders eq '1')       { $ShowEMailSenders = 'HBML'; }
-        if ($ShowEMailReceivers eq '1')     { $ShowEMailReceivers = 'HBML'; }
-        if ($ShowAuthenticatedUsers eq '1') { $ShowAuthenticatedUsers = 'PHBL'; }
-        if ($ShowRobotsStats eq '1')                 { $ShowRobotsStats = 'HBL'; }
-        if ($ShowWormsStats eq '1')                 { $ShowWormsStats = 'HBL'; }
-        if ($ShowPagesStats eq '1')                 { $ShowPagesStats = 'PBEX'; }
-        if ($ShowFileTypesStats eq '1')         { $ShowFileTypesStats = 'HB'; }
-        if ($ShowOriginStats eq '1')                 { $ShowOriginStats = 'PH'; }
-        if ($ShowClusterStats eq '1')                 { $ShowClusterStats = 'PHB'; }
-        if ($ShowMiscStats eq '1')                         { $ShowMiscStats = 'anjdfrqwp'; }
-
-        # Convert extra sections data into @ExtraConditionType, @ExtraConditionTypeVal...
-        foreach my $extranum (1..@ExtraName-1) {
-                my $part=0;
-                foreach my $conditioncouple (split(/\s*\|\|\s*/, $ExtraCondition[$extranum])) {
-                         my ($conditiontype, $conditiontypeval)=split(/[,:]/,$conditioncouple,2);
-                         $ExtraConditionType[$extranum][$part]=$conditiontype;
-                        if ($conditiontypeval =~ /^REGEX\[(.*)\]$/i) { $conditiontypeval=$1; }
-                        #else { $conditiontypeval=quotemeta($conditiontypeval); }
-                         $ExtraConditionTypeVal[$extranum][$part]=qr/$conditiontypeval/i;
-                        $part++;
-                 }
-                $part=0;
-                foreach my $rowkeycouple (split(/\s*\|\|\s*/, $ExtraFirstColumnValues[$extranum])) {
-                         my ($rowkeytype, $rowkeytypeval)=split(/[,:]/,$rowkeycouple,2);
-                         $ExtraFirstColumnValuesType[$extranum][$part]=$rowkeytype;
-                        if ($rowkeytypeval =~ /^REGEX\[(.*)\]$/i) { $rowkeytypeval=$1; }
-                        #else { $rowkeytypeval=quotemeta($rowkeytypeval); }
-                         $ExtraFirstColumnValuesTypeVal[$extranum][$part]=qr/$rowkeytypeval/i;
-                        $part++;
-                 }
-        }
-
-        # Show definitive value for major parameters
-        if ($Debug) {
-                debug(" LogFile='$LogFile'",2);
-                debug(" LogFormat='$LogFormat'",2);
-                debug(" LogSeparator='$LogSeparator'",2);
-                debug(" DNSLookup='$DNSLookup'",2);
-                debug(" DirData='$DirData'",2);
-                debug(" DirCgi='$DirCgi'",2);
-                debug(" DirIcons='$DirIcons'",2);
-                debug(" SiteDomain='$SiteDomain'",2);
-                debug(" MiscTrackerUrl='$MiscTrackerUrl'",2);
-                foreach (keys %MaxNbOf) { debug(" MaxNbOf{$_}=$MaxNbOf{$_}",2); }
-                foreach (keys %MinHit)  { debug(" MinHit{$_}=$MinHit{$_}",2); }
-                foreach my $extranum (1..@ExtraName-1) {
-                        debug(" ExtraCodeFilter[$extranum] is array ".join(',',@{$ExtraCodeFilter[$extranum]}),2);
-                        debug(" ExtraConditionType[$extranum] is array ".join(',',@{$ExtraConditionType[$extranum]}),2);
-                        debug(" ExtraConditionTypeVal[$extranum] is array ".join(',',@{$ExtraConditionTypeVal[$extranum]}),2);
-                        debug(" ExtraFirstColumnValuesType[$extranum] is array ".join(',',@{$ExtraFirstColumnValuesType[$extranum]}),2);
-                        debug(" ExtraFirstColumnValuesTypeVal[$extranum] is array ".join(',',@{$ExtraFirstColumnValuesTypeVal[$extranum]}),2);
-                }
-        }
-
-        # Deny URLWithQueryWithOnlyFollowingParameters and URLWithQueryWithoutFollowingParameters both set
-        if (@URLWithQueryWithOnly && @URLWithQueryWithout) {
-                error("URLWithQueryWithOnlyFollowingParameters and URLWithQueryWithoutFollowingParameters can't be both set at the same time");
-        }
-        # Deny $ShowHTTPErrorsStats and $ShowSMTPErrorsStats both set
-        if ($ShowHTTPErrorsStats && $ShowSMTPErrorsStats) {
-                error("ShowHTTPErrorsStats and ShowSMTPErrorsStats can't be both set at the same time");
-        }
-
-        # Deny LogFile if contains a pipe and PurgeLogFile || ArchiveLogRecords set on
-        if (($PurgeLogFile || $ArchiveLogRecords) && $LogFile =~ /\|\s*$/) {
-                error("A pipe in log file name is not allowed if PurgeLogFile and ArchiveLogRecords are not set to 0");
-        }
-        # If not a migrate, check if DirData is OK
-        if (! $MigrateStats && ! -d $DirData) {
-                if ($CreateDirDataIfNotExists) {
-                        if ($Debug) { debug(" Make directory $DirData",2); }
-                        my $mkdirok=mkdir "$DirData", 0766;
-                        if (! $mkdirok) { error("$PROG failed to create directory DirData (DirData=\"$DirData\", CreateDirDataIfNotExists=$CreateDirDataIfNotExists)."); }
-                }
-                else {
-                        error("AWStats database directory defined in config file by 'DirData' parameter ($DirData) does not exist or is not writable.");
-                }
-        }
-
-        if ($LogType eq 'S') { $NOTSORTEDRECORDTOLERANCE=1000000; }
-}
-
-
-#------------------------------------------------------------------------------
-# Function:     Common function used by init function of plugins
-# Parameters:        AWStats version required by plugin
-# Input:                $VERSION
-# Output:                None
-# Return:                 '' if ok, "Error: xxx" if error
-#------------------------------------------------------------------------------
-sub Check_Plugin_Version {
-        my $PluginNeedAWStatsVersion=shift;
-        if (! $PluginNeedAWStatsVersion) { return 0; }
-        $VERSION =~ /^(\d+)\.(\d+)/;
-        my $numAWStatsVersion=($1*1000)+$2;
-        $PluginNeedAWStatsVersion =~ /^(\d+)\.(\d+)/;
-        my $numPluginNeedAWStatsVersion=($1*1000)+$2;
-        if         ($numPluginNeedAWStatsVersion > $numAWStatsVersion) {
-                return "Error: AWStats version $PluginNeedAWStatsVersion or higher is required. Detected $VERSION.";
-        }
-        return '';
-}
-
-
-#------------------------------------------------------------------------------
-# Function:     Return a checksum for an array of string
-# Parameters:        Array of string
-# Input:                None
-# Output:                None
-# Return:                 Checksum number
-#------------------------------------------------------------------------------
-sub CheckSum {
-        my $string=shift;
-        my $checksum=0;
-#        use MD5;
-#         $checksum = MD5->hexhash($string);
-        my $i=0; my $j=0;
-        while ($i < length($string)) {
-                my $c=substr($string,$i,1);
-                $checksum+=(ord($c)<<(8*$j));
-                if ($j++ > 3) { $j=0; }
-                $i++;
-        }
-         return $checksum;
-}
-
-
-#------------------------------------------------------------------------------
-# Function:     Load plugins files
-# Parameters:        None
-# Input:                $DIR @PluginsToLoad
-# Output:                None
-# Return:                 None
-#------------------------------------------------------------------------------
-sub Read_Plugins {
-        # Check plugin files in common possible directories :
-        # Windows and standard package:                        "$DIR/plugins" (plugins in same dir than awstats.pl)
-        # Redhat :                                  "/usr/local/awstats/wwwroot/cgi-bin/plugins"
-        # Debian package :                                    "/usr/share/awstats/plugins"
-        my @PossiblePluginsDir=("$DIR/plugins","/usr/local/awstats/wwwroot/cgi-bin/plugins","/usr/share/awstats/plugins");
-         my %DirAddedInINC=();
-
-        foreach my $key (keys %NoLoadPlugin) { if ($NoLoadPlugin{$key} < 0) { push @PluginsToLoad, $key; } }
-        if ($Debug) { debug("Call to Read_Plugins with list: ".join(',',@PluginsToLoad)); }
-        foreach my $plugininfo (@PluginsToLoad) {
-                my ($pluginfile,$pluginparam)=split(/\s+/,$plugininfo,2);
-                $pluginfile =~ s/\.pm$//i;
-                $pluginfile =~ /([^\/\\]+)$/;
-                my $pluginname=$1;  # pluginname is pluginfile without any path
-                # Check if plugin is not disabled
-                if ($NoLoadPlugin{$pluginname} && $NoLoadPlugin{$pluginname} > 0) {
-                        if ($Debug) { debug(" Plugin load for '$pluginfile' has been disabled from parameters"); }
-                        next;
-                }
-                if ($pluginname) {
-                        if (! $PluginsLoaded{'init'}{"$pluginname"}) {                # Plugin not already loaded
-                                my %pluginisfor=('timehires'=>'u','ipv6'=>'u','hashfiles'=>'u','geoip'=>'u','geoipfree'=>'u',
-                                                 'geoip_region_maxmind'=>'mou','timezone'=>'ou',
-                                                                 'decodeutfkeys'=>'o','hostinfo'=>'o','rawlog'=>'o','userinfo'=>'o','urlalias'=>'o','tooltips'=>'o');
-                                if ($pluginisfor{$pluginname}) {    # If it's a known plugin, may be we don't need to load it
-                            # Do not load "menu handler plugins" if output only and mainleft frame
-                            if (! $UpdateStats && scalar keys %HTMLOutput && $FrameName eq 'mainleft' && $pluginisfor{$pluginname} !~ /m/) { $PluginsLoaded{'init'}{"$pluginname"}=1; next; }
-                                        # Do not load "update plugins" if output only
-                                        if (! $UpdateStats && scalar keys %HTMLOutput && $pluginisfor{$pluginname} !~ /o/) { $PluginsLoaded{'init'}{"$pluginname"}=1; next; }
-                                        # Do not load "output plugins" if update only
-                                        if ($UpdateStats && ! scalar keys %HTMLOutput && $pluginisfor{$pluginname} !~ /u/) { $PluginsLoaded{'init'}{"$pluginname"}=1; next; }
-                                }
-                                # Load plugin
-                                foreach my $dir (@PossiblePluginsDir) {
-                                        my $searchdir=$dir;
-                                        if ($searchdir && (!($searchdir =~ /\/$/)) && (!($searchdir =~ /\\$/)) ) { $searchdir .= "/"; }
-                                        my $pluginpath="${searchdir}${pluginfile}.pm";
-                                        if (-s "$pluginpath") {
-                                                $PluginDir="${searchdir}";        # Set plugin dir
-                                                if ($Debug) { debug(" Try to init plugin '$pluginname' ($pluginpath) with param '$pluginparam'",1); }
-                                                if (! $DirAddedInINC{"$dir"}) {
-                                                        push @INC, "$dir";
-                                                        $DirAddedInINC{"$dir"}=1;
-                                                }
-                                                my $loadret=0;
-                                                my $modperl=$ENV{"MOD_PERL"}? eval { require mod_perl; $mod_perl::VERSION >= 1.99 ? 2 : 1 } : 0;
-                                                if ($modperl == 2) { $loadret=require "$pluginpath"; }
-                                                else { $loadret=require "$pluginfile.pm"; }
-                                                if (! $loadret || $loadret =~ /^error/i) {
-                                                        # Load failed, we stop here
-                                                        error("Plugin load for plugin '$pluginname' failed with return code: $loadret");
-                                                }
-                                                my $ret;        # To get init return
-                                                my $initfunction="\$ret=Init_$pluginname('$pluginparam')";
-                                                my $initret=eval("$initfunction");
-                                                if ($initret eq 'xxx') { $initret='Error: The PluginHooksFunctions variable defined in plugin file does not contain list of hooked functions'; }
-                                                if (! $initret || $initret =~ /^error/i) {
-                                                        # Init function failed, we stop here
-                                                        error("Plugin init for plugin '$pluginname' failed with return code: ".($initret?"$initret":"$@ (A module required by plugin might be missing)."));
-                                                }
-                                                # Plugin load and init successfull
-                                                foreach my $elem (split(/\s+/,$initret)) {
-                                                        # Some functions can only be plugged once
-                                                        my @uniquefunc=('GetCountryCodeByName','GetCountryCodeByAddr','ChangeTime','GetTimeZoneTitle','GetTime','SearchFile','LoadCache','SaveHash','ShowMenu');
-                                                        my $isuniquefunc=0;
-                                                        foreach my $function (@uniquefunc) {
-                                                                if ("$elem" eq "$function") {
-                                                                        # We try to load a 'unique' function, so we check and stop if already loaded
-                                                                        foreach my $otherpluginname (keys %{$PluginsLoaded{"$elem"}})  {
-                                                                                error("Conflict between plugin '$pluginname' and '$otherpluginname'. They both implements the 'must be unique' function '$elem'.\nYou must choose between one of them. Using together is not possible.");
-                                                                        }
-                                                                        $isuniquefunc=1;
-                                                                        last;
-                                                                }
-                                                        }
-                                                        if ($isuniquefunc) {
-                                                                # TODO Use $PluginsLoaded{"$elem"}="$pluginname"; for unique func
-                                                                $PluginsLoaded{"$elem"}{"$pluginname"}=1;
-                                                        }
-                                                        else { $PluginsLoaded{"$elem"}{"$pluginname"}=1; }
-                                                    if ("$elem" =~ /SectionInitHashArray/) { $AtLeastOneSectionPlugin=1; }
-                                                }
-                                                $PluginsLoaded{'init'}{"$pluginname"}=1;
-                                                if ($Debug) { debug(" Plugin '$pluginname' now hooks functions '$initret'",1); }
-                                                last;
-                                        }
-                                }
-                                if (! $PluginsLoaded{'init'}{"$pluginname"}) {
-                                        error("AWStats config file contains a directive to load plugin \"$pluginname\" (LoadPlugin=\"$plugininfo\") but AWStats can't open plugin file \"$pluginfile.pm\" for read.\nCheck if file is in \"".($PossiblePluginsDir[0])."\" directory and is readable.");
-                                }
-                        }
-                        else {
-                                warning("Warning: Tried to load plugin \"$pluginname\" twice. Fix config file.");
-                        }
-                }
-                else {
-                        error("Plugin \"$pluginfile\" is not a valid plugin name.");
-                }
-        }
-        # In output mode, geo ip plugins are not loaded, so message changes are done here (can't be done in plugin init function)
-        if ($PluginsLoaded{'init'}{'geoip'} || $PluginsLoaded{'init'}{'geoipfree'}) { $Message[17]=$Message[25]=$Message[148]; }
-}
-
-#------------------------------------------------------------------------------
-# Function:                Read history file and create/update tmp history file
-# Parameters:        year,month,withupdate,withpurge,part_to_load[,lastlinenb,lastlineoffset,lastlinechecksum]
-# Input:                $DirData $PROG $FileSuffix $LastLine
-# Output:                None
-# Return:                Tmp history file name created/updated or '' if withupdate is 0
-#------------------------------------------------------------------------------
-sub Read_History_With_TmpUpdate {
-
-        my $year=sprintf("%04i",shift||0);
-        my $month=sprintf("%02i",shift||0);
-        my $withupdate=shift||0;
-        my $withpurge=shift||0;
-        my $part=shift||'';
-
-        my $xml=($BuildHistoryFormat eq 'xml'?1:0);
-        my $xmleb='</table><nu>'; my $xmlrb='<tr><td>';
-
-        my $lastlinenb=shift||0;
-        my $lastlineoffset=shift||0;
-        my $lastlinechecksum=shift||0;
-
-        my %allsections=('general'=>1,'misc'=>2,'time'=>3,'visitor'=>4,'day'=>5,
-                                         'domain'=>6,'cluster'=>7,'login'=>8,'robot'=>9,'worms'=>10,'emailsender'=>11,'emailreceiver'=>12,
-                                         'session'=>13,'sider'=>14,'filetypes'=>15,
-                                         'os'=>16,'browser'=>17,'screensize'=>18,'unknownreferer'=>19,'unknownrefererbrowser'=>20,
-                                         'origin'=>21,'sereferrals'=>22,'pagerefs'=>23,
-                                         'searchwords'=>24,'keywords'=>25,
-                                         'errors'=>26);
-        my $order=(scalar keys %allsections)+1;
-        foreach (keys %TrapInfosForHTTPErrorCodes) { $allsections{"sider_$_"}=$order++; }
-        foreach (1..@ExtraName-1) { $allsections{"extra_$_"}=$order++; }
-           foreach (keys %{$PluginsLoaded{'SectionInitHashArray'}}) { $allsections{"plugin_$_"}=$order++; }
-        my $withread=0;
-
-        # Variable used to read old format history files
-        my $readvisitorforbackward=0;
-
-        # In standard use of AWStats, the DayRequired variable is always empty
-        if ($DayRequired) { if ($Debug) { debug("Call to Read_History_With_TmpUpdate [$year,$month,withupdate=$withupdate,withpurge=$withpurge,part=$part,lastlinenb=$lastlinenb,lastlineoffset=$lastlineoffset,lastlinechecksum=$lastlinechecksum] ($DayRequired)"); } }
-        else { if ($Debug) { debug("Call to Read_History_With_TmpUpdate [$year,$month,withupdate=$withupdate,withpurge=$withpurge,part=$part,lastlinenb=$lastlinenb,lastlineoffset=$lastlineoffset,lastlinechecksum=$lastlinechecksum]"); } }
-
-        # Define SectionsToLoad (which sections to load)
-        my %SectionsToLoad = ();
-        if ($part eq 'all') {        # Load all needed sections
-                my $order=1;
-                $SectionsToLoad{'general'}=$order++;
-                # When
-                $SectionsToLoad{'time'}=$order++;        # Always loaded because needed to count TotalPages, TotalHits, TotalBandwidth
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowHostsStats) || $HTMLOutput{'allhosts'} || $HTMLOutput{'lasthosts'} || $HTMLOutput{'unknownip'}) { $SectionsToLoad{'visitor'}=$order++; }        # Must be before day, sider and session section
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && ($ShowDaysOfWeekStats || $ShowDaysOfMonthStats)) || $HTMLOutput{'alldays'}) { $SectionsToLoad{'day'}=$order++; }
-                # Who
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowDomainsStats) || $HTMLOutput{'alldomains'}) { $SectionsToLoad{'domain'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowAuthenticatedUsers) || $HTMLOutput{'alllogins'} || $HTMLOutput{'lastlogins'}) { $SectionsToLoad{'login'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowRobotsStats) || $HTMLOutput{'allrobots'} || $HTMLOutput{'lastrobots'}) { $SectionsToLoad{'robot'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowWormsStats) || $HTMLOutput{'allworms'} || $HTMLOutput{'lastworms'}) { $SectionsToLoad{'worms'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowEMailSenders) || $HTMLOutput{'allemails'} || $HTMLOutput{'lastemails'}) { $SectionsToLoad{'emailsender'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowEMailReceivers) || $HTMLOutput{'allemailr'} || $HTMLOutput{'lastemailr'}) { $SectionsToLoad{'emailreceiver'}=$order++; }
-                # Navigation
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowSessionsStats) || $HTMLOutput{'sessions'}) { $SectionsToLoad{'session'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowPagesStats) || $HTMLOutput{'urldetail'} || $HTMLOutput{'urlentry'} || $HTMLOutput{'urlexit'}) { $SectionsToLoad{'sider'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowFileTypesStats) || $HTMLOutput{'filetypes'}) { $SectionsToLoad{'filetypes'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowOSStats) || $HTMLOutput{'osdetail'}) { $SectionsToLoad{'os'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowBrowsersStats) || $HTMLOutput{'browserdetail'}) { $SectionsToLoad{'browser'}=$order++; }
-                if ($UpdateStats || $MigrateStats || $HTMLOutput{'unknownos'})      { $SectionsToLoad{'unknownreferer'}=$order++; }
-                if ($UpdateStats || $MigrateStats || $HTMLOutput{'unknownbrowser'}) { $SectionsToLoad{'unknownrefererbrowser'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowScreenSizeStats)) { $SectionsToLoad{'screensize'}=$order++; }
-                # Referers
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowOriginStats) || $HTMLOutput{'origin'}) { $SectionsToLoad{'origin'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowOriginStats) || $HTMLOutput{'refererse'}) { $SectionsToLoad{'sereferrals'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowOriginStats) || $HTMLOutput{'refererpages'}) { $SectionsToLoad{'pagerefs'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowKeyphrasesStats) || $HTMLOutput{'keyphrases'} || $HTMLOutput{'keywords'}) { $SectionsToLoad{'searchwords'}=$order++; }
-                if (! $withupdate && $HTMLOutput{'main'} && $ShowKeywordsStats) { $SectionsToLoad{'keywords'}=$order++; }        # If we update, dont need to load
-                # Others
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowMiscStats)) { $SectionsToLoad{'misc'}=$order++; }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && ($ShowHTTPErrorsStats || $ShowSMTPErrorsStats)) || $HTMLOutput{'errors'}) { $SectionsToLoad{'errors'}=$order++; }
-                foreach (keys %TrapInfosForHTTPErrorCodes) {
-                        if ($UpdateStats || $MigrateStats || $HTMLOutput{"errors$_"}) { $SectionsToLoad{"sider_$_"}=$order++; }
-                }
-                if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ShowClusterStats)) { $SectionsToLoad{'cluster'}=$order++; }
-                foreach (1..@ExtraName-1) {
-                        if ($UpdateStats || $MigrateStats || ($HTMLOutput{'main'} && $ExtraStatTypes[$_]) || $HTMLOutput{"extra$_"}) { $SectionsToLoad{"extra_$_"}=$order++; }
-                }
-               foreach (keys %{$PluginsLoaded{'SectionInitHashArray'}}) {
-                   if ($UpdateStats || $MigrateStats || $HTMLOutput{"plugin_$_"}) { $SectionsToLoad{"plugin_$_"}=$order++; }
-               }
-        }
-        else {                                        # Load only required sections
-                my $order=1;
-                foreach (split(/\s+/,$part)) { $SectionsToLoad{$_}=$order++; }
-        }
-
-        # Define SectionsToSave (which sections to save)
-        my %SectionsToSave = ();
-        if ($withupdate) { %SectionsToSave=%allsections; }
-
-        if ($Debug) {
-        debug(" List of sections marked for load : ".join(' ',(sort { $SectionsToLoad{$a} <=> $SectionsToLoad{$b} } keys %SectionsToLoad)),2);
-        debug(" List of sections marked for save : ".join(' ',(sort { $SectionsToSave{$a} <=> $SectionsToSave{$b} } keys %SectionsToSave)),2);
-        }
-
-        # Define value for filetowrite and filetoread (Month before Year kept for backward compatibility)
-        my $filetowrite='';
-        my $filetoread='';
-        if ($HistoryAlreadyFlushed{"$year$month"} && -s "$DirData/$PROG$month$year$FileSuffix.tmp.$$") {
-                # tmp history file was already flushed
-                $filetoread="$DirData/$PROG$month$year$FileSuffix.tmp.$$";
-                $filetowrite="$DirData/$PROG$month$year$FileSuffix.tmp.$$.bis";
-        }
-        else {
-                $filetoread="$DirData/$PROG$DayRequired$month$year$FileSuffix.txt";
-                $filetowrite="$DirData/$PROG$month$year$FileSuffix.tmp.$$";
-        }
-        if ($Debug) { debug(" History file to read is '$filetoread'",2); }
-
-        # Is there an old data file to read or, if migrate, can we open the file for read
-        if (-s $filetoread || $MigrateStats) { $withread=1; }
-
-        # Open files
-        if ($withread) {
-                open(HISTORY,$filetoread) || error("Couldn't open file \"$filetoread\" for read: $!","","",$MigrateStats);
-                binmode HISTORY;        # Avoid premature EOF due to history files corrupted with \cZ or bin chars
-        }
-        if ($withupdate) {
-                open(HISTORYTMP,">$filetowrite") || error("Couldn't open file \"$filetowrite\" for write: $!");
-                binmode HISTORYTMP;
-                if ($xml) { print HISTORYTMP "<xml>\n\n"; }
-                Save_History("header",$year,$month);
-        }
-
-        # Loop on read file
-        my $xmlold=0;
-        if ($withread) {
-                my $countlines=0;
-                my $versionnum=0;
-                my @field=();
-                while (<HISTORY>) {
-                        chomp $_; s/\r//;
-                        $countlines++;
-
-                        # Test if it's xml
-                        if (! $xmlold && $_ =~ /^<xml/) {
-                                $xmlold=1;
-                                if ($Debug) { debug(" Data file format is 'xml'",1); }
-                                next;
-                        }
-
-                        # Extract version from first line
-                        if (! $versionnum && $_ =~ /^AWSTATS DATA FILE (\d+).(\d+)/i) {
-                                $versionnum=($1*1000)+$2;
-                                if ($Debug) { debug(" Data file version is $versionnum",1); }
-                                next;
-                        }
-
-                        # Analyze fields
-                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_));
-                        if (! $field[0]) { next; }
-
-                        # Here version MUST be defined, or file will be processed as an old data file
-
-                        # BEGIN_GENERAL
-                        # TODO Manage GENERAL in a loop like other sections. Need to return error if data file version < 5000 (no END_GENERAL) to say that history files < 5.0 can't be used
-                        if ($field[0] eq 'BEGIN_GENERAL')      {
-                                if ($Debug) { debug(" Begin of GENERAL section"); }
-                                next;
-                        }
-                        if ($field[0] eq 'LastLine' || $field[0] eq "${xmlrb}LastLine")        {
-                                if (! $LastLine || $LastLine < int($field[1])) { $LastLine=int($field[1]); };
-                                if ($field[2]) { $LastLineNumber=int($field[2]); }
-                                if ($field[3]) { $LastLineOffset=int($field[3]); }
-                                if ($field[4]) { $LastLineChecksum=int($field[4]); }
-                                next;
-                        }
-                        if ($field[0] eq 'FirstTime' || $field[0] eq "${xmlrb}FirstTime")       { if (! $FirstTime{$year.$month} || $FirstTime{$year.$month} > int($field[1])) { $FirstTime{$year.$month}=int($field[1]); }; next; }
-                        if ($field[0] eq 'LastTime' || $field[0] eq "${xmlrb}LastTime")        { if (! $LastTime{$year.$month} || $LastTime{$year.$month} < int($field[1])) { $LastTime{$year.$month}=int($field[1]); }; next; }
-                        if ($field[0] eq 'LastUpdate' || $field[0] eq "${xmlrb}LastUpdate")      {
-                                if ($LastUpdate < $field[1]) {
-                                        $LastUpdate=int($field[1]);
-                                        #$LastUpdateLinesRead=int($field[2]);
-                                        #$LastUpdateNewLinesRead=int($field[3]);
-                                        #$LastUpdateLinesCorrupted=int($field[4]);
-                                };
-                                next;
-                        }
-                        if ($field[0] eq 'TotalVisits' || $field[0] eq "${xmlrb}TotalVisits")       {
-                                if (! $withupdate) { $MonthVisits{$year.$month}+=int($field[1]); }
-                                # Save in MonthVisits also if migrate from a file < 4.x for backward compatibility
-                                if ($MigrateStats && $versionnum < 4000 && ! $MonthVisits{$year.$month}) {
-                                        if ($Debug) { debug("File is version < 4000. We save ".int($field[1])." visits in DayXxx arrays",1); }
-                                        $DayHits{$year.$month."00"}+=0;
-                                        $DayVisits{$year.$month."00"}+=int($field[1]);
-                                }
-                                next;
-                        }
-                        if ($field[0] eq 'TotalUnique' || $field[0] eq "${xmlrb}TotalUnique")       { if (! $withupdate) { $MonthUnique{$year.$month}+=int($field[1]); } next; }
-                        if ($field[0] eq 'MonthHostsKnown' || $field[0] eq "${xmlrb}MonthHostsKnown")   { if (! $withupdate) { $MonthHostsKnown{$year.$month}+=int($field[1]); } next; }
-                        if ($field[0] eq 'MonthHostsUnknown' || $field[0] eq "${xmlrb}MonthHostsUnknown") { if (! $withupdate) { $MonthHostsUnknown{$year.$month}+=int($field[1]); } next; }
-                        if (($field[0] eq 'END_GENERAL' || $field[0] eq "${xmleb}END_GENERAL")        # END_GENERAL didn't exist for history files < 5.0
-                         || ($versionnum < 5000 && $SectionsToLoad{"general"} && $FirstTime{$year.$month} && $LastTime{$year.$month}) )                {
-                                if ($Debug) { debug(" End of GENERAL section"); }
-                                # Show migrate warning for backward compatibility
-                                if ($versionnum < 5000 && ! $MigrateStats && ! $BadFormatWarning{$year.$month}) {
-                                        if ($FrameName ne 'mainleft') {
-                                                $BadFormatWarning{$year.$month}=1;
-                                                my $message="Warning: Data file '$filetoread' has an old history file format (version $versionnum). You should upgrade it...\nFrom command line: $PROG.$Extension -migrate=\"$filetoread\"";
-                                                if ($ENV{'GATEWAY_INTERFACE'} && $AllowToUpdateStatsFromBrowser) { $message.="\nFrom your browser with URL: <a href=\"http://".$ENV{"SERVER_NAME"}.$ENV{"SCRIPT_NAME"}."?migrate=$filetoread\">http://".$ENV{"SERVER_NAME"}.$ENV{"SCRIPT_NAME"}."?migrate=$filetoread</a>"; }
-                                                warning("$message");
-                                        }
-                                }
-                                if (! ($versionnum < 5000) && $MigrateStats && ! $BadFormatWarning{$year.$month}) {
-                                        $BadFormatWarning{$year.$month}=1;
-                                        warning("Warning: You are migrating a file that is already a recent version (migrate not required for files version $versionnum).","","",1);
-                                }
-                                # If migrate and version < 4.x we need to include BEGIN_UNKNOWNIP into BEGIN_VISITOR for backward compatibility
-                                if ($MigrateStats && $versionnum < 4000) {
-                                        if ($Debug) { debug("File is version < 4000. We add UNKNOWNIP in sections to load",1); }
-                                        $SectionsToLoad{'unknownip'}=99;
-                                }
-
-                                delete $SectionsToLoad{'general'};
-                                if ($SectionsToSave{'general'}) { Save_History('general',$year,$month,$lastlinenb,$lastlineoffset,$lastlinechecksum); delete $SectionsToSave{'general'}; }
-
-                                # Test for backward compatibility
-                                if ($versionnum < 5000 && ! $withupdate) {
-                                        # We must find another way to init MonthUnique MonthHostsKnown and MonthHostsUnknown
-                                        if ($Debug) { debug(" We ask to count MonthUnique, MonthHostsKnown and MonthHostsUnknown in visitor section because they are not stored in general section for this data file (version $versionnum)."); }
-                                        $readvisitorforbackward=($SectionsToLoad{"visitor"}?1:2);
-                                        $SectionsToLoad{"visitor"}=4;
-                                }
-                                else {
-                                        if (! scalar %SectionsToLoad) {
-                                                if ($Debug) { debug(" Stop reading history file. Got all we need."); }
-                                                last;
-                                        }
-                                }
-                                if ($versionnum >= 5000) { next; }        # We can forget 'END_GENERAL' line and read next one
-                        }
-
-                        # BEGIN_MISC
-                        if ($field[0] eq 'BEGIN_MISC')      {
-                                if ($Debug) { debug(" Begin of MISC section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'misc'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_misc_p{$field[0]}+=int($field[1]); }
-                                                        if ($field[2]) { $_misc_h{$field[0]}+=int($field[2]); }
-                                                        if ($field[3]) { $_misc_k{$field[0]}+=int($field[3]); }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_MISC' || $field[0] eq "${xmleb}END_MISC" || ! $_);
-                                if ($field[0] ne 'END_MISC' && $field[0] ne "${xmleb}END_MISC") { error("History file \"$filetoread\" is corrupted (End of section MISC not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of MISC section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'misc'};
-                                if ($SectionsToSave{'misc'}) {
-                                        Save_History('misc',$year,$month); delete $SectionsToSave{'misc'};
-                                        if ($withpurge) { %_misc_p=(); %_misc_h=(); %_misc_k=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-
-                        # BEGIN_CLUSTER
-                        if ($field[0] eq 'BEGIN_CLUSTER')      {
-                                if ($Debug) { debug(" Begin of CLUSTER section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'cluster'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_cluster_p{$field[0]}+=int($field[1]); }
-                                                        if ($field[2]) { $_cluster_h{$field[0]}+=int($field[2]); }
-                                                        if ($field[3]) { $_cluster_k{$field[0]}+=int($field[3]); }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_CLUSTER' || $field[0] eq "${xmleb}END_CLUSTER" || ! $_);
-                                if ($field[0] ne 'END_CLUSTER' && $field[0] ne "${xmleb}END_CLUSTER") { error("History file \"$filetoread\" is corrupted (End of section CLUSTER not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of CLUSTER section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'cluster'};
-                                if ($SectionsToSave{'cluster'}) {
-                                        Save_History('cluster',$year,$month); delete $SectionsToSave{'cluster'};
-                                        if ($withpurge) { %_cluster_p=(); %_cluster_h=(); %_cluster_k=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-
-                        # BEGIN_TIME
-                        if ($field[0] eq 'BEGIN_TIME')      {
-                                my $monthpages=0;my $monthhits=0;my $monthbytes=0;
-                                my $monthnotviewedpages=0;my $monthnotviewedhits=0;my $monthnotviewedbytes=0;
-                                if ($Debug) { debug(" Begin of TIME section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0] ne '') {        # Test on ne '' because field[0] is '0' for hour 0)
-                                                $count++;
-                                                if ($SectionsToLoad{'time'}) {
-                                                        if ($withupdate || $MonthRequired eq 'all' || $MonthRequired eq "$month") {        # Still required
-                                                                $countloaded++;
-                                                                if ($field[1]) { $_time_p[$field[0]]+=int($field[1]); }
-                                                                if ($field[2]) { $_time_h[$field[0]]+=int($field[2]); }
-                                                                if ($field[3]) { $_time_k[$field[0]]+=int($field[3]); }
-                                                                if ($field[4]) { $_time_nv_p[$field[0]]+=int($field[4]); }
-                                                                if ($field[5]) { $_time_nv_h[$field[0]]+=int($field[5]); }
-                                                                if ($field[6]) { $_time_nv_k[$field[0]]+=int($field[6]); }
-                                                        }
-                                                        $monthpages+=int($field[1]);
-                                                        $monthhits+=int($field[2]);
-                                                        $monthbytes+=int($field[3]);
-                                                        $monthnotviewedpages+=int($field[4]||0);
-                                                        $monthnotviewedhits+=int($field[5]||0);
-                                                        $monthnotviewedbytes+=int($field[6]||0);
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_TIME' || $field[0] eq "${xmleb}END_TIME" || ! $_);
-                                if ($field[0] ne 'END_TIME' && $field[0] ne "${xmleb}END_TIME") { error("History file \"$filetoread\" is corrupted (End of section TIME not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of TIME section ($count entries, $countloaded loaded)"); }
-                                $MonthPages{$year.$month}+=$monthpages;
-                                $MonthHits{$year.$month}+=$monthhits;
-                                $MonthBytes{$year.$month}+=$monthbytes;
-                                $MonthNotViewedPages{$year.$month}+=$monthnotviewedpages;
-                                $MonthNotViewedHits{$year.$month}+=$monthnotviewedhits;
-                                $MonthNotViewedBytes{$year.$month}+=$monthnotviewedbytes;
-                                delete $SectionsToLoad{'time'};
-                                if ($SectionsToSave{'time'}) {
-                                        Save_History('time',$year,$month); delete $SectionsToSave{'time'};
-                                        if ($withpurge) { @_time_p=(); @_time_h=(); @_time_k=(); @_time_nv_p=(); @_time_nv_h=(); @_time_nv_k=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-
-                        # BEGIN_ORIGIN
-                        if ($field[0] eq 'BEGIN_ORIGIN')        {
-                                if ($Debug) { debug(" Begin of ORIGIN section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'origin'}) {
-                                                        if ($field[0] eq 'From0') { $_from_p[0]+=$field[1]; $_from_h[0]+=$field[2]; }
-                                                        elsif ($field[0] eq 'From1') { $_from_p[1]+=$field[1]; $_from_h[1]+=$field[2]; }
-                                                        elsif ($field[0] eq 'From2') { $_from_p[2]+=$field[1]; $_from_h[2]+=$field[2]; }
-                                                        elsif ($field[0] eq 'From3') { $_from_p[3]+=$field[1]; $_from_h[3]+=$field[2]; }
-                                                        elsif ($field[0] eq 'From4') { $_from_p[4]+=$field[1]; $_from_h[4]+=$field[2]; }
-                                                        elsif ($field[0] eq 'From5') { $_from_p[5]+=$field[1]; $_from_h[5]+=$field[2]; }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_ORIGIN' || $field[0] eq "${xmleb}END_ORIGIN" || ! $_);
-                                if ($field[0] ne 'END_ORIGIN' && $field[0] ne "${xmleb}END_ORIGIN") { error("History file \"$filetoread\" is corrupted (End of section ORIGIN not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of ORIGIN section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'origin'};
-                                if ($SectionsToSave{'origin'}) {
-                                        Save_History('origin',$year,$month); delete $SectionsToSave{'origin'};
-                                        if ($withpurge) { @_from_p=(); @_from_h=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_DAY
-                        if ($field[0] eq 'BEGIN_DAY')      {
-                                if ($Debug) { debug(" Begin of DAY section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'day'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $DayPages{$field[0]}+=int($field[1]); }
-                                                        $DayHits{$field[0]}+=int($field[2]);                                                # DayHits always load (should be >0 and if not it's a day YYYYMM00 resulting of an old file migration)
-                                                        if ($field[3]) { $DayBytes{$field[0]}+=int($field[3]); }
-                                                        if ($field[4]) { $DayVisits{$field[0]}+=int($field[4]); }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_DAY' || $field[0] eq "${xmleb}END_DAY" || ! $_);
-                                if ($field[0] ne 'END_DAY' && $field[0] ne "${xmleb}END_DAY") { error("History file \"$filetoread\" is corrupted (End of section DAY not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of DAY section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'day'};
-                                # WE DO NOT SAVE SECTION NOW BECAUSE VALUES CAN BE CHANGED AFTER READING VISITOR
-                                #if ($SectionsToSave{'day'}) {        # Must be made after read of visitor
-                                #        Save_History('day',$year,$month); delete $SectionsToSave{'day'};
-                                #        if ($withpurge) { %DayPages=(); %DayHits=(); %DayBytes=(); %DayVisits=(); }
-                                #}
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_VISITOR
-                        if ($field[0] eq 'BEGIN_VISITOR')   {
-                                if ($Debug) { debug(" Begin of VISITOR section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-
-                                                # For backward compatibility
-                                                if ($readvisitorforbackward) {
-                                                        if ($field[1]) { $MonthUnique{$year.$month}++; }
-                                                        if ($MonthRequired ne 'all') {
-                                                                if ($field[0] !~ /^\d+\.\d+\.\d+\.\d+$/ && $field[0] !~ /^[0-9A-F]*:/i) { $MonthHostsKnown{$year.$month}++; }
-                                                                else { $MonthHostsUnknown{$year.$month}++; }
-                                                        }
-                                                }
-
-                                                # Process data saved in 'wait' arrays
-                                                if ($withupdate && $_waithost_e{$field[0]}){
-                                                        my $timehostl=int($field[4]||0);
-                                                        my $timehosts=int($field[5]||0);
-                                                        my $newtimehosts=($_waithost_s{$field[0]}?$_waithost_s{$field[0]}:$_host_s{$field[0]});
-                                                        my $newtimehostl=($_waithost_l{$field[0]}?$_waithost_l{$field[0]}:$_host_l{$field[0]});
-                                                        if ($newtimehosts > $timehostl + $VISITTIMEOUT ) {
-                                                                if ($Debug) { debug(" Visit for $field[0] in 'wait' arrays is a new visit different than last in history",4); }
-                                                                if ($field[6]) { $_url_x{$field[6]}++; }
-                                                                $_url_e{$_waithost_e{$field[0]}}++;
-                                                                $newtimehosts =~ /^(\d\d\d\d\d\d\d\d)/; $DayVisits{$1}++;
-                                                                if ($timehosts && $timehostl) { $_session{GetSessionRange($timehosts,$timehostl)}++; }
-                                                                if ($_waithost_s{$field[0]}) {
-                                                                        # First session found in log was followed by another one so it's finished
-                                                                        $_session{GetSessionRange($newtimehosts,$newtimehostl)}++;
-                                                                }
-                                                                # Here $_host_l $_host_s and $_host_u are correctly defined
-                                                        }
-                                                        else {
-                                                                if ($Debug) { debug(" Visit for $field[0] in 'wait' arrays is following of last visit in history",4); }
-                                                                if ($_waithost_s{$field[0]}) {
-                                                                        # First session found in log was followed by another one so it's finished
-                                                                        $_session{GetSessionRange(MinimumButNoZero($timehosts,$newtimehosts),$timehostl>$newtimehostl?$timehostl:$newtimehostl)}++;
-                                                                        # Here $_host_l $_host_s and $_host_u are correctly defined
-                                                                }
-                                                                else {
-                                                                        # We correct $_host_l $_host_s and $_host_u
-                                                                        if ($timehostl > $newtimehostl) {
-                                                                                $_host_l{$field[0]}=$timehostl;
-                                                                                $_host_u{$field[0]}=$field[6];
-                                                                        }
-                                                                        if ($timehosts < $newtimehosts) {
-                                                                                $_host_s{$field[0]}=$timehosts;
-                                                                        }
-                                                                }
-                                                        }
-                                                        delete $_waithost_e{$field[0]};
-                                                        delete $_waithost_l{$field[0]};
-                                                        delete $_waithost_s{$field[0]};
-                                                        delete $_waithost_u{$field[0]};
-                                                }
-
-                                                # Load records
-                                                if ($readvisitorforbackward!=2 && $SectionsToLoad{'visitor'}) { # if readvisitorforbackward==2 we do not load
-                                                        my $loadrecord=0;
-                                                        if ($withupdate) {
-                                                                $loadrecord=1;
-                                                        }
-                                                        else {
-                                                                if ($HTMLOutput{'allhosts'} || $HTMLOutput{'lasthosts'}) {
-                                                                        if ((!$FilterIn{'host'} || $field[0] =~ /$FilterIn{'host'}/i)
-                                                                         && (!$FilterEx{'host'} || $field[0] !~ /$FilterEx{'host'}/i)) { $loadrecord=1; }
-                                                                }
-                                                                elsif ($MonthRequired eq 'all' || $field[2] >= $MinHit{'Host'}) {
-                                                                        if ($HTMLOutput{'unknownip'} && ($field[0] =~ /^\d+\.\d+\.\d+\.\d+$/ || $field[0] =~ /^[0-9A-F]*:/i)) { $loadrecord=1; }
-                                                                        elsif ($HTMLOutput{'main'} && ($MonthRequired eq 'all' || $countloaded < $MaxNbOf{'HostsShown'})) { $loadrecord=1; }
-                                                                }
-                                                        }
-                                                        if ($loadrecord) {
-                                                                if ($field[1]) { $_host_p{$field[0]}+=$field[1]; }
-                                                                if ($field[2]) { $_host_h{$field[0]}+=$field[2]; }
-                                                                if ($field[3]) { $_host_k{$field[0]}+=$field[3]; }
-                                                                if ($field[4] && ! $_host_l{$field[0]}) {        # We save last connexion params if not previously defined
-                                                                        $_host_l{$field[0]}=int($field[4]);
-                                                                        if ($withupdate) {                # field[5] field[6] are used only for update
-                                                                                if ($field[5] && ! $_host_s{$field[0]}) { $_host_s{$field[0]}=int($field[5]); }
-                                                                                if ($field[6] && ! $_host_u{$field[0]}) { $_host_u{$field[0]}=$field[6]; }
-                                                                        }
-                                                                }
-                                                                $countloaded++;
-                                                        }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_VISITOR' || $field[0] eq "${xmleb}END_VISITOR" || ! $_);
-                                if ($field[0] ne 'END_VISITOR' && $field[0] ne "${xmleb}END_VISITOR") { error("History file \"$filetoread\" is corrupted (End of section VISITOR not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of VISITOR section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'visitor'};
-                                # WE DO NOT SAVE SECTION NOW TO BE SURE TO HAVE THIS LARGE SECTION NOT AT THE BEGINNING OF FILE
-                                #if ($SectionsToSave{'visitor'}) {
-                                #        Save_History('visitor',$year,$month); delete $SectionsToSave{'visitor'};
-                                #        if ($withpurge) { %_host_p=(); %_host_h=(); %_host_k=(); %_host_l=(); %_host_s=(); %_host_u=(); }
-                                #}
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_UNKNOWNIP for backward compatibility
-                        if ($field[0] eq 'BEGIN_UNKNOWNIP')   {
-                                my %iptomigrate=();
-                                if ($Debug) { debug(" Begin of UNKNOWNIP section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'unknownip'}) {
-                                                        $iptomigrate{$field[0]}=$field[1]||0;
-                                                        $countloaded++;
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_UNKNOWNIP' || $field[0] eq "${xmleb}END_UNKNOWNIP" || ! $_);
-                                if ($field[0] ne 'END_UNKNOWNIP' && $field[0] ne "${xmleb}END_UNKNOWNIP") { error("History file \"$filetoread\" is corrupted (End of section UNKOWNIP not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of UNKOWNIP section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'visitor'};
-                                # THIS SECTION IS NEVER SAVED. ONLY READ FOR MIGRATE AND CONVERTED INTO VISITOR SECTION
-                                foreach (keys %iptomigrate) {
-                                        $_host_p{$_}+=int($_host_p{'Unknown'}/$countloaded);
-                                        $_host_h{$_}+=int($_host_h{'Unknown'}/$countloaded);
-                                        $_host_k{$_}+=int($_host_k{'Unknown'}/$countloaded);
-                                        if ($iptomigrate{$_} > 0) { $_host_l{$_}=$iptomigrate{$_} };
-                                }
-                                delete $_host_p{'Unknown'};
-                                delete $_host_h{'Unknown'};
-                                delete $_host_k{'Unknown'};
-                                delete $_host_l{'Unknown'};
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_LOGIN
-                        if ($field[0] eq 'BEGIN_LOGIN')   {
-                                if ($Debug) { debug(" Begin of LOGIN section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'login'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_login_p{$field[0]}+=$field[1]; }
-                                                        if ($field[2]) { $_login_h{$field[0]}+=$field[2]; }
-                                                        if ($field[3]) { $_login_k{$field[0]}+=$field[3]; }
-                                                        if (! $_login_l{$field[0]} && $field[4]) { $_login_l{$field[0]}=int($field[4]); }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_LOGIN' || $field[0] eq "${xmleb}END_LOGIN" || ! $_);
-                                if ($field[0] ne 'END_LOGIN' && $field[0] ne "${xmleb}END_LOGIN") { error("History file \"$filetoread\" is corrupted (End of section LOGIN not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of LOGIN section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'login'};
-                                if ($SectionsToSave{'login'}) {
-                                        Save_History('login',$year,$month); delete $SectionsToSave{'login'};
-                                        if ($withpurge) { %_login_p=(); %_login_h=(); %_login_k=(); %_login_l=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_DOMAIN
-                        if ($field[0] eq 'BEGIN_DOMAIN')   {
-                                if ($Debug) { debug(" Begin of DOMAIN section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'domain'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_domener_p{$field[0]}+=$field[1]; }
-                                                        if ($field[2]) { $_domener_h{$field[0]}+=$field[2]; }
-                                                        if ($field[3]) { $_domener_k{$field[0]}+=$field[3]; }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_DOMAIN' || $field[0] eq "${xmleb}END_DOMAIN" || ! $_);
-                                if ($field[0] ne 'END_DOMAIN' && $field[0] ne "${xmleb}END_DOMAIN") { error("History file \"$filetoread\" is corrupted (End of section DOMAIN not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of DOMAIN section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'domain'};
-                                if ($SectionsToSave{'domain'}) {
-                                        Save_History('domain',$year,$month); delete $SectionsToSave{'domain'};
-                                        if ($withpurge) { %_domener_p=(); %_domener_h=(); %_domener_k=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_SESSION
-                        if ($field[0] eq 'BEGIN_SESSION')   {
-                                if ($Debug) { debug(" Begin of SESSION section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'session'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_session{$field[0]}+=$field[1]; }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_SESSION' || $field[0] eq "${xmleb}END_SESSION" || ! $_);
-                                if ($field[0] ne 'END_SESSION' && $field[0] ne "${xmleb}END_SESSION") { error("History file \"$filetoread\" is corrupted (End of section SESSION not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of SESSION section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'session'};
-                                # WE DO NOT SAVE SECTION NOW BECAUSE VALUES CAN BE CHANGED AFTER READING VISITOR
-                                #if ($SectionsToSave{'session'}) {
-                                #        Save_History('session',$year,$month); delete $SectionsToSave{'session'}; }
-                                #        if ($withpurge) { %_session=(); }
-                                #}
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_OS
-                        if ($field[0] eq 'BEGIN_OS')   {
-                                if ($Debug) { debug(" Begin of OS section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'os'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_os_h{$field[0]}+=$field[1]; }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_OS' || $field[0] eq "${xmleb}END_OS" || ! $_);
-                                if ($field[0] ne 'END_OS' && $field[0] ne "${xmleb}END_OS") { error("History file \"$filetoread\" is corrupted (End of section OS not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of OS section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'os'};
-                                if ($SectionsToSave{'os'}) {
-                                        Save_History('os',$year,$month); delete $SectionsToSave{'os'};
-                                        if ($withpurge) { %_os_h=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_BROWSER
-                        if ($field[0] eq 'BEGIN_BROWSER')   {
-                                if ($Debug) { debug(" Begin of BROWSER section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'browser'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_browser_h{$field[0]}+=$field[1]; }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_BROWSER' || $field[0] eq "${xmleb}END_BROWSER" || ! $_);
-                                if ($field[0] ne 'END_BROWSER' && $field[0] ne "${xmleb}END_BROWSER") { error("History file \"$filetoread\" is corrupted (End of section BROWSER not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of BROWSER section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'browser'};
-                                if ($SectionsToSave{'browser'}) {
-                                        Save_History('browser',$year,$month); delete $SectionsToSave{'browser'};
-                                        if ($withpurge) { %_browser_h=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_UNKNOWNREFERER
-                        if ($field[0] eq 'BEGIN_UNKNOWNREFERER')   {
-                                if ($Debug) { debug(" Begin of UNKNOWNREFERER section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'unknownreferer'}) {
-                                                        $countloaded++;
-                                                        if (! $_unknownreferer_l{$field[0]}) { $_unknownreferer_l{$field[0]}=int($field[1]); }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_UNKNOWNREFERER' || $field[0] eq "${xmleb}END_UNKNOWNREFERER" || ! $_);
-                                if ($field[0] ne 'END_UNKNOWNREFERER' && $field[0] ne "${xmleb}END_UNKNOWNREFERER") { error("History file \"$filetoread\" is corrupted (End of section UNKNOWNREFERER not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of UNKNOWNREFERER section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'unknownreferer'};
-                                if ($SectionsToSave{'unknownreferer'}) {
-                                        Save_History('unknownreferer',$year,$month); delete $SectionsToSave{'unknownreferer'};
-                                        if ($withpurge) { %_unknownreferer_l=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_UNKNOWNREFERERBROWSER
-                        if ($field[0] eq 'BEGIN_UNKNOWNREFERERBROWSER')   {
-                                if ($Debug) { debug(" Begin of UNKNOWNREFERERBROWSER section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'unknownrefererbrowser'}) {
-                                                        $countloaded++;
-                                                        if (! $_unknownrefererbrowser_l{$field[0]}) { $_unknownrefererbrowser_l{$field[0]}=int($field[1]); }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_UNKNOWNREFERERBROWSER' || $field[0] eq "${xmleb}END_UNKNOWNREFERERBROWSER" || ! $_);
-                                if ($field[0] ne 'END_UNKNOWNREFERERBROWSER' && $field[0] ne "${xmleb}END_UNKNOWNREFERERBROWSER") { error("History file \"$filetoread\" is corrupted (End of section UNKNOWNREFERERBROWSER not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of UNKNOWNREFERERBROWSER section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'unknownrefererbrowser'};
-                                if ($SectionsToSave{'unknownrefererbrowser'}) {
-                                        Save_History('unknownrefererbrowser',$year,$month); delete $SectionsToSave{'unknownrefererbrowser'};
-                                        if ($withpurge) { %_unknownrefererbrowser_l=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_SCREENSIZE
-                        if ($field[0] eq 'BEGIN_SCREENSIZE')   {
-                                if ($Debug) { debug(" Begin of SCREENSIZE section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'screensize'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_screensize_h{$field[0]}+=$field[1]; }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_SCREENSIZE' || $field[0] eq "${xmleb}END_SCREENSIZE" || ! $_);
-                                if ($field[0] ne 'END_SCREENSIZE' && $field[0] ne "${xmleb}END_SCREENSIZE") { error("History file \"$filetoread\" is corrupted (End of section SCREENSIZE not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of SCREENSIZE section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'screensize'};
-                                if ($SectionsToSave{'screensize'}) {
-                                        Save_History('screensize',$year,$month); delete $SectionsToSave{'screensize'};
-                                        if ($withpurge) { %_screensize_h=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_ROBOT
-                        if ($field[0] eq 'BEGIN_ROBOT')   {
-                                if ($Debug) { debug(" Begin of ROBOT section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'robot'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_robot_h{$field[0]}+=$field[1]; }
-                                                        if ($versionnum < 5000 || ! $field[3]) {                # For backward compatibility
-                                                                if (! $_robot_l{$field[0]}) { $_robot_l{$field[0]}=int($field[2]); }
-                                                        }
-                                                        else {
-                                                                $_robot_k{$field[0]}+=$field[2];
-                                                                if (! $_robot_l{$field[0]}) { $_robot_l{$field[0]}=int($field[3]); }
-                                                        }
-                                                        if ($field[4]) { $_robot_r{$field[0]}+=$field[4]; }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_ROBOT' || $field[0] eq "${xmleb}END_ROBOT" || ! $_);
-                                if ($field[0] ne 'END_ROBOT' && $field[0] ne "${xmleb}END_ROBOT") { error("History file \"$filetoread\" is corrupted (End of section ROBOT not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of ROBOT section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'robot'};
-                                if ($SectionsToSave{'robot'}) {
-                                        Save_History('robot',$year,$month); delete $SectionsToSave{'robot'};
-                                        if ($withpurge) { %_robot_h=(); %_robot_k=(); %_robot_l=(); %_robot_r=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_WORMS
-                        if ($field[0] eq 'BEGIN_WORMS')   {
-                                if ($Debug) { debug(" Begin of WORMS section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'worms'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_worm_h{$field[0]}+=$field[1]; }
-                                                        $_worm_k{$field[0]}+=$field[2];
-                                                        if (! $_worm_l{$field[0]}) { $_worm_l{$field[0]}=int($field[3]); }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_WORMS' || $field[0] eq "${xmleb}END_WORMS" || ! $_);
-                                if ($field[0] ne 'END_WORMS' && $field[0] ne "${xmleb}END_WORMS") { error("History file \"$filetoread\" is corrupted (End of section WORMS not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of WORMS section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'worms'};
-                                if ($SectionsToSave{'worms'}) {
-                                        Save_History('worms',$year,$month); delete $SectionsToSave{'worms'};
-                                        if ($withpurge) { %_worm_h=(); %_worm_k=(); %_worm_l=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_EMAILS
-                        if ($field[0] eq 'BEGIN_EMAILSENDER')   {
-                                if ($Debug) { debug(" Begin of EMAILSENDER section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'emailsender'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_emails_h{$field[0]}+=$field[1]; }
-                                                        if ($field[2]) { $_emails_k{$field[0]}+=$field[2]; }
-                                                        if (! $_emails_l{$field[0]}) { $_emails_l{$field[0]}=int($field[3]); }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_EMAILSENDER' || $field[0] eq "${xmleb}END_EMAILSENDER" || ! $_);
-                                if ($field[0] ne 'END_EMAILSENDER' && $field[0] ne "${xmleb}END_EMAILSENDER") { error("History file \"$filetoread\" is corrupted (End of section EMAILSENDER not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of EMAILSENDER section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'emailsender'};
-                                if ($SectionsToSave{'emailsender'}) {
-                                        Save_History('emailsender',$year,$month); delete $SectionsToSave{'emailsender'};
-                                        if ($withpurge) { %_emails_h=(); %_emails_k=(); %_emails_l=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_EMAILR
-                        if ($field[0] eq 'BEGIN_EMAILRECEIVER')   {
-                                if ($Debug) { debug(" Begin of EMAILRECEIVER section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'emailreceiver'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_emailr_h{$field[0]}+=$field[1]; }
-                                                        if ($field[2]) { $_emailr_k{$field[0]}+=$field[2]; }
-                                                        if (! $_emailr_l{$field[0]}) { $_emailr_l{$field[0]}=int($field[3]); }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_EMAILRECEIVER' || $field[0] eq "${xmleb}END_EMAILRECEIVER" || ! $_);
-                                if ($field[0] ne 'END_EMAILRECEIVER' && $field[0] ne "${xmleb}END_EMAILRECEIVER") { error("History file \"$filetoread\" is corrupted (End of section EMAILRECEIVER not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of EMAILRECEIVER section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'emailreceiver'};
-                                if ($SectionsToSave{'emailreceiver'}) {
-                                        Save_History('emailreceiver',$year,$month); delete $SectionsToSave{'emailreceiver'};
-                                        if ($withpurge) { %_emailr_h=(); %_emailr_k=(); %_emailr_l=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_SIDER
-                        if ($field[0] eq 'BEGIN_SIDER')  {
-                                if ($Debug) { debug(" Begin of SIDER section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'sider'}) {
-                                                        my $loadrecord=0;
-                                                        if ($withupdate) {
-                                                                $loadrecord=1;
-                                                        }
-                                                        else {
-                                                                if ($HTMLOutput{'main'}) {
-                                                                        if ($MonthRequired eq 'all') { $loadrecord=1; }
-                                                                        else {
-                                                                                if ($countloaded < $MaxNbOf{'PageShown'} && $field[1] >= $MinHit{'File'}) { $loadrecord=1; }
-                                                                                $TotalDifferentPages++;
-                                                                        }
-                                                                }
-                                                                else {        # This is for $HTMLOutput = urldetail, urlentry or urlexit
-                                                                        if ($MonthRequired eq 'all' ) {
-                                                                                if ((!$FilterIn{'url'} || $field[0] =~ /$FilterIn{'url'}/)
-                                                                                 && (!$FilterEx{'url'} || $field[0] !~ /$FilterEx{'url'}/)) { $loadrecord=1; }
-                                                                        }
-                                                                        else {
-                                                                                if ((!$FilterIn{'url'} || $field[0] =~ /$FilterIn{'url'}/)
-                                                                                 && (!$FilterEx{'url'} || $field[0] !~ /$FilterEx{'url'}/)
-                                                                                 && $field[1] >= $MinHit{'File'}) { $loadrecord=1; }
-                                                                                $TotalDifferentPages++;
-                                                                        }
-                                                                }
-                                                                # Posssibilite de mettre if ($FilterIn{'url'} && $field[0] =~ /$FilterIn{'url'}/) mais il faut gerer TotalPages de la meme maniere
-                                                                if ($versionnum < 4000) {        # For history files < 4.0
-                                                                        $TotalEntries+=($field[2]||0);
-                                                                }
-                                                                else {
-                                                                        $TotalBytesPages+=($field[2]||0);
-                                                                        $TotalEntries+=($field[3]||0);
-                                                                        $TotalExits+=($field[4]||0);
-                                                                }
-                                                        }
-                                                        if ($loadrecord) {
-                                                                if ($field[1]) { $_url_p{$field[0]}+=$field[1]; }
-                                                                if ($versionnum < 4000) {        # For history files < 4.0
-                                                                        if ($field[2]) { $_url_e{$field[0]}+=$field[2]; }
-                                                                        $_url_k{$field[0]}=0;
-                                                                }
-                                                                else {
-                                                                        if ($field[2]) { $_url_k{$field[0]}+=$field[2]; }
-                                                                        if ($field[3]) { $_url_e{$field[0]}+=$field[3]; }
-                                                                        if ($field[4]) { $_url_x{$field[0]}+=$field[4]; }
-                                                                }
-                                                                $countloaded++;
-                                                        }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_SIDER' || $field[0] eq "${xmleb}END_SIDER" || ! $_);
-                                if ($field[0] ne 'END_SIDER' && $field[0] ne "${xmleb}END_SIDER") { error("History file \"$filetoread\" is corrupted (End of section SIDER not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of SIDER section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'sider'};
-                                # WE DO NOT SAVE SECTION NOW BECAUSE VALUES CAN BE CHANGED AFTER READING VISITOR
-                                #if ($SectionsToSave{'sider'}) {
-                                #        Save_History('sider',$year,$month); delete $SectionsToSave{'sider'};
-                                #        if ($withpurge) { %_url_p=(); %_url_k=(); %_url_e=(); %_url_x=(); }
-                                #}
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_FILETYPES
-                        if ($field[0] eq 'BEGIN_FILETYPES')   {
-                                if ($Debug) { debug(" Begin of FILETYPES section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'filetypes'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_filetypes_h{$field[0]}+=$field[1]; }
-                                                        if ($field[2]) { $_filetypes_k{$field[0]}+=$field[2]; }
-                                                        if ($field[3]) { $_filetypes_gz_in{$field[0]}+=$field[3]; }
-                                                        if ($field[4]) { $_filetypes_gz_out{$field[0]}+=$field[4]; }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_FILETYPES' || $field[0] eq "${xmleb}END_FILETYPES" || ! $_);
-                                if ($field[0] ne 'END_FILETYPES' && $field[0] ne "${xmleb}END_FILETYPES") { error("History file \"$filetoread\" is corrupted (End of section FILETYPES not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of FILETYPES section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'filetypes'};
-                                if ($SectionsToSave{'filetypes'}) {
-                                        Save_History('filetypes',$year,$month); delete $SectionsToSave{'filetypes'};
-                                        if ($withpurge) { %_filetypes_h=(); %_filetypes_k=(); %_filetypes_gz_in=(); %_filetypes_gz_out=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_SEREFERRALS
-                        if ($field[0] eq 'BEGIN_SEREFERRALS')   {
-                                if ($Debug) { debug(" Begin of SEREFERRALS section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'sereferrals'}) {
-                                                        $countloaded++;
-                                                        if ($versionnum < 5004) {                # For history files < 5.4
-                                                                my $se=$field[0]; $se=~s/\./\\./g;
-                                                                if ($SearchEnginesHashID{$se}) {
-                                                                        $_se_referrals_h{$SearchEnginesHashID{$se}}+=$field[1]||0;
-                                                                }
-                                                                else {
-                                                                        $_se_referrals_h{$field[0]}+=$field[1]||0;
-                                                                }
-                                                        }
-                                                        elsif ($versionnum < 5091) {        # For history files < 5.91
-                                                                my $se=$field[0]; $se=~s/\./\\./g;
-                                                                if ($SearchEnginesHashID{$se}) {
-                                                                        $_se_referrals_p{$SearchEnginesHashID{$se}}+=$field[1]||0;
-                                                                        $_se_referrals_h{$SearchEnginesHashID{$se}}+=$field[2]||0;
-                                                                }
-                                                                else {
-                                                                        $_se_referrals_p{$field[0]}+=$field[1]||0;
-                                                                        $_se_referrals_h{$field[0]}+=$field[2]||0;
-                                                                }
-                                                        } else {
-                                                                if ($field[1]) { $_se_referrals_p{$field[0]}+=$field[1]; }
-                                                                if ($field[2]) { $_se_referrals_h{$field[0]}+=$field[2]; }
-                                                        }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_SEREFERRALS' || $field[0] eq "${xmleb}END_SEREFERRALS" || ! $_);
-                                if ($field[0] ne 'END_SEREFERRALS' && $field[0] ne "${xmleb}END_SEREFERRALS") { error("History file \"$filetoread\" is corrupted (End of section SEREFERRALS not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of SEREFERRALS section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'sereferrals'};
-                                if ($SectionsToSave{'sereferrals'}) {
-                                        Save_History('sereferrals',$year,$month); delete $SectionsToSave{'sereferrals'};
-                                        if ($withpurge) { %_se_referrals_p=(); %_se_referrals_h=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_PAGEREFS
-                        if ($field[0] eq 'BEGIN_PAGEREFS')   {
-                                if ($Debug) { debug(" Begin of PAGEREFS section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'pagerefs'}) {
-                                                        my $loadrecord=0;
-                                                        if ($withupdate) {
-                                                                $loadrecord=1;
-                                                        }
-                                                        else {
-                                                                if ((!$FilterIn{'refererpages'} || $field[0] =~ /$FilterIn{'refererpages'}/)
-                                                                 && (!$FilterEx{'refererpages'} || $field[0] !~ /$FilterEx{'refererpages'}/)) { $loadrecord=1; }
-                                                        }
-                                                        if ($loadrecord) {
-                                                                if ($versionnum < 5004) {        # For history files < 5.4
-                                                                        if ($field[1]) { $_pagesrefs_h{$field[0]}+=int($field[1]); }
-                                                                } else {
-                                                                        if ($field[1]) { $_pagesrefs_p{$field[0]}+=int($field[1]); }
-                                                                        if ($field[2]) { $_pagesrefs_h{$field[0]}+=int($field[2]); }
-                                                                }
-                                                                $countloaded++;
-                                                        }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_PAGEREFS' || $field[0] eq "${xmleb}END_PAGEREFS" || ! $_);
-                                if ($field[0] ne 'END_PAGEREFS' && $field[0] ne "${xmleb}END_PAGEREFS") { error("History file \"$filetoread\" is corrupted (End of section PAGEREFS not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of PAGEREFS section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'pagerefs'};
-                                if ($SectionsToSave{'pagerefs'}) {
-                                        Save_History('pagerefs',$year,$month); delete $SectionsToSave{'pagerefs'};
-                                        if ($withpurge) { %_pagesrefs_p=(); %_pagesrefs_h=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_SEARCHWORDS
-                        if ($field[0] eq 'BEGIN_SEARCHWORDS')   {
-                                if ($Debug) { debug(" Begin of SEARCHWORDS section ($MaxNbOf{'KeyphrasesShown'},$MinHit{'Keyphrase'})"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'searchwords'}) {
-                                                        my $loadrecord=0;
-                                                        if ($withupdate) {
-                                                                $loadrecord=1;
-                                                        }
-                                                        else {
-                                                                if ($HTMLOutput{'main'}) {
-                                                                        if ($MonthRequired eq 'all') { $loadrecord=1; }
-                                                                        else {
-                                                                                if ($countloaded < $MaxNbOf{'KeyphrasesShown'} && $field[1] >= $MinHit{'Keyphrase'}) { $loadrecord=1; }
-                                                                                $TotalDifferentKeyphrases++;
-                                                                                $TotalKeyphrases+=($field[1]||0);
-                                                                        }
-                                                                }
-                                                                elsif ($HTMLOutput{'keyphrases'}) {        # Load keyphrases for keyphrases chart
-                                                                        if ($MonthRequired eq 'all' ) { $loadrecord=1; }
-                                                                        else {
-                                                                                if ($field[1] >= $MinHit{'Keyphrase'}) { $loadrecord=1; }
-                                                                                $TotalDifferentKeyphrases++;
-                                                                                $TotalKeyphrases+=($field[1]||0);
-                                                                        }
-                                                                }
-                                                                if ($HTMLOutput{'keywords'}) {        # Load keyphrases for keywords chart
-                                                                        $loadrecord=2;
-                                                                }
-                                                        }
-                                                        if ($loadrecord) {
-                                                                if ($field[1]) {
-                                                                        if ($loadrecord==2) {
-                                                                                foreach (split(/\+/,$field[0])) {        # field[0] is "val1+val2+..."
-                                                                                        $_keywords{$_}+=$field[1];
-                                                                                }
-                                                                        }
-                                                                        else {
-                                                                                $_keyphrases{$field[0]}+=$field[1];
-                                                                        }
-                                                                }
-                                                                $countloaded++;
-                                                        }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_SEARCHWORDS' || $field[0] eq "${xmleb}END_SEARCHWORDS" || ! $_);
-                                if ($field[0] ne 'END_SEARCHWORDS' && $field[0] ne "${xmleb}END_SEARCHWORDS") { error("History file \"$filetoread\" is corrupted (End of section SEARCHWORDS not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of SEARCHWORDS section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'searchwords'};
-                                if ($SectionsToSave{'searchwords'}) {
-                                        Save_History('searchwords',$year,$month); delete $SectionsToSave{'searchwords'};        # This save searwords and keywords sections
-                                        if ($withpurge) { %_keyphrases=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_KEYWORDS
-                        if ($field[0] eq 'BEGIN_KEYWORDS')   {
-                                if ($Debug) { debug(" Begin of KEYWORDS section ($MaxNbOf{'KeywordsShown'},$MinHit{'Keyword'})"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'keywords'}) {
-                                                        my $loadrecord=0;
-                                                        if ($MonthRequired eq 'all') { $loadrecord=1; }
-                                                        else {
-                                                                if ($countloaded < $MaxNbOf{'KeywordsShown'} && $field[1] >= $MinHit{'Keyword'}) { $loadrecord=1; }
-                                                                $TotalDifferentKeywords++;
-                                                                $TotalKeywords+=($field[1]||0);
-                                                        }
-                                                        if ($loadrecord) {
-                                                                if ($field[1]) { $_keywords{$field[0]}+=$field[1]; }
-                                                                $countloaded++;
-                                                        }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_KEYWORDS' || $field[0] eq "${xmleb}END_KEYWORDS" || ! $_);
-                                if ($field[0] ne 'END_KEYWORDS' && $field[0] ne "${xmleb}END_KEYWORDS") { error("History file \"$filetoread\" is corrupted (End of section KEYWORDS not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of KEYWORDS section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'keywords'};
-                                if ($SectionsToSave{'keywords'}) {
-                                        Save_History('keywords',$year,$month); delete $SectionsToSave{'keywords'};
-                                        if ($withpurge) { %_keywords=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_ERRORS
-                        if ($field[0] eq 'BEGIN_ERRORS')   {
-                                if ($Debug) { debug(" Begin of ERRORS section"); }
-                                $field[0]='';
-                                my $count=0;my $countloaded=0;
-                                do {
-                                        if ($field[0]) {
-                                                $count++;
-                                                if ($SectionsToLoad{'errors'}) {
-                                                        $countloaded++;
-                                                        if ($field[1]) { $_errors_h{$field[0]}+=$field[1]; }
-                                                        if ($field[2]) { $_errors_k{$field[0]}+=$field[2]; }
-                                                }
-                                        }
-                                        $_=<HISTORY>;
-                                        chomp $_; s/\r//;
-                                        @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                }
-                                until ($field[0] eq 'END_ERRORS' || $field[0] eq "${xmleb}END_ERRORS" || ! $_);
-                                if ($field[0] ne 'END_ERRORS' && $field[0] ne "${xmleb}END_ERRORS") { error("History file \"$filetoread\" is corrupted (End of section ERRORS not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                if ($Debug) { debug(" End of ERRORS section ($count entries, $countloaded loaded)"); }
-                                delete $SectionsToLoad{'errors'};
-                                if ($SectionsToSave{'errors'}) {
-                                        Save_History('errors',$year,$month); delete $SectionsToSave{'errors'};
-                                        if ($withpurge) { %_errors_h=(); %_errors_k=(); }
-                                }
-                                if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                next;
-                        }
-                        # BEGIN_SIDER_xxx
-                        foreach my $code (keys %TrapInfosForHTTPErrorCodes) {
-                                if ($field[0] eq "BEGIN_SIDER_$code")   {
-                                        if ($Debug) { debug(" Begin of SIDER_$code section"); }
-                                        $field[0]='';
-                                        my $count=0;my $countloaded=0;
-                                        do {
-                                                if ($field[0]) {
-                                                        $count++;
-                                                        if ($SectionsToLoad{"sider_$code"}) {
-                                                                $countloaded++;
-                                                                if ($field[1]) { $_sider404_h{$field[0]}+=$field[1]; }
-                                                                if ($withupdate || $HTMLOutput{"errors$code"}) {
-                                                                        if ($field[2]) { $_referer404_h{$field[0]}=$field[2]; }
-                                                                }
-                                                        }
-                                                }
-                                                $_=<HISTORY>;
-                                                chomp $_; s/\r//;
-                                                @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                        }
-                                        until ($field[0] eq "END_SIDER_$code" || $field[0] eq "${xmleb}END_SIDER_$code" || ! $_);
-                                        if ($field[0] ne "END_SIDER_$code" && $field[0] ne "${xmleb}END_SIDER_$code") { error("History file \"$filetoread\" is corrupted (End of section SIDER_$code not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                        if ($Debug) { debug(" End of SIDER_$code section ($count entries, $countloaded loaded)"); }
-                                        delete $SectionsToLoad{"sider_$code"};
-                                        if ($SectionsToSave{"sider_$code"}) {
-                                                Save_History("sider_$code",$year,$month); delete $SectionsToSave{"sider_$code"};
-                                                if ($withpurge) { %_sider404_h=(); %_referer404_h=(); }
-                                        }
-                                        if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                        next;
-                                }
-                        }
-                        # BEGIN_EXTRA_xxx
-                        foreach my $extranum (1..@ExtraName-1) {
-                                if ($field[0] eq "BEGIN_EXTRA_$extranum")   {
-                                        if ($Debug) { debug(" Begin of EXTRA_$extranum"); }
-                                        $field[0]='';
-                                        my $count=0;my $countloaded=0;
-                                        do {
-                                                if ($field[0] ne '') {
-                                                        $count++;
-                                                        if ($SectionsToLoad{"extra_$extranum"}) {
-                                                                if ($ExtraStatTypes[$extranum] =~ /P/i && $field[1]) { ${'_section_' . $extranum . '_p'}{$field[0]}+=$field[1]; }
-                                                                ${'_section_' . $extranum . '_h'}{$field[0]}+=$field[2];
-                                                                if ($ExtraStatTypes[$extranum] =~ /B/i && $field[3]) { ${'_section_' . $extranum . '_k'}{$field[0]}+=$field[3]; }
-                                                                if ($ExtraStatTypes[$extranum] =~ /L/i && ! ${'_section_' . $extranum . '_l'}{$field[0]} && $field[4]) { ${'_section_' . $extranum . '_l'}{$field[0]}=int($field[4]); }
-                                                                $countloaded++;
-                                                        }
-                                                }
-                                                $_=<HISTORY>;
-                                                chomp $_; s/\r//;
-                                                @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                        }
-                                        until ($field[0] eq "END_EXTRA_$extranum" || $field[0] eq "${xmleb}END_EXTRA_$extranum" || ! $_);
-                                        if ($field[0] ne "END_EXTRA_$extranum" && $field[0] ne "${xmleb}END_EXTRA_$extranum") { error("History file \"$filetoread\" is corrupted (End of section EXTRA_$extranum not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
-                                        if ($Debug) { debug(" End of EXTRA_$extranum section ($count entries, $countloaded loaded)"); }
-                                        delete $SectionsToLoad{"extra_$extranum"};
-                                        if ($SectionsToSave{"extra_$extranum"}) {
-                                                Save_History("extra_$extranum",$year,$month); delete $SectionsToSave{"extra_$extranum"};
-                                                if ($withpurge) { %{'_section_' . $extranum . '_p'}=(); %{'_section_' . $extranum . '_h'}=(); %{'_section_' . $extranum . '_b'}=(); %{'_section_' . $extranum . '_l'}=(); }
-                                        }
-                                        if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                                        next;
-                                }
-                        }
-
-                        # BEGIN_PLUGINS
-                   if ($AtLeastOneSectionPlugin && $field[0] =~ /^BEGIN_PLUGIN_(\w+)$/i)   {
-                      my $pluginname=$1;
-                      my $found=0;
-                      foreach (keys %{$PluginsLoaded{'SectionInitHashArray'}})  {
-                               if ($pluginname eq $_) {
-                        # The plugin for this section was loaded
-                                   $found=1;
-                               my $issectiontoload=$SectionsToLoad{"plugin_$pluginname"};
-                                   my $function="SectionReadHistory_$pluginname(\$issectiontoload,\$xmlold,\$xmleb,\$countlines)";
-                                   eval("$function");
-                                        delete $SectionsToLoad{"plugin_$pluginname"};
-                                        if ($SectionsToSave{"plugin_$pluginname"}) {
-                                                Save_History("plugin_$pluginname",$year,$month); delete $SectionsToSave{"plugin_$pluginname"};
-                                                if ($withpurge) {
-                                           my $function="SectionInitHashArray_$pluginname()";
-                                           eval("$function");
-                                                }
-                                        }
-                        last;
-                               }
-                }
-                                   if (! scalar %SectionsToLoad) { debug(" Stop reading history file. Got all we need."); last; }
-                # The plugin for this section was not loaded
-                                   if (! $found) {
-                                        do {
-                                                $_=<HISTORY>;
-                                                chomp $_; s/\r//;
-                                                @field=split(/\s+/,($xmlold?CleanFromTags($_):$_)); $countlines++;
-                                        }
-                                        until ($field[0] eq "END_PLUGIN_$pluginname" || $field[0] eq "${xmleb}END_PLUGIN_$pluginname" || ! $_);
-                                   }
-                                   next;
-            }
-
-                        # For backward compatibility (ORIGIN section was "HitFromx" in old history files)
-                        if ($SectionsToLoad{'origin'}) {
-                                if ($field[0] eq 'HitFrom0') { $_from_p[0]+=0; $_from_h[0]+=$field[1]; next; }
-                                if ($field[0] eq 'HitFrom1') { $_from_p[1]+=0; $_from_h[1]+=$field[1]; next; }
-                                if ($field[0] eq 'HitFrom2') { $_from_p[2]+=0; $_from_h[2]+=$field[1]; next; }
-                                if ($field[0] eq 'HitFrom3') { $_from_p[3]+=0; $_from_h[3]+=$field[1]; next; }
-                                if ($field[0] eq 'HitFrom4') { $_from_p[4]+=0; $_from_h[4]+=$field[1]; next; }
-                                if ($field[0] eq 'HitFrom5') { $_from_p[5]+=0; $_from_h[5]+=$field[1]; next; }
-                        }
-                }
-        }
-
-        if ($withupdate) {
-                # Process rest of data saved in 'wait' arrays (data for hosts that are not in history file or no history file found)
-                # This can change some values for day, sider and session sections
-                if ($Debug) { debug(" Processing data in 'wait' arrays",3); }
-                foreach (keys %_waithost_e) {
-                        if ($Debug) { debug("  Visit in 'wait' array for $_ is a new visit",4); }
-                        my $newtimehosts=($_waithost_s{$_}?$_waithost_s{$_}:$_host_s{$_});
-                        my $newtimehostl=($_waithost_l{$_}?$_waithost_l{$_}:$_host_l{$_});
-                        $_url_e{$_waithost_e{$_}}++;
-                        $newtimehosts =~ /^(\d\d\d\d\d\d\d\d)/; $DayVisits{$1}++;
-                        if ($_waithost_s{$_}) {
-                                # There was also a second session in processed log
-                                $_session{GetSessionRange($newtimehosts,$newtimehostl)}++;
-                        }
-                }
-        }
-
-        # Write all unwrote sections in section order ('general','time', 'day','sider','session' and other...)
-        foreach my $key (sort { $SectionsToSave{$a} <=> $SectionsToSave{$b} } keys %SectionsToSave) {
-                Save_History("$key",$year,$month,$lastlinenb,$lastlineoffset,$lastlinechecksum);
-        }
-        %SectionsToSave=();
-
-        # Update offset in map section and last data in general section then close files
-        if ($withupdate) {
-                if ($xml) { print HISTORYTMP "\n\n</xml>\n"; }
-
-                # Update offset of sections in the MAP section
-                foreach (sort { $PosInFile{$a} <=> $PosInFile{$b} } keys %ValueInFile) {
-                        if ($Debug) { debug(" Update offset of section $_=$ValueInFile{$_} in file at offset $PosInFile{$_}"); }
-                        if ($PosInFile{"$_"}) {
-                                seek(HISTORYTMP,$PosInFile{"$_"},0); print HISTORYTMP $ValueInFile{"$_"};
-                        }
-                }
-                # Save last data in general sections
-                if ($Debug) { debug(" Update MonthVisits=$MonthVisits{$year.$month} in file at offset $PosInFile{TotalVisits}"); }
-                seek(HISTORYTMP,$PosInFile{"TotalVisits"},0); print HISTORYTMP $MonthVisits{$year.$month};
-                if ($Debug) { debug(" Update MonthUnique=$MonthUnique{$year.$month} in file at offset $PosInFile{TotalUnique}"); }
-                seek(HISTORYTMP,$PosInFile{"TotalUnique"},0); print HISTORYTMP $MonthUnique{$year.$month};
-                if ($Debug) { debug(" Update MonthHostsKnown=$MonthHostsKnown{$year.$month} in file at offset $PosInFile{MonthHostsKnown}"); }
-                seek(HISTORYTMP,$PosInFile{"MonthHostsKnown"},0); print HISTORYTMP $MonthHostsKnown{$year.$month};
-                if ($Debug) { debug(" Update MonthHostsUnknown=$MonthHostsUnknown{$year.$month} in file at offset $PosInFile{MonthHostsUnknown}"); }
-                seek(HISTORYTMP,$PosInFile{"MonthHostsUnknown"},0); print HISTORYTMP $MonthHostsUnknown{$year.$month};
-                close(HISTORYTMP) || error("Failed to write temporary history file");
-        }
-        if ($withread) {
-                close(HISTORY) || error("Command for pipe '$filetoread' failed");
-        }
-
-        # Purge data
-        if ($withpurge) { &Init_HashArray(); }
-
-        # If update, rename tmp file bis into tmp file or set HistoryAlreadyFlushed
-        if ($withupdate) {
-                if ($HistoryAlreadyFlushed{"$year$month"}) {
-                        debug("Rename tmp history file bis '$filetoread' to '$filetowrite'");
-                        if (rename($filetowrite,$filetoread)==0) {
-                                error("Failed to update tmp history file $filetoread");
-                        }
-                }
-                else {
-                        $HistoryAlreadyFlushed{"$year$month"}=1;
-                }
-                if (! $ListOfYears{"$year"} || $ListOfYears{"$year"} lt "$month") { $ListOfYears{"$year"}="$month"; }
-        }
-
-        # For backward compatibility, if LastLine does not exist, set to LastTime
-        $LastLine||=$LastTime{$year.$month};
-
-        return ($withupdate?"$filetowrite":"");
-}
-
-#------------------------------------------------------------------------------
-# Function:                Save a part of history file
-# Parameters:        sectiontosave,year,month[,lastlinenb,lastlineoffset,lastlinechecksum]
-# Input:                $VERSION HISTORYTMP $nowyear $nowmonth $nowday $nowhour $nowmin $nowsec $LastLineNumber $LastLineOffset $LastLineChecksum
-# Output:                None
-# Return:                None
-#------------------------------------------------------------------------------
-sub Save_History {
-        my $sectiontosave=shift||'';
-        my $year=shift||'';
-        my $month=shift||'';
-
-        my $xml=($BuildHistoryFormat eq 'xml'?1:0);
-        my ($xmlbb,$xmlbs,$xmlbe,$xmlhb,$xmlhs,$xmlhe,$xmlrb,$xmlrs,$xmlre,$xmleb,$xmlee)=('','','','','','','','','','','');
-        if ($xml) { ($xmlbb,$xmlbs,$xmlbe,$xmlhb,$xmlhs,$xmlhe,$xmlrb,$xmlrs,$xmlre,$xmleb,$xmlee)=("</comment><nu>\n",'</nu><recnb>','</recnb><table>','<tr><th>','</th><th>','</th></tr>','<tr><td>','</td><td>','</td></tr>','</table><nu>',"\n</nu></section>" ); }
-        else { $xmlbs=' '; $xmlhs=' '; $xmlrs=' '; }
-
-        my $lastlinenb=shift||0;
-        my $lastlineoffset=shift||0;
-        my $lastlinechecksum=shift||0;
-        if (! $lastlinenb) {        # This happens for migrate
-                $lastlinenb=$LastLineNumber;
-                $lastlineoffset=$LastLineOffset;
-                $lastlinechecksum=$LastLineChecksum;
-        }
-
-        if ($Debug) { debug(" Save_History [sectiontosave=$sectiontosave,year=$year,month=$month,lastlinenb=$lastlinenb,lastlineoffset=$lastlineoffset,lastlinechecksum=$lastlinechecksum]",1); }
-        my $spacebar="                    ";
-        my %keysinkeylist=();
-
-        # Header
-        if ($sectiontosave eq 'header') {
-                if ($xml) { print HISTORYTMP "<version><lib>\n"; }
-                print HISTORYTMP "AWSTATS DATA FILE $VERSION\n";
-                if ($xml) { print HISTORYTMP "</lib><comment>\n"; }
-                print HISTORYTMP "# If you remove this file, all statistics for date $year-$month will be lost/reset.\n";
-                if ($xml) { print HISTORYTMP "</comment></version>\n"; }
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Position (offset in bytes) in this file of beginning of each section for\n";
-                print HISTORYTMP "# direct I/O access. If you made changes somewhere in this file, you should\n";
-                print HISTORYTMP "# also remove completely the MAP section (AWStats will rewrite it at next\n";
-                print HISTORYTMP "# update).\n";
-                print HISTORYTMP "${xmlbb}BEGIN_MAP${xmlbs}".(26+(scalar keys %TrapInfosForHTTPErrorCodes)+(scalar @ExtraName?scalar @ExtraName-1:0)+(scalar keys %{$PluginsLoaded{'SectionInitHashArray'}}))."${xmlbe}\n";
-                print HISTORYTMP "${xmlrb}POS_GENERAL${xmlrs}";$PosInFile{"general"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                # When
-                print HISTORYTMP "${xmlrb}POS_TIME${xmlrs}";$PosInFile{"time"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_VISITOR${xmlrs}";$PosInFile{"visitor"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_DAY${xmlrs}";$PosInFile{"day"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                # Who
-                print HISTORYTMP "${xmlrb}POS_DOMAIN${xmlrs}";$PosInFile{"domain"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_LOGIN${xmlrs}";$PosInFile{"login"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_ROBOT${xmlrs}";$PosInFile{"robot"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_WORMS${xmlrs}";$PosInFile{"worms"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_EMAILSENDER${xmlrs}";$PosInFile{"emailsender"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_EMAILRECEIVER${xmlrs}";$PosInFile{"emailreceiver"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                # Navigation
-                print HISTORYTMP "${xmlrb}POS_SESSION${xmlrs}";$PosInFile{"session"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_SIDER${xmlrs}";$PosInFile{"sider"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_FILETYPES${xmlrs}";$PosInFile{"filetypes"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_OS${xmlrs}";$PosInFile{"os"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_BROWSER${xmlrs}";$PosInFile{"browser"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_SCREENSIZE${xmlrs}";$PosInFile{"screensize"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_UNKNOWNREFERER${xmlrs}";$PosInFile{'unknownreferer'}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_UNKNOWNREFERERBROWSER${xmlrs}";$PosInFile{'unknownrefererbrowser'}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                # Referers
-                print HISTORYTMP "${xmlrb}POS_ORIGIN${xmlrs}";$PosInFile{"origin"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_SEREFERRALS${xmlrs}";$PosInFile{"sereferrals"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_PAGEREFS${xmlrs}";$PosInFile{"pagerefs"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_SEARCHWORDS${xmlrs}";$PosInFile{"searchwords"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_KEYWORDS${xmlrs}";$PosInFile{"keywords"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                # Others
-                print HISTORYTMP "${xmlrb}POS_MISC${xmlrs}";$PosInFile{"misc"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_ERRORS${xmlrs}";$PosInFile{"errors"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}POS_CLUSTER${xmlrs}";$PosInFile{"cluster"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                foreach (keys %TrapInfosForHTTPErrorCodes) {
-                        print HISTORYTMP "${xmlrb}POS_SIDER_$_${xmlrs}";$PosInFile{"sider_$_"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                }
-                foreach (1..@ExtraName-1) {
-                        print HISTORYTMP "${xmlrb}POS_EXTRA_$_${xmlrs}";$PosInFile{"extra_$_"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                }
-               foreach (keys %{$PluginsLoaded{'SectionInitHashArray'}})  {
-                        print HISTORYTMP "${xmlrb}POS_PLUGIN_$_${xmlrs}";$PosInFile{"plugin_$_"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-               }
-                print HISTORYTMP "${xmleb}END_MAP${xmlee}\n";
-        }
-
-        # General
-        if ($sectiontosave eq 'general') {
-                if ($LastUpdate < int("$nowyear$nowmonth$nowday$nowhour$nowmin$nowsec")) { $LastUpdate=int("$nowyear$nowmonth$nowday$nowhour$nowmin$nowsec"); }
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# LastLine    = Date of last record processed - Last record line number in last log - Last record offset in last log - Last record signature value\n";
-                print HISTORYTMP "# FirstTime   = Date of first visit for history file\n";
-                print HISTORYTMP "# LastTime    = Date of last visit for history file\n";
-                print HISTORYTMP "# LastUpdate  = Date of last update - Nb of parsed records - Nb of parsed old records - Nb of parsed new records - Nb of parsed corrupted - Nb of parsed dropped\n";
-                print HISTORYTMP "# TotalVisits = Number of visits\n";
-                print HISTORYTMP "# TotalUnique = Number of unique visitors\n";
-                print HISTORYTMP "# MonthHostsKnown   = Number of hosts known\n";
-                print HISTORYTMP "# MonthHostsUnKnown = Number of hosts unknown\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_GENERAL${xmlbs}8${xmlbe}\n";
-                print HISTORYTMP "${xmlrb}LastLine${xmlrs}".($LastLine>0?$LastLine:$LastTime{$year.$month})." $lastlinenb $lastlineoffset $lastlinechecksum${xmlre}\n";
-                print HISTORYTMP "${xmlrb}FirstTime${xmlrs}$FirstTime{$year.$month}${xmlre}\n";
-                print HISTORYTMP "${xmlrb}LastTime${xmlrs}$LastTime{$year.$month}${xmlre}\n";
-                print HISTORYTMP "${xmlrb}LastUpdate${xmlrs}$LastUpdate $NbOfLinesParsed $NbOfOldLines $NbOfNewLines $NbOfLinesCorrupted $NbOfLinesDropped${xmlre}\n";
-                print HISTORYTMP "${xmlrb}TotalVisits${xmlrs}";$PosInFile{"TotalVisits"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}TotalUnique${xmlrs}";$PosInFile{"TotalUnique"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}MonthHostsKnown${xmlrs}";$PosInFile{"MonthHostsKnown"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmlrb}MonthHostsUnknown${xmlrs}";$PosInFile{"MonthHostsUnknown"}=tell HISTORYTMP;print HISTORYTMP "$spacebar${xmlre}\n";
-                print HISTORYTMP "${xmleb}".(${xmleb}?"\n":"")."END_GENERAL${xmlee}\n";        # END_GENERAL on a new line following xml tag because END_ detection does not work like other sections
-        }
-
-        # When
-        if ($sectiontosave eq 'time') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Hour - Pages - Hits - Bandwidth - Not viewed Pages - Not viewed Hits - Not viewed Bandwidth\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_TIME${xmlbs}24${xmlbe}\n";
-                for (my $ix=0; $ix<=23; $ix++) { print HISTORYTMP "${xmlrb}$ix${xmlrs}".int($_time_p[$ix])."${xmlrs}".int($_time_h[$ix])."${xmlrs}".int($_time_k[$ix])."${xmlrs}".int($_time_nv_p[$ix])."${xmlrs}".int($_time_nv_h[$ix])."${xmlrs}".int($_time_nv_k[$ix])."${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_TIME${xmlee}\n";
-        }
-        if ($sectiontosave eq 'day') {        # This section must be saved after VISITOR section is read
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Date - Pages - Hits - Bandwidth - Visits\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_DAY${xmlbs}".(scalar keys %DayHits)."${xmlbe}\n";
-                my $monthvisits=0;
-                foreach (sort keys %DayHits) {
-                        if ($_ =~ /^$year$month/i) {        # Found a day entry of the good month
-                                my $page=$DayPages{$_}||0;
-                                my $hits=$DayHits{$_}||0;
-                                my $bytes=$DayBytes{$_}||0;
-                                my $visits=$DayVisits{$_}||0;
-                                print HISTORYTMP "${xmlrb}$_${xmlrs}$page${xmlrs}$hits${xmlrs}$bytes${xmlrs}$visits${xmlre}\n";
-                                $monthvisits+=$visits;
-                        }
-                }
-                $MonthVisits{$year.$month}=$monthvisits;
-                print HISTORYTMP "${xmleb}END_DAY${xmlee}\n";
-        }
-
-        # Who
-        if ($sectiontosave eq 'domain') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOf{'Domain'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# Domain - Pages - Hits - Bandwidth\n";
-                print HISTORYTMP "# The $MaxNbOf{'Domain'} first Pages must be first (order not required for others)\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_DOMAIN${xmlbs}".(scalar keys %_domener_h)."${xmlbe}\n";
-                # We save page list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'Domain'},$MinHit{'Domain'},\%_domener_h,\%_domener_p);
-                my %keysinkeylist=();
-                foreach (@keylist) {
-                        $keysinkeylist{$_}=1;
-                        my $page=$_domener_p{$_}||0;
-                        my $bytes=$_domener_k{$_}||0;                # ||0 could be commented to reduce history file size
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}$page${xmlrs}$_domener_h{$_}${xmlrs}$bytes${xmlre}\n";
-                }
-                foreach (keys %_domener_h) {
-                        if ($keysinkeylist{$_}) { next; }
-                        my $page=$_domener_p{$_}||0;
-                        my $bytes=$_domener_k{$_}||0;                # ||0 could be commented to reduce history file size
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}$page${xmlrs}$_domener_h{$_}${xmlrs}$bytes${xmlre}\n";
-                }
-                print HISTORYTMP "${xmleb}END_DOMAIN${xmlee}\n";
-        }
-        if ($sectiontosave eq 'visitor') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOf{'HostsShown'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# Host - Pages - Hits - Bandwidth - Last visit date - [Start date of last visit] - [Last page of last visit]\n";
-                print HISTORYTMP "# [Start date of last visit] and [Last page of last visit] are saved only if session is not finished\n";
-                print HISTORYTMP "# The $MaxNbOf{'HostsShown'} first Hits must be first (order not required for others)\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_VISITOR${xmlbs}".(scalar keys %_host_h)."${xmlbe}\n";
-                my $monthhostsknown=0;
-                # We save page list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'HostsShown'},$MinHit{'Host'},\%_host_h,\%_host_p);
-                my %keysinkeylist=();
-                foreach my $key (@keylist) {
-                        if ($key !~ /^\d+\.\d+\.\d+\.\d+$/ &&  $key !~ /^[0-9A-F]*:/i) { $monthhostsknown++; }
-                        $keysinkeylist{$key}=1;
-                        my $page=$_host_p{$key}||0;
-                        my $bytes=$_host_k{$key}||0;
-                        my $timehostl=$_host_l{$key}||0;
-                        my $timehosts=$_host_s{$key}||0;
-                        my $lastpage=$_host_u{$key}||'';
-                        if ($timehostl && $timehosts && $lastpage) {
-                                if (($timehostl+$VISITTIMEOUT) < $LastLine) {
-                                        # Session for this user is expired
-                                        if ($timehosts) { $_session{GetSessionRange($timehosts,$timehostl)}++; }
-                                        if ($lastpage) { $_url_x{$lastpage}++; }
-                                        delete $_host_s{$key};
-                                        delete $_host_u{$key};
-                                        print HISTORYTMP "${xmlrb}$key${xmlrs}$page${xmlrs}$_host_h{$key}${xmlrs}$bytes${xmlrs}$timehostl${xmlre}\n";
-                                }
-                                else {
-                                        # If this user has started a new session that is not expired
-                                        print HISTORYTMP "${xmlrb}$key${xmlrs}$page${xmlrs}$_host_h{$key}${xmlrs}$bytes${xmlrs}$timehostl${xmlrs}$timehosts${xmlrs}$lastpage${xmlre}\n";
-                                }
-                        }
-                        else {
-                                my $hostl=$timehostl||'';
-                                print HISTORYTMP "${xmlrb}$key${xmlrs}$page${xmlrs}$_host_h{$key}${xmlrs}$bytes${xmlrs}$hostl${xmlre}\n";
-                        }
-                }
-                foreach my $key (keys %_host_h) {
-                        if ($keysinkeylist{$key}) { next; }
-                        if ($key !~ /^\d+\.\d+\.\d+\.\d+$/ && $key !~ /^[0-9A-F]*:/i) { $monthhostsknown++; }
-                        my $page=$_host_p{$key}||0;
-                        my $bytes=$_host_k{$key}||0;
-                        my $timehostl=$_host_l{$key}||0;
-                        my $timehosts=$_host_s{$key}||0;
-                        my $lastpage=$_host_u{$key}||'';
-                        if ($timehostl && $timehosts && $lastpage) {
-                                if (($timehostl+$VISITTIMEOUT) < $LastLine) {
-                                        # Session for this user is expired
-                                        if ($timehosts) { $_session{GetSessionRange($timehosts,$timehostl)}++; }
-                                        if ($lastpage) { $_url_x{$lastpage}++; }
-                                        delete $_host_s{$key};
-                                        delete $_host_u{$key};
-                                        print HISTORYTMP "${xmlrb}$key${xmlrs}$page${xmlrs}$_host_h{$key}${xmlrs}$bytes${xmlrs}$timehostl${xmlre}\n";
-                                }
-                                else {
-                                        # If this user has started a new session that is not expired
-                                        print HISTORYTMP "${xmlrb}$key${xmlrs}$page${xmlrs}$_host_h{$key}${xmlrs}$bytes${xmlrs}$timehostl${xmlrs}$timehosts${xmlrs}$lastpage${xmlre}\n";
-                                }
-                        }
-                        else {
-                                my $hostl=$timehostl||'';
-                                print HISTORYTMP "${xmlrb}$key${xmlrs}$page${xmlrs}$_host_h{$key}${xmlrs}$bytes${xmlrs}$hostl${xmlre}\n";
-                        }
-                }
-                $MonthUnique{$year.$month}=(scalar keys %_host_p);
-                $MonthHostsKnown{$year.$month}=$monthhostsknown;
-                $MonthHostsUnknown{$year.$month}=(scalar keys %_host_h) - $monthhostsknown;
-                print HISTORYTMP "${xmleb}END_VISITOR${xmlee}\n";
-        }
-        if ($sectiontosave eq 'login') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOf{'LoginShown'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# Login - Pages - Hits - Bandwidth - Last visit\n";
-                print HISTORYTMP "# The $MaxNbOf{'LoginShown'} first Pages must be first (order not required for others)\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_LOGIN${xmlbs}".(scalar keys %_login_h)."${xmlbe}\n";
-                # We save login list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'LoginShown'},$MinHit{'Login'},\%_login_h,\%_login_p);
-                my %keysinkeylist=();
-                foreach (@keylist) {
-                        $keysinkeylist{$_}=1;
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_login_p{$_}||0)."${xmlrs}".int($_login_h{$_}||0)."${xmlrs}".int($_login_k{$_}||0)."${xmlrs}".($_login_l{$_}||'')."${xmlre}\n";
-                }
-                foreach (keys %_login_h) {
-                        if ($keysinkeylist{$_}) { next; }
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_login_p{$_}||0)."${xmlrs}".int($_login_h{$_}||0)."${xmlrs}".int($_login_k{$_}||0)."${xmlrs}".($_login_l{$_}||'')."${xmlre}\n";
-                }
-                print HISTORYTMP "${xmleb}END_LOGIN${xmlee}\n";
-        }
-        if ($sectiontosave eq 'robot') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOf{'RobotShown'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# Robot ID - Hits - Bandwidth - Last visit - Hits on robots.txt\n";
-                print HISTORYTMP "# The $MaxNbOf{'RobotShown'} first Hits must be first (order not required for others)\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_ROBOT${xmlbs}".(scalar keys %_robot_h)."${xmlbe}\n";
-                # We save robot list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'RobotShown'},$MinHit{'Robot'},\%_robot_h,\%_robot_h);
-                my %keysinkeylist=();
-                foreach (@keylist) {
-                        $keysinkeylist{$_}=1;
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_robot_h{$_})."${xmlrs}".int($_robot_k{$_})."${xmlrs}$_robot_l{$_}${xmlrs}".int($_robot_r{$_})."${xmlre}\n";
-                }
-                foreach (keys %_robot_h) {
-                        if ($keysinkeylist{$_}) { next; }
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_robot_h{$_})."${xmlrs}".int($_robot_k{$_})."${xmlrs}$_robot_l{$_}${xmlrs}".int($_robot_r{$_})."${xmlre}\n";
-                }
-                print HISTORYTMP "${xmleb}END_ROBOT${xmlee}\n";
-        }
-        if ($sectiontosave eq 'worms') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOf{'WormsShown'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# Worm ID - Hits - Bandwidth - Last visit\n";
-                print HISTORYTMP "# The $MaxNbOf{'WormsShown'} first Hits must be first (order not required for others)\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_WORMS${xmlbs}".(scalar keys %_worm_h)."${xmlbe}\n";
-                # We save worm list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'WormsShown'},$MinHit{'Worm'},\%_worm_h,\%_worm_h);
-                my %keysinkeylist=();
-                foreach (@keylist) {
-                        $keysinkeylist{$_}=1;
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_worm_h{$_})."${xmlrs}".int($_worm_k{$_})."${xmlrs}$_worm_l{$_}${xmlre}\n";
-                }
-                foreach (keys %_worm_h) {
-                        if ($keysinkeylist{$_}) { next; }
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_worm_h{$_})."${xmlrs}".int($_worm_k{$_})."${xmlrs}$_worm_l{$_}${xmlre}\n";
-                }
-                print HISTORYTMP "${xmleb}END_WORMS${xmlee}\n";
-        }
-        if ($sectiontosave eq 'emailsender') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOf{'EMailsShown'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# EMail - Hits - Bandwidth - Last visit\n";
-                print HISTORYTMP "# The $MaxNbOf{'EMailsShown'} first Hits must be first (order not required for others)\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_EMAILSENDER${xmlbs}".(scalar keys %_emails_h)."${xmlbe}\n";
-                # We save sender email list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'EMailsShown'},$MinHit{'EMail'},\%_emails_h,\%_emails_h);
-                my %keysinkeylist=();
-                foreach (@keylist) {
-                        $keysinkeylist{$_}=1;
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_emails_h{$_}||0)."${xmlrs}".int($_emails_k{$_}||0)."${xmlrs}$_emails_l{$_}${xmlre}\n";
-                }
-                foreach (keys %_emails_h) {
-                        if ($keysinkeylist{$_}) { next; }
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_emails_h{$_}||0)."${xmlrs}".int($_emails_k{$_}||0)."${xmlrs}$_emails_l{$_}${xmlre}\n";
-                }
-                print HISTORYTMP "${xmleb}END_EMAILSENDER${xmlee}\n";
-        }
-        if ($sectiontosave eq 'emailreceiver') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOf{'EMailsShown'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# EMail - Hits - Bandwidth - Last visit\n";
-                print HISTORYTMP "# The $MaxNbOf{'EMailsShown'} first hits must be first (order not required for others)\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_EMAILRECEIVER${xmlbs}".(scalar keys %_emailr_h)."${xmlbe}\n";
-                # We save receiver email list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'EMailsShown'},$MinHit{'EMail'},\%_emailr_h,\%_emailr_h);
-                my %keysinkeylist=();
-                foreach (@keylist) {
-                        $keysinkeylist{$_}=1;
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_emailr_h{$_}||0)."${xmlrs}".int($_emailr_k{$_}||0)."${xmlrs}$_emailr_l{$_}${xmlre}\n";
-                }
-                foreach (keys %_emailr_h) {
-                        if ($keysinkeylist{$_}) { next; }
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_emailr_h{$_}||0)."${xmlrs}".int($_emailr_k{$_}||0)."${xmlrs}$_emailr_l{$_}${xmlre}\n";
-                }
-                print HISTORYTMP "${xmleb}END_EMAILRECEIVER${xmlee}\n";
-        }
-
-        # Navigation
-        if ($sectiontosave eq 'session') {        # This section must be saved after VISITOR section is read
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Session range - Number of visits\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_SESSION${xmlbs}".(scalar keys %_session)."${xmlbe}\n";
-                foreach (keys %_session) { print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_session{$_})."${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_SESSION${xmlee}\n";
-        }
-        if ($sectiontosave eq 'sider') {        # This section must be saved after VISITOR section is read
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOf{'PageShown'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# URL - Pages - Bandwidth - Entry - Exit\n";
-                print HISTORYTMP "# The $MaxNbOf{'PageShown'} first Pages must be first (order not required for others)\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_SIDER${xmlbs}".(scalar keys %_url_p)."${xmlbe}\n";
-                # We save page list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'PageShown'},$MinHit{'File'},\%_url_p,\%_url_p);
-                %keysinkeylist=();
-                foreach (@keylist) {
-                        $keysinkeylist{$_}=1;
-                        my $newkey=$_;
-                        $newkey =~ s/([^:])\/\//$1\//g;                # Because some targeted url were taped with 2 / (Ex: //rep//file.htm). We must keep http://rep/file.htm
-                        print HISTORYTMP "${xmlrb}$newkey${xmlrs}".int($_url_p{$_}||0)."${xmlrs}".int($_url_k{$_}||0)."${xmlrs}".int($_url_e{$_}||0)."${xmlrs}".int($_url_x{$_}||0)."${xmlre}\n";
-                }
-                foreach (keys %_url_p) {
-                        if ($keysinkeylist{$_}) { next; }
-                        my $newkey=$_;
-                        $newkey =~ s/([^:])\/\//$1\//g;                # Because some targeted url were taped with 2 / (Ex: //rep//file.htm). We must keep http://rep/file.htm
-                        print HISTORYTMP "${xmlrb}$newkey ".int($_url_p{$_}||0)."${xmlrs}".int($_url_k{$_}||0)."${xmlrs}".int($_url_e{$_}||0)."${xmlrs}".int($_url_x{$_}||0)."${xmlre}\n";
-                }
-                print HISTORYTMP "${xmleb}END_SIDER${xmlee}\n";
-        }
-        if ($sectiontosave eq 'filetypes') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Files type - Hits - Bandwidth - Bandwidth without compression - Bandwidth after compression\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_FILETYPES${xmlbs}".(scalar keys %_filetypes_h)."${xmlbe}\n";
-                foreach (keys %_filetypes_h) {
-                        my $hits=$_filetypes_h{$_}||0;
-                        my $bytes=$_filetypes_k{$_}||0;
-                        my $bytesbefore=$_filetypes_gz_in{$_}||0;
-                        my $bytesafter=$_filetypes_gz_out{$_}||0;
-                        print HISTORYTMP "${xmlrb}$_${xmlrs}$hits${xmlrs}$bytes${xmlrs}$bytesbefore${xmlrs}$bytesafter${xmlre}\n";
-                }
-                print HISTORYTMP "${xmleb}END_FILETYPES${xmlee}\n";
-        }
-        if ($sectiontosave eq 'os') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# OS ID - Hits\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_OS${xmlbs}".(scalar keys %_os_h)."${xmlbe}\n";
-                foreach (keys %_os_h) { print HISTORYTMP "${xmlrb}$_${xmlrs}$_os_h{$_}${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_OS${xmlee}\n";
-        }
-        if ($sectiontosave eq 'browser') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Browser ID - Hits\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_BROWSER${xmlbs}".(scalar keys %_browser_h)."${xmlbe}\n";
-                foreach (keys %_browser_h) { print HISTORYTMP "${xmlrb}$_${xmlrs}$_browser_h{$_}${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_BROWSER${xmlee}\n";
-        }
-        if ($sectiontosave eq 'screensize') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Screen size - Hits\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_SCREENSIZE${xmlbs}".(scalar keys %_screensize_h)."${xmlbe}\n";
-                foreach (keys %_screensize_h) { print HISTORYTMP "${xmlrb}$_${xmlrs}$_screensize_h{$_}${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_SCREENSIZE${xmlee}\n";
-        }
-
-        # Referer
-        if ($sectiontosave eq 'unknownreferer') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Unknown referer OS - Last visit date\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_UNKNOWNREFERER${xmlbs}".(scalar keys %_unknownreferer_l)."${xmlbe}\n";
-                foreach (keys %_unknownreferer_l) { print HISTORYTMP "${xmlrb}$_${xmlrs}$_unknownreferer_l{$_}${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_UNKNOWNREFERER${xmlee}\n";
-        }
-        if ($sectiontosave eq 'unknownrefererbrowser') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Unknown referer Browser - Last visit date\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_UNKNOWNREFERERBROWSER${xmlbs}".(scalar keys %_unknownrefererbrowser_l)."${xmlbe}\n";
-                foreach (keys %_unknownrefererbrowser_l) { print HISTORYTMP "${xmlrb}$_${xmlrs}$_unknownrefererbrowser_l{$_}${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_UNKNOWNREFERERBROWSER${xmlee}\n";
-        }
-        if ($sectiontosave eq 'origin') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Origin - Pages - Hits \n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_ORIGIN${xmlbs}6"."${xmlbe}\n";
-                print HISTORYTMP "${xmlrb}From0${xmlrs}".int($_from_p[0])."${xmlrs}".int($_from_h[0])."${xmlre}\n";
-                print HISTORYTMP "${xmlrb}From1${xmlrs}".int($_from_p[1])."${xmlrs}".int($_from_h[1])."${xmlre}\n";
-                print HISTORYTMP "${xmlrb}From2${xmlrs}".int($_from_p[2])."${xmlrs}".int($_from_h[2])."${xmlre}\n";
-                print HISTORYTMP "${xmlrb}From3${xmlrs}".int($_from_p[3])."${xmlrs}".int($_from_h[3])."${xmlre}\n";
-                print HISTORYTMP "${xmlrb}From4${xmlrs}".int($_from_p[4])."${xmlrs}".int($_from_h[4])."${xmlre}\n";                # Same site
-                print HISTORYTMP "${xmlrb}From5${xmlrs}".int($_from_p[5])."${xmlrs}".int($_from_h[5])."${xmlre}\n";                # News
-                print HISTORYTMP "${xmleb}END_ORIGIN${xmlee}\n";
-        }
-        if ($sectiontosave eq 'sereferrals') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Search engine referers ID - Pages - Hits\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_SEREFERRALS${xmlbs}".(scalar keys %_se_referrals_h)."${xmlbe}\n";
-                foreach (keys %_se_referrals_h) { print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_se_referrals_p{$_}||0)."${xmlrs}$_se_referrals_h{$_}${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_SEREFERRALS${xmlee}\n";
-        }
-        if ($sectiontosave eq 'pagerefs') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOf{'RefererShown'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# External page referers - Pages - Hits\n";
-                print HISTORYTMP "# The $MaxNbOf{'RefererShown'} first Pages must be first (order not required for others)\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_PAGEREFS${xmlbs}".(scalar keys %_pagesrefs_h)."${xmlbe}\n";
-                # We save page list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'RefererShown'},$MinHit{'Refer'},\%_pagesrefs_h,\%_pagesrefs_p);
-                %keysinkeylist=();
-                foreach (@keylist) {
-                        $keysinkeylist{$_}=1;
-                        my $newkey=$_;
-                        $newkey =~ s/^http(s|):\/\/([^\/]+)\/$/http$1:\/\/$2/i;        # Remove / at end of http://.../ but not at end of http://.../dir/
-                        print HISTORYTMP "${xmlrb}".XMLEncodeForHisto($newkey)."${xmlrs}".int($_pagesrefs_p{$_}||0)."${xmlrs}$_pagesrefs_h{$_}${xmlre}\n";
-                }
-                foreach (keys %_pagesrefs_h) {
-                        if ($keysinkeylist{$_}) { next; }
-                        my $newkey=$_;
-                        $newkey =~ s/^http(s|):\/\/([^\/]+)\/$/http$1:\/\/$2/i;        # Remove / at end of http://.../ but not at end of http://.../dir/
-                        print HISTORYTMP "${xmlrb}".XMLEncodeForHisto($newkey)."${xmlrs}".int($_pagesrefs_p{$_}||0)."${xmlrs}$_pagesrefs_h{$_}${xmlre}\n";
-                }
-                print HISTORYTMP "${xmleb}END_PAGEREFS${xmlee}\n";
-        }
-        if ($sectiontosave eq 'searchwords') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOf{'KeyphrasesShown'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# Search keyphrases - Number of search\n";
-                print HISTORYTMP "# The $MaxNbOf{'KeyphrasesShown'} first number of search must be first (order not required for others)\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_SEARCHWORDS${xmlbs}".(scalar keys %_keyphrases)."${xmlbe}\n";
-                # We will also build _keywords
-                %_keywords=();
-                # We save key list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'KeywordsShown'},$MinHit{'Keyword'},\%_keyphrases,\%_keyphrases);
-                %keysinkeylist=();
-                foreach my $key (@keylist) {
-                        $keysinkeylist{$key}=1;
-                        my $keyphrase=$key;
-                        print HISTORYTMP "${xmlrb}$keyphrase${xmlrs}$_keyphrases{$key}${xmlre}\n";
-                        foreach (split(/\+/,$key)) { $_keywords{$_}+=$_keyphrases{$key}; }        # To init %_keywords
-                }
-                foreach my $key (keys %_keyphrases) {
-                        if ($keysinkeylist{$key}) { next; }
-                        my $keyphrase=$key;
-                        print HISTORYTMP "${xmlrb}$keyphrase${xmlrs}$_keyphrases{$key}${xmlre}\n";
-                        foreach (split(/\+/,$key)) { $_keywords{$_}+=$_keyphrases{$key}; }        # To init %_keywords
-                }
-                print HISTORYTMP "${xmleb}END_SEARCHWORDS${xmlee}\n";
-
-                # Now save keywords section
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='keywords'><sortfor>$MaxNbOf{'KeywordsShown'}</sortfor><comment>\n"; }
-                print HISTORYTMP "# Search keywords - Number of search\n";
-                print HISTORYTMP "# The $MaxNbOf{'KeywordsShown'} first number of search must be first (order not required for others)\n";
-                $ValueInFile{"keywords"}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_KEYWORDS${xmlbs}".(scalar keys %_keywords)."${xmlbe}\n";
-                # We save key list in score sorted order to get a -output faster and with less use of memory.
-                &BuildKeyList($MaxNbOf{'KeywordsShown'},$MinHit{'Keyword'},\%_keywords,\%_keywords);
-                %keysinkeylist=();
-                foreach (@keylist) {
-                        $keysinkeylist{$_}=1;
-                        my $keyword=$_;
-                        print HISTORYTMP "${xmlrb}$keyword${xmlrs}$_keywords{$_}${xmlre}\n";
-                }
-                foreach (keys %_keywords) {
-                        if ($keysinkeylist{$_}) { next; }
-                        my $keyword=$_;
-                        print HISTORYTMP "${xmlrb}$keyword${xmlrs}$_keywords{$_}${xmlre}\n";
-                }
-                print HISTORYTMP "${xmleb}END_KEYWORDS${xmlee}\n";
-
-        }
-
-        # Other - Errors
-        if ($sectiontosave eq 'cluster') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Cluster ID - Pages - Hits - Bandwidth\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_CLUSTER${xmlbs}".(scalar keys %_cluster_h)."${xmlbe}\n";
-                foreach (keys %_cluster_h) { print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_cluster_p{$_}||0)."${xmlrs}".int($_cluster_h{$_}||0)."${xmlrs}".int($_cluster_k{$_}||0)."${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_CLUSTER${xmlee}\n";
-        }
-        if ($sectiontosave eq 'misc') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Misc ID - Pages - Hits - Bandwidth\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_MISC${xmlbs}".(scalar keys %MiscListCalc)."${xmlbe}\n";
-                foreach (keys %MiscListCalc) { print HISTORYTMP "${xmlrb}$_${xmlrs}".int($_misc_p{$_}||0)."${xmlrs}".int($_misc_h{$_}||0)."${xmlrs}".int($_misc_k{$_}||0)."${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_MISC${xmlee}\n";
-        }
-        if ($sectiontosave eq 'errors') {
-                print HISTORYTMP "\n";
-                if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                print HISTORYTMP "# Errors - Hits - Bandwidth\n";
-                $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                print HISTORYTMP "${xmlbb}BEGIN_ERRORS${xmlbs}".(scalar keys %_errors_h)."${xmlbe}\n";
-                foreach (keys %_errors_h) { print HISTORYTMP "${xmlrb}$_${xmlrs}$_errors_h{$_}${xmlrs}".int($_errors_k{$_}||0)."${xmlre}\n"; }
-                print HISTORYTMP "${xmleb}END_ERRORS${xmlee}\n";
-        }
-         # Other - Trapped errors
-        foreach my $code (keys %TrapInfosForHTTPErrorCodes) {
-                if ($sectiontosave eq "sider_$code") {
-                        print HISTORYTMP "\n";
-                        if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><comment>\n"; }
-                        print HISTORYTMP "# URL with $code errors - Hits - Last URL referer\n";
-                        $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                        print HISTORYTMP "${xmlbb}BEGIN_SIDER_$code${xmlbs}".(scalar keys %_sider404_h)."${xmlbe}\n";
-                        foreach (keys %_sider404_h) {
-                                my $newkey=$_;
-                                my $newreferer=$_referer404_h{$_}||'';
-                                print HISTORYTMP "${xmlrb}".XMLEncodeForHisto($newkey)."${xmlrs}$_sider404_h{$_}${xmlrs}".XMLEncodeForHisto($newreferer)."${xmlre}\n";
-                        }
-                        print HISTORYTMP "${xmleb}END_SIDER_$code${xmlee}\n";
-                }
-        }
-         # Other - Extra stats sections
-         foreach my $extranum (1..@ExtraName-1) {
-                if ($sectiontosave eq "extra_$extranum") {
-                        print HISTORYTMP "\n";
-                        if ($xml) { print HISTORYTMP "<section id='$sectiontosave'><sortfor>$MaxNbOfExtra[$extranum]</sortfor><comment>\n"; }
-                        print HISTORYTMP "# Extra key - Pages - Hits - Bandwidth - Last access\n";
-                        print HISTORYTMP "# The $MaxNbOfExtra[$extranum] first number of hits are first\n";
-                        $ValueInFile{$sectiontosave}=tell HISTORYTMP;
-                         print HISTORYTMP "${xmlbb}BEGIN_EXTRA_$extranum${xmlbs}".scalar (keys %{'_section_' . $extranum . '_h'})."${xmlbe}\n";
-                         &BuildKeyList($MaxNbOfExtra[$extranum],$MinHitExtra[$extranum],\%{'_section_' . $extranum . '_h'},\%{'_section_' . $extranum . '_p'});
-                         %keysinkeylist=();
-                         foreach (@keylist) {
-                                 $keysinkeylist{$_}=1;
-                                 my $page=${'_section_' . $extranum . '_p'}{$_}||0;
-                                 my $bytes=${'_section_' . $extranum . '_k'}{$_}||0;
-                                 my $lastaccess=${'_section_' . $extranum . '_l'}{$_}||'';
-                                 print HISTORYTMP "${xmlrb}$_${xmlrs}$page${xmlrs}", ${'_section_' . $extranum . '_h'}{$_}, "${xmlrs}$bytes${xmlrs}$lastaccess${xmlre}\n"; next;
-                         }
-                         foreach (keys %{'_section_' . $extranum . '_h'}) {
-                                 if ($keysinkeylist{$_}) { next; }
-                                 my $page=${'_section_' . $extranum . '_p'}{$_}||0;
-                                 my $bytes=${'_section_' . $extranum . '_k'}{$_}||0;
-                                 my $lastaccess=${'_section_' . $extranum . '_l'}{$_}||'';
-                                 print HISTORYTMP "${xmlrb}$_${xmlrs}$page${xmlrs}", ${'_section_' . $extranum . '_h'}{$_}, "${xmlrs}$bytes${xmlrs}$lastaccess${xmlre}\n"; next;
-                         }
-                         print HISTORYTMP "${xmleb}END_EXTRA_$extranum${xmlee}\n";
-                }
-         }
-
-         # Other - Plugin sections
-           if ($AtLeastOneSectionPlugin && $sectiontosave =~ /^plugin_(\w+)$/i)   {
-              my $pluginname=$1;
-              if ($PluginsLoaded{'SectionInitHashArray'}{"$pluginname"})  {
-                       my $function="SectionWriteHistory_$pluginname(\$xml,\$xmlbb,\$xmlbs,\$xmlbe,\$xmlrb,\$xmlrs,\$xmlre,\$xmleb,\$xmlee)";
-                      eval("$function");
-            last;
-        }
-    }
-
-        %keysinkeylist=();
-}
-
-#--------------------------------------------------------------------
-# Function:     Rename all tmp history file into history
-# Parameters:   None
-# Input:        $DirData $PROG $FileSuffix
-#               $KeepBackupOfHistoricFile $SaveDatabaseFilesWithPermissionsForEveryone
-# Output:       None
-# Return:       1 Ok, 0 at least one error (tmp files are removed)
-#--------------------------------------------------------------------
-sub Rename_All_Tmp_History {
-        my $pid=$$;
-        my $renameok=1;
-
-        if ($Debug) { debug("Call to Rename_All_Tmp_History (FileSuffix=$FileSuffix)"); }
-
-        opendir(DIR,"$DirData");
-        my $regfilesuffix=quotemeta($FileSuffix);
-        foreach (grep /^$PROG(\d\d\d\d\d\d)$regfilesuffix\.tmp\.$pid$/, sort readdir DIR) {
-                /^$PROG(\d\d\d\d\d\d)$regfilesuffix\.tmp\.$pid$/;
-                if ($renameok) {        # No rename error yet
-                        if ($Debug) { debug(" Rename new tmp history file $PROG$1$FileSuffix.tmp.$$ into $PROG$1$FileSuffix.txt",1); }
-                        if (-s "$DirData/$PROG$1$FileSuffix.tmp.$$") {                # Rename tmp files if size > 0
-                                if ($KeepBackupOfHistoricFiles) {
-                                        if (-s "$DirData/$PROG$1$FileSuffix.txt") {        # History file already exists. We backup it
-                                                if ($Debug) { debug("  Make a backup of old history file into $PROG$1$FileSuffix.bak before",1); }
-                                                #if (FileCopy("$DirData/$PROG$1$FileSuffix.txt","$DirData/$PROG$1$FileSuffix.bak")) {
-                                                if (rename("$DirData/$PROG$1$FileSuffix.txt", "$DirData/$PROG$1$FileSuffix.bak")==0) {
-                                                        warning("Warning: Failed to make a backup of \"$DirData/$PROG$1$FileSuffix.txt\" into \"$DirData/$PROG$1$FileSuffix.bak\".");
-                                                }
-                                                if ($SaveDatabaseFilesWithPermissionsForEveryone) {
-                                                        chmod 0666,"$DirData/$PROG$1$FileSuffix.bak";
-                                                }
-                                        }
-                                        else {
-                                                if ($Debug) { debug("  No need to backup old history file",1); }
-                                        }
-                                }
-                                if (rename("$DirData/$PROG$1$FileSuffix.tmp.$$", "$DirData/$PROG$1$FileSuffix.txt")==0) {
-                                        $renameok=0;        # At least one error in renaming working files
-                                        # Remove tmp file
-                                        unlink "$DirData/$PROG$1$FileSuffix.tmp.$$";
-                                        warning("Warning: Failed to rename \"$DirData/$PROG$1$FileSuffix.tmp.$$\" into \"$DirData/$PROG$1$FileSuffix.txt\".\nWrite permissions on \"$PROG$1$FileSuffix.txt\" might be wrong".($ENV{'GATEWAY_INTERFACE'}?" for an 'update from web'":"")." or file might be opened.");
-                                        next;
-                                }
-                                if ($SaveDatabaseFilesWithPermissionsForEveryone) {
-                                        chmod 0666,"$DirData/$PROG$1$FileSuffix.txt";
-                                }
-                        }
-                }
-                else {                                # Because of rename error, we remove all remaining tmp files
-                        unlink "$DirData/$PROG$1$FileSuffix.tmp.$$";
-                }
-        }
-        close DIR;
-        return $renameok;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Load DNS cache file entries into a memory hash array
-# Parameters:        Hash array ref to load into,
-#               File name to load,
-#                                File suffix to use
-#               Save to a second plugin file if not up to date
-# Input:                None
-# Output:                Hash array is loaded
-# Return:                1 No DNS Cache file found, 0 OK
-#------------------------------------------------------------------------------
-sub Read_DNS_Cache {
-        my $hashtoload=shift;
-        my $dnscachefile=shift;
-        my $filesuffix=shift;
-        my $savetohash=shift;
-
-        my $dnscacheext='';
-        my $filetoload='';
-        my $timetoload = time();
-
-        if ($Debug) { debug("Call to Read_DNS_Cache [file=\"$dnscachefile\"]"); }
-        if ($dnscachefile =~ s/(\.\w+)$//) { $dnscacheext=$1; }
-        foreach my $dir ("$DirData",".","") {
-                my $searchdir=$dir;
-                if ($searchdir && (!($searchdir =~ /\/$/)) && (!($searchdir =~ /\\$/)) ) { $searchdir .= "/"; }
-                if (-f "${searchdir}$dnscachefile$filesuffix$dnscacheext") { $filetoload="${searchdir}$dnscachefile$filesuffix$dnscacheext"; }
-                # Plugin call : Change filetoload
-                if ($PluginsLoaded{'SearchFile'}{'hashfiles'}) { SearchFile_hashfiles($searchdir,$dnscachefile,$filesuffix,$dnscacheext,$filetoload); }
-                if ($filetoload) { last; }        # We found a file to load
-        }
-
-        if (! $filetoload) {
-                if ($Debug) { debug(" No DNS Cache file found"); }
-                return 1;
-        }
-
-        # Plugin call : Load hashtoload
-        if ($PluginsLoaded{'LoadCache'}{'hashfiles'}) { LoadCache_hashfiles($filetoload,$hashtoload); }
-        if (! scalar keys %$hashtoload) {
-                open(DNSFILE,"$filetoload") or error("Couldn't open DNS Cache file \"$filetoload\": $!");
-                #binmode DNSFILE;                # If we set binmode here, it seems that the load is broken on ActiveState 5.8
-                # This is a fast way to load with regexp
-                %$hashtoload = map(/^(?:\d{0,10}\s+)?([0-9A-F:\.]+)\s+([^\s]+)$/oi,<DNSFILE>);
-                close DNSFILE;
-                if ($savetohash) {
-                        # Plugin call : Save hash file (all records) with test if up to date to save
-                        if ($PluginsLoaded{'SaveHash'}{'hashfiles'}) { SaveHash_hashfiles($filetoload,$hashtoload,1,0); }
-                }
-        }
-        if ($Debug) { debug(" Loaded ".(scalar keys %$hashtoload)." items from $filetoload in ".(time()-$timetoload)." seconds.",1); }
-        return 0;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Save a memory hash array into a DNS cache file
-# Parameters:        Hash array ref to save,
-#               File name to save,
-#                                File suffix to use
-# Input:                None
-# Output:                None
-# Return:                0 OK, 1 Error
-#------------------------------------------------------------------------------
-sub Save_DNS_Cache_File {
-        my $hashtosave=shift;
-        my $dnscachefile=shift;
-        my $filesuffix=shift;
-
-        my $dnscacheext='';
-        my $filetosave='';
-        my $timetosave = time();
-        my $nbofelemtosave=$NBOFLASTUPDATELOOKUPTOSAVE;
-        my $nbofelemsaved=0;
-
-        if ($Debug) { debug("Call to Save_DNS_Cache_File [file=\"$dnscachefile\"]"); }
-        if (! scalar keys %$hashtosave) {
-                if ($Debug) { debug(" No data to save"); }
-                return 0;
-        }
-        if ($dnscachefile =~ s/(\.\w+)$//) { $dnscacheext=$1; }
-        $filetosave="$dnscachefile$filesuffix$dnscacheext";
-        # Plugin call : Save hash file (only $NBOFLASTUPDATELOOKUPTOSAVE records) with no test if up to date
-        if ($PluginsLoaded{'SaveHash'}{'hashfiles'}) { SaveHash_hashfiles($filetosave,$hashtosave,0,$nbofelemtosave,$nbofelemsaved); }
-        if (! $nbofelemsaved) {
-                $filetosave="$dnscachefile$filesuffix$dnscacheext";
-                if ($Debug) { debug(" Save data ".($nbofelemtosave?"($nbofelemtosave records max)":"(all records)")." into file $filetosave"); }
-                if (! open(DNSFILE,">$filetosave")) {
-                        warning("Warning: Failed to open for writing last update DNS Cache file \"$filetosave\": $!");
-                        return 1;
-                }
-                binmode DNSFILE;
-                my $starttimemin=int($starttime/60);
-                foreach my $key (keys %$hashtosave) {
-                        #if ($hashtosave->{$key} ne '*') {
-                                my $ipsolved=$hashtosave->{$key};
-                                print DNSFILE "$starttimemin\t$key\t".($ipsolved eq 'ip'?'*':$ipsolved)."\n";        # Change 'ip' to '*' for backward compatibility
-                                if (++$nbofelemsaved >= $NBOFLASTUPDATELOOKUPTOSAVE) { last; }
-                        #}
-                }
-                close DNSFILE;
-
-                if ($SaveDatabaseFilesWithPermissionsForEveryone) {
-                        chmod 0666,"$filetosave";
-                }
-
-        }
-        if ($Debug) { debug(" Saved $nbofelemsaved items into $filetosave in ".(time()-$timetosave)." seconds.",1); }
-        return 0;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Return time elapsed since last call in miliseconds
-# Parameters:        0|1 (0 reset counter, 1 no reset)
-# Input:                None
-# Output:                None
-# Return:                Number of miliseconds elapsed since last call
-#------------------------------------------------------------------------------
-sub GetDelaySinceStart {
-        if (shift) { $StartSeconds=0; }        # Reset chrono
-        my ($newseconds, $newmicroseconds)=(time(),0);
-        # Plugin call : Return seconds and milliseconds
-        if ($PluginsLoaded{'GetTime'}{'timehires'}) { GetTime_timehires($newseconds, $newmicroseconds); }
-        if (! $StartSeconds) { $StartSeconds=$newseconds; $StartMicroseconds=$newmicroseconds; }
-        return (($newseconds-$StartSeconds)*1000+int(($newmicroseconds-$StartMicroseconds)/1000));
-}
-
-#------------------------------------------------------------------------------
-# Function:     Reset all variables whose name start with _ because a new month start
-# Parameters:        None
-# Input:        $YearRequired All variables whose name start with _
-# Output:       All variables whose name start with _
-# Return:                None
-#------------------------------------------------------------------------------
-sub Init_HashArray {
-        if ($Debug) { debug("Call to Init_HashArray"); }
-        # Reset global hash arrays
-        %FirstTime = %LastTime = ();
-        %MonthHostsKnown = %MonthHostsUnknown = ();
-        %MonthVisits = %MonthUnique = ();
-        %MonthPages = %MonthHits = %MonthBytes = ();
-        %MonthNotViewedPages = %MonthNotViewedHits = %MonthNotViewedBytes = ();
-        %DayPages = %DayHits = %DayBytes = %DayVisits = ();
-        # Reset all arrays with name beginning by _
-        for (my $ix=0; $ix<6; $ix++)  { $_from_p[$ix]=0; $_from_h[$ix]=0; }
-        for (my $ix=0; $ix<24; $ix++) { $_time_h[$ix]=0; $_time_k[$ix]=0; $_time_p[$ix]=0; $_time_nv_h[$ix]=0; $_time_nv_k[$ix]=0; $_time_nv_p[$ix]=0; }
-        # Reset all hash arrays with name beginning by _
-        %_session = %_browser_h = ();
-        %_domener_p = %_domener_h = %_domener_k = %_errors_h = %_errors_k = ();
-        %_filetypes_h = %_filetypes_k = %_filetypes_gz_in = %_filetypes_gz_out = ();
-        %_host_p = %_host_h = %_host_k = %_host_l = %_host_s = %_host_u = ();
-        %_waithost_e = %_waithost_l = %_waithost_s = %_waithost_u = ();
-        %_keyphrases = %_keywords = %_os_h = %_pagesrefs_p = %_pagesrefs_h = %_robot_h = %_robot_k = %_robot_l = %_robot_r = ();
-        %_worm_h = %_worm_k = %_worm_l = %_login_p = %_login_h = %_login_k = %_login_l = %_screensize_h = ();
-         %_misc_p = %_misc_h = %_misc_k = ();
-        %_cluster_p = %_cluster_h = %_cluster_k = ();
-        %_se_referrals_p = %_se_referrals_h = %_sider404_h = %_referer404_h = %_url_p = %_url_k = %_url_e = %_url_x = ();
-        %_unknownreferer_l = %_unknownrefererbrowser_l = ();
-        %_emails_h = %_emails_k = %_emails_l = %_emailr_h = %_emailr_k = %_emailr_l = ();
-         for (my $ix=1; $ix < @ExtraName; $ix++) {
-                 %{'_section_' . $ix . '_h'} = %{'_section_' . $ix . '_o'} = %{'_section_' . $ix . '_k'}        =
-                 %{'_section_' . $ix . '_l'} = %{'_section_' . $ix . '_p'} = ();
-         }
-           foreach my $pluginname (keys %{$PluginsLoaded{'SectionInitHashArray'}})  {
-                   my $function="SectionInitHashArray_$pluginname()";
-                   eval("$function");
-    }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Change word separators of a keyphrase string into space and
-#               remove bad coded chars
-# Parameters:        stringtodecode
-# Input:        None
-# Output:       None
-# Return:                decodedstring
-#------------------------------------------------------------------------------
-sub ChangeWordSeparatorsIntoSpace {
-        $_[0] =~ s/%0[ad]/ /ig;                                # LF CR
-        $_[0] =~ s/%2[02789abc]/ /ig;                # space " ' ( ) * + ,
-        $_[0] =~ s/%3a/ /ig;                                # :
-        $_[0] =~ tr/\+\'\(\)\"\*,:/        /s;        # "&" and "=" must not be in this list
-}
-
-#------------------------------------------------------------------------------
-# Function:                Transforms & into &amp; as needed in XML/XHTML
-# Parameters:        stringtoencode
-# Return:                encodedstring
-#------------------------------------------------------------------------------
-sub XMLEncode {
-        if ($BuildReportFormat ne 'xhtml' && $BuildReportFormat ne 'xml') { return shift; }
-        my $string = shift;
-        $string =~ s/&/&amp;/g;
-        return $string;
-}
-
-#------------------------------------------------------------------------------
-# Function:                Transforms & into &amp; as needed in XML/XHTML
-# Parameters:        stringtoencode
-# Return:                encodedstring
-#------------------------------------------------------------------------------
-sub XMLEncodeForHisto {
-        my $string = shift;
-    $string =~ s/\s/%20/g;
-        if ($BuildHistoryFormat ne 'xml') { return $string; }
-        $string =~ s/&/&amp;/g;
-        $string =~ s/</&lt;/g;
-        $string =~ s/>/&gt;/g;
-        return $string;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Encode a binary string into an ASCII string
-# Parameters:        stringtoencode
-# Return:                encodedstring
-#------------------------------------------------------------------------------
-sub EncodeString {
-        my $string = shift;
-#        use bytes;
-        $string =~ s/([\x2B\x80-\xFF])/sprintf ("%%%2x", ord($1))/eg;
-#        no bytes;
-        $string =~ tr/ /+/s;
-        return $string;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Decode an only text string into a binary string
-# Parameters:   stringtodecode
-# Input:        None
-# Output:       None
-# Return:                decodedstring
-#------------------------------------------------------------------------------
-sub DecodeEncodedString {
-        my $stringtodecode=shift;
-        $stringtodecode =~ tr/\+/ /s;
-        $stringtodecode =~ s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/ieg;
-        return $stringtodecode;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Decode an precompiled regex value to a common regex value
-# Parameters:   compiledregextodecode
-# Input:        None
-# Output:       None
-# Return:                standardregex
-#------------------------------------------------------------------------------
-sub UnCompileRegex {
-        shift =~ /\(\?[-\w]*:(.*)\)/;
-        return $1;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Clean a string of HTML tags to avoid 'Cross Site Scripting attacks'
-# Parameters:   stringtodecode
-# Input:        None
-# Output:       None
-# Return:                decodedstring
-#------------------------------------------------------------------------------
-sub CleanFromCSSA {
-        my $stringtoclean=shift;
-        $stringtoclean =~ s/</&lt;/g;
-        $stringtoclean =~ s/>/&gt;/g;
-        return $stringtoclean;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Clean tags in a string
-# Parameters:   stringtodecode
-# Input:        None
-# Output:       None
-# Return:                decodedstring
-#------------------------------------------------------------------------------
-sub CleanFromTags {
-        my $stringtoclean=shift;
-        $stringtoclean =~ s/$regclean1/ /g;        # Replace <recnb> or </td> with space
-        $stringtoclean =~ s/$regclean2//g;        # Remove <xxx>
-        return $stringtoclean;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Copy one file into another
-# Parameters:   sourcefilename targetfilename
-# Input:        None
-# Output:       None
-# Return:                0 if copy is ok, 1 else
-#------------------------------------------------------------------------------
-sub FileCopy {
-        my $filesource = shift;
-        my $filetarget = shift;
-        if ($Debug) { debug("FileCopy($filesource,$filetarget)",1); }
-        open(FILESOURCE,"$filesource") || return 1;
-        open(FILETARGET,">$filetarget") || return 1;
-        binmode FILESOURCE;
-        binmode FILETARGET;
-        # ...
-        close(FILETARGET);
-        close(FILESOURCE);
-        if ($Debug) { debug(" File copied",1); }
-        return 0;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Show flags for other language translations
-# Parameters:   Current languade id (en, fr, ...)
-# Input:        None
-# Output:       None
-# Return:       None
-#------------------------------------------------------------------------------
-sub Show_Flag_Links {
-        my $CurrentLang = shift;
-
-        # Build flags link
-        my $NewLinkParams=$QueryString;
-        my $NewLinkTarget='';
-        if ($ENV{'GATEWAY_INTERFACE'}) {
-                $NewLinkParams =~ s/(^|&)update(=\w*|$)//i;
-                $NewLinkParams =~ s/(^|&)staticlinks(=\w*|$)//i;
-                $NewLinkParams =~ s/(^|&)framename=[^&]*//i;
-                $NewLinkParams =~ s/(^|&)lang=[^&]*//i;
-                if ($FrameName eq 'mainright') { $NewLinkTarget=" target=\"_parent\""; }
-                $NewLinkParams =~ tr/&/&/s; $NewLinkParams =~ s/^&//; $NewLinkParams =~ s/&$//;
-                if ($NewLinkParams) { $NewLinkParams="${NewLinkParams}&"; }
-        }
-        else {
-                $NewLinkParams=($SiteConfig?"config=$SiteConfig&":"")."year=$YearRequired&month=$MonthRequired&";
-        }
-        if ($FrameName eq 'mainright') { $NewLinkParams.='framename=index&'; }
-
-        foreach my $lng (split(/\s+/,$ShowFlagLinks)) {
-        $lng=$LangBrowserToLangAwstats{$lng}?$LangBrowserToLangAwstats{$lng}:$lng;
-                if ($lng ne $CurrentLang) {
-                        my %lngtitle=('en','English','fr','French','de','German','it','Italian','nl','Dutch','es','Spanish');
-                        my $lngtitle=($lngtitle{$lng}?$lngtitle{$lng}:$lng);
-                        my $flag=($LangAWStatsToFlagAwstats{$lng}?$LangAWStatsToFlagAwstats{$lng}:$lng);
-                        print "<a href=\"".XMLEncode("$AWScript?${NewLinkParams}lang=$lng")."\"$NewLinkTarget><img src=\"$DirIcons\/flags\/$flag.png\" height=\"14\" border=\"0\"".AltTitle("$lngtitle")." /></a>&nbsp;\n";
-                }
-        }
-}
-
-#------------------------------------------------------------------------------
-# Function:                Format value in bytes in a string (Bytes, Kb, Mb, Gb)
-# Parameters:   bytes (integer value or "0.00")
-# Input:        None
-# Output:       None
-# Return:       "x.yz MB" or "x.yy KB" or "x Bytes" or "0"
-#------------------------------------------------------------------------------
-sub Format_Bytes {
-        my $bytes = shift||0;
-        my $fudge = 1;
-        # Do not use exp/log function to calculate 1024power, function make segfault on some unix/perl versions
-        if ($bytes >= ($fudge << 30)) { return sprintf("%.2f", $bytes/1073741824)." $Message[110]"; }
-        if ($bytes >= ($fudge << 20)) { return sprintf("%.2f", $bytes/1048576)." $Message[109]"; }
-        if ($bytes >= ($fudge << 10)) { return sprintf("%.2f", $bytes/1024)." $Message[108]"; }
-        if ($bytes < 0) { $bytes="?"; }
-        return int($bytes).(int($bytes)?" $Message[119]":"");
-}
-
-#------------------------------------------------------------------------------
-# Function:                Return " alt=string title=string"
-# Parameters:   string
-# Input:        None
-# Output:       None
-# Return:       "alt=string title=string"
-#------------------------------------------------------------------------------
-sub AltTitle {
-        my $string = shift||'';
-        return " alt='$string' title='$string'";
-#        return " alt=\"$string\" title=\"$string\"";
-#        return ($BuildReportFormat?"":" alt=\"$string\"")." title=\"$string\"";
-}
-
-#------------------------------------------------------------------------------
-# Function:                Tell if an email is a local or external email
-# Parameters:   email
-# Input:        $SiteDomain(exact string) $HostAliases(quoted regex string)
-# Output:       None
-# Return:       -1, 0 or 1
-#------------------------------------------------------------------------------
-sub IsLocalEMail {
-        my $email=shift||'unknown';
-        if ($email !~ /\@(.*)$/) { return 0; }
-        my $domain=$1;
-        if ($domain =~ /^$SiteDomain$/i) { return 1; }
-        foreach (@HostAliases) { if ($domain =~ /$_/) { return 1; } }
-        return -1;
-}
-
-#------------------------------------------------------------------------------
-# Function:                Format a date according to Message[78] (country date format)
-# Parameters:   String date YYYYMMDDHHMMSS
-#               Option 0=LastUpdate and LastTime date
-#                      1=Arrays date except daymonthvalues
-#                      2=daymonthvalues date (only year month and day)
-# Input:        $Message[78]
-# Output:       None
-# Return:       Date with format defined by Message[78] and option
-#------------------------------------------------------------------------------
-sub Format_Date {
-        my $date=shift;
-        my $option=shift||0;
-        my $year=substr("$date",0,4);
-        my $month=substr("$date",4,2);
-        my $day=substr("$date",6,2);
-        my $hour=substr("$date",8,2);
-        my $min=substr("$date",10,2);
-        my $sec=substr("$date",12,2);
-        my $dateformat=$Message[78];
-        if ($option == 2) {
-                $dateformat =~ s/^[^ymd]+//g;
-                $dateformat =~ s/[^ymd]+$//g;
-        }
-        $dateformat =~ s/yyyy/$year/g;
-        $dateformat =~ s/yy/$year/g;
-        $dateformat =~ s/mmm/$MonthNumLib{$month}/g;
-        $dateformat =~ s/mm/$month/g;
-        $dateformat =~ s/dd/$day/g;
-        $dateformat =~ s/HH/$hour/g;
-        $dateformat =~ s/MM/$min/g;
-        $dateformat =~ s/SS/$sec/g;
-        return "$dateformat";
-}
-
-#------------------------------------------------------------------------------
-# Function:     Return 1 if string contains only ascii chars
-# Parameters:   string
-# Input:        None
-# Output:       None
-# Return:       0 or 1
-#------------------------------------------------------------------------------
-sub IsAscii {
-        my $string=shift;
-        if ($Debug) { debug("IsAscii($string)",5); }
-        if ($string =~ /^[\w\+\-\/\\\.%,;:=\"\'&?!\s]+$/) {
-                if ($Debug) { debug(" Yes",6); }
-                return 1;                # Only alphanum chars (and _) or + - / \ . % , ; : = " ' & ? space \t
-        }
-        if ($Debug) { debug(" No",6); }
-        return 0;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Return the lower value between 2 but exclude value if 0
-# Parameters:   Val1 and Val2
-# Input:        None
-# Output:       None
-# Return:       min(Val1,Val2)
-#------------------------------------------------------------------------------
-sub MinimumButNoZero {
-        my ($val1,$val2)=@_;
-        return ($val1&&($val1<$val2||!$val2)?$val1:$val2);
-}
-
-#------------------------------------------------------------------------------
-# Function:     Add a val from sorting tree
-# Parameters:   keytoadd keyval [firstadd]
-# Input:        None
-# Output:       None
-# Return:       None
-#------------------------------------------------------------------------------
-sub AddInTree {
-        my $keytoadd=shift;
-        my $keyval=shift;
-        my $firstadd=shift||0;
-        if ($firstadd==1) {                        # Val is the first one
-                if ($Debug) { debug("  firstadd",4); }
-                $val{$keyval}=$keytoadd;
-                $lowerval=$keyval;
-                if ($Debug) { debug("  lowerval=$lowerval, nb elem val=".(scalar keys %val).", nb elem egal=".(scalar keys %egal).".",4); }
-                return;
-        }
-        if ($val{$keyval}) {                 # Val is already in tree
-                if ($Debug) { debug("  val is already in tree",4); }
-                $egal{$keytoadd}=$val{$keyval};
-                $val{$keyval}=$keytoadd;
-                if ($Debug) { debug("  lowerval=$lowerval, nb elem val=".(scalar keys %val).", nb elem egal=".(scalar keys %egal).".",4); }
-                return;
-        }
-        if ($keyval <= $lowerval) {        # Val is a new one lower (should happens only when tree is not full)
-                if ($Debug) { debug("  keytoadd val=$keyval is lower or equal to lowerval=$lowerval",4); }
-                $val{$keyval}=$keytoadd;
-                $nextval{$keyval}=$lowerval;
-                $lowerval=$keyval;
-                if ($Debug) { debug("  lowerval=$lowerval, nb elem val=".(scalar keys %val).", nb elem egal=".(scalar keys %egal).".",4); }
-                return;
-        }
-        # Val is a new one higher
-        if ($Debug) { debug("  keytoadd val=$keyval is higher than lowerval=$lowerval",4); }
-        $val{$keyval}=$keytoadd;
-        my $valcursor=$lowerval;        # valcursor is value just before keyval
-        while ($nextval{$valcursor} && ($nextval{$valcursor} < $keyval)) { $valcursor=$nextval{$valcursor}; }
-        if ($nextval{$valcursor}) {        # keyval is between valcursor and nextval{valcursor}
-                $nextval{$keyval}=$nextval{$valcursor};
-        }
-        $nextval{$valcursor}=$keyval;
-        if ($Debug) { debug("  lowerval=$lowerval, nb elem val=".(scalar keys %val).", nb elem egal=".(scalar keys %egal).".",4); }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Remove a val from sorting tree
-# Parameters:   None
-# Input:        $lowerval %val %egal
-# Output:       None
-# Return:       None
-#------------------------------------------------------------------------------
-sub Removelowerval {
-        my $keytoremove=$val{$lowerval};        # This is lower key
-        if ($Debug) { debug("   remove for lowerval=$lowerval: key=$keytoremove",4); }
-        if ($egal{$keytoremove}) {
-                $val{$lowerval}=$egal{$keytoremove};
-                delete $egal{$keytoremove};
-        }
-        else {
-                delete $val{$lowerval};
-                $lowerval=$nextval{$lowerval};        # Set new lowerval
-        }
-        if ($Debug) { debug("   new lower value=$lowerval, val size=".(scalar keys %val).", egal size=".(scalar keys %egal),4); }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Build @keylist array
-# Parameters:   Size max for @keylist array,
-#               Min value in hash for select,
-#               Hash used for select,
-#               Hash used for order
-# Input:        None
-# Output:       None
-# Return:       @keylist response array
-#------------------------------------------------------------------------------
-sub BuildKeyList {
-        my $ArraySize=shift||error("System error. Call to BuildKeyList function with incorrect value for first param","","",1);
-        my $MinValue=shift||error("System error. Call to BuildKeyList function with incorrect value for second param","","",1);
-        my $hashforselect=shift;
-        my $hashfororder=shift;
-        if ($Debug) { debug("  BuildKeyList($ArraySize,$MinValue,$hashforselect with size=".(scalar keys %$hashforselect).",$hashfororder with size=".(scalar keys %$hashfororder).")",3); }
-        delete $hashforselect->{0};delete $hashforselect->{''};                # Those is to protect from infinite loop when hash array has an incorrect null key
-        my $count=0;
-        $lowerval=0;        # Global because used in AddInTree and Removelowerval
-        %val=(); %nextval=(); %egal=();
-        foreach my $key (keys %$hashforselect) {
-                if ($count < $ArraySize) {
-                        if ($hashforselect->{$key} >= $MinValue) {
-                                $count++;
-                                if ($Debug) { debug("  Add in tree entry $count : $key (value=".($hashfororder->{$key}||0).", tree not full)",4); }
-                                AddInTree($key,$hashfororder->{$key}||0,$count);
-                        }
-                        next;
-                }
-                $count++;
-                if (($hashfororder->{$key}||0)<=$lowerval) { next; }
-                if ($Debug) { debug("  Add in tree entry $count : $key (value=".($hashfororder->{$key}||0)." > lowerval=$lowerval)",4); }
-                AddInTree($key,$hashfororder->{$key}||0);
-                if ($Debug) { debug("  Removelower in tree",4); }
-                Removelowerval();
-        }
-
-        # Build key list and sort it
-        if ($Debug) { debug("  Build key list and sort it. lowerval=$lowerval, nb elem val=".(scalar keys %val).", nb elem egal=".(scalar keys %egal).".",3); }
-        my %notsortedkeylist=();
-        foreach my $key (values %val) {        $notsortedkeylist{$key}=1; }
-        foreach my $key (values %egal) { $notsortedkeylist{$key}=1; }
-        @keylist=();
-        @keylist=(sort {($hashfororder->{$b}||0) <=> ($hashfororder->{$a}||0) } keys %notsortedkeylist);
-        if ($Debug) { debug("  BuildKeyList End (keylist size=".(@keylist).")",3); }
-        return;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Lock or unlock update
-# Parameters:   status (1 to lock, 0 to unlock)
-# Input:        $DirLock (if status=0) $PROG $FileSuffix
-# Output:       $DirLock (if status=1)
-# Return:       None
-#------------------------------------------------------------------------------
-sub Lock_Update {
-        my $status=shift;
-        my $lock="$PROG$FileSuffix.lock";
-        if ($status) {
-                # We stop if there is at least one lock file wherever it is
-                foreach my $key ($ENV{"TEMP"},$ENV{"TMP"},"/tmp","/",".") {
-                        my $newkey =$key;
-                        $newkey =~ s/[\\\/]$//;
-                        if (-f "$newkey/$lock") { error("An AWStats update process seems to be already running for this config file. Try later.\nIf this is not true, remove manually lock file '$newkey/$lock'.","","",1); }
-                }
-                # Set lock where we can
-                foreach my $key ($ENV{"TEMP"},$ENV{"TMP"},"/tmp","/",".") {
-                        if (! -d "$key") { next; }
-                        $DirLock=$key;
-                        $DirLock =~ s/[\\\/]$//;
-                        if ($Debug) { debug("Update lock file $DirLock/$lock is set"); }
-                        open(LOCK,">$DirLock/$lock") || error("Failed to create lock file $DirLock/$lock","","",1);
-                        print LOCK "AWStats update started by process $$ at $nowyear-$nowmonth-$nowday $nowhour:$nowmin:$nowsec\n";
-                        close(LOCK);
-                        last;
-                }
-        }
-        else {
-                # Remove lock
-                if ($Debug) { debug("Update lock file $DirLock/$lock is removed"); }
-                unlink("$DirLock/$lock");
-        }
-        return;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Signal handler to call Lock_Update to remove lock file
-# Parameters:   Signal name
-# Input:        None
-# Output:       None
-# Return:       None
-#------------------------------------------------------------------------------
-sub SigHandler {
-        my $signame = shift;
-        print ucfirst($PROG)." process (ID $$) interrupted by signal $signame.\n";
-        &Lock_Update(0);
-        exit 1;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Convert an IPAddress into an integer
-# Parameters:   IPAddress
-# Input:        None
-# Output:       None
-# Return:       Int
-#------------------------------------------------------------------------------
-sub Convert_IP_To_Decimal {
-        my ($IPAddress) = @_;
-        my @ip_seg_arr = split(/\./,$IPAddress);
-        my $decimal_ip_address = 256 * 256 *256 * $ip_seg_arr[0] + 256 * 256 * $ip_seg_arr[1] + 256 * $ip_seg_arr[2] + $ip_seg_arr[3];
-        return($decimal_ip_address);
-}
-
-#------------------------------------------------------------------------------
-# Function:     Test there is at least on value in list not null
-# Parameters:   List of values
-# Input:        None
-# Output:       None
-# Return:       1 There is at least one not null value, 0 else
-#------------------------------------------------------------------------------
-sub AtLeastOneNotNull {
-        if ($Debug) { debug(" Call to AtLeastOneNotNull (".join('-',@_).")",3); }
-        foreach my $val (@_) { if ($val) { return 1; } }
-        return 0;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Return the string to add in html tag to include popup javascript code
-# Parameters:   tooltip number
-# Input:        None
-# Output:       None
-# Return:       string with javascript code
-#------------------------------------------------------------------------------
-sub Tooltip {
-    my $ttnb=shift;
-    return ($TOOLTIPON?" onmouseover=\"ShowTip($ttnb);\" onmouseout=\"HideTip($ttnb);\"":"");
-}
-
-#------------------------------------------------------------------------------
-# Function:     Insert a form filter
-# Parameters:   Name of filter field, default for filter field, default for exclude filter field
-# Input:        $StaticLinks, $QueryString, $SiteConfig, $DirConfig
-# Output:       HTML Form
-# Return:       None
-#------------------------------------------------------------------------------
-sub ShowFormFilter {
-        my $fieldfiltername=shift;
-        my $fieldfilterinvalue=shift;
-        my $fieldfilterexvalue=shift;
-        if (! $StaticLinks) {
-                my $NewLinkParams=${QueryString};
-                $NewLinkParams =~ s/(^|&)update(=\w*|$)//i;
-                $NewLinkParams =~ s/(^|&)output(=\w*|$)//i;
-                $NewLinkParams =~ s/(^|&)staticlinks(=\w*|$)//i;
-                $NewLinkParams =~ tr/&/&/s; $NewLinkParams =~ s/^&//; $NewLinkParams =~ s/&$//;
-                if ($NewLinkParams) { $NewLinkParams="${NewLinkParams}&"; }
-                print "\n<form name=\"FormFilter\" action=\"".XMLEncode("$AWScript?${NewLinkParams}")."\" class=\"aws_border\">\n";
-                print "<table valign=\"middle\" width=\"99%\" border=\"0\" cellspacing=\"0\" cellpadding=\"2\"><tr>\n";
-                print "<td align=\"left\" width=\"50\">$Message[79]&nbsp;:</td>\n";
-                print "<td align=\"left\" width=\"100\"><input type=\"text\" name=\"${fieldfiltername}\" value=\"$fieldfilterinvalue\" class=\"aws_formfield\" /></td>\n";
-                print "<td> &nbsp; </td>";
-                print "<td align=\"left\" width=\"100\">$Message[153]&nbsp;:</td>\n";
-                print "<td align=\"left\" width=\"100\"><input type=\"text\" name=\"${fieldfiltername}ex\" value=\"$fieldfilterexvalue\" class=\"aws_formfield\" /></td>\n";
-                print "<td>";
-                print "<input type=\"hidden\" name=\"output\" value=\"".join(',',keys %HTMLOutput)."\" />\n";
-                if ($SiteConfig) { print "<input type=\"hidden\" name=\"config\" value=\"$SiteConfig\" />\n"; }
-                 if ($DirConfig)  { print "<input type=\"hidden\" name=\"configdir\" value=\"$DirConfig\" />\n"; }
-                if (@OnlyUsers) {
-                     print "<input type=\"hidden\" name=\"onlyusers\" value=\"".join(" ",@OnlyUsers)."\" />\n"; }
-                if (@OnlyLines) { print "<input type=\"hidden\" name=\"onlylines\" value=\"".join(" ",@OnlyLines)."\" />\n"; }
-                if ($SiteDomain) { print "<input type=\"hidden\" name=\"sitedomain\" value=\"$SiteDomain\" />\n"; }
-                if ($QueryString =~ /(^|&)year=(\d\d\d\d)/i) { print "<input type=\"hidden\" name=\"year\" value=\"$2\" />\n"; }
-                if ($QueryString =~ /(^|&)month=(\d\d)/i || $QueryString =~ /(^|&)month=(all)/i) { print "<input type=\"hidden\" name=\"month\" value=\"$2\" />\n"; }
-                if ($QueryString =~ /(^|&)lang=(\w+)/i) { print "<input type=\"hidden\" name=\"lang\" value=\"$2\" />\n"; }
-                if ($QueryString =~ /(^|&)debug=(\d+)/i) { print "<input type=\"hidden\" name=\"debug\" value=\"$2\" />\n"; }
-                if ($QueryString =~ /(^|&)framename=(\w+)/i) { print "<input type=\"hidden\" name=\"framename\" value=\"$2\" />\n"; }
-                print "<input type=\"submit\" value=\" $Message[115] \" class=\"aws_button\" /></td>\n";
-                print "<td> &nbsp; </td>";
-                print "</tr></table>\n";
-                print "</form>\n";
-                print "<br />\n";
-                print "\n";
-        }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Write other user info (with help of plugin)
-# Parameters:   $user
-# Input:        $SiteConfig
-# Output:       URL link
-# Return:       None
-#------------------------------------------------------------------------------
-sub ShowUserInfo {
-        my $user=shift;
-        # Call to plugins' function ShowInfoUser
-        foreach my $pluginname (keys %{$PluginsLoaded{'ShowInfoUser'}})  {
-                my $function="ShowInfoUser_$pluginname('$user')";
-                eval("$function");
-        }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Write other cluster info (with help of plugin)
-# Parameters:   $clusternb
-# Input:        $SiteConfig
-# Output:       Cluster info
-# Return:       None
-#------------------------------------------------------------------------------
-sub ShowClusterInfo {
-        my $user=shift;
-        # Call to plugins' function ShowInfoCluster
-        foreach my $pluginname (keys %{$PluginsLoaded{'ShowInfoCluster'}})  {
-                my $function="ShowInfoCluster_$pluginname('$user')";
-                eval("$function");
-        }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Write other host info (with help of plugin)
-# Parameters:   $host
-# Input:        $LinksToWhoIs $LinksToWhoIsIp
-# Output:       None
-# Return:       None
-#------------------------------------------------------------------------------
-sub ShowHostInfo {
-        my $host=shift;
-        # Call to plugins' function ShowInfoHost
-        foreach my $pluginname (keys %{$PluginsLoaded{'ShowInfoHost'}})  {
-                my $function="ShowInfoHost_$pluginname('$host')";
-                eval("$function");
-        }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Write other url info (with help of plugin)
-# Parameters:   $url
-# Input:        %Aliases $MaxLengthOfShownURL $ShowLinksOnUrl $SiteDomain $UseHTTPSLinkForUrl
-# Output:       URL link
-# Return:       None
-#------------------------------------------------------------------------------
-sub ShowURLInfo {
-        my $url=shift;
-        my $nompage=CleanFromCSSA($url);
-
-        # Call to plugins' function ShowInfoURL
-        foreach my $pluginname (keys %{$PluginsLoaded{'ShowInfoURL'}})  {
-                my $function="ShowInfoURL_$pluginname('$url')";
-                eval("$function");
-        }
-
-        if (length($nompage)>$MaxLengthOfShownURL) { $nompage=substr($nompage,0,$MaxLengthOfShownURL)."..."; }
-        if ($ShowLinksOnUrl) {
-                my $newkey=CleanFromCSSA($url);
-                if ($LogType eq 'W' || $LogType eq 'S') {                # Web or streaming log file
-                        if ($newkey =~ /^http(s|):/i) {        # URL seems to be extracted from a proxy log file
-                                print "<a href=\"".XMLEncode("$newkey")."\" target=\"url\">".XMLEncode($nompage)."</a>";
-                        }
-                        elsif ($newkey =~ /^\//) {                # URL seems to be an url extracted from a web or wap server log file
-                                $newkey =~ s/^\/$SiteDomain//i;
-                                # Define urlprot
-                                my $urlprot='http';
-                                if ($UseHTTPSLinkForUrl && $newkey =~ /^$UseHTTPSLinkForUrl/) { $urlprot='https'; }
-                                print "<a href=\"".XMLEncode("$urlprot://$SiteDomain$newkey\"")." target=\"url\">".XMLEncode($nompage)."</a>";
-                        }
-                        else {
-                                print XMLEncode($nompage);
-                        }
-                }
-                elsif ($LogType eq 'F') {        # Ftp log file
-                        print XMLEncode($nompage);
-                }
-                elsif ($LogType eq 'M') {        # Smtp log file
-                        print XMLEncode($nompage);
-                }
-                else {                                                # Other type log file
-                        print XMLEncode($nompage);
-                }
-        }
-        else {
-                print XMLEncode($nompage);
-        }
-}
-
-#------------------------------------------------------------------------------
-# Function:     Define value for PerlParsingFormat (used for regex log record parsing)
-# Parameters:   -
-# Input:        $LogFormat
-# Output:       @fieldlib
-# Return:       -
-#------------------------------------------------------------------------------
-sub DefinePerlParsingFormat {
-        # Log records examples:
-        # Apache combined: 62.161.78.73 user - [dd/mmm/yyyy:hh:mm:ss +0000] "GET / HTTP/1.1" 200 1234 "http://www.from.com/from.htm" "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)"
-        # Apache combined (408 error): my.domain.com - user [09/Jan/2001:11:38:51 -0600] "OPTIONS /mime-tmp/xxx file.doc HTTP/1.1" 408 - "-" "-"
-        # Apache combined (408 error): 62.161.78.73 user - [dd/mmm/yyyy:hh:mm:ss +0000] "-" 408 - "-" "-"
-        # Apache common_with_mod_gzip_info1: %h %l %u %t \"%r\" %>s %b mod_gzip: %{mod_gzip_compression_ratio}npct.
-        # Apache common_with_mod_gzip_info2: %h %l %u %t \"%r\" %>s %b mod_gzip: %{mod_gzip_result}n In:%{mod_gzip_input_size}n Out:%{mod_gzip_output_size}n:%{mod_gzip_compression_ratio}npct.
-        # Apache deflate: %h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\" (%{ratio}n)
-        # IIS: 2000-07-19 14:14:14 62.161.78.73 - GET / 200 1234 HTTP/1.1 Mozilla/4.0+(compatible;+MSIE+5.01;+Windows+NT+5.0) http://www.from.com/from.htm
-        # WebStar: 05/21/00        00:17:31        OK          200        212.242.30.6        Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)        http://www.cover.dk/        "www.cover.dk"        :Documentation:graphics:starninelogo.white.gif        1133
-        # Squid extended: 12.229.91.170 - - [27/Jun/2002:03:30:50 -0700] "GET http://www.callistocms.com/images/printable.gif HTTP/1.1" 304 354 "-" "Mozilla/5.0 Galeon/1.0.3 (X11; Linux i686; U;) Gecko/0" TCP_REFRESH_HIT:DIRECT
-        if ($Debug) { debug("Call To DefinePerlParsingFormat (LogType='$LogType', LogFormat='$LogFormat')"); }
-        @fieldlib=();
-        if ($LogFormat =~ /^[1-6]$/) {        # Pre-defined log format
-                if ($LogFormat eq '1' || $LogFormat eq '6') {        # Same than "%h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\"".
-                        # %u (user) is "([^\\[]+)" instead of "[^ ]+" because can contain space (Lotus Notes). referer and ua might be "".
-#                        $PerlParsingFormat="([^ ]+) [^ ]+ ([^\\[]+) \\[([^ ]+) [^ ]+\\] \\\"([^ ]+) (.+) [^\\\"]+\\\" ([\\d|-]+) ([\\d|-]+) \\\"(.*?)\\\" \\\"([^\\\"]*)\\\"";
-                        $PerlParsingFormat="([^ ]+) [^ ]+ ([^\\[]+) \\[([^ ]+) [^ ]+\\] \\\"([^ ]+) ([^ ]+) [^\\\"]+\\\" ([\\d|-]+) ([\\d|-]+) \\\"(.*?)\\\" \\\"([^\\\"]*)\\\"";
-                        $pos_host=0;$pos_logname=1;$pos_date=2;$pos_method=3;$pos_url=4;$pos_code=5;$pos_size=6;$pos_referer=7;$pos_agent=8;
-                        @fieldlib=('host','logname','date','method','url','code','size','referer','ua');
-                }
-                elsif ($LogFormat eq '2') {        # Same than "date time c-ip cs-username cs-method cs-uri-stem sc-status sc-bytes cs-version cs(User-Agent) cs(Referer)"
-                        $PerlParsingFormat="(\\S+ \\S+) (\\S+) (\\S+) (\\S+) (\\S+) ([\\d|-]+) ([\\d|-]+) \\S+ (\\S+) (\\S+)";
-                        $pos_date=0;$pos_host=1;$pos_logname=2;$pos_method=3;$pos_url=4;$pos_code=5;$pos_size=6;$pos_agent=7;$pos_referer=8;
-                        @fieldlib=('date','host','logname','method','url','code','size','ua','referer');
-                }
-                elsif ($LogFormat eq '3') {
-                        $PerlParsingFormat="([^\\t]*\\t[^\\t]*)\\t([^\\t]*)\\t([\\d|-]*)\\t([^\\t]*)\\t([^\\t]*)\\t([^\\t]*)\\t[^\\t]*\\t([^\\t]*)\\t([\\d]*)";
-                        $pos_date=0;$pos_method=1;$pos_code=2;$pos_host=3;$pos_agent=4;$pos_referer=5;$pos_url=6;$pos_size=7;
-                        @fieldlib=('date','method','code','host','ua','referer','url','size');
-                }
-                elsif ($LogFormat eq '4') {        # Same than "%h %l %u %t \"%r\" %>s %b"
-                        # %u (user) is "(.+)" instead of "[^ ]+" because can contain space (Lotus Notes).
-                        $PerlParsingFormat="([^ ]+) [^ ]+ (.+) \\[([^ ]+) [^ ]+\\] \\\"([^ ]+) ([^ ]+) [^\\\"]+\\\" ([\\d|-]+) ([\\d|-]+)";
-                        $pos_host=0;$pos_logname=1;$pos_date=2;$pos_method=3;$pos_url=4;$pos_code=5;$pos_size=6;
-                        @fieldlib=('host','logname','date','method','url','code','size');
-                }
-                # This is a deprecated option, will be removed in a next version.
-                elsif ($LogFormat eq '5') {        # Same than "c-ip cs-username c-agent sc-authenticated date time s-svcname s-computername cs-referred r-host r-ip r-port time-taken cs-bytes sc-bytes cs-protocol cs-transport s-operation cs-uri cs-mime-type s-object-source sc-status s-cache-info"
-                        $PerlParsingFormat="([^\\t]*)\\t([^\\t]*)\\t([^\\t]*)\\t[^\\t]*\\t([^\\t]*\\t[^\\t]*)\\t[^\\t]*\\t[^\\t]*\\t([^\\t]*)\\t[^\\t]*\\t[^\\t]*\\t[^\\t]*\\t[^\\t]*\\t[^\\t]*\\t([^\\t]*)\\t[^\\t]*\\t[^\\t]*\\t([^\\t]*)\\t([^\\t]*)\\t[^\\t]*\\t[^\\t]*\\t([^\\t]*)\\t[^\\t]*";
-                        $pos_host=0;$pos_logname=1;$pos_agent=2;$pos_date=3;$pos_referer=4;$pos_size=5;$pos_method=6;$pos_url=7;$pos_code=8;
-                        @fieldlib=('host','logname','ua','date','referer','size','method','url','code');
-                }
-        }
-        else {                                                        # Personalized log format
-                my $LogFormatString=$LogFormat;
-                # Replacement for Notes format string that are not Apache
-                $LogFormatString =~ s/%vh/%virtualname/g;
-                # Replacement for Apache format string
-                $LogFormatString =~ s/%v(\s)/%virtualname$1/g; $LogFormatString =~ s/%v$/%virtualname/g;
-                $LogFormatString =~ s/%h(\s)/%host$1/g; $LogFormatString =~ s/%h$/%host/g;
-                $LogFormatString =~ s/%l(\s)/%other$1/g; $LogFormatString =~ s/%l$/%other/g;
-                $LogFormatString =~ s/\"%u\"/%lognamequot/g;
-                $LogFormatString =~ s/%u(\s)/%logname$1/g; $LogFormatString =~ s/%u$/%logname/g;
-                $LogFormatString =~ s/%t(\s)/%time1$1/g; $LogFormatString =~ s/%t$/%time1/g;
-                $LogFormatString =~ s/\"%r\"/%methodurl/g;
-                $LogFormatString =~ s/%>s/%code/g;
-                $LogFormatString =~ s/%b(\s)/%bytesd$1/g;        $LogFormatString =~ s/%b$/%bytesd/g;
-                $LogFormatString =~ s/\"%{Referer}i\"/%refererquot/g;
-                $LogFormatString =~ s/\"%{User-Agent}i\"/%uaquot/g;
-                $LogFormatString =~ s/%{mod_gzip_input_size}n/%gzipin/g;
-                $LogFormatString =~ s/%{mod_gzip_output_size}n/%gzipout/g;
-                $LogFormatString =~ s/%{mod_gzip_compression_ratio}n/%gzipratio/g;
-                $LogFormatString =~ s/\(%{ratio}n\)/%deflateratio/g;
-                # Replacement for a IIS and ISA format string
-                $LogFormatString =~ s/cs-uri-query/%query/g;        # Must be before cs-uri
-                $LogFormatString =~ s/date\stime/%time2/g;
-                $LogFormatString =~ s/c-ip/%host/g;
-                $LogFormatString =~ s/cs-username/%logname/g;
-                $LogFormatString =~ s/cs-method/%method/g;                # GET, POST, SMTP, RETR STOR
-                $LogFormatString =~ s/cs-uri-stem/%url/g; $LogFormatString =~ s/cs-uri/%url/g;
-                $LogFormatString =~ s/sc-status/%code/g;
-                $LogFormatString =~ s/sc-bytes/%bytesd/g;
-                $LogFormatString =~ s/cs-version/%other/g;                # Protocol
-                $LogFormatString =~ s/cs\(User-Agent\)/%ua/g; $LogFormatString =~ s/c-agent/%ua/g;
-                $LogFormatString =~ s/cs\(Referer\)/%referer/g; $LogFormatString =~ s/cs-referred/%referer/g;
-                $LogFormatString =~ s/sc-authenticated/%other/g;
-                $LogFormatString =~ s/s-svcname/%other/g;
-                $LogFormatString =~ s/s-computername/%other/g;
-                $LogFormatString =~ s/r-host/%virtualname/g;
-                $LogFormatString =~ s/r-ip/%other/g;
-                $LogFormatString =~ s/r-port/%other/g;
-                $LogFormatString =~ s/time-taken/%other/g;
-                $LogFormatString =~ s/cs-bytes/%other/g;
-                $LogFormatString =~ s/cs-protocol/%other/g;
-                $LogFormatString =~ s/cs-transport/%other/g;
-                $LogFormatString =~ s/s-operation/%method/g;        # GET, POST, SMTP, RETR STOR
-                $LogFormatString =~ s/cs-mime-type/%other/g;
-                $LogFormatString =~ s/s-object-source/%other/g;
-                $LogFormatString =~ s/s-cache-info/%other/g;
-                # Added for MMS
-                $LogFormatString =~ s/protocol/%protocolmms/g;        # cs-method might not be available
-                $LogFormatString =~ s/c-status/%codemms/g;                # c-status used when sc-status not available
-                if ($Debug) { debug(" LogFormatString=$LogFormatString"); }
-                # $LogFormatString has an AWStats format, so we can generate PerlParsingFormat variable
-                my $i = 0;
-                my $LogSeparatorWithoutStar=$LogSeparator; $LogSeparatorWithoutStar =~ s/[\*\+]//g;
-                foreach my $f (split(/\s+/,$LogFormatString)) {
-                        # Add separator for next field
-                        if ($PerlParsingFormat) { $PerlParsingFormat.="$LogSeparator"; }
-                        # Special for logname
-                        if ($f =~ /%lognamequot$/) {
-                                $pos_logname = $i; $i++; push @fieldlib, 'logname';
-                                $PerlParsingFormat .= "\\\"?([^\\\"]*)\\\"?";                        # logname can be "value", "" and - in same log (Lotus notes)
-                        }
-                        # Date format
-                        elsif ($f =~ /%time1$/ || $f =~ /%time1b$/) {        # [dd/mmm/yyyy:hh:mm:ss +0000] or [dd/mmm/yyyy:hh:mm:ss],  time1b kept for backward compatibility
-                                $pos_date = $i;        $i++; push @fieldlib, 'date';
-                                $pos_tz = $i; $i++; push @fieldlib, 'tz';
-                                $PerlParsingFormat .= "\\[([^$LogSeparatorWithoutStar]+)( [^$LogSeparatorWithoutStar]+)?\\]";
-                        }
-                        elsif ($f =~ /%time2$/) {        # yyyy-mm-dd hh:mm:ss
-                                $pos_date = $i;        $i++; push @fieldlib, 'date';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+\\s[^$LogSeparatorWithoutStar]+)";        # Need \s for Exchange log files
-                        }
-                        elsif ($f =~ /%time3$/) {        # mon d hh:mm:ss  or  mon dd hh:mm:ss yyyy  or  day mon dd hh:mm:ss  or  day mon dd hh:mm:ss yyyy
-                                $pos_date = $i;        $i++; push @fieldlib, 'date';
-                                $PerlParsingFormat .= "(?:\\w\\w\\w )?(\\w\\w\\w \\s?\\d+ \\d\\d:\\d\\d:\\d\\d(?: \\d\\d\\d\\d)?)";
-                        }
-                        elsif ($f =~ /%time4$/) {        # ddddddddddddd
-                                $pos_date = $i;        $i++; push @fieldlib, 'date';
-                                $PerlParsingFormat .= "(\\d+)";
-                        }
-                        # Special for methodurl and methodurlnoprot
-                        elsif ($f =~ /%methodurl$/) {
-                                $pos_method = $i; $i++; push @fieldlib, 'method';
-                                $pos_url = $i; $i++; push @fieldlib, 'url';
-                                $PerlParsingFormat .= "\\\"([^$LogSeparatorWithoutStar]+) ([^$LogSeparatorWithoutStar]+) [^\\\"]+\\\"";
-                        }
-                        elsif ($f =~ /%methodurlnoprot$/) {
-                                $pos_method = $i; $i++; push @fieldlib, 'method';
-                                $pos_url = $i; $i++; push @fieldlib, 'url';
-                                $PerlParsingFormat .= "\\\"([^$LogSeparatorWithoutStar]+) ([^$LogSeparatorWithoutStar]+)\\\"";
-                        }
-                        # Common command tags
-                        elsif ($f =~ /%virtualname$/) {
-                                $pos_vh = $i; $i++; push @fieldlib, 'vhost';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%host_r$/) {
-                                $pos_hostr = $i; $i++; push @fieldlib, 'hostr';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%host$/) {
-                                $pos_host = $i; $i++; push @fieldlib, 'host';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%logname$/) {
-                                $pos_logname = $i; $i++; push @fieldlib, 'logname';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%method$/) {
-                                $pos_method = $i; $i++; push @fieldlib, 'method';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%url$/) {
-                                $pos_url = $i; $i++; push @fieldlib, 'url';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%query$/) {
-                                $pos_query = $i; $i++; push @fieldlib, 'query';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%code$/) {
-                                $pos_code = $i; $i++; push @fieldlib, 'code';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%bytesd$/) {
-                                $pos_size = $i; $i++; push @fieldlib, 'size';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%refererquot$/) {
-                                $pos_referer = $i; $i++; push @fieldlib, 'referer';
-                                $PerlParsingFormat .= "\\\"([^\\\"]*)\\\"";                 # referer might be ""
-                        }
-                        elsif ($f =~ /%referer$/) {
-                                $pos_referer = $i; $i++; push @fieldlib, 'referer';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%uaquot$/) {
-                                $pos_agent = $i; $i++; push @fieldlib, 'ua';
-                                $PerlParsingFormat .= "\\\"([^\\\"]*)\\\"";                        # ua might be ""
-                        }
-                        elsif ($f =~ /%uabracket$/) {
-                                $pos_agent = $i; $i++; push @fieldlib, 'ua';
-                                $PerlParsingFormat .= "\\\[([^\\\]]*)\\\]";                 # ua might be []
-                        }
-                        elsif ($f =~ /%ua$/) {
-                                $pos_agent = $i; $i++; push @fieldlib, 'ua';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%gzipin$/ ) {
-                                $pos_gzipin=$i;$i++; push @fieldlib, 'gzipin';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%gzipout/ ) {                # Compare $f to /%gzipout/ and not to /%gzipout$/ like other fields
-                                $pos_gzipout=$i;$i++; push @fieldlib, 'gzipout';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%gzipratio/ ) {        # Compare $f to /%gzipratio/ and not to /%gzipratio$/ like other fields
-                                $pos_compratio=$i;$i++; push @fieldlib, 'gzipratio';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%deflateratio/ ) {        # Compare $f to /%deflateratio/ and not to /%deflateratio$/ like other fields
-                                $pos_compratio=$i;$i++; push @fieldlib, 'deflateratio';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%email_r$/) {
-                                $pos_emailr = $i; $i++; push @fieldlib, 'email_r';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%email$/) {
-                                $pos_emails = $i; $i++; push @fieldlib, 'email';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%cluster$/) {
-                                $pos_cluster = $i; $i++; push @fieldlib, 'clusternb';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        elsif ($f =~ /%timetaken$/) {
-                                $pos_timetaken = $i; $i++; push @fieldlib, 'timetaken';
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        # Special for protocolmms, used for method if method not already found (for MMS)
-                        elsif ($f =~ /%protocolmms$/) {
-                                if ($pos_method < 0) {
-                                        $pos_method = $i; $i++; push @fieldlib, 'method';
-                                        $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                                }
-                        }
-                        # Special for codemms, used for code only if code not already found (for MMS)
-                        elsif ($f =~ /%codemms$/) {
-                                if ($pos_code < 0) {
-                                        $pos_code = $i; $i++; push @fieldlib, 'code';
-                                        $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                                }
-                        }
-                        # Extra tag
-                        elsif ($f =~ /%extra(\d+)$/) {
-                                $pos_extra[$1] = $i; $i++; push @fieldlib, "extra$1";
-                                $PerlParsingFormat .= "([^$LogSeparatorWithoutStar]+)";
-                        }
-                        # Other tag
-                        elsif ($f =~ /%other$/) {
-                                $PerlParsingFormat .= "[^$LogSeparatorWithoutStar]+";
-                        }
-                        elsif ($f =~ /%otherquot$/) {
-                                $PerlParsingFormat .= "\\\"[^\\\"]*\\\"";
-                        }
-                        # Unknown tag (no parenthesis)
-                        else {
-                                $PerlParsingFormat .= "[^$LogSeparatorWithoutStar]+";
-                        }
-                }
-                if (! $PerlParsingFormat) { error("No recognized format tag in personalized LogFormat string"); }
-        }
-        if ($pos_host < 0) { error("Your personalized LogFormat does not include all fields required by AWStats (Add \%host in your LogFormat string)."); }
-        if ($pos_date < 0) { error("Your personalized LogFormat does not include all fields required by AWStats (Add \%time1 or \%time2 in your LogFormat string)."); }
-        if ($pos_method < 0) { error("Your personalized LogFormat does not include all fields required by AWStats (Add \%methodurl or \%method in your LogFormat string)."); }
-        if ($pos_url < 0) { error("Your personalized LogFormat does not include all fields required by AWStats (Add \%methodurl or \%url in your LogFormat string)."); }
-        if ($pos_code < 0) { error("Your personalized LogFormat does not include all fields required by AWStats (Add \%code in your LogFormat string)."); }
-        if ($pos_size < 0) { error("Your personalized LogFormat does not include all fields required by AWStats (Add \%bytesd in your LogFormat string)."); }
-        $PerlParsingFormat=qr/^$PerlParsingFormat/;
-        if ($Debug) { debug(" PerlParsingFormat is $PerlParsingFormat"); }
-}
-
-
-sub ShowMenuCateg {
-    my ($categ,$categtext,$categicon,$frame,$targetpage,$linkanchor,$NewLinkParams,$NewLinkTarget)=(shift,shift,shift,shift,shift,shift,shift,shift);
-    $categicon='';  # Comment this to enabme category icons
-    my ($menu,$menulink,$menutext)=(shift,shift,shift);
-    my $linetitle=0;
-        # Call to plugins' function AddHTMLMenuLink
-        foreach my $pluginname (keys %{$PluginsLoaded{'AddHTMLMenuLink'}})  {
-                my $function="AddHTMLMenuLink_$pluginname('$categ',\$menu,\$menulink,\$menutext)";
-                eval("$function");
-        }
-    foreach my $key (%$menu) { if ($menu->{$key}>0) { $linetitle++; last; } }
-        if (! $linetitle) { return; }
-    # At least one entry in menu for this category, we can show categpry and entries
-        my $WIDTHMENU1=($FrameName eq 'mainleft'?$FRAMEWIDTH:150);
-        print "<tr><td class=\"awsm\" width=\"$WIDTHMENU1\"".($frame?"":" valign=\"top\"").">".($categicon?"<img src=\"$DirIcons/other/$categicon\" />&nbsp;":"")."<b>$categtext:</b></td>\n";
-        print ($frame?"</tr>\n":"<td class=\"awsm\">");
-    foreach my $key (sort { $menu->{$a} <=> $menu->{$b} } keys %$menu) {
-        if ($menu->{$key}==0) { next; }
-        if ($menulink->{$key}==1) { print ($frame?"<tr><td class=\"awsm\">":""); print "<a href=\"$linkanchor#$key\"$targetpage>$menutext->{$key}</a>"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                if ($menulink->{$key}==2) { print ($frame?"<tr><td class=\"awsm\"> &nbsp; <img height=\"8\" width=\"9\" src=\"$DirIcons/other/page.png\" alt=\"...\" /> ":""); print "<a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=$key"):"$PROG$StaticLinks.$key.$StaticExt")."\"$NewLinkTarget>$menutext->{$key}</a>\n"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-    }
-        print ($frame?"":"</td></tr>\n");
-}
-
-
-sub ShowEmailSendersChart {
-        my $NewLinkParams=shift;
-        my $NewLinkTarget=shift;
-        my $MaxLengthOfShownEMail=48;
-
-        my $total_p;my $total_h;my $total_k;
-        my $max_p;my $max_h;my $max_k;
-        my $rest_p;my $rest_h;my $rest_k;
-
-        # Show filter form
-        #&ShowFormFilter("emailsfilter",$EmailsFilter);
-        # Show emails list
-
-        print "$Center<a name=\"emailsenders\">&nbsp;</a><br />\n";
-        my $title;
-        if ($HTMLOutput{'allemails'} || $HTMLOutput{'lastemails'}) {
-                $title="$Message[131]";
-        }
-        else {
-                $title="$Message[131] ($Message[77] $MaxNbOf{'EMailsShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=allemails"):"$PROG$StaticLinks.allemails.$StaticExt")."\"$NewLinkTarget>$Message[80]</a>";
-                if ($ShowEMailSenders =~ /L/i) { $title.=" &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=lastemails"):"$PROG$StaticLinks.lastemails.$StaticExt")."\"$NewLinkTarget>$Message[9]</a>"; }
-        }
-        &tab_head("$title",19,0,'emailsenders');
-        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th colspan=\"3\">$Message[131] : ".(scalar keys %_emails_h)."</th>";
-        if ($ShowEMailSenders =~ /H/i) { print "<th rowspan=\"2\" bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th>"; }
-        if ($ShowEMailSenders =~ /B/i) { print "<th rowspan=\"2\" bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th>"; }
-        if ($ShowEMailSenders =~ /M/i) { print "<th rowspan=\"2\" bgcolor=\"#$color_k\" width=\"80\">$Message[106]</th>"; }
-        if ($ShowEMailSenders =~ /L/i) { print "<th rowspan=\"2\" width=\"120\">$Message[9]</th>"; }
-        print "</tr>\n";
-        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th width=\"30%\">Local</th><th>&nbsp;</th><th width=\"30%\">External</th></tr>";
-        $total_p=$total_h=$total_k=0;
-        $max_h=1; foreach (values %_emails_h) { if ($_ > $max_h) { $max_h = $_; } }
-        $max_k=1; foreach (values %_emails_k) { if ($_ > $max_k) { $max_k = $_; } }
-        my $count=0;
-        if (! $HTMLOutput{'allemails'} && ! $HTMLOutput{'lastemails'}) { &BuildKeyList($MaxNbOf{'EMailsShown'},$MinHit{'EMail'},\%_emails_h,\%_emails_h); }
-        if ($HTMLOutput{'allemails'})  { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'EMail'},\%_emails_h,\%_emails_h); }
-        if ($HTMLOutput{'lastemails'}) { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'EMail'},\%_emails_h,\%_emails_l); }
-        foreach my $key (@keylist) {
-                my $newkey=$key;
-                if (length($key)>$MaxLengthOfShownEMail) { $newkey=substr($key,0,$MaxLengthOfShownEMail)."..."; }
-                my $bredde_h=0;my $bredde_k=0;
-                if ($max_h > 0) { $bredde_h=int($BarWidth*$_emails_h{$key}/$max_h)+1; }
-                if ($max_k > 0) { $bredde_k=int($BarWidth*$_emails_k{$key}/$max_k)+1; }
-                print "<tr>";
-                my $direction=IsLocalEMail($key);
-                if ($direction > 0) { print "<td class=\"aws\">$newkey</td><td>-></td><td>&nbsp;</td>"; }
-                if ($direction == 0) { print "<td colspan=\"3\"><span style=\"color: #$color_other\">$newkey</span></td>"; }
-                if ($direction < 0) { print "<td class=\"aws\">&nbsp;</td><td><-</td><td>$newkey</td>"; }
-                if ($ShowEMailSenders =~ /H/i) { print "<td>$_emails_h{$key}</td>"; }
-                if ($ShowEMailSenders =~ /B/i) { print "<td>".Format_Bytes($_emails_k{$key})."</td>"; }
-                if ($ShowEMailSenders =~ /M/i) { print "<td>".Format_Bytes($_emails_k{$key}/($_emails_h{$key}||1))."</td>"; }
-                if ($ShowEMailSenders =~ /L/i) { print "<td>".($_emails_l{$key}?Format_Date($_emails_l{$key},1):'-')."</td>"; }
-                print "</tr>\n";
-                #$total_p += $_emails_p{$key};
-                $total_h += $_emails_h{$key};
-                $total_k += $_emails_k{$key};
-                $count++;
-        }
-        $rest_p=0;        # $rest_p=$TotalPages-$total_p;
-        $rest_h=$TotalHits-$total_h;
-        $rest_k=$TotalBytes-$total_k;
-        if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) {        # All other sender emails
-                print "<tr><td colspan=\"3\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                if ($ShowEMailSenders =~ /H/i) { print "<td>$rest_h</td>"; }
-                if ($ShowEMailSenders =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
-                if ($ShowEMailSenders =~ /M/i) { print "<td>".Format_Bytes($rest_k/($rest_h||1))."</td>"; }
-                if ($ShowEMailSenders =~ /L/i) { print "<td>&nbsp;</td>"; }
-                print "</tr>\n";
-        }
-        &tab_end();
-}
-
-
-sub ShowEmailReceiversChart {
-        my $NewLinkParams=shift;
-        my $NewLinkTarget=shift;
-        my $MaxLengthOfShownEMail=48;
-
-        my $total_p;my $total_h;my $total_k;
-        my $max_p;my $max_h;my $max_k;
-        my $rest_p;my $rest_h;my $rest_k;
-
-        # Show filter form
-        #&ShowFormFilter("emailrfilter",$EmailrFilter);
-        # Show emails list
-
-        print "$Center<a name=\"emailreceivers\">&nbsp;</a><br />\n";
-        my $title;
-        if ($HTMLOutput{'allemailr'} || $HTMLOutput{'lastemailr'}) {
-                $title="$Message[132]";
-        }
-        else {
-                $title="$Message[132] ($Message[77] $MaxNbOf{'EMailsShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=allemailr"):"$PROG$StaticLinks.allemailr.$StaticExt")."\"$NewLinkTarget>$Message[80]</a>";
-                if ($ShowEMailReceivers =~ /L/i) { $title.=" &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=lastemailr"):"$PROG$StaticLinks.lastemailr.$StaticExt")."\"$NewLinkTarget>$Message[9]</a>"; }
-        }
-        &tab_head("$title",19,0,'emailreceivers');
-        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th colspan=\"3\">$Message[132] : ".(scalar keys %_emailr_h)."</th>";
-        if ($ShowEMailReceivers =~ /H/i) { print "<th rowspan=\"2\" bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th>"; }
-        if ($ShowEMailReceivers =~ /B/i) { print "<th rowspan=\"2\" bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th>"; }
-        if ($ShowEMailReceivers =~ /M/i) { print "<th rowspan=\"2\" bgcolor=\"#$color_k\" width=\"80\">$Message[106]</th>"; }
-        if ($ShowEMailReceivers =~ /L/i) { print "<th rowspan=\"2\" width=\"120\">$Message[9]</th>"; }
-        print "</tr>\n";
-        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th width=\"30%\">Local</th><th>&nbsp;</th><th width=\"30%\">External</th></tr>";
-        $total_p=$total_h=$total_k=0;
-        $max_h=1; foreach (values %_emailr_h) { if ($_ > $max_h) { $max_h = $_; } }
-        $max_k=1; foreach (values %_emailr_k) { if ($_ > $max_k) { $max_k = $_; } }
-        my $count=0;
-        if (! $HTMLOutput{'allemailr'} && ! $HTMLOutput{'lastemailr'}) { &BuildKeyList($MaxNbOf{'EMailsShown'},$MinHit{'EMail'},\%_emailr_h,\%_emailr_h); }
-        if ($HTMLOutput{'allemailr'})  { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'EMail'},\%_emailr_h,\%_emailr_h); }
-        if ($HTMLOutput{'lastemailr'}) { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'EMail'},\%_emailr_h,\%_emailr_l); }
-        foreach my $key (@keylist) {
-                my $newkey=$key;
-                if (length($key)>$MaxLengthOfShownEMail) { $newkey=substr($key,0,$MaxLengthOfShownEMail)."..."; }
-                my $bredde_h=0;my $bredde_k=0;
-                if ($max_h > 0) { $bredde_h=int($BarWidth*$_emailr_h{$key}/$max_h)+1; }
-                if ($max_k > 0) { $bredde_k=int($BarWidth*$_emailr_k{$key}/$max_k)+1; }
-                print "<tr>";
-                my $direction=IsLocalEMail($key);
-                if ($direction > 0) { print "<td class=\"aws\">$newkey</td><td><-</td><td>&nbsp;</td>"; }
-                if ($direction == 0) { print "<td colspan=\"3\"><span style=\"color: #$color_other\">$newkey</span></td>"; }
-                if ($direction < 0) { print "<td class=\"aws\">&nbsp;</td><td>-></td><td>$newkey</td>"; }
-                if ($ShowEMailReceivers =~ /H/i) { print "<td>$_emailr_h{$key}</td>"; }
-                if ($ShowEMailReceivers =~ /B/i) { print "<td>".Format_Bytes($_emailr_k{$key})."</td>"; }
-                if ($ShowEMailReceivers =~ /M/i) { print "<td>".Format_Bytes($_emailr_k{$key}/($_emailr_h{$key}||1))."</td>"; }
-                if ($ShowEMailReceivers =~ /L/i) { print "<td>".($_emailr_l{$key}?Format_Date($_emailr_l{$key},1):'-')."</td>"; }
-                print "</tr>\n";
-                #$total_p += $_emailr_p{$key};
-                $total_h += $_emailr_h{$key};
-                $total_k += $_emailr_k{$key};
-                $count++;
-        }
-        $rest_p=0;        # $rest_p=$TotalPages-$total_p;
-        $rest_h=$TotalHits-$total_h;
-        $rest_k=$TotalBytes-$total_k;
-        if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) {        # All other receiver emails
-                print "<tr><td colspan=\"3\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                if ($ShowEMailReceivers =~ /H/i) { print "<td>$rest_h</td>"; }
-                if ($ShowEMailReceivers =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
-                if ($ShowEMailReceivers =~ /M/i) { print "<td>".Format_Bytes($rest_k/($rest_h||1))."</td>"; }
-                if ($ShowEMailReceivers =~ /L/i) { print "<td>&nbsp;</td>"; }
-                print "</tr>\n";
-        }
-        &tab_end();
-}
-
-#------------------------------------------------------------------------------
-# Function:     Calculate hash value of a string
-# Parameters:   $str
-# Input:        None
-# Output:       None
-# Return:       Hash value
-# Author:       E-Lane
-#------------------------------------------------------------------------------
-
-sub function_hash {
-        my $str=shift();
-        my $c=substr $str,0 ,1;
-        my $i=1;
-        my $sum=0;
-        while ($c ne '') {
-                $sum+=ord($c);
-                $c=substr $str,$i,1;
-                $i++;
-        }
-        return $sum;
-}
-
-#------------------------------------------------------------------------------
-# Function:     Change all values %XX to its ASCII char
-# Parameters:   $str
-# Input:        None
-# Output:       None
-# Return:       String with ASCII chars
-# Author:       E-Lane
-#------------------------------------------------------------------------------
-
-sub ChangeToASCII {
-    my $stringtochange=shift;
-    $stringtochange =~ s/\%(..)/pack("c",hex($1))/ge;
-    $stringtochange =~ s/\+/ /g;
-    $stringtochange =~ s/\s+/ /g;
-    return $stringtochange;
-}
-
-
-#------------------------------------------------------------------------------
-# MAIN
-#------------------------------------------------------------------------------
-($DIR=$0) =~ s/([^\/\\]+)$//; ($PROG=$1) =~ s/\.([^\.]*)$//; $Extension=$1;
-$DIR||='.'; $DIR =~ s/([^\/\\])[\\\/]+$/$1/;
-
-$starttime=time();
-
-# Get current time (time when AWStats was started)
-($nowsec,$nowmin,$nowhour,$nowday,$nowmonth,$nowyear,$nowwday,$nowyday) = localtime($starttime);
-$nowweekofmonth=int($nowday/7);
-$nowweekofyear=int(($nowyday-1+6-($nowwday==0?6:$nowwday-1))/7)+1; if ($nowweekofyear > 52) { $nowweekofyear = 1; }
-$nowdaymod=$nowday%7;
-$nowwday++;
-$nowns=Time::Local::timegm(0,0,0,$nowday,$nowmonth,$nowyear);
-if ($nowdaymod <= $nowwday) { if (($nowwday != 7) || ($nowdaymod != 0)) { $nowweekofmonth=$nowweekofmonth+1; } }
-if ($nowdaymod >  $nowwday) { $nowweekofmonth=$nowweekofmonth+2; }
-# Change format of time variables
-$nowweekofmonth="0$nowweekofmonth";
-if ($nowweekofyear < 10) { $nowweekofyear = "0$nowweekofyear"; }
-if ($nowyear < 100) { $nowyear+=2000; } else { $nowyear+=1900; }
-$nowsmallyear=$nowyear;$nowsmallyear =~ s/^..//;
-if (++$nowmonth < 10) { $nowmonth = "0$nowmonth"; }
-if ($nowday < 10) { $nowday = "0$nowday"; }
-if ($nowhour < 10) { $nowhour = "0$nowhour"; }
-if ($nowmin < 10) { $nowmin = "0$nowmin"; }
-if ($nowsec < 10) { $nowsec = "0$nowsec"; }
-$nowtime=int($nowyear.$nowmonth.$nowday.$nowhour.$nowmin.$nowsec);
-# Get tomorrow time (will be used to discard some record with corrupted date (future date))
-my ($tomorrowsec,$tomorrowmin,$tomorrowhour,$tomorrowday,$tomorrowmonth,$tomorrowyear) = localtime($starttime+86400);
-if ($tomorrowyear < 100) { $tomorrowyear+=2000; } else { $tomorrowyear+=1900; }
-if (++$tomorrowmonth < 10) { $tomorrowmonth = "0$tomorrowmonth"; }
-if ($tomorrowday < 10) { $tomorrowday = "0$tomorrowday"; }
-if ($tomorrowhour < 10) { $tomorrowhour = "0$tomorrowhour"; }
-if ($tomorrowmin < 10) { $tomorrowmin = "0$tomorrowmin"; }
-if ($tomorrowsec < 10) { $tomorrowsec = "0$tomorrowsec"; }
-$tomorrowtime=int($tomorrowyear.$tomorrowmonth.$tomorrowday.$tomorrowhour.$tomorrowmin.$tomorrowsec);
-
-# Allowed option
-#Esto no srive para nada, porque no lo vuelven a usar, pero quedan registradas las opciones posibles.
-my @AllowedCLIArgs=('migrate','config',
-'logfile','output','runascli','update',
-'staticlinks','staticlinksext','noloadplugin','loadplugin',
-'hostfilter','urlfilter','refererpagesfilter',
-'lang','month','year','framename','debug',
-'showsteps','showdropped','showcorrupted','showunknownorigin',
-'limitflush','confdir','updatefor',
-'hostfilter','hostfilterex','urlfilter','urlfilterex','refererpagesfilter','refererpagesfilterex',
-'pluginmode','filterrawlog','onlylines','onlyusers','onlyfiles','sitedomain');
-
-#Comprobamos que el script se ejecuta desde la pagina lanza de dotlrn
-
-my $UrlOrigen = $ENV{'HTTP_REFERER'};
-my $PermissionError=0;
-if ($UrlOrigen) {
-     my $ThisUrl = ($WrapperScript?"$WrapperScript":"$DirCgi$PROG.$Extension");
-     my @AllowedLastUrls=('elane', "$ThisUrl");
-
-     open AllowedUrlsFile, "../../../config/AllowedUrls.conf";
-     while (<AllowedUrlsFile>) {
-        chomp $_; s/\r//;
-        push @AllowedLastUrls, $_;
-        open FILE, ">>salida.txt";
-        print FILE "Leido: $_\n";
-        close FILE;
-     }
-     close AllowedUrlsFile;
-
-
-     my $CompareString = '';
-
-     foreach (@AllowedLastUrls) {
-         $CompareString = qr/.*$_.*/i;
-         if ($UrlOrigen =~ /$CompareString/ ) {
-              $PermissionError=1;
-              last;
-         }
-     }
-}
-
-if (not $PermissionError) {
-    #Codigo de error
-    print "Location: ../../../user-tracking/\n\n";
-    exit;
-}
-
-
-
-$QueryString='';
-# AWStats use GATEWAY_INTERFACE to known if ran as CLI or CGI. AWSTATS_DEL_GATEWAY_INTERFACE can
-# be set to force AWStats to be ran as CLI even from a web page.
-if ($ENV{'AWSTATS_DEL_GATEWAY_INTERFACE'}) { $ENV{'GATEWAY_INTERFACE'}=''; }
-if ($ENV{'GATEWAY_INTERFACE'}) {        # Run from a browser as CGI
-        # Prepare QueryString
-        if ($ENV{'CONTENT_LENGTH'}) {
-                binmode STDIN;
-                read(STDIN, $QueryString, $ENV{'CONTENT_LENGTH'});
-        }
-        if ($ENV{'QUERY_STRING'}) { $QueryString = $ENV{'QUERY_STRING'}; }
-
-        $QueryString = CleanFromCSSA($QueryString);
-
-        #Modified by E-Lane
-        $QueryString = ChangeToASCII($QueryString);
-
-        # No update but report by default when run from a browser
-        $UpdateStats=($QueryString=~/update=1/i?1:0);
-
-        if ($QueryString =~ /config=([^&]+)/i)                                { $SiteConfig=&DecodeEncodedString("$1"); }
-        if ($QueryString =~ /logfile=([^&]+)/i)                                { $LogFile=&DecodeEncodedString("$1"); }
-        if ($QueryString =~ /diricons=([^&]+)/i)                        { $DirIcons=&DecodeEncodedString("$1"); }
-        if ($QueryString =~ /pluginmode=([^&]+)/i)                        { $PluginMode=&DecodeEncodedString("$1"); }
-        if ($QueryString =~ /configdir=([^&]+)/i)                        { $DirConfig=&DecodeEncodedString("$1"); }
-        # All filters
-        if ($QueryString =~ /hostfilter=([^&]+)/i)                        { $FilterIn{'host'}=&DecodeEncodedString("$1"); }                        # Filter on host list can also be defined with hostfilter=filter
-        if ($QueryString =~ /hostfilterex=([^&]+)/i)                { $FilterEx{'host'}=&DecodeEncodedString("$1"); }                        #
-        if ($QueryString =~ /urlfilter=([^&]+)/i)                        { $FilterIn{'url'}=&DecodeEncodedString("$1"); }                        # Filter on URL list can also be defined with urlfilter=filter
-        if ($QueryString =~ /urlfilterex=([^&]+)/i)                        { $FilterEx{'url'}=&DecodeEncodedString("$1"); }                        #
-        if ($QueryString =~ /refererpagesfilter=([^&]+)/i)        { $FilterIn{'refererpages'}=&DecodeEncodedString("$1"); }        # Filter on referer list can also be defined with refererpagesfilter=filter
-        if ($QueryString =~ /refererpagesfilterex=([^&]+)/i) { $FilterEx{'refererpages'}=&DecodeEncodedString("$1"); }        #
-        # All output
-        if ($QueryString =~ /output=allhosts:([^&]+)/i)                { $FilterIn{'host'}=&DecodeEncodedString("$1"); }                        # Filter on host list can be defined with output=allhosts:filter to reduce number of lines read and showed
-        if ($QueryString =~ /output=lasthosts:([^&]+)/i)        { $FilterIn{'host'}=&DecodeEncodedString("$1"); }                        # Filter on host list can be defined with output=lasthosts:filter to reduce number of lines read and showed
-        if ($QueryString =~ /output=urldetail:([^&]+)/i)        { $FilterIn{'url'}=&DecodeEncodedString("$1"); }                        # Filter on URL list can be defined with output=urldetail:filter to reduce number of lines read and showed
-        if ($QueryString =~ /output=refererpages:([^&]+)/i)        { $FilterIn{'refererpages'}=&DecodeEncodedString("$1"); }        # Filter on referer list can be defined with output=refererpages:filter to reduce number of lines read and showed
-
-        #All new Paramas OnlyXXX and sitedomain defined by E-Lane
-        if ($QueryString =~ /onlylines=([^&]+)/i) {
-             foreach my $elem (split(/\s+/,$1)) {
-                     if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1;  $FileSuffix.="ol".function_hash($elem); }
-                     else { $FileSuffix.="ol$elem"; $elem='^'.quotemeta($elem).'$'; }
-                     if ($elem) { push @OnlyLines, qr/$elem/i; }
-             }
-        }
-        if ($QueryString =~ /onlyusers=([^&]+)/i) {
-             foreach my $elem (split(/\s+/,$1)) {
-                     if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; $FileSuffix.="ou".function_hash($elem); }
-                     else { $FileSuffix.="ou$elem"; $elem='^'.quotemeta($elem).'$'; }
-                     if ($elem) { push @OnlyUsers, qr/$elem/i; }
-             }
-        }
-        if ($QueryString =~ /onlyfiles=([^&]+)/i) {
-             foreach my $elem (split(/\s+/,$1)) {
-                     if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1;  $FileSuffix.="of".function_hash($elem); }
-                     else { $FileSuffix.="of$elem"; $elem='^'.quotemeta($elem).'$'; }
-                     if ($elem) { push @OnlyFiles, qr/$elem/i; }
-             }
- #            next;
-        }
-        if ($QueryString =~ /sitedomain=([^&]+)/i) {
-             $SiteDomain=&DecodeEncodedString("$1");
-        }
-
-        # If migrate
-        if ($QueryString =~ /(^|-|&)migrate=([^&]+)/i)        {
-                $MigrateStats=&DecodeEncodedString("$2");
-                $MigrateStats =~ /^(.*)$PROG(\d{0,2})(\d\d)(\d\d\d\d)(.*)\.txt$/;
-                $SiteConfig=$5?$5:'xxx'; $SiteConfig =~ s/^\.//;                # SiteConfig is used to find config file
-        }
-}
-else {                                                                # Run from command line
-        # Prepare QueryString
-        for (0..@ARGV-1) {
-                # If migrate
-                if ($ARGV[$_] =~ /(^|-|&)migrate=([^&]+)/i) {
-                        $MigrateStats="$2";
-                        $MigrateStats =~ /^(.*)$PROG(\d{0,2})(\d\d)(\d\d\d\d)(.*)\.txt$/;
-                        $SiteConfig=$5?$5:'xxx'; $SiteConfig =~ s/^\.//;        # SiteConfig is used to find config file
-                        next;
-                }
-                # TODO Check if ARGV is in @AllowedArg
-                if ($QueryString) { $QueryString .= '&'; }
-                my $NewLinkParams=$ARGV[$_]; $NewLinkParams =~ s/^-+//;
-                $QueryString .= "$NewLinkParams";
-        }
-
-        $QueryString = CleanFromCSSA($QueryString);
-        #Modified by E-Lane
-        $QueryString = ChangeToASCII($QueryString);
-        # Update with no report by default when run from command line
-        $UpdateStats=1;
-
-        if ($QueryString =~ /config=([^&]+)/i)                                { $SiteConfig="$1"; }
-        if ($QueryString =~ /logfile=([^&]+)/i)                                { $LogFile="$1"; }
-        if ($QueryString =~ /diricons=([^&]+)/i)                        { $DirIcons="$1"; }
-        if ($QueryString =~ /pluginmode=([^&]+)/i)                        { $PluginMode="$1"; }
-        if ($QueryString =~ /configdir=([^&]+)/i)                        { $DirConfig="$1"; }
-        # All filters
-        if ($QueryString =~ /hostfilter=([^&]+)/i)                        { $FilterIn{'host'}="$1"; }                        # Filter on host list can also be defined with hostfilter=filter
-        if ($QueryString =~ /hostfilterex=([^&]+)/i)                { $FilterEx{'host'}="$1"; }                        #
-        if ($QueryString =~ /urlfilter=([^&]+)/i)                        { $FilterIn{'url'}="$1"; }                        # Filter on URL list can also be defined with urlfilter=filter
-        if ($QueryString =~ /urlfilterex=([^&]+)/i)                        { $FilterEx{'url'}="$1"; }                        #
-        if ($QueryString =~ /refererpagesfilter=([^&]+)/i)        { $FilterIn{'refererpages'}="$1"; }        # Filter on referer list can also be defined with refererpagesfilter=filter
-        if ($QueryString =~ /refererpagesfilterex=([^&]+)/i) { $FilterEx{'refererpages'}="$1"; } #
-        # All output
-        if ($QueryString =~ /output=allhosts:([^&]+)/i)                { $FilterIn{'host'}="$1"; }                        # Filter on host list can be defined with output=allhosts:filter to reduce number of lines read and showed
-        if ($QueryString =~ /output=lasthosts:([^&]+)/i)        { $FilterIn{'host'}="$1"; }                        # Filter on host list can be defined with output=lasthosts:filter to reduce number of lines read and showed
-        if ($QueryString =~ /output=urldetail:([^&]+)/i)        { $FilterIn{'url'}="$1"; }                        # Filter on URL list can be defined with output=urldetail:filter to reduce number of lines read and showed
-        if ($QueryString =~ /output=refererpages:([^&]+)/i)        { $FilterIn{'refererpages'}="$1"; }        # Filter on referer list can be defined with output=refererpages:filter to reduce number of lines read and showed
-
-        #All new paramas OnlyXXX and sitedomain defined by E-Lane
-        if ($QueryString =~ /onlylines=([^&]+)/i) {
-             foreach my $elem (split(/\s+/,$1)) {
-                     if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1;  $FileSuffix.="ol".function_hash($elem); }
-                     else { $FileSuffix.="ol$elem"; $elem='^'.quotemeta($elem).'$'; }
-                     if ($elem) { push @OnlyLines, qr/$elem/i; }
-             }
-#             foreach my $elem (split(/\s+/,$1)) {
-#                     if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; $FileSuffix.="ol".function_hash($elem); }
-#                     else { $FileSuffix.="ol$elem"; $elem='^'.quotemeta($elem).'$'; }
-#                     if ($elem) { push @OnlyLines, qr/$elem/i; }
-#             }
-#             next;
-        }
-        if ($QueryString =~ /onlyusers=([^&]+)/i) {
-             foreach my $elem (split(/\s+/,$1)) {
-                     if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; $FileSuffix.="ou".function_hash($elem); }
-                     else { $FileSuffix.="ou$elem"; $elem='^'.quotemeta($elem).'$'; }
-                     if ($elem) { push @OnlyUsers, qr/$elem/i; }
-             }
-#             foreach my $elem (split(/\s+/,$1)) {
-#                     if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; $FileSuffix.="ou".function_hash($elem); }
-#                     else { $FileSuffix.="ou$elem"; $elem='^'.quotemeta($elem).'$'; $FileSuffix.="$elem"; }
-#                     if ($elem) { push @OnlyUsers, qr/$elem/i; }
-#             }
-#             next;
-        }
-        if ($QueryString =~ /onlyfiles=([^&]+)/i) {
-             foreach my $elem (split(/\s+/,$1)) {
-                     if ($elem =~ /^REGEX\[(.*)\]$/i) { $elem=$1; $FileSuffix.="of".function_hash($elem); }
-                     else { $FileSuffix.="of$elem"; $elem='^'.quotemeta($elem).'$'; }
-                     if ($elem) { push @OnlyFiles, qr/$elem/i; }
-             }
-#             next;
-        }
-        if ($QueryString =~ /sitedomain=([^&]+)/i) {
-             $SiteDomain=$1;
-        }
-
-        # If show options
-        if ($QueryString =~ /showsteps/i)                                         { $ShowSteps=1; $QueryString=~s/showsteps[^&]*//i; }
-        if ($QueryString =~ /showcorrupted/i)                                 { $ShowCorrupted=1; $QueryString=~s/showcorrupted[^&]*//i; }
-        if ($QueryString =~ /showdropped/i)                                        { $ShowDropped=1; $QueryString=~s/showdropped[^&]*//i; }
-        if ($QueryString =~ /showunknownorigin/i)                        { $ShowUnknownOrigin=1; $QueryString=~s/showunknownorigin[^&]*//i; }
-}
-if ($QueryString =~ /(^|&)staticlinks/i)                         { $StaticLinks=".$SiteConfig"; }
-if ($QueryString =~ /(^|&)staticlinks=([^&]+)/i)         { $StaticLinks=".$2"; }                # When ran from awstatsbuildstaticpages.pl
-if ($QueryString =~ /(^|&)staticlinksext=([^&]+)/i) { $StaticExt="$2"; }
-if ($QueryString =~ /(^|&)framename=([^&]+)/i)                { $FrameName="$2"; }
-if ($QueryString =~ /(^|&)debug=(\d+)/i)                        { $Debug=$2; }
-if ($QueryString =~ /(^|&)updatefor=(\d+)/i)                { $UpdateFor=$2; }
-if ($QueryString =~ /(^|&)noloadplugin=([^&]+)/i)        { foreach (split(/,/,$2)) { $NoLoadPlugin{"$_"}=1; } }
-if ($QueryString =~ /(^|&)loadplugin=([^&]+)/i)                { foreach (split(/,/,$2)) { $NoLoadPlugin{"$_"}=-1; } }
-if ($QueryString =~ /(^|&)limitflush=(\d+)/i)                { $LIMITFLUSH=$2; }
-# Get/Define output
-if ($QueryString =~ /(^|&)output(=[^&]*|)(.*)&output(=[^&]*|)(&|$)/i) { error("Only 1 output option is allowed","","",1); }
-if ($QueryString =~ /(^|&)output(=[^&]*|)(&|$)/i) {
-        # At least one output expected. We define %HTMLOutput
-        my $outputlist="$2";
-        if ($outputlist) {
-                $outputlist =~ s/^=//;
-                foreach my $outputparam (split(/,/,$outputlist)) {
-                        $outputparam=~s/:(.*)$//;
-                        if ($outputparam) { $HTMLOutput{lc($outputparam)}="$1"||1; }
-                }
-        }
-        # If on command line and no update
-        if (! $ENV{'GATEWAY_INTERFACE'} && $QueryString !~ /update/i) { $UpdateStats=0; }
-        # If no output defined, used default value
-        if (! scalar keys %HTMLOutput) { $HTMLOutput{'main'}=1; }
-}
-if ($ENV{'GATEWAY_INTERFACE'} && ! scalar keys %HTMLOutput) { $HTMLOutput{'main'}=1; }
-
-# Remove -output option with no = from QueryString
-$QueryString=~s/(^|&)output(&|$)/$1/i; $QueryString=~s/&+$//;
-
-# Check year and month parameters
-if ($QueryString =~ /(^|&)month=(year)/i) { error("month=year is a deprecated option. Use month=all instead."); }
-if ($QueryString =~ /(^|&)year=(\d\d\d\d)/i) { $YearRequired=sprintf("%04d",$2); }
-else { $YearRequired="$nowyear"; }
-if ($QueryString =~ /(^|&)month=(\d{1,2})/i) { $MonthRequired=sprintf("%02d",$2); }
-elsif ($QueryString =~ /(^|&)month=(all)/i) { $MonthRequired='all'; }
-else { $MonthRequired="$nowmonth"; }
-if ($QueryString =~ /(^|&)day=(\d{1,2})/i) { $DayRequired=sprintf("%02d",$2); }        # day is a hidden option. Must not be used (Make results not understandable). Available for users that rename history files with day.
-else { $DayRequired=''; }
-
-# Check parameter validity
-# TODO
-
-# Print AWStats and Perl version
-if ($Debug) {
-        debug(ucfirst($PROG)." - $VERSION - Perl $^X $]",1);
-        debug("DIR=$DIR PROG=$PROG",2);
-        debug("QUERY_STRING=$QueryString",2);
-        debug("HTMLOutput=".join(',',keys %HTMLOutput),1);
-        debug("YearRequired=$YearRequired, MonthRequired=$MonthRequired",2);
-        debug("UpdateFor=$UpdateFor",2);
-        debug("PluginMode=$PluginMode",2);
-        debug("DirConfig=$DirConfig",2);
-}
-
-# Force SiteConfig if AWSTATS_FORCE_CONFIG is defined
-if ($ENV{'AWSTATS_CONFIG'}) { $ENV{'AWSTATS_FORCE_CONFIG'}=$ENV{'AWSTATS_CONFIG'}; } # For backward compatibility
-if ($ENV{'AWSTATS_FORCE_CONFIG'}) {
-        if ($Debug) { debug("AWSTATS_FORCE_CONFIG parameter is defined to '".$ENV{'AWSTATS_FORCE_CONFIG'}."'. $PROG will use this as config value."); }
-        $SiteConfig=$ENV{'AWSTATS_FORCE_CONFIG'};
-}
-
-if ((! $ENV{'GATEWAY_INTERFACE'}) && (! $SiteConfig)) {
-        &Read_Ref_Data('browsers','domains','operating_systems','robots','search_engines','worms');
-        print "----- $PROG $VERSION (c) 2000-2004 Laurent Destailleur -----\n";
-        print "AWStats is a free web server logfile analyzer to show you advanced web\n";
-        print "statistics.\n";
-        print "AWStats comes with ABSOLUTELY NO WARRANTY. It's a free software distributed\n";
-        print "with a GNU General Public License (See LICENSE file for details).\n";
-        print "\n";
-        print "Syntax: $PROG.$Extension -config=virtualhostname [options]\n";
-        print "\n";
-        print "  This runs $PROG in command line to update statistics of a web site, from\n";
-        print "   the log file defined in AWStats config file (with -update option), or build\n";
-        print "   a HTML report (with -output option).\n";
-        print "  First, $PROG tries to read $PROG.virtualhostname.conf as the config file.\n";
-        print "  If not found, $PROG tries to read $PROG.conf\n";
-        print "  Note 1: Config files ($PROG.virtualhostname.conf or $PROG.conf) must be\n";
-        print "   in /etc/awstats, /usr/local/etc/awstats, /etc or same directory than\n";
-        print "   awstats.pl script file.\n";
-        print "  Note 2: If AWSTATS_FORCE_CONFIG environment variable is defined, AWStats will\n";
-        print "   use it as the \"config\" value, whatever is the value on command line or URL.\n";
-        print "   See AWStats documentation for all setup instrutions.\n";
-        print "\n";
-        print "Options to update statistics:\n";
-        print "  -update        to update statistics (default)\n";
-        print "  -showsteps     to add benchmark information every $NBOFLINESFORBENCHMARK lines processed\n";
-        print "  -showcorrupted to add output for each corrupted lines found, with reason\n";
-        print "  -showdropped   to add output for each dropped lines found, with reason\n";
-        print "  -logfile=x     to change log to analyze whatever is 'LogFile' in config file\n";
-        print "  -updatefor=n   to stop the update process after parsing n lines\n";
-        print "  Be care to process log files in chronological order when updating statistics.\n";
-        print "\n";
-        print "Options to show statistics:\n";
-        print "  -output      to output main HTML report (no update made except with -update)\n";
-        print "  -output=x    to output other report pages where x is:\n";
-        print "               alldomains       to build page of all domains/countries\n";
-        print "               allhosts         to build page of all hosts\n";
-        print "               lasthosts        to build page of last hits for hosts\n";
-        print "               unknownip        to build page of all unresolved IP\n";
-        print "               allemails        to build page of all email senders (maillog)\n";
-        print "               lastemails       to build page of last email senders (maillog)\n";
-        print "               allemailr        to build page of all email receivers (maillog)\n";
-        print "               lastemailr       to build page of last email receivers (maillog)\n";
-        print "               alllogins        to build page of all logins used\n";
-        print "               lastlogins       to build page of last hits for logins\n";
-        print "               allrobots        to build page of all robots/spider visits\n";
-        print "               lastrobots       to build page of last hits for robots\n";
-        print "               urldetail        to list most often viewed pages \n";
-        print "               urldetail:filter to list most often viewed pages matching filter\n";
-        print "               urlentry         to list entry pages\n";
-        print "               urlentry:filter  to list entry pages matching filter\n";
-        print "               urlexit          to list exit pages\n";
-        print "               urlexit:filter   to list exit pages matching filter\n";
-        print "               osdetail         to build page with os detailed versions\n";
-        print "               browserdetail    to build page with browsers detailed versions\n";
-        print "               unknownbrowser   to list 'User Agents' with unknown browser\n";
-        print "               unknownos        to list 'User Agents' with unknown OS\n";
-        print "               refererse        to build page of all refering search engines\n";
-        print "               refererpages     to build page of all refering pages\n";
-        #print "               referersites     to build page of all refering sites\n";
-        print "               keyphrases       to list all keyphrases used on search engines\n";
-        print "               keywords         to list all keywords used on search engines\n";
-        print "               errors404        to list 'Referers' for 404 errors\n";
-        print "  -staticlinks to have static links in HTML report page\n";
-        print "  -staticlinksext=xxx to have static links with .xxx extension instead of .html\n";
-        print "  -lang=LL     to output a HTML report in language LL (en,de,es,fr,it,nl,...)\n";
-        print "  -month=MM    to output a HTML report for an old month MM\n";
-        print "  -year=YYYY   to output a HTML report for an old year YYYY\n";
-        print "  Those 'date' options doesn't allow you to process old log file. They only\n";
-        print "  allow you to see a past report for a chosen month/year period instead of\n";
-        print "  current month/year.\n";
-        print "\n";
-        print "Other options:\n";
-        print "  -debug=X     to add debug informations lesser than level X (speed reduced)\n";
-        print "\n";
-        print "Now supports/detects:\n";
-        print "  Web/Ftp/Mail log analyze (and load balanced log files)\n";
-        print "  Reverse DNS lookup (IPv4 and IPv6) and GeoIP lookup\n";
-        print "  Number of visits, number of unique visitors\n";
-        print "  Visits duration and list of last visits\n";
-        print "  Authenticated users\n";
-        print "  Days of week and rush hours\n";
-        print "  Hosts list and unresolved IP addresses list\n";
-        print "  Most viewed, entry and exit pages\n";
-        print "  Files type and Web compression (mod_gzip, mod_deflate stats)\n";
-        print "  Screen size\n";
-        print "  Number of times site is 'added to favorites bookmarks'\n";
-        print "  Ratio of Browsers with support of: Java, Flash, RealG2 reader,\n";
-        print "                        Quicktime reader, WMA reader, PDF reader\n";
-        print "  Configurable personalized reports\n";
-        print "  ".(scalar keys %DomainsHashIDLib)." domains/countries\n";
-        print "  ".(scalar keys %RobotsHashIDLib)." robots\n";
-        print "  ".(scalar keys %WormsHashLib)." worm's families\n";
-        print "  ".(scalar keys %OSHashLib)." operating systems\n";
-        print "  ".(scalar keys %BrowsersHashIDLib)." browsers\n";
-        print "  ".(scalar keys %SearchEnginesHashLib)." search engines (and keyphrases/keywords used from them)\n";
-        print "  All HTTP errors with last referrer\n";
-        print "  Report by day/month/year\n";
-        print "  Dynamic or static HTML or XHTML reports, static PDF reports\n";
-        print "  Indexed text or XML monthly database\n";
-        print "  And a lot of other advanced features and options...\n";
-        print "New versions and FAQ at http://awstats.sourceforge.net\n";
-        exit 2;
-}
-$SiteConfig||=$ENV{'SERVER_NAME'};
-#$ENV{'SERVER_NAME'}||=$SiteConfig;        # For thoose who use __SERVER_NAME__ in conf file and use CLI.
-$ENV{'AWSTATS_CURRENT_CONFIG'}=$SiteConfig;
-
-# Read config file (SiteConfig must be defined)
-&Read_Config($DirConfig);
-
-# Check language
-if ($QueryString =~ /(^|&)lang=([^&]+)/i)        { $Lang="$2"; }
-if (! $Lang || $Lang eq 'auto') {        # If lang not defined or forced to auto
-        my $langlist=$ENV{'HTTP_ACCEPT_LANGUAGE'}||''; $langlist =~ s/;[^,]*//g;
-        if ($Debug) { debug("Search an available language among HTTP_ACCEPT_LANGUAGE=$langlist",1); }
-        foreach my $code (split(/,/,$langlist)) {        # Search for a valid lang in priority
-                if ($LangBrowserToLangAwstats{$code}) { $Lang=$LangBrowserToLangAwstats{$code}; if ($Debug) { debug(" Will try to use Lang=$Lang",1); } last; }
-                $code =~ s/-.*$//;
-                if ($LangBrowserToLangAwstats{$code}) { $Lang=$LangBrowserToLangAwstats{$code}; if ($Debug) { debug(" Will try to use Lang=$Lang",1); } last; }
-        }
-}
-if (! $Lang || $Lang eq 'auto') {
-        if ($Debug) { debug(" No language defined or available. Will use Lang=en",1); }
-        $Lang='en';
-}
-
-# Check and correct bad parameters
-&Check_Config();
-# Now SiteDomain is defined
-
-# Define frame name and correct variable for frames
-if (! $FrameName) {
-        if ($ENV{'GATEWAY_INTERFACE'} && $UseFramesWhenCGI && $HTMLOutput{'main'} && ! $PluginMode) { $FrameName='index'; }
-        else { $FrameName='main'; }
-}
-
-# Load Message files, Reference data files and Plugins
-if ($Debug) { debug("FrameName=$FrameName",1); }
-if ($FrameName ne 'index') {
-        &Read_Language_Data($Lang);
-        if ($FrameName ne 'mainleft') {
-                my %datatoload=();
-                if ($UpdateStats) {                                # If update
-                        if ($LevelForFileTypesDetection<2)        { $datatoload{'mime'}=1; }                # Only if need to filter on known extensions
-                        if ($LevelForRobotsDetection)                 { $datatoload{'robots'}=1; }        # ua
-                        if ($LevelForWormsDetection)                 { $datatoload{'worms'}=1; }                # url
-                        if ($LevelForBrowsersDetection)                { $datatoload{'browsers'}=1; }        # ua
-                        if ($LevelForOSDetection)                        { $datatoload{'operating_systems'}=1; }        # ua
-                        if ($LevelForRefererAnalyze)                { $datatoload{'search_engines'}=1; }        # referer
-                        # if (...) { $datatoload{'referer_spam'}=1; }
-                }
-                if (scalar keys %HTMLOutput) {        # If output
-                        if ($ShowDomainsStats)                                 { $datatoload{'domains'}=1; }
-                        if ($ShowFileTypesStats)                         { $datatoload{'mime'}=1; }
-                        if ($ShowRobotsStats)                                 { $datatoload{'robots'}=1; }
-                        if ($ShowWormsStats)                                 { $datatoload{'worms'}=1; }
-                        if ($ShowBrowsersStats)                         { $datatoload{'browsers'}=1; }
-                        if ($ShowOSStats)                                         { $datatoload{'operating_systems'}=1; }
-                        if ($ShowOriginStats)                                 { $datatoload{'search_engines'}=1; }
-                        if ($ShowHTTPErrorsStats)                         { $datatoload{'status_http'}=1; }
-                        if ($ShowSMTPErrorsStats)                         { $datatoload{'status_smtp'}=1; }
-                }
-                &Read_Ref_Data(keys %datatoload);
-        }
-        &Read_Plugins();
-}
-# Here charset is defined, so we can send the http header (Need BuildReportFormat,PageCode)
-if (! $HeaderHTTPSent && $ENV{'GATEWAY_INTERFACE'}) { http_head(); }        # Run from a browser as CGI
-
-# Init other parameters
-$NBOFLINESFORBENCHMARK--;
-if ($ENV{'GATEWAY_INTERFACE'}) { $DirCgi=''; }
-if ($DirCgi && !($DirCgi =~ /\/$/) && !($DirCgi =~ /\\$/)) { $DirCgi .= '/'; }
-if (! $DirData || $DirData =~ /^\./) {
-     if (! $DirData || $DirData eq '.') { $DirData="$DIR"; }      # If not defined or chosen to '.' value then DirData is current dir
-     elsif ($DIR && $DIR ne '.') { $DirData="$DIR/$DirData"; }
-}
-$DirData||='.';                # If current dir not defined then we put it to '.'
-$DirData =~ s/[\\\/]+$//;
-
-if ($FirstDayOfWeek == 1) { @DOWIndex = (1,2,3,4,5,6,0); }
-else { @DOWIndex = (0,1,2,3,4,5,6); }
-
-# Should we link to ourselves or to a wrapper script
-$AWScript=($WrapperScript?"$WrapperScript":"$DirCgi$PROG.$Extension");
-
-# Print html header (Need HTMLOutput,Expires,Lang,StyleSheet,HTMLHeadSectionExpires defined by Read_Config, PageCode defined by Read_Language_Data)
-if (! $HeaderHTMLSent) { &html_head; }
-
-# AWStats output is replaced by a plugin output
-if ($PluginMode) {
-        my $function="BuildFullHTMLOutput_$PluginMode()";
-        eval("$function");
-        if ($? || $@) { error("$@"); }
-        &html_end(0);
-        exit 0;
-}
-
-# Security check
-if ($AllowAccessFromWebToAuthenticatedUsersOnly && $ENV{'GATEWAY_INTERFACE'}) {
-        if ($Debug) { debug("REMOTE_USER=".$ENV{"REMOTE_USER"}); }
-        if (! $ENV{"REMOTE_USER"}) {
-                error("Access to statistics is only allowed from an authenticated session to authenticated users.");
-        }
-        if (@AllowAccessFromWebToFollowingAuthenticatedUsers) {
-                my $userisinlist=0;
-                my $currentuser=qr/^$ENV{"REMOTE_USER"}$/i;
-                $currentuser =~ s/\s/%20/g;        # Allow authenticated user with space in name to be compared to allowed user list
-                foreach (@AllowAccessFromWebToFollowingAuthenticatedUsers) {
-                        if (/$currentuser/o) { $userisinlist=1; last; }
-                }
-                if (! $userisinlist) {
-                        error("User '".$ENV{"REMOTE_USER"}."' is not allowed to access statistics of this domain/config.");
-                }
-        }
-}
-if ($AllowAccessFromWebToFollowingIPAddresses && $ENV{'GATEWAY_INTERFACE'}) {
-        my $useripaddress=&Convert_IP_To_Decimal($ENV{"REMOTE_ADDR"});
-        my @allowaccessfromipaddresses = split (/[\s,]+/, $AllowAccessFromWebToFollowingIPAddresses);
-        my $allowaccess = 0;
-        foreach my $ipaddressrange (@allowaccessfromipaddresses) {
-            if ($ipaddressrange !~ /^(\d+\.\d+\.\d+\.\d+)(?:-(\d+\.\d+\.\d+\.\d+))*$/) {
-                        error("AllowAccessFromWebToFollowingIPAddresses is defined to '$AllowAccessFromWebToFollowingIPAddresses' but does not match the correct syntax: IPAddressMin[-IPAddressMax]");
-                }
-                my $ipmin=&Convert_IP_To_Decimal($1);
-                my $ipmax=$2?&Convert_IP_To_Decimal($2):$ipmin;
-                # Is it an authorized ip ?
-                if (($useripaddress >= $ipmin) && ($useripaddress <= $ipmax)) {
-                        $allowaccess = 1;
-                        last;
-                }
-        }
-    if (! $allowaccess) {
-                error("Access to statistics is not allowed from your IP Address ".$ENV{"REMOTE_ADDR"});
-        }
-}
-if (($UpdateStats || $MigrateStats) && (! $AllowToUpdateStatsFromBrowser) && $ENV{'GATEWAY_INTERFACE'}) {
-        error("".($UpdateStats?"Update":"Migrate")." of statistics has not been allowed from a browser (AllowToUpdateStatsFromBrowser should be set to 1).");
-}
-if (scalar keys %HTMLOutput && $MonthRequired eq 'all') {
-        if (! $AllowFullYearView) { error("Full year view has not been allowed (AllowFullYearView is set to 0)."); }
-        if ($AllowFullYearView < 3 && $ENV{'GATEWAY_INTERFACE'}) { error("Full year view has not been allowed from a browser (AllowFullYearView should be set to 3)."); }
-}
-
-
-#------------------------------------------
-# MIGRATE PROCESS (Must be after reading config cause we need MaxNbOf... and Min...)
-#------------------------------------------
-if ($MigrateStats) {
-        if ($Debug) { debug("MigrateStats is $MigrateStats",2); }
-        if ($MigrateStats !~ /^(.*)$PROG(\d{0,2})(\d\d)(\d\d\d\d)(.*)\.txt$/) {
-                error("AWStats history file name must match following syntax: ${PROG}MMYYYY[.config].txt","","",1);
-        }
-        $DirData="$1";
-        $DayRequired="$2";
-        $MonthRequired="$3";
-        $YearRequired="$4";
-        $FileSuffix="$5";
-        # Correct DirData
-        if (! $DirData || $DirData =~ /^\./) {
-             if (! $DirData || $DirData eq '.') { $DirData="$DIR"; }      # If not defined or chosen to '.' value then DirData is current dir
-             elsif ($DIR && $DIR ne '.') { $DirData="$DIR/$DirData"; }
-        }
-        $DirData||='.';                # If current dir not defined then we put it to '.'
-        $DirData =~ s/[\\\/]+$//;
-        print "Start migration for file '$MigrateStats'."; print $ENV{'GATEWAY_INTERFACE'}?"<br />\n":"\n";
-        if ($EnableLockForUpdate) {        &Lock_Update(1); }
-        my $newhistory=&Read_History_With_TmpUpdate($YearRequired,$MonthRequired,1,0,'all');
-        if (rename("$newhistory","$MigrateStats")==0) {
-                unlink "$newhistory";
-                error("Failed to rename \"$newhistory\" into \"$MigrateStats\".\nWrite permissions on \"$MigrateStats\" might be wrong".($ENV{'GATEWAY_INTERFACE'}?" for a 'migration from web'":"")." or file might be opened.");
-        }
-        if ($EnableLockForUpdate) {        &Lock_Update(0); }
-        print "Migration for file '$MigrateStats' successful."; print $ENV{'GATEWAY_INTERFACE'}?"<br />\n":"\n";
-        &html_end(1);
-        exit 0;
-}
-
-# Output main frame page and exit. This must be after the security check.
-if ($FrameName eq 'index') {
-        # Define the NewLinkParams for main chart
-        my $NewLinkParams=${QueryString};
-        $NewLinkParams =~ s/(^|&)framename=[^&]*//i;
-        $NewLinkParams =~ tr/&/&/s; $NewLinkParams =~ s/^&//; $NewLinkParams =~ s/&$//;
-        if ($NewLinkParams) { $NewLinkParams="${NewLinkParams}&"; }
-        # Exit if main frame
-        print "<frameset cols=\"$FRAMEWIDTH,*\" border=\"0\" framespacing=\"2\" frameborder=\"0\">\n";
-        print "<frame name=\"mainleft\" src=\"".XMLEncode("$AWScript?${NewLinkParams}framename=mainleft")."\" noresize=\"0\" frameborder=\"0\" />\n";
-        print "<frame name=\"mainright\" src=\"".XMLEncode("$AWScript?${NewLinkParams}framename=mainright")."\" noresize=\"0\" scrolling=\"YES\" frameborder=\"0\" />\n";
-        print "<noframes><body>";
-        print "Your browser does not support frames.<br />\n";
-        print "You must set AWStats UseFramesWhenCGI parameter to 0\n";
-        print "to see your reports.<br />\n";
-        print "</body></noframes>\n";
-        print "</frameset>\n";
-        &html_end(0);
-        exit 0;
-}
-
-%MonthNumLib = ("01","$Message[60]","02","$Message[61]","03","$Message[62]","04","$Message[63]","05","$Message[64]","06","$Message[65]","07","$Message[66]","08","$Message[67]","09","$Message[68]","10","$Message[69]","11","$Message[70]","12","$Message[71]");
-
-# Build ListOfYears list with all existing years
-if ($Debug) { debug("Scan for last history files into DirData='$DirData'"); }
-$lastyearbeforeupdate=0;
-opendir(DIR,"$DirData");
-foreach (grep /^$PROG(\d\d)(\d\d\d\d)$FileSuffix\.txt(|\.gz)$/, sort readdir DIR) {
-        /^$PROG(\d\d)(\d\d\d\d)$FileSuffix\.txt(|\.gz)$/;
-        if (! $ListOfYears{"$2"} || "$1" gt $ListOfYears{"$2"}) {
-                $ListOfYears{"$2"}="$1";        # ListOfYears contains max month found
-                if ("$2" gt $lastyearbeforeupdate) { $lastyearbeforeupdate="$2"; }
-        }
-}
-close DIR;
-
-# Get value for LastLine
-if ($lastyearbeforeupdate) {
-        # Read 'general' section of last history file for LastLine
-        &Read_History_With_TmpUpdate($lastyearbeforeupdate,$ListOfYears{$lastyearbeforeupdate},0,0,"general");
-}
-if ($Debug) {
-        debug("Last year=$lastyearbeforeupdate - Last month=$ListOfYears{$lastyearbeforeupdate}");
-        debug("LastLine=$LastLine");
-        debug("LastLineNumber=$LastLineNumber");
-        debug("LastLineOffset=$LastLineOffset");
-        debug("LastLineChecksum=$LastLineChecksum");
-}
-
-# Init vars
-&Init_HashArray();
-
-
-#------------------------------------------
-# UPDATE PROCESS
-#------------------------------------------
-my $lastlinenb=0; my $lastlineoffset=0; my $lastlineoffsetnext=0;
-
-if ($Debug) { debug("UpdateStats is $UpdateStats",2); }
-if ($UpdateStats && $FrameName ne 'index' && $FrameName ne 'mainleft') {        # Update only on index page or when not framed to avoid update twice
-
-        my %MonthNum = ("Jan","01","ene","01","Feb","02","feb","02","Mar","03","mar","03","Apr","04","abr","04","May","05","may","05","Jun","06","jun","06","Jul","07","jul","07","Aug","08","ago","08","Sep","09","sep","09","Oct","10","oct","10","Nov","11","nov","11","Dec","12","dic","12");        # MonthNum must be in english because used to translate log date in apache log files
-
-        if (! scalar keys %HTMLOutput) {
-                print "Update for config \"$FileConfig\"\n";
-                print "With data in log file \"$LogFile\"...\n";
-        }
-
-        my $lastprocessedyear=$lastyearbeforeupdate;
-        my $lastprocessedmonth=$ListOfYears{$lastyearbeforeupdate}||0;
-        my $lastprocessedyearmonth=sprintf("%04i%02i",$lastprocessedyear,$lastprocessedmonth);
-
-        my @list;
-        # Init RobotsSearchIDOrder required for update process
-        @list=();
-        if ($LevelForRobotsDetection >= 1) {
-                foreach (1..$LevelForRobotsDetection) { push @list,"list$_"; }
-                push @list,"listgen";                # Always added
-        }
-        foreach my $key (@list) {
-                push @RobotsSearchIDOrder,@{"RobotsSearchIDOrder_$key"};
-                if ($Debug) { debug("Add ".@{"RobotsSearchIDOrder_$key"}." elements from RobotsSearchIDOrder_$key into RobotsSearchIDOrder",2); }
-        }
-        if ($Debug) { debug("RobotsSearchIDOrder has now ".@RobotsSearchIDOrder." elements",1); }
-        # Init SearchEnginesIDOrder required for update process
-        @list=();
-        if ($LevelForSearchEnginesDetection >= 1) {
-                foreach (1..$LevelForSearchEnginesDetection) { push @list,"list$_"; }
-                push @list,"listgen";                # Always added
-        }
-        foreach my $key (@list) {
-                push @SearchEnginesSearchIDOrder,@{"SearchEnginesSearchIDOrder_$key"};
-                if ($Debug) { debug("Add ".@{"SearchEnginesSearchIDOrder_$key"}." elements from SearchEnginesSearchIDOrder_$key into SearchEnginesSearchIDOrder",2); }
-        }
-        if ($Debug) { debug("SearchEnginesSearchIDOrder has now ".@SearchEnginesSearchIDOrder." elements",1); }
-
-        # Complete HostAliases array
-        my $sitetoanalyze=quotemeta(lc($SiteDomain));
-        if (! @HostAliases) {
-                warning("Warning: HostAliases parameter is not defined, $PROG choose \"$SiteDomain localhost 127.0.0.1\".");
-                push @HostAliases,qr/^$sitetoanalyze$/i; push @HostAliases,qr/^localhost$/i; push @HostAliases,qr/^127\.0\.0\.1$/i;
-        }
-        else { unshift @HostAliases,qr/^$sitetoanalyze$/i; }        # Add SiteDomain as first value
-
-        # Optimize arrays
-        @HostAliases=&OptimizeArray(\@HostAliases,1); if ($Debug) { debug("HostAliases precompiled regex list is now @HostAliases",1); }
-        @SkipDNSLookupFor=&OptimizeArray(\@SkipDNSLookupFor,1); if ($Debug) { debug("SkipDNSLookupFor precompiled regex list is now @SkipDNSLookupFor",1); }
-        @SkipHosts=&OptimizeArray(\@SkipHosts,1); if ($Debug) { debug("SkipHosts precompiled regex list is now @SkipHosts",1); }
-        @SkipUserAgents=&OptimizeArray(\@SkipUserAgents,1); if ($Debug) { debug("SkipUserAgents precompiled regex list is now @SkipUserAgents",1); }
-        @SkipFiles=&OptimizeArray(\@SkipFiles,$URLNotCaseSensitive); if ($Debug) { debug("SkipFiles precompiled regex list is now @SkipFiles",1); }
-        @OnlyHosts=&OptimizeArray(\@OnlyHosts,1); if ($Debug) { debug("OnlyHosts precompiled regex list is now @OnlyHosts",1); }
-        @OnlyUserAgents=&OptimizeArray(\@OnlyUserAgents,1); if ($Debug) { debug("OnlyUserAgents precompiled regex list is now @OnlyUserAgents",1); }
-#Params OnlyXXX defined by E-Lane
-        @OnlyUsers=&OptimizeArray(\@OnlyUsers,1); if ($Debug) { debug("OnlyUsers precompiled regex list is now @OnlyUsers",1); }
-        @OnlyLines=&OptimizeArray(\@OnlyLines,1); if ($Debug) { debug("OnlyLines precompiled regex list is now @OnlyLines",1); }
-        @OnlyFiles=&OptimizeArray(\@OnlyFiles,$URLNotCaseSensitive); if ($Debug) { debug("OnlyFiles precompiled regex list is now @OnlyFiles",1); }
-        # Precompile the regex search strings with qr
-        @RobotsSearchIDOrder=map{qr/$_/i} @RobotsSearchIDOrder;
-        @WormsSearchIDOrder=map{qr/$_/i} @WormsSearchIDOrder;
-        @BrowsersSearchIDOrder=map{qr/$_/i} @BrowsersSearchIDOrder;
-        @OSSearchIDOrder=map{qr/$_/i} @OSSearchIDOrder;
-        @SearchEnginesSearchIDOrder=map{qr/$_/i} @SearchEnginesSearchIDOrder;
-        my $miscquoted=quotemeta("$MiscTrackerUrl");
-        my $defquoted=quotemeta("/$DefaultFile[0]");
-        my $sitewithoutwww=lc($SiteDomain); $sitewithoutwww =~ s/www\.//; $sitewithoutwww=quotemeta($sitewithoutwww);
-        # Define precompiled regex
-        my $regmisc=qr/^$miscquoted/;
-        my $regfavico=qr/\/favicon\.ico$/i;
-        my $regrobot=qr/^\/robots\.txt$/i;
-        my $regtruncanchor=qr/#(\w*)$/;
-        my $regtruncurl=qr/([$URLQuerySeparators])(.*)$/;
-        my $regext=qr/\.(\w{1,6})$/;
-        my $regdefault;
-        if ($URLNotCaseSensitive) { $regdefault=qr/$defquoted$/i; }
-        else { $regdefault=qr/$defquoted$/; }
-        my $regipv4=qr/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/;
-        my $regipv6=qr/^[0-9A-F]*:/i;
-        my $regvermsie=qr/msie([+_ ]|)([\d\.]*)/i;
-        my $regvernetscape=qr/netscape.?\/([\d\.]*)/i;
-        my $regvermozilla=qr/mozilla(\/|)([\d\.]*)/i;
-        my $regnotie=qr/webtv|omniweb|opera/i;
-        my $regnotnetscape=qr/gecko|compatible|opera|galeon|safari/i;
-        my $regreferer=qr/^(\w+):\/\/([^\/:]+)(:\d+|)/;
-        my $regreferernoquery=qr/^([^$URLQuerySeparators]+)/;
-        my $reglocal=qr/^(www\.|)$sitewithoutwww/i;
-        my $regget=qr/get/i;
-        my $regsent=qr/sent/i;
-        my $regput=qr/put/i;
-
-        # Define value of $PerlParsingFormat and @fieldlib
-        &DefinePerlParsingFormat();
-
-        # Load DNS Cache Files
-        #------------------------------------------
-        if ($DNSLookup) {
-                &Read_DNS_Cache(\%MyDNSTable,"$DNSStaticCacheFile","",1);                                                # Load with save into a second plugin file if plugin enabled and second file not up to date. No use of FileSuffix
-                if ($DNSLookup == 1) {                # System DNS lookup required
-                        #if (! eval("use Socket;")) { error("Failed to load perl module Socket."); }
-                        #use Socket;
-                        &Read_DNS_Cache(\%TmpDNSLookup,"$DNSLastUpdateCacheFile","$FileSuffix",0);        # Load with no save into a second plugin file. Use FileSuffix
-                }
-        }
-
-        # Processing log
-        #------------------------------------------
-
-        if ($EnableLockForUpdate) {
-                # Trap signals to remove lock
-                $SIG{INT} = \&SigHandler;        # 2
-                #$SIG{KILL} = \&SigHandler;        # 9
-                #$SIG{TERM} = \&SigHandler;        # 15
-                # Set AWStats update lock
-                &Lock_Update(1);
-        }
-
-        if ($Debug) { debug("Start Update process (lastprocessedmonth=$lastprocessedmonth, lastprocessedyear=$lastprocessedyear)"); }
-
-        # Open log file
-        if ($Debug) { debug("Open log file \"$LogFile\""); }
-        open(LOG,"$LogFile") || error("Couldn't open server log file \"$LogFile\" : $!");
-        binmode LOG;        # Avoid premature EOF due to log files corrupted with \cZ or bin chars
-
-        # Define local variables for loop scan
-        my @field=();
-        my $counterforflushtest=0;
-        my $qualifdrop='';
-        my $countedtraffic=0;
-        # Reset chrono for benchmark (first call to GetDelaySinceStart)
-        &GetDelaySinceStart(1);
-        if (! scalar keys %HTMLOutput) { print "Phase 1 : First bypass old records, searching new record...\n"; }
-
-        # Can we try a direct seek access in log ?
-        my $line;
-        if ($LastLine && $LastLineNumber && $LastLineOffset && $LastLineChecksum) {
-                # Try a direct seek access to save time
-                if ($Debug) { debug("Try a direct access to LastLine=$LastLine, LastLineNumber=$LastLineNumber, LastLineOffset=$LastLineOffset, LastLineChecksum=$LastLineChecksum"); }
-                seek(LOG,$LastLineOffset,0);
-                if ($line=<LOG>) {
-                        chomp $line; $line =~ s/\r$//;
-                        @field=map(/$PerlParsingFormat/,$line);
-                        if ($Debug) {
-                                my $string='';
-                                foreach (0..@field-1) {        $string.="$fieldlib[$_]=$field[$_] "; }
-                                if ($Debug) { debug(" Read line after direct access: $string",1); }
-                        }
-                        my $checksum=&CheckSum($line);
-                        if ($Debug) { debug(" LastLineChecksum=$LastLineChecksum, Read line checksum=$checksum",1); }
-                        if ($checksum == $LastLineChecksum ) {
-                                if (! scalar keys %HTMLOutput) { print "Direct access after last parsed record (after line $LastLineNumber)\n"; }
-                                $lastlinenb=$LastLineNumber;
-                                $lastlineoffset=$LastLineOffset;
-                                $lastlineoffsetnext=tell LOG;
-                $NewLinePhase=1;
-                        }
-                        else {
-                                if (! scalar keys %HTMLOutput) { print "Direct access to last remembered record has fallen on another record.\nSo searching new records from beginning of log file...\n"; }
-                                $lastlinenb=0;
-                                $lastlineoffset=0;
-                                $lastlineoffsetnext=0;
-                                seek(LOG,0,0);
-                        }
-                }
-                else {
-                        if (! scalar keys %HTMLOutput) { print "Direct access to last remembered record is out of file.\nSo searching it from beginning of log file...\n"; }
-                        $lastlinenb=0;
-                        $lastlineoffset=0;
-                        $lastlineoffsetnext=0;
-                        seek(LOG,0,0);
-                }
-        }
-        else {
-                # No try of direct seek access
-                if (! scalar keys %HTMLOutput) { print "Searching new records from beginning of log file...\n"; }
-                $lastlinenb=0;
-                $lastlineoffset=0;
-                $lastlineoffsetnext=0;
-        }
-
-        while ($line=<LOG>) {
-                chomp $line; $line =~ s/\r$//;
-                if ($UpdateFor && $NbOfLinesParsed >= $UpdateFor) { last; }
-                $NbOfLinesParsed++;
-
-                 $lastlineoffset=$lastlineoffsetnext; $lastlineoffsetnext=tell LOG;
-
-                if ($ShowSteps) {
-                        if ((++$NbOfLinesShowsteps & $NBOFLINESFORBENCHMARK) == 0) {
-                                my $delay=&GetDelaySinceStart(0);
-                                print "$NbOfLinesParsed lines processed (".($delay>0?$delay:1000)." ms, ".int(1000*$NbOfLinesShowsteps/($delay>0?$delay:1000))." lines/second)\n";
-                        }
-                }
-
-                # Parse line record to get all required fields
-                if (! (@field=map(/$PerlParsingFormat/,$line))) {
-                        $NbOfLinesCorrupted++;
-                        if ($ShowCorrupted) {
-                                if ($line =~ /^#/ || $line =~ /^!/) { print "Corrupted record line ".($lastlinenb+$NbOfLinesParsed)." (comment line): $line\n"; }
-                                elsif ($line =~ /^\s*$/) { print "Corrupted record line ".($lastlinenb+$NbOfLinesParsed)." (blank line)\n"; }
-                                else { print "Corrupted record line ".($lastlinenb+$NbOfLinesParsed)." (record format does not match LogFormat parameter): $line\n"; }
-                        }
-                        if ($NbOfLinesParsed >= $NbOfLinesForCorruptedLog && $NbOfLinesParsed == $NbOfLinesCorrupted) { error("Format error",$line,$LogFile); }        # Exit with format error
-                        if ($line =~ /^__end_of_file__/i) { last; }        # For test purpose only
-                        next;
-                }
-
-                if ($Debug) {
-                        my $string='';
-                        foreach (0..@field-1) {        $string.="$fieldlib[$_]=$field[$_] "; }
-                        if ($Debug) { debug(" Correct format line ".($lastlinenb+$NbOfLinesParsed).": $string",4); }
-                }
-
-                # Drop wrong virtual host name
-                #----------------------------------------------------------------------
-                if ($pos_vh>=0 && $field[$pos_vh] !~ /^$SiteDomain$/i) {
-                        my $skip=1;
-                        foreach (@HostAliases) {
-                                if ($field[$pos_vh] =~ /$_/) { $skip=0; last; }
-                        }
-                        if ($skip) {
-                                $NbOfLinesDropped++;
-                                if ($ShowDropped) { print "Dropped record (virtual hostname '$field[$pos_vh]' does not match SiteDomain='$SiteDomain' nor HostAliases parameters): $line\n"; }
-                                next;
-                        }
-                }
-
-                # Drop wrong method/protocol
-                #---------------------------
-                if ($LogType ne 'M') { $field[$pos_url] =~ s/\s/%20/g; }
-                if ($LogType eq 'W' && ($field[$pos_method] eq 'GET' || $field[$pos_method] eq 'POST' || $field[$pos_method] eq 'HEAD' || $field[$pos_method] =~ /OK/i || $field[$pos_method] =~ /ERR\!/i)) {
-                        # HTTP request.        Keep only GET, POST, HEAD, *OK* and ERR! for Webstar. Do not keep OPTIONS, TRACE
-                }
-                elsif (($LogType eq 'W' || $LogType eq 'S') && ($field[$pos_method] eq 'GET' || $field[$pos_method] eq 'mms' || $field[$pos_method] eq 'rtsp' || $field[$pos_method] eq 'http' || $field[$pos_method] eq 'RTP')) {
-                        # Streaming request (windows media server, realmedia or darwin streaming server)
-                }
-                elsif ($LogType eq 'M' && $field[$pos_method] eq 'SMTP') {
-                        # Mail request ('SMTP' for mail log with maillogconvert.pl preprocessor)
-                }
-                elsif ($LogType eq 'F' && ($field[$pos_method] eq 'RETR' || $field[$pos_method] eq 'o' || $field[$pos_method] =~ /$regget/o)) {
-                        # FTP GET request
-                }
-                elsif ($LogType eq 'F' && ($field[$pos_method] eq 'STOR' || $field[$pos_method] eq 'i' || $field[$pos_method] =~ /$regsent/o || $field[$pos_method] =~ /$regput/o)) {
-                        # FTP SENT request
-                }
-                else {
-                        $NbOfLinesDropped++;
-                        if ($ShowDropped) { print "Dropped record (method/protocol '$field[$pos_method]' not qualified when LogType=$LogType): $line\n"; }
-                        next;
-                }
-
-                $field[$pos_date] =~ tr/,-\/ \t/:::::/s;                # " \t" is used instead of "\s" not known with tr
-                my @dateparts=split(/:/,$field[$pos_date]);                # tr and split faster than @dateparts=split(/[\/\-:\s]/,$field[$pos_date])
-                # Detected date format: dddddddddd, YYYY-MM-DD HH:MM:SS (IIS), MM/DD/YY\tHH:MM:SS,
-                # DD/Month/YYYY:HH:MM:SS (Apache), DD/MM/YYYY HH:MM:SS, Mon DD HH:MM:SS
-                if (! $dateparts[1]) {        # Unix timestamp
-                        ($dateparts[5],$dateparts[4],$dateparts[3],$dateparts[0],$dateparts[1],$dateparts[2]) = localtime(int($field[$pos_date]));
-                        $dateparts[1]++;$dateparts[2]+=1900;
-                }
-                elsif ($dateparts[0] =~ /^....$/) { my $tmp=$dateparts[0]; $dateparts[0]=$dateparts[2]; $dateparts[2]=$tmp; }
-                elsif ($field[$pos_date] =~ /^..:..:..:/) { $dateparts[2]+=2000; my $tmp=$dateparts[0]; $dateparts[0]=$dateparts[1]; $dateparts[1]=$tmp; }
-                elsif ($dateparts[0] =~ /^...$/)  { my $tmp=$dateparts[0]; $dateparts[0]=$dateparts[1]; $dateparts[1]=$tmp; $tmp=$dateparts[5]; $dateparts[5]=$dateparts[4]; $dateparts[4]=$dateparts[3]; $dateparts[3]=$dateparts[2]; $dateparts[2]=$tmp||$nowyear; }
-                if ($MonthNum{$dateparts[1]}) { $dateparts[1]=$MonthNum{$dateparts[1]}; }        # Change lib month in num month if necessary
-
-                # Now @dateparts is (DD,MM,YYYY,HH,MM,SS) and we're going to create $timerecord=YYYYMMDDHHMMSS
-                # Plugin call : Convert a @datepart into another @datepart
-                if ($PluginsLoaded{'ChangeTime'}{'timezone'})  { @dateparts=ChangeTime_timezone(\@dateparts); }
-                my $yearrecord=int($dateparts[2]);
-                my $monthrecord=int($dateparts[1]);
-                my $hourrecord=int($dateparts[3]);
-                my $yearmonthdayrecord=sprintf("$dateparts[2]%02i%02i",$dateparts[1],$dateparts[0]);
-                my $timerecord=((int("$yearmonthdayrecord")*100+$dateparts[3])*100+$dateparts[4])*100+$dateparts[5];
-
-                # Check date
-                #-----------------------
-                if ($LogType eq 'M' && $timerecord > $tomorrowtime) {
-                        # Postfix/Sendmail does not store year, so we assume that year is year-1 if record is in future
-                        $yearrecord--;
-                        $yearmonthdayrecord=sprintf("$yearrecord%02i%02i",$dateparts[1],$dateparts[0]);
-                        $timerecord=((int("$yearmonthdayrecord")*100+$dateparts[3])*100+$dateparts[4])*100+$dateparts[5];
-                }
-                if ($timerecord < 10000000000000 || $timerecord > $tomorrowtime) {
-                        $NbOfLinesCorrupted++;
-                        if ($ShowCorrupted) { print "Corrupted record (invalid date, timerecord=$timerecord): $line\n"; }
-                        next;                # Should not happen, kept in case of parasite/corrupted line
-                }
-                if ($NewLinePhase) {
-# TODO NOTSORTEDRECORDTOLERANCE does not work around midnight
-                        if ($timerecord < ($LastLine - $NOTSORTEDRECORDTOLERANCE)) {
-                                # Should not happen, kept in case of parasite/corrupted old line
-                                $NbOfLinesCorrupted++;
-                                if ($ShowCorrupted) { print "Corrupted record (date $timerecord lower than $LastLine-$NOTSORTEDRECORDTOLERANCE): $line\n"; } next;
-                        }
-                }
-                else {
-                        if ($timerecord <= $LastLine) {        # Already processed
-                                $NbOfOldLines++;
-                                next;
-                        }
-                        # We found a new line. This will replace comparison "<=" with "<" between timerecord and LastLine (we should have only new lines now)
-                        $NewLinePhase=1;        # We will never enter here again
-                        if ($ShowSteps) {
-                                if ($NbOfLinesShowsteps > 1 && ($NbOfLinesShowsteps & $NBOFLINESFORBENCHMARK)) {
-                                        my $delay=&GetDelaySinceStart(0);
-                                        print "".($NbOfLinesParsed-1)." lines processed (".($delay>0?$delay:1000)." ms, ".int(1000*($NbOfLinesShowsteps-1)/($delay>0?$delay:1000))." lines/second)\n";
-                                }
-                                &GetDelaySinceStart(1);        $NbOfLinesShowsteps=1;
-                        }
-                        if (! scalar keys %HTMLOutput) {
-                                print "Phase 2 : Now process new records (Flush history on disk after ".($LIMITFLUSH<<2)." hosts)...\n";
-                                #print "Phase 2 : Now process new records (Flush history on disk after ".($LIMITFLUSH<<2)." hosts or ".($LIMITFLUSH)." URLs)...\n";
-                        }
-                }
-
-                # Convert URL for Webstar to common URL
-                if ($LogFormat eq '3') {
-                        $field[$pos_url]=~s/:/\//g;
-                        if ($field[$pos_code] eq '-') { $field[$pos_code]='200'; }
-                }
-
-                # Here, field array, timerecord and yearmonthdayrecord are initialized for log record
-                if ($Debug) { debug("  This is a not already processed record ($timerecord)",4); }
-
-                # We found a new line
-                #----------------------------------------
-                if ($timerecord > $LastLine) { $LastLine = $timerecord; }        # Test should always be true except with not sorted log files
-
-                # Skip for some client host IP addresses, some URLs, other URLs
-                if    (@SkipHosts && (&SkipHost($field[$pos_host]) || ($pos_hostr && &SkipHost($field[$pos_hostr]))))   { $qualifdrop="Dropped record (host $field[$pos_host]".($pos_hostr?" and $field[$pos_hostr]":"")." not qualified by SkipHosts)"; }
-                elsif (@SkipFiles && &SkipFile($field[$pos_url]))    { $qualifdrop="Dropped record (URL $field[$pos_url] not qualified by SkipFiles)"; }
-                elsif (@SkipUserAgents && $pos_agent >= 0 && &SkipUserAgent($field[$pos_agent]))        { $qualifdrop="Dropped record (user agent '$field[$pos_agent]' not qualified by SkipUserAgents)"; }
-                elsif (@OnlyHosts && ! &OnlyHost($field[$pos_host]) && (! $pos_hostr || ! &OnlyHost($field[$pos_hostr]))) { $qualifdrop="Dropped record (host $field[$pos_host]".($pos_hostr?" and $field[$pos_hostr]":"")." not qualified by OnlyHosts)"; }
-                elsif (@OnlyFiles && ! &OnlyFile($field[$pos_url]))  { $qualifdrop="Dropped record (URL $field[$pos_url] not qualified by OnlyFiles)"; }
-                elsif (@OnlyUserAgents && ! &OnlyUserAgent($field[$pos_agent]))  { $qualifdrop="Dropped record (user agent '$field[$pos_agent]' not qualified by OnlyUserAgents)"; }
-#Params OnlyXXX defined by E-Lane
-                elsif (@OnlyUsers && ! &OnlyUser($field[$pos_logname]))  { $qualifdrop="Used record (user '$field[$pos_logname]' qualified by OnlyUsers)"; }
-                elsif (@OnlyLines && ! &OnlyLine($line))  { $qualifdrop="Used line ('$field[$pos_logname]' qualified by OnlyLines)"; }
-                if ($qualifdrop) {
-                        $NbOfLinesDropped++;
-                        if ($Debug) { debug("$qualifdrop: $line",4); }
-                        if ($ShowDropped) { print "$qualifdrop: $line\n"; }
-                        $qualifdrop='';
-                        next;
-                }
-
-                # Record is approved
-                #-------------------
-
-                # Is it in a new month section ?
-                #-------------------------------
-                if ((($monthrecord > $lastprocessedmonth) && ($yearrecord >= $lastprocessedyear)) || ($yearrecord > $lastprocessedyear)) {
-                        # A new month to process
-                        if ($lastprocessedmonth) {
-                                # We save data of processed month
-                                &Read_History_With_TmpUpdate($lastprocessedyear,$lastprocessedmonth,1,1,"all",($lastlinenb+$NbOfLinesParsed),$lastlineoffset,&CheckSum($line));
-                                $counterforflushtest=0;        # We reset counterforflushtest
-                        }
-                        $lastprocessedyearmonth=sprintf("%04i%02i",$lastprocessedyear=$yearrecord,$lastprocessedmonth=$monthrecord);
-                }
-
-                $countedtraffic=0;
-                $NbOfNewLines++;
-
-                # Convert $field[$pos_size]
-                # if ($field[$pos_size] eq '-') { $field[$pos_size]=0; }
-
-                # Define a clean target URL and referrer URL
-                # We keep a clean $field[$pos_url] and
-                # we store original value for urlwithnoquery, tokenquery and standalonequery
-                #---------------------------------------------------------------------------
-                if ($URLNotCaseSensitive) { $field[$pos_url]=lc($field[$pos_url]); }
-                # Possible URL syntax for $field[$pos_url]: /mydir/mypage.ext?param1=x&param2=y#aaa, /mydir/mypage.ext#aaa, /
-                my $urlwithnoquery; my $tokenquery; my $standalonequery; my $anchor='';
-                if ($field[$pos_url] =~ s/$regtruncanchor//o) { $anchor=$1; }        # Remove and save anchor
-                if ($URLWithQuery) {
-                        $urlwithnoquery=$field[$pos_url];
-                        my $foundparam=($urlwithnoquery =~ s/$regtruncurl//o);
-                        $tokenquery=$1||'';
-                        $standalonequery=$2||'';
-                        # For IIS setup, if pos_query is enabled we need to combine the URL to query strings
-                        if (! $foundparam && $pos_query >=0 && $field[$pos_query] && $field[$pos_query] ne '-') {
-                                $foundparam=1;
-                                $tokenquery='?';
-                                $standalonequery=$field[$pos_query];
-                                # Define query
-                                $field[$pos_url] .= '?'.$field[$pos_query];
-                        }
-                         if ($foundparam) {
-                                # Keep only params that are defined in URLWithQueryWithOnlyFollowingParameters
-                                my $newstandalonequery='';
-                                if (@URLWithQueryWithOnly) {
-                                        foreach (@URLWithQueryWithOnly) {
-                                                foreach my $p (split(/&/,$standalonequery)) {
-                                                        if ($URLNotCaseSensitive) { if ($p =~ /^$_=/i) { $newstandalonequery.="$p&"; last; } }
-                                                        else { if ($p =~ /^$_=/) { $newstandalonequery.="$p&"; last; } }
-                                                }
-                                        }
-                                         chop $newstandalonequery;
-                                 }
-                                 # Remove params that are marked to be ignored in URLWithQueryWithoutFollowingParameters
-                                elsif (@URLWithQueryWithout) {
-                                        foreach my $p (split(/&/,$standalonequery)) {
-                                                my $found=0;
-                                                foreach (@URLWithQueryWithout) {
-                                                        #if ($Debug) { debug("  Check if '$_=' is param '$p' to remove it from query",5); }
-                                                        if ($URLNotCaseSensitive) { if ($p =~ /^$_=/i) { $found=1; last; } }
-                                                        else { if ($p =~ /^$_=/) { $found=1; last; } }
-                                                }
-                                                if (! $found) { $newstandalonequery.="$p&"; }
-                                        }
-                                         chop $newstandalonequery;
-                                }
-                                else { $newstandalonequery=$standalonequery; }
-                                # Define query
-                                $field[$pos_url]=$urlwithnoquery;
-                                if ($newstandalonequery) { $field[$pos_url].="$tokenquery$newstandalonequery"; }
-                        }
-                }
-                else {
-                        # Trunc parameters of URL
-                        $field[$pos_url] =~ s/$regtruncurl//o;
-                        $urlwithnoquery=$field[$pos_url];
-                        $tokenquery=$1||'';
-                        $standalonequery=$2||'';
-                        # For IIS setup, if pos_query is enabled we need to use it for query strings
-                        if ($pos_query >=0 && $field[$pos_query] && $field[$pos_query] ne '-') {
-                                $tokenquery='?';
-                                $standalonequery=$field[$pos_query];
-                        }
-                }
-                if ($URLWithAnchor && $anchor) { $field[$pos_url].="#$anchor"; }        # Restore anchor
-                # Here now urlwithnoquery is /mydir/mypage.ext, /mydir, /, /page#XXX
-                # Here now tokenquery is '' or '?' or ';'
-                # Here now standalonequery is '' or 'param1=x'
-
-                # Define page and extension
-                #--------------------------
-                my $PageBool=1;
-                # Extension
-                my $extension;
-                if ($urlwithnoquery =~ /$regext/o || ($urlwithnoquery =~ /[\\\/]$/ && $DefaultFile[0] =~ /$regext/o)) {
-                        $extension=($LevelForFileTypesDetection>=2 || $MimeHashFamily{$1})?lc($1):'Unknown';
-                        if ($NotPageList{$extension}) { $PageBool=0; }
-                }
-                else {
-                        $extension='Unknown';
-                }
-
-                # Analyze: misc tracker (must be before return code)
-                #---------------------------------------------------
-                if ($urlwithnoquery =~ /$regmisc/o) {
-                        if ($Debug) { debug("  Found an URL that is a MiscTracker record with standalonequery=$standalonequery",2); }
-                        my $foundparam=0;
-                        foreach (split(/&/,$standalonequery)) {
-                                if ($_ =~ /^screen=(\d+)x(\d+)/i)         { $foundparam++; $_screensize_h{"$1x$2"}++; next; }
-                                #if ($_ =~ /cdi=(\d+)/i)                         { $foundparam++; $_screendepth_h{"$1"}++; next; }
-                                if ($_ =~ /^nojs=(\w+)/i)                         { $foundparam++; if ($1 eq 'y')    { $_misc_h{"JavascriptDisabled"}++; } next; }
-                                if ($_ =~ /^java=(\w+)/i)                         { $foundparam++; if ($1 eq 'true') { $_misc_h{"JavaEnabled"}++; } next; }
-                                if ($_ =~ /^shk=(\w+)/i)                         { $foundparam++; if ($1 eq 'y')    { $_misc_h{"DirectorSupport"}++; } next; }
-                                if ($_ =~ /^fla=(\w+)/i)                         { $foundparam++; if ($1 eq 'y')    { $_misc_h{"FlashSupport"}++; } next; }
-                                if ($_ =~ /^rp=(\w+)/i)                                 { $foundparam++; if ($1 eq 'y')    { $_misc_h{"RealPlayerSupport"}++; } next; }
-                                if ($_ =~ /^mov=(\w+)/i)                         { $foundparam++; if ($1 eq 'y')    { $_misc_h{"QuickTimeSupport"}++; } next; }
-                                if ($_ =~ /^wma=(\w+)/i)                         { $foundparam++; if ($1 eq 'y')    { $_misc_h{"WindowsMediaPlayerSupport"}++; } next; }
-                                if ($_ =~ /^pdf=(\w+)/i)                         { $foundparam++; if ($1 eq 'y')    { $_misc_h{"PDFSupport"}++; } next; }
-                        }
-                        if ($foundparam) { $_misc_h{"TotalMisc"}++; }
-                }
-
-                # Analyze: favicon (countedtraffic=>1)
-                #-------------------------------------
-                if ($pos_referer >= 0 && $field[$pos_referer] && $urlwithnoquery =~ /$regfavico/o) {
-                        if (($field[$pos_code] != 404 || $urlwithnoquery !~ /\/.+\/favicon\.ico$/i) && ($field[$pos_agent] =~ /MSIE/)) {
-                                # We don't count one hit if (not on root and error) and MSIE
-                                # If error not on root, another hit will be made on root. If not MSIE, hit are made not only for "Adding".
-                                $_misc_h{'AddToFavourites'}++;        # Hit on favicon on root or without error, we count it
-                        }
-                        $countedtraffic=1;        # favicon is the only case not counted anywhere
-                }
-
-                # Analyze: Worms (countedtraffic=>1 if worm)
-                #-------------------------------------------
-                if (! $countedtraffic) {
-                if ($LevelForWormsDetection) {
-                        foreach (@WormsSearchIDOrder) {
-                                if ($field[$pos_url] =~ /$_/) {
-                                        # It's a worm
-                                        my $worm=&UnCompileRegex($_);
-                                        if ($Debug) { debug(" Record is a hit from a worm identified by '$worm'",2); }
-                                        $worm=$WormsHashID{$worm}||'unknown';
-                                        $_worm_h{$worm}++;
-                                        $_worm_k{$worm}+=int($field[$pos_size]);
-                                        $_worm_l{$worm}=$timerecord;
-                                        $countedtraffic=1;
-                                        if ($PageBool) { $_time_nv_p[$hourrecord]++; }
-                                        $_time_nv_h[$hourrecord]++;
-                                        $_time_nv_k[$hourrecord]+=int($field[$pos_size]);
-                                        last;
-                                }
-                        }
-                }
-        }
-
-                # Analyze: Status code (countedtraffic=>1 if error)
-                #--------------------------------------------------
-                if (! $countedtraffic) {
-                if ($LogType eq 'W' || $LogType eq 'S') {                # HTTP record or Stream record
-                        if ($ValidHTTPCodes{$field[$pos_code]}) {        # Code is valid
-                                if ($field[$pos_code] == 304) { $field[$pos_size]=0; }
-                        }
-                        else {                                                                                # Code is not valid
-                                if ($field[$pos_code] !~ /^\d\d\d$/) { $field[$pos_code]=999; }
-                                $_errors_h{$field[$pos_code]}++;
-                                $_errors_k{$field[$pos_code]}+=int($field[$pos_size]);
-                                foreach my $code (keys %TrapInfosForHTTPErrorCodes) {
-                                        if ($field[$pos_code] == $code) {
-                                                # This is an error code which referrer need to be tracked
-                                                my $newurl=substr($field[$pos_url],0,$MaxLengthOfStoredURL);
-                                                $newurl =~ s/[$URLQuerySeparators].*$//;
-                                                $_sider404_h{$newurl}++;
-                                                my $newreferer=$field[$pos_referer];
-                                                if (! $URLReferrerWithQuery) { $newreferer =~ s/[$URLQuerySeparators].*$//; }
-                                                $_referer404_h{$newurl}=$newreferer;
-                                                last;
-                                        }
-                                }
-                                if ($Debug) { debug(" Record stored in the status code chart (status code=$field[$pos_code])",2); }
-                                $countedtraffic=1;
-                                if ($PageBool) { $_time_nv_p[$hourrecord]++; }
-                                $_time_nv_h[$hourrecord]++;
-                                $_time_nv_k[$hourrecord]+=int($field[$pos_size]);
-                        }
-                }
-                elsif ($LogType eq 'M') {                                                # Mail record
-                        if (! $ValidSMTPCodes{$field[$pos_code]}) {        # Code is not valid
-                                $_errors_h{$field[$pos_code]}++;
-                                $_errors_k{$field[$pos_code]}+=int($field[$pos_size]);        # Size is often 0 when error
-                                if ($Debug) { debug(" Record stored in the status code chart (status code=$field[$pos_code])",2); }
-                                $countedtraffic=1;
-                                if ($PageBool) { $_time_nv_p[$hourrecord]++; }
-                                $_time_nv_h[$hourrecord]++;
-                                $_time_nv_k[$hourrecord]+=int($field[$pos_size]);
-                        }
-                }
-                elsif ($LogType eq 'F') {                                                # FTP record
-                }
-                }
-
-                # Analyze: Robot from robot database (countedtraffic=>1 if robot)
-                #----------------------------------------------------------------
-                if (! $countedtraffic) {
-                if ($pos_agent >= 0) {
-                        if ($DecodeUA) { $field[$pos_agent] =~ s/%20/_/g; }        # This is to support servers (like Roxen) that writes user agent with %20 in it
-                        $UserAgent=$field[$pos_agent];
-
-                        if ($LevelForRobotsDetection) {
-
-                                my $uarobot=$TmpRobot{$UserAgent};
-                                if (! $uarobot) {
-                                        #study $UserAgent;                Does not increase speed
-                                        foreach (@RobotsSearchIDOrder) {
-                                                if ($UserAgent =~ /$_/) {
-                                                        my $bot=&UnCompileRegex($_);
-                                                        $TmpRobot{$UserAgent}=$uarobot="$bot";        # Last time, we won't search if robot or not. We know it is.
-                                                        if ($Debug) { debug("  UserAgent '$UserAgent' is added to TmpRobot with value '$bot'",2); }
-                                                        last;
-                                                }
-                                        }
-                                        if (! $uarobot) {                                                                # Last time, we won't search if robot or not. We know it's not.
-                                                $TmpRobot{$UserAgent}=$uarobot='-';
-                                        }
-                                }
-                                if ($uarobot ne '-') {
-                                        # If robot, we stop here
-                                        if ($Debug) { debug("  UserAgent '$UserAgent' contains robot ID '$uarobot'",2); }
-                                        $_robot_h{$uarobot}++;
-                                        $_robot_k{$uarobot}+=int($field[$pos_size]);
-                                        $_robot_l{$uarobot}=$timerecord;
-                                        if ($urlwithnoquery =~ /$regrobot/o) { $_robot_r{$uarobot}++; }
-                                        $countedtraffic=1;
-                                        if ($PageBool) { $_time_nv_p[$hourrecord]++; }
-                                        $_time_nv_h[$hourrecord]++;
-                                        $_time_nv_k[$hourrecord]+=int($field[$pos_size]);
-                                }
-                        }
-                }
-                }
-
-                # Analyze: Robot from "hit on robots.txt" file (countedtraffic=>1 if robot)
-                # -------------------------------------------------------------------------
-                if (! $countedtraffic) {
-                if ($urlwithnoquery =~ /$regrobot/o) {
-                        if ($Debug) { debug("  It's an unknown robot",2); }
-                        $_robot_h{'unknown'}++;
-                        $_robot_k{'unknown'}+=int($field[$pos_size]);
-                        $_robot_l{'unknown'}=$timerecord;
-                        $_robot_r{'unknown'}++;
-                        $countedtraffic=1;
-                        if ($PageBool) { $_time_nv_p[$hourrecord]++; }
-                        $_time_nv_h[$hourrecord]++;
-                        $_time_nv_k[$hourrecord]+=int($field[$pos_size]);
-                }
-                }
-
-                # Analyze: File type - Compression
-                #---------------------------------
-                if (! $countedtraffic) {
-                if ($LevelForFileTypesDetection) {
-                        $_filetypes_h{$extension}++;
-                        $_filetypes_k{$extension}+=int($field[$pos_size]);        # TODO can cause a warning
-                        # Compression
-                        if ($pos_gzipin>=0 && $field[$pos_gzipin]) {                                                # If in and out in log
-                                my ($notused,$in)=split(/:/,$field[$pos_gzipin]);
-                                my ($notused1,$out,$notused2)=split(/:/,$field[$pos_gzipout]);
-                                if ($out) {
-                                        $_filetypes_gz_in{$extension}+=$in;
-                                        $_filetypes_gz_out{$extension}+=$out;
-                                }
-                        }
-                        elsif ($pos_compratio>=0 && ($field[$pos_compratio] =~ /(\d+)/)) {         # Calculate in/out size from percentage
-                                if ($fieldlib[$pos_compratio] eq 'gzipratio') {
-                                        # with mod_gzip:    % is size (before-after)/before (low for jpg) ??????????
-                                        $_filetypes_gz_in{$extension}+=int($field[$pos_size]*100/((100-$1)||1));
-                                } else {
-                                        # with mod_deflate: % is size after/before (high for jpg)
-                                        $_filetypes_gz_in{$extension}+=int($field[$pos_size]*100/($1||1));
-                                }
-                                $_filetypes_gz_out{$extension}+=int($field[$pos_size]);
-                        }
-                }
-
-                # Analyze: Date - Hour - Pages - Hits - Kilo
-                #-------------------------------------------
-                if ($PageBool) {
-                        # Replace default page name with / only ('if' is to increase speed when only 1 value in @DefaultFile)
-                        if (@DefaultFile > 1) { foreach my $elem (@DefaultFile) { if ($field[$pos_url] =~ s/\/$elem$/\//o) { last; } } }
-                        else { $field[$pos_url] =~ s/$regdefault/\//o; }
-                        # FirstTime and LastTime are First and Last human visits (so changed if access to a page)
-                        $FirstTime{$lastprocessedyearmonth}||=$timerecord;
-                        $LastTime{$lastprocessedyearmonth}=$timerecord;
-                        $DayPages{$yearmonthdayrecord}++;
-                        $_url_p{$field[$pos_url]}++;                                                                                 #Count accesses for page (page)
-                        $_url_k{$field[$pos_url]}+=int($field[$pos_size]);
-                        $_time_p[$hourrecord]++;                                                                                        #Count accesses for hour (page)
-            # TODO Use an id for hash key of url
-            # $_url_t{$_url_id}
-                }
-                $_time_h[$hourrecord]++;
-                $_time_k[$hourrecord]+=int($field[$pos_size]);
-                 $DayHits{$yearmonthdayrecord}++;                                                #Count accesses for hour (hit)
-                 $DayBytes{$yearmonthdayrecord}+=int($field[$pos_size]);        #Count accesses for hour (kb)
-
-                # Analyze: Login
-                #---------------
-                if ($pos_logname>=0 && $field[$pos_logname] && $field[$pos_logname] ne '-') {
-                        $field[$pos_logname] =~ s/ /_/g; # This is to allow space in logname
-                        if ($LogFormat eq '6') { $field[$pos_logname] =~ s/^\"//; $field[$pos_logname] =~ s/\"$//;}        # logname field has " with Domino 6+
-                        if ($AuthenticatedUsersNotCaseSensitive) { $field[$pos_logname]=lc($field[$pos_logname]); }
-
-                        # We found an authenticated user
-                        if ($PageBool) { $_login_p{$field[$pos_logname]}++; }                                #Count accesses for page (page)
-                        $_login_h{$field[$pos_logname]}++;                                                                        #Count accesses for page (hit)
-                        $_login_k{$field[$pos_logname]}+=int($field[$pos_size]);                        #Count accesses for page (kb)
-                        $_login_l{$field[$pos_logname]}=$timerecord;
-                }
-                }
-
-                # Do DNS lookup
-                #--------------
-                my $Host=$field[$pos_host];
-                my $HostResolved='';
-
-                if (! $countedtraffic) {
-                my $ip=0;
-                if ($DNSLookup) {                        # DNS lookup is 1 or 2
-                        if ($Host =~ /$regipv4/o) { $ip=4; }        # IPv4
-                        elsif ($Host =~ /$regipv6/o) { $ip=6; }                                                # IPv6
-                        if ($ip) {
-                                # Check in static DNS cache file
-                                $HostResolved=$MyDNSTable{$Host};
-                                if ($HostResolved) {
-                                        if ($Debug) { debug("  DNS lookup asked for $Host and found in static DNS cache file: $HostResolved",4); }
-                                }
-                                elsif ($DNSLookup==1) {
-                                        # Check in session cache (dynamic DNS cache file + session DNS cache)
-                                        $HostResolved=$TmpDNSLookup{$Host};
-                                        if (! $HostResolved) {
-                                                if (@SkipDNSLookupFor && &SkipDNSLookup($Host)) {
-                                                        $HostResolved=$TmpDNSLookup{$Host}='*';
-                                                        if ($Debug) { debug("  No need of reverse DNS lookup for $Host, skipped at user request.",4); }
-                                                }
-                                                else {
-                                                        if ($ip == 4) {
-                                                                my $lookupresult=gethostbyaddr(pack("C4",split(/\./,$Host)),AF_INET);        # This is very slow, may spend 20 seconds
-                                                                if (! $lookupresult || $lookupresult =~ /$regipv4/o || ! IsAscii($lookupresult)) {
-                                                                        $TmpDNSLookup{$Host}=$HostResolved='*';
-                                                                }
-                                                                else {
-                                                                        $TmpDNSLookup{$Host}=$HostResolved=$lookupresult;
-                                                                }
-                                                                if ($Debug) { debug("  Reverse DNS lookup for $Host done: $HostResolved",4); }
-                                                        }
-                                                        elsif ($ip == 6) {
-                                                                if ($PluginsLoaded{'GetResolvedIP'}{'ipv6'}) {
-                                                                        my $lookupresult=GetResolvedIP_ipv6($Host);
-                                                                        if (! $lookupresult || ! IsAscii($lookupresult)) {
-                                                                                $TmpDNSLookup{$Host}=$HostResolved='*';
-                                                                        }
-                                                                        else {
-                                                                                $TmpDNSLookup{$Host}=$HostResolved=$lookupresult;
-                                                                        }
-                                                                } else {
-                                                                        $TmpDNSLookup{$Host}=$HostResolved='*';
-                                                                        warning("Reverse DNS lookup for $Host not available without ipv6 plugin enabled.");
-                                                                }
-                                                        }
-                                                        else { error("Bad value vor ip"); }
-                                                }
-                                        }
-                                }
-                                else {
-                                        $HostResolved='*';
-                                        if ($Debug) { debug("  DNS lookup by static DNS cache file asked for $Host but not found.",4); }
-                                }
-                        }
-                        else {
-                                if ($Debug) { debug("  DNS lookup asked for $Host but this is not an IP address.",4); }
-                                $DNSLookupAlreadyDone=$LogFile;
-                        }
-                }
-                else {
-                        if ($Host =~ /$regipv4/o) { $HostResolved='*'; $ip=4; }        # IPv4
-                        elsif ($Host =~ /$regipv6/o) { $HostResolved='*'; $ip=6; }                                                # IPv6
-                        if ($Debug) { debug("  No DNS lookup asked.",4); }
-                }
-
-                # Analyze: Country (Top-level domain)
-                #------------------------------------
-                if ($Debug) { debug("  Search country (Host=$Host HostResolved=$HostResolved ip=$ip)",4); }
-                my $Domain='ip';
-                # Set $HostResolved to host and resolve domain
-                if ($HostResolved eq '*') {
-                        # $Host is an IP address and is not resolved (failed or not asked) or resolution gives an IP address
-                        $HostResolved = $Host;
-                        # Resolve Domain
-                        if ($PluginsLoaded{'GetCountryCodeByAddr'}{'geoipfree'}) { $Domain=GetCountryCodeByAddr_geoipfree($HostResolved); }
-                        elsif ($PluginsLoaded{'GetCountryCodeByAddr'}{'geoip'}) { $Domain=GetCountryCodeByAddr_geoip($HostResolved); }
-            if ($AtLeastOneSectionPlugin) {
-                       foreach my $pluginname (keys %{$PluginsLoaded{'SectionProcessHost'}})  {
-                               my $function="SectionProcessHost_$pluginname(\$HostResolved)";
-                               eval("$function");
-                }
-                       }
-                }
-                else {
-                        # $Host was already a host name ($ip=0, $Host=name, $HostResolved='') or has been resolved ($ip>0, $Host=ip, $HostResolved defined)
-                        $HostResolved = lc($HostResolved?$HostResolved:$Host);
-                        # Resolve Domain
-                        if ($ip) {  # If we have ip, we use it in priority instead of hostname
-                                if ($PluginsLoaded{'GetCountryCodeByAddr'}{'geoipfree'}) { $Domain=GetCountryCodeByAddr_geoipfree($Host); }
-                                elsif ($PluginsLoaded{'GetCountryCodeByAddr'}{'geoip'}) { $Domain=GetCountryCodeByAddr_geoip($Host); }
-                                elsif ($HostResolved =~ /\.(\w+)$/) { $Domain=$1; }
-                if ($AtLeastOneSectionPlugin) {
-                           foreach my $pluginname (keys %{$PluginsLoaded{'SectionProcessHostname'}})  {
-                                   my $function="SectionProcessHostname_$pluginname(\$Host)";
-                                   eval("$function");
-                    }
-                }
-                        }
-                        else {
-                                if ($PluginsLoaded{'GetCountryCodeByName'}{'geoipfree'}) { $Domain=GetCountryCodeByName_geoipfree($HostResolved); }
-                                elsif ($PluginsLoaded{'GetCountryCodeByName'}{'geoip'}) { $Domain=GetCountryCodeByName_geoip($HostResolved); }
-                                elsif ($HostResolved =~ /\.(\w+)$/) { $Domain=$1; }
-                if ($AtLeastOneSectionPlugin) {
-                           foreach my $pluginname (keys %{$PluginsLoaded{'SectionProcessHostname'}})  {
-                                   my $function="SectionProcessHostname_$pluginname(\$HostResolved)";
-                                   eval("$function");
-                    }
-                }
-                        }
-                }
-                # Store country
-                if ($PageBool) { $_domener_p{$Domain}++; }
-                $_domener_h{$Domain}++;
-                $_domener_k{$Domain}+=int($field[$pos_size]);
-
-                # Analyze: Host, URL entry+exit and Session
-                #------------------------------------------
-                if ($PageBool) {
-                        my $timehostl=$_host_l{$HostResolved};
-                        if ($timehostl) {
-                                # A visit for this host was already detected
-# TODO everywhere there is $VISITTIMEOUT
-#                                $timehostl =~ /^\d\d\d\d\d\d(\d\d)/; my $daytimehostl=$1;
-#                                if ($timerecord > ($timehostl+$VISITTIMEOUT+($dateparts[3]>$daytimehostl?$NEWDAYVISITTIMEOUT:0))) {
-                                if ($timerecord > ($timehostl+$VISITTIMEOUT)) {
-                                        # This is a second visit or more
-                                        if (! $_waithost_s{$HostResolved}) {
-                                                # This is a second visit or more
-                                                # We count 'visit','exit','entry','DayVisits'
-                                                if ($Debug) { debug("  This is a second visit for $HostResolved.",4); }
-                                                my $timehosts=$_host_s{$HostResolved};
-                                                my $page=$_host_u{$HostResolved};
-                                                if ($page) { $_url_x{$page}++; }
-                                                $_url_e{$field[$pos_url]}++;
-                                                $DayVisits{$yearmonthdayrecord}++;
-                                                # We can't count session yet because we don't have the start so
-                                                # we save params of first 'wait' session
-                                                $_waithost_l{$HostResolved}=$timehostl;
-                                                $_waithost_s{$HostResolved}=$timehosts;
-                                                $_waithost_u{$HostResolved}=$page;
-                                        }
-                                        else {
-                                                # This is third visit or more
-                                                # We count 'session','visit','exit','entry','DayVisits'
-                                                if ($Debug) { debug("  This is a third visit or more for $HostResolved.",4); }
-                                                my $timehosts=$_host_s{$HostResolved};
-                                                my $page=$_host_u{$HostResolved};
-                                                if ($page) { $_url_x{$page}++; }
-                                                $_url_e{$field[$pos_url]}++;
-                                                $DayVisits{$yearmonthdayrecord}++;
-                                                if ($timehosts) { $_session{GetSessionRange($timehosts,$timehostl)}++; }
-                                        }
-                                        # Save new session properties
-                                        $_host_s{$HostResolved}=$timerecord;
-                                        $_host_l{$HostResolved}=$timerecord;
-                                        $_host_u{$HostResolved}=$field[$pos_url];
-                                }
-                                elsif ($timerecord > $timehostl) {
-                                        # This is a same visit we can count
-                                        if ($Debug) { debug("  This is same visit still running for $HostResolved. host_l/host_u changed to $timerecord/$field[$pos_url]",4); }
-                                        $_host_l{$HostResolved}=$timerecord;
-                                        $_host_u{$HostResolved}=$field[$pos_url];
-                                }
-                                elsif ($timerecord == $timehostl) {
-                                        # This is a same visit we can count
-                                        if ($Debug) { debug("  This is same visit still running for $HostResolved. host_l/host_u changed to $timerecord/$field[$pos_url]",4); }
-                                        $_host_u{$HostResolved}=$field[$pos_url];
-                                }
-                                elsif ($timerecord < $_host_s{$HostResolved}) {
-                                        # Should happens only with not correctly sorted log files
-                                        if ($Debug) { debug("  This is same visit still running for $HostResolved with start not in order. host_s changed to $timerecord (entry page also changed if first visit)",4); }
-                                        if (! $_waithost_s{$HostResolved}) {
-                                                # We can reorder entry page only if it's the first visit found in this update run (The saved entry page was $_waithost_e if $_waithost_s{$HostResolved} is not defined. If second visit or more, entry was directly counted and not saved)
-                                                $_waithost_e{$HostResolved}=$field[$pos_url];
-                                        }
-                                        else {
-                                                # We can't change entry counted as we dont't know what was the url counted as entry
-                                        }
-                                        $_host_s{$HostResolved}=$timerecord;
-                                }
-                                else {
-                                        if ($Debug) { debug("  This is same visit still running for $HostResolved with hit between start and last hits. No change",4); }
-                                }
-                        }
-                        else {
-                                # This is a new visit (may be). First new visit found for this host. We save in wait array the entry page to count later
-                                if ($Debug) { debug("  New session (may be) for $HostResolved. Save in wait array to see later",4); }
-                                $_waithost_e{$HostResolved}=$field[$pos_url];
-                                # Save new session properties
-                                $_host_u{$HostResolved}=$field[$pos_url];
-                                $_host_s{$HostResolved}=$timerecord;
-                                $_host_l{$HostResolved}=$timerecord;
-                        }
-                        $_host_p{$HostResolved}++;
-                }
-                $_host_h{$HostResolved}++;
-                $_host_k{$HostResolved}+=int($field[$pos_size]);
-
-                # Analyze: Browser - OS
-                #----------------------
-                if ($pos_agent >= 0 && $UserAgent) {
-
-                        if ($LevelForBrowsersDetection) {
-
-                                # Analyze: Browser
-                                #-----------------
-                                my $uabrowser=$TmpBrowser{$UserAgent};
-                                if (! $uabrowser) {
-                                        my $found=1;
-                                        # IE ?
-                                        if ($UserAgent =~ /$regvermsie/o && $UserAgent !~ /$regnotie/o) {
-                                                $_browser_h{"msie$2"}++;
-                                                $TmpBrowser{$UserAgent}="msie$2";
-                                        }
-                                        # Netscape 6.x, 7.x ... ?
-                                        elsif ($UserAgent =~ /$regvernetscape/o) {
-                                                $_browser_h{"netscape$1"}++;
-                                                $TmpBrowser{$UserAgent}="netscape$1";
-                                        }
-                                        # Netscape 3.x, 4.x ... ?
-                                        elsif ($UserAgent =~ /$regvermozilla/o && $UserAgent !~ /$regnotnetscape/o) {
-                                                $_browser_h{"netscape$2"}++;
-                                                $TmpBrowser{$UserAgent}="netscape$2";
-                                        }
-                                        # Other known browsers ?
-                                        else {
-                                                $found=0;
-                                                foreach (@BrowsersSearchIDOrder) {        # Search ID in order of BrowsersSearchIDOrder
-                                                        if ($UserAgent =~ /$_/) {
-                                                                my $browser=&UnCompileRegex($_);
-                                                                # TODO If browser is in a family, use version
-                                                                $_browser_h{"$browser"}++;
-                                                                $TmpBrowser{$UserAgent}="$browser";
-                                                                $found=1;
-                                                                last;
-                                                        }
-                                                }
-                                        }
-                                        # Unknown browser ?
-                                        if (!$found) {
-                                                $_browser_h{'Unknown'}++;
-                                                $TmpBrowser{$UserAgent}='Unknown';
-                                                my $newua=$UserAgent; $newua =~ tr/\+ /__/;
-                                                $_unknownrefererbrowser_l{$newua}=$timerecord;
-                                        }
-                                }
-                                else {
-                                        $_browser_h{$uabrowser}++;
-                                        if ($uabrowser eq 'Unknown') {
-                                                my $newua=$UserAgent; $newua =~ tr/\+ /__/;
-                                                $_unknownrefererbrowser_l{$newua}=$timerecord;
-                                        }
-                                }
-
-                        }
-
-                        if ($LevelForOSDetection) {
-
-                                # Analyze: OS
-                                #------------
-                                my $uaos=$TmpOS{$UserAgent};
-                                if (! $uaos) {
-                                        my $found=0;
-                                        # in OSHashID list ?
-                                        foreach (@OSSearchIDOrder) {        # Search ID in order of OSSearchIDOrder
-                                                if ($UserAgent =~ /$_/) {
-                                                        my $osid=$OSHashID{&UnCompileRegex($_)};
-                                                        $_os_h{"$osid"}++;
-                                                        $TmpOS{$UserAgent}="$osid";
-                                                        $found=1;
-                                                        last;
-                                                }
-                                        }
-                                        # Unknown OS ?
-                                        if (!$found) {
-                                                $_os_h{'Unknown'}++;
-                                                $TmpOS{$UserAgent}='Unknown';
-                                                my $newua=$UserAgent; $newua =~ tr/\+ /__/;
-                                                $_unknownreferer_l{$newua}=$timerecord;
-                                        }
-                                }
-                                else {
-                                        $_os_h{$uaos}++;
-                                        if ($uaos eq 'Unknown') {
-                                                my $newua=$UserAgent; $newua =~ tr/\+ /__/;
-                                                $_unknownreferer_l{$newua}=$timerecord;
-                                        }
-                                }
-
-                        }
-
-                }
-                else {
-                        $_browser_h{'Unknown'}++;
-                        $_os_h{'Unknown'}++;
-                }
-
-                # Analyze: Referer
-                #-----------------
-                my $found=0;
-                if ($pos_referer >= 0 && $LevelForRefererAnalyze && $field[$pos_referer]) {
-
-                        # Direct ?
-                        if ($field[$pos_referer] eq '-' || $field[$pos_referer] eq 'bookmarks') {        # "bookmarks" is sent by Netscape, '-' by all others browsers
-                                # Direct access
-                                if ($PageBool) { $_from_p[0]++; }
-                                $_from_h[0]++;
-                                $found=1;
-                        }
-                        else {
-                                $field[$pos_referer] =~ /$regreferer/o;
-                                my $refererprot=$1;
-                                my $refererserver=($2||'').(! $3 || $3 eq ':80'?'':$3);        # refererserver is www.xxx.com or www.xxx.com:81 but not www.xxx.com:80
-                                # HTML link ?
-                                if ($refererprot =~ /^http/i) {
-                                        #if ($Debug) { debug("  Analyze referer refererprot=$refererprot refererserver=$refererserver",5); }
-
-                                        # Kind of origin
-                                        if (!$TmpRefererServer{$refererserver}) {        # is "=" if same site, "search egine key" if search engine, not defined otherwise
-                                                if ($refererserver =~ /$reglocal/o) {
-                                                        # Intern (This hit came from another page of the site)
-                                                        if ($Debug) { debug("  Server '$refererserver' is added to TmpRefererServer with value '='",2); }
-                                                        $TmpRefererServer{$refererserver}='=';
-                                                        $found=1;
-                                                }
-                                                else {
-                                                        foreach (@HostAliases) {
-                                                                if ($refererserver =~ /$_/) {
-                                                                        # Intern (This hit came from another page of the site)
-                                                                        if ($Debug) { debug("  Server '$refererserver' is added to TmpRefererServer with value '='",2); }
-                                                                        $TmpRefererServer{$refererserver}='=';
-                                                                        $found=1;
-                                                                        last;
-                                                                }
-                                                        }
-                                                        if (! $found) {
-                                                                # Extern (This hit came from an external web site).
-
-                                                                if ($LevelForSearchEnginesDetection) {
-
-                                                                        foreach (@SearchEnginesSearchIDOrder) {                # Search ID in order of SearchEnginesSearchIDOrder
-                                                                                if ($refererserver =~ /$_/) {
-                                                                                        my $key=&UnCompileRegex($_);
-                                                                                        if (! $NotSearchEnginesKeys{$key} || $refererserver !~ /$NotSearchEnginesKeys{$key}/i) {
-                                                                                                # This hit came from the search engine $key
-                                                                                                if ($Debug) { debug("  Server '$refererserver' is added to TmpRefererServer with value '$key'",2); }
-                                                                                                $TmpRefererServer{$refererserver}=$SearchEnginesHashID{$key};
-                                                                                                $found=1;
-                                                                                        }
-                                                                                        last;
-                                                                                }
-                                                                        }
-
-                                                                }
-                                                        }
-                                                }
-                                        }
-
-                                        if ($TmpRefererServer{$refererserver}) {
-                                                if ($TmpRefererServer{$refererserver} eq '=') {
-                                                        # Intern (This hit came from another page of the site)
-                                                        if ($PageBool) { $_from_p[4]++; }
-                                                        $_from_h[4]++;
-                                                        $found=1;
-                                                }
-                                                else {
-                                                        # This hit came from a search engine
-                                                        if ($PageBool) { $_from_p[2]++; $_se_referrals_p{$TmpRefererServer{$refererserver}}++; }
-                                                        $_from_h[2]++;
-                                                        $_se_referrals_h{$TmpRefererServer{$refererserver}}++;
-                                                        $found=1;
-                                                        if ($PageBool && $LevelForKeywordsDetection) {
-                                                                # we will complete %_keyphrases hash array
-                                                                my @refurl=split(/\?/,$field[$pos_referer],2);        # TODO Use \? or [$URLQuerySeparators] ?
-                                                                if ($refurl[1]) {
-                                                                        # Extract params of referer query string (q=cache:mmm:www/zzz+aaa+bbb q=aaa+bbb/ccc key=ddd%20eee lang_en ie=UTF-8 ...)
-                                                                        if ($SearchEnginesKnownUrl{$TmpRefererServer{$refererserver}}) {        # Search engine with known URL syntax
-                                                                                my @paramlist=split(/&/,$KeyWordsNotSensitive?lc($refurl[1]):$refurl[1]);
-                                                                                foreach my $param (@paramlist) {
-                                                                                        if ($param =~ s/^$SearchEnginesKnownUrl{$TmpRefererServer{$refererserver}}//) {
-                                                                                                # We found good parameter
-                                                                                                # Now param is keyphrase: "cache:mmm:www/zzz+aaa+bbb/ccc+ddd%20eee'fff,ggg"
-                                                                                                $param =~ s/^(cache|related):[^\+]+//;        # Should be useless since this is for hit on 'not pages'
-                                                                                                &ChangeWordSeparatorsIntoSpace($param);        # Change [ aaa+bbb/ccc+ddd%20eee'fff,ggg ] into [ aaa bbb/ccc ddd eee fff ggg]
-                                                                                                $param =~ s/^ +//; $param =~ s/ +$//; $param =~ tr/ /\+/s;
-                                                                                                if ((length $param) > 0) { $_keyphrases{$param}++; }
-                                                                                                last;
-                                                                                        }
-                                                                                }
-                                                                        }
-                                                                        elsif ($LevelForKeywordsDetection >= 2) {                                                        # Search engine with unknown URL syntax
-                                                                                my @paramlist=split(/&/,$KeyWordsNotSensitive?lc($refurl[1]):$refurl[1]);
-                                                                                foreach my $param (@paramlist) {
-                                                                                        my $foundexcludeparam=0;
-                                                                                        foreach my $paramtoexclude (@WordsToCleanSearchUrl) {
-                                                                                                if ($param =~ /$paramtoexclude/i) { $foundexcludeparam=1; last; } # Not the param with search criteria
-                                                                                        }
-                                                                                        if ($foundexcludeparam) { next; }
-                                                                                        # We found good parameter
-                                                                                        $param =~ s/.*=//;
-                                                                                        # Now param is keyphrase: "aaa+bbb/ccc+ddd%20eee'fff,ggg"
-                                                                                        $param =~ s/^(cache|related):[^\+]+//;                # Should be useless since this is for hit on 'not pages'
-                                                                                        &ChangeWordSeparatorsIntoSpace($param);                # Change [ aaa+bbb/ccc+ddd%20eee'fff,ggg ] into [ aaa bbb/ccc ddd eee fff ggg ]
-                                                                                        $param =~ s/^ +//; $param =~ s/ +$//; $param =~ tr/ /\+/s;
-                                                                                        if ((length $param) > 2) { $_keyphrases{$param}++; last; }
-                                                                                }
-                                                                        }
-                                                                }        # End of if refurl[1]
-                                                        }
-                                                }
-                                        }        # End of if ($TmpRefererServer)
-                                        else {
-                                                # This hit came from a site other than a search engine
-                                                if ($PageBool) { $_from_p[3]++; }
-                                                $_from_h[3]++;
-                                                # http://www.mysite.com/ must be same referer than http://www.mysite.com but .../mypage/ differs of .../mypage
-                                                #if ($refurl[0] =~ /^[^\/]+\/$/) { $field[$pos_referer] =~ s/\/$//; }        # Code moved in Save_History
-                                                # TODO: lowercase the value for referer server to have refering server not case sensitive
-                                                if ($URLReferrerWithQuery) {
-                                                        if ($PageBool) { $_pagesrefs_p{$field[$pos_referer]}++; }
-                                                        $_pagesrefs_h{$field[$pos_referer]}++;
-                                                }
-                                                else {
-                                                        # We discard query for referer
-                                                        if ($field[$pos_referer]=~/$regreferernoquery/o) {
-                                                                if ($PageBool) { $_pagesrefs_p{"$1"}++; }
-                                                                $_pagesrefs_h{"$1"}++;
-                                                        }
-                                                        else {
-                                                                if ($PageBool) { $_pagesrefs_p{$field[$pos_referer]}++; }
-                                                                $_pagesrefs_h{$field[$pos_referer]}++;
-                                                        }
-                                                }
-                                                $found=1;
-                                        }
-                                }
-
-                                # News Link ?
-                                if (! $found && $refererprot =~ /^news/i) {
-                                        $found=1;
-                                        if ($PageBool) { $_from_p[5]++; }
-                                        $_from_h[5]++;
-                                }
-                        }
-                }
-
-                # Origin not found
-                if (!$found) {
-                        if ($ShowUnknownOrigin) { print "Unknown origin: $field[$pos_referer]\n"; }
-                        if ($PageBool) { $_from_p[1]++; }
-                        $_from_h[1]++;
-                }
-
-                # Analyze: EMail
-                #---------------
-                if ($pos_emails>=0 && $field[$pos_emails]) {
-                        if ($field[$pos_emails] eq '<>') { $field[$pos_emails]='Unknown'; }
-                        elsif ($field[$pos_emails] !~ /\@/) { $field[$pos_emails].="\@$SiteDomain"; }
-                        $_emails_h{lc($field[$pos_emails])}++;                                                                        #Count accesses for sender email (hit)
-                        $_emails_k{lc($field[$pos_emails])}+=int($field[$pos_size]);                        #Count accesses for sender email (kb)
-                        $_emails_l{lc($field[$pos_emails])}=$timerecord;
-                }
-                if ($pos_emailr>=0 && $field[$pos_emailr]) {
-                        if ($field[$pos_emailr] !~ /\@/) { $field[$pos_emailr].="\@$SiteDomain"; }
-                        $_emailr_h{lc($field[$pos_emailr])}++;                                                                        #Count accesses for receiver email (hit)
-                        $_emailr_k{lc($field[$pos_emailr])}+=int($field[$pos_size]);                        #Count accesses for receiver email (kb)
-                        $_emailr_l{lc($field[$pos_emailr])}=$timerecord;
-                }
-                }
-
-                # Check cluster
-                #--------------
-                if ($pos_cluster>=0) {
-                        if ($PageBool) { $_cluster_p{$field[$pos_cluster]}++; }                                #Count accesses for page (page)
-                        $_cluster_h{$field[$pos_cluster]}++;                                                                #Count accesses for page (hit)
-                        $_cluster_k{$field[$pos_cluster]}+=int($field[$pos_size]);                        #Count accesses for page (kb)
-                }
-
-                # Analyze: Extra
-                #---------------
-                 foreach my $extranum (1..@ExtraName-1) {
-                        if ($Debug) { debug("  Process extra analyze $extranum",4); }
-
-                         # Check code
-                         my $conditionok=0;
-                         foreach my $condnum (0..@{$ExtraCodeFilter[$extranum]}-1) {
-                                if ($Debug) { debug("  Check code '$field[$pos_code]' must be '$ExtraCodeFilter[$extranum][$condnum]'",5); }
-                                if ($field[$pos_code] eq "$ExtraCodeFilter[$extranum][$condnum]") { $conditionok=1; last; }
-                        }
-                        if (! $conditionok && @{$ExtraCodeFilter[$extranum]}) { next; }        # End for this section
-                        if ($Debug) { debug("  No check on code or code is OK. Now we check other conditions.",5); }
-
-                         # Check conditions
-                         $conditionok=0;
-                         foreach my $condnum (0..@{$ExtraConditionType[$extranum]}-1) {
-                                 my $conditiontype=$ExtraConditionType[$extranum][$condnum];
-                                 my $conditiontypeval=$ExtraConditionTypeVal[$extranum][$condnum];
-                                 if ($conditiontype eq 'URL') {
-                                        if ($Debug) { debug("  Check condition '$conditiontype' must contain '$conditiontypeval' in '$urlwithnoquery'",5); }
-                                         if ($urlwithnoquery =~ /$conditiontypeval/) { $conditionok=1; last; }
-                                 }
-                                 elsif ($conditiontype eq 'QUERY_STRING') {
-                                        if ($Debug) { debug("  Check condition '$conditiontype' must contain '$conditiontypeval' in '$standalonequery'",5); }
-                                         if ($standalonequery =~ /$conditiontypeval/) {        $conditionok=1; last; }
-                                 }
-                                 elsif ($conditiontype eq 'REFERER') {
-                                        if ($Debug) { debug("  Check condition '$conditiontype' must contain '$conditiontypeval' in '$field[$pos_referer]'",5); }
-                                         if ($field[$pos_referer] =~ /$conditiontypeval/) { $conditionok=1; last; }
-                                 }
-                                 elsif ($conditiontype eq 'UA') {
-                                        if ($Debug) { debug("  Check condition '$conditiontype' must contain '$conditiontypeval' in '$field[$pos_agent]'",5); }
-                                         if ($field[$pos_agent] =~ /$conditiontypeval/) { $conditionok=1; last; }
-                                 }
-                                 elsif ($conditiontype eq 'HOST') {
-                                        if ($Debug) { debug("  Check condition '$conditiontype' must contain '$conditiontypeval' in '$field[$pos_host]'",5); }
-                                         if ($HostResolved =~ /$conditiontypeval/) { $conditionok=1; last; }
-                                 }
-                                 elsif ($conditiontype =~ /extra(\d+)/i) {
-                                        if ($Debug) { debug("  Check condition '$conditiontype' must contain '$conditiontypeval' in '$field[$pos_extra[$1]]'",5); }
-                                         if ($field[$pos_extra[$1]] =~ /$conditiontypeval/) { $conditionok=1; last; }
-                }
-                                 else { error("Wrong value of parameter ExtraSectionCondition$extranum"); }
-                         }
-                        if (! $conditionok && @{$ExtraConditionType[$extranum]}) { next; }        # End for this section
-                        if ($Debug) { debug("  No condition or condition is OK. Now we extract value for first column of extra chart.",5); }
-
-                         # Determine actual column value to use.
-                         my $rowkeyval;
-                        my $rowkeyok=0;
-                         foreach my $rowkeynum (0..@{$ExtraFirstColumnValuesType[$extranum]}-1) {
-                                 my $rowkeytype=$ExtraFirstColumnValuesType[$extranum][$rowkeynum];
-                                 my $rowkeytypeval=$ExtraFirstColumnValuesTypeVal[$extranum][$rowkeynum];
-                                if ($rowkeytype eq 'URL') {
-                                        if ($urlwithnoquery =~ /$rowkeytypeval/) { $rowkeyval = "$1"; $rowkeyok = 1; last; }
-                                }
-                                 elsif ($rowkeytype eq 'QUERY_STRING') {
-                                        if ($Debug) { debug("  Extract value from '$standalonequery' with regex '$rowkeytypeval'.",5); }
-                                         if ($standalonequery =~ /$rowkeytypeval/) { $rowkeyval = "$1"; $rowkeyok = 1; last; }
-                                 }
-                                 elsif ($rowkeytype eq 'REFERER') {
-                                         if ($field[$pos_referer] =~ /$rowkeytypeval/) { $rowkeyval = "$1"; $rowkeyok = 1; last; }
-                                 }
-                                 elsif ($rowkeytype eq 'UA') {
-                                         if ($field[$pos_agent] =~ /$rowkeytypeval/) { $rowkeyval = "$1"; $rowkeyok = 1; last; }
-                                 }
-                                 elsif ($rowkeytype eq 'HOST') {
-                                         if ($HostResolved =~ /$rowkeytypeval/) { $rowkeyval = "$1"; $rowkeyok = 1; last; }
-                                 }
-                                 elsif ($rowkeytype =~ /extra(\d+)/i) {
-                                         if ($field[$pos_extra[$1]] =~ /$rowkeytypeval/) { $rowkeyval = "$1"; $rowkeyok = 1; last; }
-                                 }
-                                 else { error("Wrong value of parameter ExtraSectionFirstColumnValues$extranum"); }
-                         }
-                        if (! $rowkeyok) { next; }        # End for this section
-                        if ($Debug) { debug("  Key val was found: $rowkeyval",5); }
-
-                         # Here we got all values to increase counters
-                         if ($PageBool && $ExtraStatTypes[$extranum] =~ /P/i) { ${'_section_' . $extranum . '_p'}{$rowkeyval}++; }
-                         ${'_section_' . $extranum . '_h'}{$rowkeyval}++;        # Must be set
-                         if ($ExtraStatTypes[$extranum] =~ /B/i) { ${'_section_' . $extranum . '_k'}{$rowkeyval}+=int($field[$pos_size]); }
-                         if ($ExtraStatTypes[$extranum] =~ /L/i) {
-                                 if (${'_section_' . $extranum . '_l'}{$rowkeyval}||0 < $timerecord) { ${'_section_' . $extranum . '_l'}{$rowkeyval}=$timerecord; }
-                         }
-                        # Check to avoid too large extra sections
-                        if (scalar keys %{'_section_' . $extranum . '_h'} > $ExtraTrackedRowsLimit) {
-                                error(<<END_ERROR_TEXT);
-The number of values found for extra section $extranum has grown too large.
-In order to prevent awstats from using an excessive amount of memory, the number
-of values is currently limited to $ExtraTrackedRowsLimit. Perhaps you should consider
-revising extract parameters for extra section $extranum. If you are certain you
-want to track such a large data set, you can increase the limit by setting
-ExtraTrackedRowsLimit in your awstats configuration file.
-END_ERROR_TEXT
-                        }
-                 }
-
-                # Every 20,000 approved lines after a flush, we test to clean too large hash arrays to flush data in tmp file
-                if (++$counterforflushtest >= 20000) {
-                #if (++$counterforflushtest >= 1) {
-                        if ((scalar keys %_host_u) > ($LIMITFLUSH<<2) || (scalar keys %_url_p) > $LIMITFLUSH) {
-                                # warning("Warning: Try to run AWStats update process more frequently to analyze smaler log files.");
-                                if ($^X =~ /activestate/i || $^X =~ /activeperl/i) {
-                                        # We don't flush if perl is activestate to avoid slowing process because of memory hole
-                                }
-                                else {
-                                        # Clean tmp hash arrays
-                                        #%TmpDNSLookup = ();
-                                        %TmpOS = %TmpRefererServer = %TmpRobot = %TmpBrowser = ();
-                                        # We flush if perl is not activestate
-                                        print "Flush history file on disk";
-                                        if ((scalar keys %_host_u) > ($LIMITFLUSH<<2)) { print " (unique hosts reach flush limit of ".($LIMITFLUSH<<2).")"; }
-                                        if ((scalar keys %_url_p) > $LIMITFLUSH) { print " (unique url reach flush limit of ".($LIMITFLUSH).")"; }
-                                        print "\n";
-                                        if ($Debug) {
-                                                debug("End of set of $counterforflushtest records: Some hash arrays are too large. We flush and clean some.",2);
-                                                print " _host_p:".(scalar keys %_host_p)." _host_h:".(scalar keys %_host_h)." _host_k:".(scalar keys %_host_k)." _host_l:".(scalar keys %_host_l)." _host_s:".(scalar keys %_host_s)." _host_u:".(scalar keys %_host_u)."\n";
-                                                print " _url_p:".(scalar keys %_url_p)." _url_k:".(scalar keys %_url_k)." _url_e:".(scalar keys %_url_e)." _url_x:".(scalar keys %_url_x)."\n";
-                                                print " _waithost_e:".(scalar keys %_waithost_e)." _waithost_l:".(scalar keys %_waithost_l)." _waithost_s:".(scalar keys %_waithost_s)." _waithost_u:".(scalar keys %_waithost_u)."\n";
-                                        }
-                                        &Read_History_With_TmpUpdate($lastprocessedyear,$lastprocessedmonth,1,1,"all",($lastlinenb+$NbOfLinesParsed),$lastlineoffset,&CheckSum($_));
-                                        &GetDelaySinceStart(1);        $NbOfLinesShowsteps=1;
-                                }
-                        }
-                        $counterforflushtest=0;
-                }
-
-        }        # End of loop for processing new record.
-
-        if ($Debug) {
-                debug(" _host_p:".(scalar keys %_host_p)." _host_h:".(scalar keys %_host_h)." _host_k:".(scalar keys %_host_k)." _host_l:".(scalar keys %_host_l)." _host_s:".(scalar keys %_host_s)." _host_u:".(scalar keys %_host_u)."\n",1);
-                debug(" _url_p:".(scalar keys %_url_p)." _url_k:".(scalar keys %_url_k)." _url_e:".(scalar keys %_url_e)." _url_x:".(scalar keys %_url_x)."\n",1);
-                debug(" _waithost_e:".(scalar keys %_waithost_e)." _waithost_l:".(scalar keys %_waithost_l)." _waithost_s:".(scalar keys %_waithost_s)." _waithost_u:".(scalar keys %_waithost_u)."\n",1);
-                debug("End of processing log file (AWStats memory cache is TmpDNSLookup=".(scalar keys %TmpDNSLookup)." TmpBrowser=".(scalar keys %TmpBrowser)." TmpOS=".(scalar keys %TmpOS)." TmpRefererServer=".(scalar keys %TmpRefererServer)." TmpRobot=".(scalar keys %TmpRobot).")",1);
-        }
-
-        # Save current processed month $lastprocessedmonth
-        # If lastprocessedmonth > 0 means there is at least one approved new record in log or at least one existing history file
-        if ($lastprocessedmonth) {        # TODO: Do not save if we are sure a flush was just already done
-                # Get last line
-                seek(LOG,$lastlineoffset,0);
-                my $line=<LOG>;
-                 chomp $line; $line =~ s/\r$//;
-                if (! $NbOfLinesParsed) {
-                        # TODO If there was no lines parsed (log was empty), we only update LastUpdate line with YYYYMMDDHHMMSS 0 0 0 0 0
-                        &Read_History_With_TmpUpdate($lastprocessedyear,$lastprocessedmonth,1,1,"all",($lastlinenb+$NbOfLinesParsed),$lastlineoffset,&CheckSum($line));
-                }
-                else {
-                        &Read_History_With_TmpUpdate($lastprocessedyear,$lastprocessedmonth,1,1,"all",($lastlinenb+$NbOfLinesParsed),$lastlineoffset,&CheckSum($line));
-                }
-        }
-
-        if ($Debug) { debug("Close log file \"$LogFile\""); }
-        close LOG || error("Command for pipe '$LogFile' failed");
-
-        # Process the Rename - Archive - Purge phase
-        my $renameok=1; my $archiveok=1;
-
-        # Open Log file for writing if PurgeLogFile is on
-        if ($PurgeLogFile == 1) {
-                if ($ArchiveLogRecords == 1) {
-                        $ArchiveFileName="$DirData/${PROG}_archive$FileSuffix.log";
-                        open(LOG,"+<$LogFile") || error("Enable to archive log records of \"$LogFile\" into \"$ArchiveFileName\" because source can't be opened for read and write: $!<br />\n");
-                }
-                else {
-                        open(LOG,"+<$LogFile");
-                }
-                binmode LOG;
-        }
-
-        # Rename all HISTORYTMP files into HISTORYTXT
-        &Rename_All_Tmp_History;
-
-        # Purge Log file if option is on and all renaming are ok
-        if ($PurgeLogFile == 1) {
-                # Archive LOG file into ARCHIVELOG
-                if ($ArchiveLogRecords == 1) {
-                        if ($Debug) { debug("Start of archiving log file"); }
-                        open(ARCHIVELOG,">>$ArchiveFileName") || error("Couldn't open file \"$ArchiveFileName\" to archive log: $!");
-                        binmode ARCHIVELOG;
-                        while (<LOG>) {
-                                if (! print ARCHIVELOG $_) { $archiveok=0; last; }
-                        }
-                        close(ARCHIVELOG) || error("Archiving failed during closing archive: $!");
-                        if ($SaveDatabaseFilesWithPermissionsForEveryone) {        chmod 0666,"$ArchiveFileName"; }
-                        if ($Debug) { debug("End of archiving log file"); }
-                }
-                # If rename and archive ok
-                if ($renameok && $archiveok) {
-                        if ($Debug) { debug("Purge log file"); }
-                        my $bold=($ENV{'GATEWAY_INTERFACE'}?'<b>':'');
-                        my $unbold=($ENV{'GATEWAY_INTERFACE'}?'</b>':'');
-                        my $br=($ENV{'GATEWAY_INTERFACE'}?'<br />':'');
-                        truncate(LOG,0) || warning("Warning: $bold$PROG$unbold couldn't purge logfile \"$bold$LogFile$unbold\".$br\nChange your logfile permissions to allow write for your web server CGI process or change PurgeLogFile=1 into PurgeLogFile=0 in configure file and think to purge sometimes manually your logfile (just after running an update process to not loose any not already processed records your log file contains).");
-                }
-                close(LOG);
-        }
-
-        if ($DNSLookup==1 && $DNSLookupAlreadyDone) {
-                # DNSLookup warning
-                my $bold=($ENV{'GATEWAY_INTERFACE'}?'<b>':'');
-                my $unbold=($ENV{'GATEWAY_INTERFACE'}?'</b>':'');
-                my $br=($ENV{'GATEWAY_INTERFACE'}?'<br />':'');
-                warning("Warning: $bold$PROG$unbold has detected that some hosts names were already resolved in your logfile $bold$DNSLookupAlreadyDone$unbold.$br\nIf DNS lookup was already made by the logger (web server), you should change your setup DNSLookup=$DNSLookup into DNSLookup=0 to increase $PROG speed.");
-        }
-        if ($DNSLookup==1 && $NbOfNewLines) {
-                # Save new DNS last update cache file
-                Save_DNS_Cache_File(\%TmpDNSLookup,"$DirData/$DNSLastUpdateCacheFile","$FileSuffix");        # Save into file using FileSuffix
-        }
-
-        if ($EnableLockForUpdate) {
-                # Remove lock
-                &Lock_Update(0);
-                # Restore signals handler
-                $SIG{INT} = 'DEFAULT';        # 2
-                #$SIG{KILL} = 'DEFAULT';        # 9
-                #$SIG{TERM} = 'DEFAULT';        # 15
-        }
-
-}
-# End of log processing if ($UPdateStats)
-
-
-#---------------------------------------------------------------------
-# SHOW REPORT
-#---------------------------------------------------------------------
-
-if (scalar keys %HTMLOutput) {
-
-        my $max_p; my $max_h; my $max_k; my $max_v;
-        my $total_u; my $total_v; my $total_p; my $total_h; my $total_k; my $total_e; my $total_x; my $total_s; my $total_l; my $total_r;
-        my $average_u; my $average_v; my $average_p; my $average_h; my $average_k; my $average_s;
-        my $rest_p; my $rest_h; my $rest_k; my $rest_e; my $rest_x; my $rest_s; my $rest_l; my $rest_r;
-        my $average_nb;
-
-        # Define the NewLinkParams for main chart
-        my $NewLinkParams=${QueryString};
-        $NewLinkParams =~ s/(^|&)update(=\w*|$)//i;
-        $NewLinkParams =~ s/(^|&)output(=\w*|$)//i;
-        $NewLinkParams =~ s/(^|&)staticlinks(=\w*|$)//i;
-        $NewLinkParams =~ s/(^|&)framename=[^&]*//i;
-        my $NewLinkTarget='';
-        if ($DetailedReportsOnNewWindows) { $NewLinkTarget=" target=\"awstatsbis\""; }
-        if (($FrameName eq 'mainleft' || $FrameName eq 'mainright') && $DetailedReportsOnNewWindows < 2) {
-                $NewLinkParams.="&framename=mainright";
-                $NewLinkTarget=" target=\"mainright\"";
-        }
-        $NewLinkParams =~ tr/&/&/s; $NewLinkParams =~ s/^&//; $NewLinkParams =~ s/&$//;
-        if ($NewLinkParams) { $NewLinkParams="${NewLinkParams}&"; }
-
-        if ($FrameName ne 'mainleft') {
-
-                # READING DATA
-                #-------------
-                &Init_HashArray();
-
-                # Loop on each month of year
-                for (my $ix=12; $ix>=1; $ix--) {
-                        my $monthix=sprintf("%02s",$ix);
-                        if ($MonthRequired eq 'all' || $monthix eq $MonthRequired) {
-                                &Read_History_With_TmpUpdate($YearRequired,$monthix,0,0,"all");                                # Read full history file
-                        }
-                        elsif (($HTMLOutput{'main'} && $ShowMonthStats) || $HTMLOutput{'alldays'}) {
-                                &Read_History_With_TmpUpdate($YearRequired,$monthix,0,0,"general time");        # Read general and time sections.
-                        }
-                }
-        }
-
-        # HTMLHeadSection
-        if ($FrameName ne 'index' && $FrameName ne 'mainleft') {
-                print "<a name=\"top\">&nbsp;</a>\n\n";
-                print "$HTMLHeadSection\n";
-                print "\n";
-        }
-
-        # Call to plugins' function AddHTMLBodyHeader
-        foreach my $pluginname (keys %{$PluginsLoaded{'AddHTMLBodyHeader'}})  {
-                my $function="AddHTMLBodyHeader_$pluginname()";
-                eval("$function");
-        }
-
-    my $WIDTHMENU1=($FrameName eq 'mainleft'?$FRAMEWIDTH:150);
-
-        # TOP BAN
-        #---------------------------------------------------------------------
-        if ($ShowMenu || $FrameName eq 'mainleft') {
-                my $frame=($FrameName eq 'mainleft');
-
-                if ($Debug) { debug("ShowTopBan",2); }
-                print "$Center<a name=\"menu\">&nbsp;</a>\n";
-
-                if ($FrameName ne 'mainleft') {
-                        my $NewLinkParams=${QueryString};
-                        $NewLinkParams =~ s/(^|&)update(=\w*|$)//i;
-                        $NewLinkParams =~ s/(^|&)staticlinks(=\w*|$)//i;
-                        $NewLinkParams =~ s/(^|&)year=[^&]*//i;
-                        $NewLinkParams =~ s/(^|&)month=[^&]*//i;
-                        $NewLinkParams =~ s/(^|&)framename=[^&]*//i;
-                        $NewLinkParams =~ tr/&/&/s; $NewLinkParams =~ s/^&//; $NewLinkParams =~ s/&$//;
-                        my $NewLinkTarget='';
-                        if ($FrameName eq 'mainright') { $NewLinkTarget=" target=\"_parent\""; }
-                        print "<form name=\"FormDateFilter\" action=\"".XMLEncode("$AWScript?${NewLinkParams}")."\" style=\"padding: 0px 0px 0px 0px; margin-top: 0\"$NewLinkTarget>\n";
-                }
-
-                if ($QueryString !~ /buildpdf/i) {
-                        print "<table class=\"aws_border\" border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"100%\">\n";
-                        print "<tr><td>\n";
-                        print "<table class=\"aws_data\" border=\"0\" cellpadding=\"1\" cellspacing=\"0\" width=\"100%\">\n";
-                }
-                else {
-                        print "<table width=\"100%\">\n";
-                }
-
-                if ($FrameName ne 'mainright') {
-                        # Print Statistics Of
-                        if ($FrameName eq 'mainleft') { print "<tr><td class=\"awsm\"><b>$Message[7]:</b></td></tr><tr><td class=\"aws\"><span style=\"font-size: 12px;\">$SiteDomain</span></td>"; }
-                        else { print "<tr><td class=\"aws\" valign=\"middle\"><b>$Message[7]:</b>&nbsp;</td><td class=\"aws\" valign=\"middle\"><span style=\"font-size: 14px;\">$SiteDomain</span></td>"; }
-
-                        # Logo and flags
-                        if ($FrameName ne 'mainleft') {
-                                if ($LogoLink =~ "http://awstats.sourceforge.net") {
-                                        print "<td align=\"right\" rowspan=\"3\"><a href=\"".XMLEncode($LogoLink)."\" target=\"awstatshome\"><img src=\"$DirIcons/other/$Logo\" border=\"0\"".AltTitle(ucfirst($PROG)." Web Site")." /></a>";
-                                }
-                                else {
-                                        print "<td align=\"right\" rowspan=\"3\"><a href=\"".XMLEncode($LogoLink)."\" target=\"awstatshome\"><img src=\"$DirIcons/other/$Logo\" border=\"0\" /></a>";
-                                }
-                                if (! $StaticLinks) { print "<br />"; Show_Flag_Links($Lang); }
-                                print "</td>";
-                        }
-                        print  "</tr>\n";
-                }
-                if ($FrameName ne 'mainleft') {
-                        # Print Last Update
-                        print "<tr valign=\"middle\"><td class=\"aws\" valign=\"middle\" width=\"$WIDTHMENU1\"><b>$Message[35]:</b>&nbsp;</td>";
-                        print "<td class=\"aws\" valign=\"middle\"><span style=\"font-size: 12px;\">";
-                        if ($LastUpdate) { print Format_Date($LastUpdate,0); }
-                        else {
-                                # Here NbOfOldLines = 0 (because LastUpdate is not defined)
-                                if (! $UpdateStats) { print "<span style=\"color: #880000\">$Message[24]</span>"; }
-                                else { print "<span style=\"color: #880000\">No qualified records found in log ($NbOfLinesCorrupted corrupted, $NbOfLinesDropped dropped)</span>"; }
-
-                        }
-                        print "</span>";
-                        # Print Update Now link
-                        if ($AllowToUpdateStatsFromBrowser && ! $StaticLinks) {
-                                my $NewLinkParams=${QueryString};
-                                $NewLinkParams =~ s/(^|&)update(=\w*|$)//i;
-                                $NewLinkParams =~ s/(^|&)staticlinks(=\w*|$)//i;
-                                $NewLinkParams =~ s/(^|&)framename=[^&]*//i;
-                                if ($FrameName eq 'mainright') { $NewLinkParams.="&framename=mainright"; }
-                                $NewLinkParams =~ tr/&/&/s; $NewLinkParams =~ s/^&//; $NewLinkParams =~ s/&$//;
-                                if ($NewLinkParams) { $NewLinkParams="${NewLinkParams}&"; }
-                                print "&nbsp; &nbsp; &nbsp; &nbsp;";
-                                print "<a href=\"".XMLEncode("$AWScript?${NewLinkParams}update=1")."\">$Message[74]</a>";
-                        }
-                        print "</td>";
-
-                        # Logo and flags
-                        if ($FrameName eq 'mainright') {
-                                if ($LogoLink =~ "http://awstats.sourceforge.net") {
-                                        print "<td align=\"right\" rowspan=\"2\"><a href=\"".XMLEncode($LogoLink)."\" target=\"awstatshome\"><img src=\"$DirIcons/other/$Logo\" border=\"0\"".AltTitle(ucfirst($PROG)." Web Site")." /></a>\n";
-                                }
-                                else {
-                                        print "<td align=\"right\" rowspan=\"2\"><a href=\"".XMLEncode($LogoLink)."\" target=\"awstatshome\"><img src=\"$DirIcons/other/$Logo\" border=\"0\" /></a>\n";
-                                }
-                                if (! $StaticLinks) { print "<br />"; Show_Flag_Links($Lang); }
-                                print "</td>";
-                        }
-
-                        print "</tr>\n";
-                        # Print selected period of analysis (month and year required)
-                        print "<tr><td class=\"aws\" valign=\"middle\"><b>$Message[133]:</b></td>";
-                        print "<td class=\"aws\" valign=\"middle\">";
-                        if ($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks) {
-                                print "<select class=\"aws_formfield\" name=\"month\">\n";
-                                foreach (1..12) { my $monthix=sprintf("%02s",$_); print "<option".($MonthRequired eq "$monthix"?" selected=\"true\"":"")." value=\"$monthix\">$MonthNumLib{$monthix}</option>\n"; }
-                                if ($AllowFullYearView >= 2) {
-                                        print "<option".($MonthRequired eq 'all'?" selected=\"true\"":"")." value=\"all\">- $Message[6] -</option>\n";
-                                }
-                                print "</select>\n";
-                                print "<select class=\"aws_formfield\" name=\"year\">\n";
-                                # Add YearRequired in list if not in ListOfYears
-                                $ListOfYears{$YearRequired}||=$MonthRequired;
-                                foreach (sort keys %ListOfYears) { print "<option".($YearRequired eq "$_"?" selected=\"true\"":"")." value=\"$_\">$_</option>\n"; }
-                                print "</select>\n";
-                                print "<input type=\"hidden\" name=\"output\" value=\"".join(',',keys %HTMLOutput)."\" />\n";
-                                if ($SiteConfig) { print "<input type=\"hidden\" name=\"config\" value=\"$SiteConfig\" />\n"; }
-                                 if ($DirConfig)  { print "<input type=\"hidden\" name=\"configdir\" value=\"$DirConfig\" />\n"; }
-                                if ($QueryString =~ /onlyusers=([^&]+)/i) {
-                                     my $temp_3=$1;
-                                     $temp_3=~ s/\Q%20\E/ /g;
-                                     $temp_3=~ s/\+/ /g;
-                                     $temp_3=~ s/\Q%2B\E/ /g;
-                                     print "<input type=\"hidden\" name=\"onlyusers\" value=\'$temp_3\' />\n";
-                                }
-                                if ($QueryString =~ /onlylines=([^&]+)/i) {
-                                     my $temp_4=$1;
-                                     $temp_4=~ s/\Q%20\E/ /g;
-                                     $temp_4=~ s/\+/ /g;
-                                     $temp_4=~ s/\Q%2B\E/ /g;
-                                     print "<input type=\"hidden\" name=\"onlylines\" value=\'$temp_4\' />\n";
-                                }
-                                if ($SiteDomain) { print "<input type=\"hidden\" name=\"sitedomain\" value=\"$SiteDomain\" />\n"; }
-                                if ($QueryString =~ /lang=(\w+)/i) { print "<input type=\"hidden\" name=\"lang\" value=\"$1\" />\n"; }
-                                if ($QueryString =~ /debug=(\d+)/i) { print "<input type=\"hidden\" name=\"debug\" value=\"$1\" />\n"; }
-                                if ($FrameName eq 'mainright') { print "<input type=\"hidden\" name=\"framename\" value=\"index\" />\n"; }
-                                print "<input type=\"submit\" value=\" $Message[115] \" class=\"aws_button\" />";
-                        }
-                        else {
-                                print "<span style=\"font-size: 14px;\">";
-                                if ($MonthRequired eq 'all') { print "$Message[6] $YearRequired"; }
-                                else { print "$Message[5] $MonthNumLib{$MonthRequired} $YearRequired"; }
-                                print "</span>";
-                        }
-                        print "</td></tr>\n";
-                }
-                if ($QueryString !~ /buildpdf/i) {
-                        print "</table>\n";
-                        print "</td></tr></table>\n";
-                }
-                else {
-                        print "</table>\n";
-                }
-
-                if ($FrameName ne 'mainleft') {        print "</form>\n"; }
-                else { print "<br />\n"; }
-                print "\n";
-    }
-
-        # Call to plugins' function AddHTMLMenuHeader
-        foreach my $pluginname (keys %{$PluginsLoaded{'AddHTMLMenuHeader'}})  {
-                my $function="AddHTMLMenuHeader_$pluginname()";
-                eval("$function");
-        }
-
-        # MENU
-        #---------------------------------------------------------------------
-        if ($ShowMenu || $FrameName eq 'mainleft') {
-                my $frame=($FrameName eq 'mainleft');
-
-                if ($Debug) { debug("ShowMenu",2); }
-
-                # Print menu links
-                if (($HTMLOutput{'main'} && $FrameName ne 'mainright') || $FrameName eq 'mainleft') {        # If main page asked
-                        # Define link anchor
-                        my $linkanchor=($FrameName eq 'mainleft'?"$AWScript?${NewLinkParams}":"");
-                        if ($linkanchor && ($linkanchor !~ /framename=mainright/)) { $linkanchor.="framename=mainright"; }
-                        $linkanchor =~ s/&$//; $linkanchor=XMLEncode("$linkanchor");
-                        # Define target
-                        my $targetpage=($FrameName eq 'mainleft'?" target=\"mainright\"":"");
-                        # Print Menu
-                        my $linetitle;  # TODO a virer
-                        if (! $PluginsLoaded{'ShowMenu'}{'menuapplet'}) {
-                                my $menuicon=0; # TODO a virer
-                                # Menu HTML
-                                print "<table".($frame?" cellspacing=\"0\" cellpadding=\"0\" border=\"0\"":"").">\n";
-                                if ($FrameName eq 'mainleft' && $ShowMonthStats)                 { print ($frame?"<tr><td class=\"awsm\">":""); print "<a href=\"$linkanchor#TOP\"$targetpage>$Message[128]</a>"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                my %menu=(); my %menulink=(); my %menutext=();
-                                # When
-                %menu=('month'=>$ShowMonthStats?1:0,'daysofmonth'=>$ShowDaysOfMonthStats?2:0,'daysofweek'=>$ShowDaysOfWeekStats?3:0,'hours'=>$ShowHoursStats?4:0);
-                %menulink=('month'=>1,'daysofmonth'=>1,'daysofweek'=>1,'hours'=>1);
-                %menutext=('month'=>$Message[162],'daysofmonth'=>$Message[138],'daysofweek'=>$Message[91],'hours'=>$Message[20]);
-                ShowMenuCateg('when',$Message[93],'menu4.png',$frame,$targetpage,$linkanchor,$NewLinkParams,$NewLinkTarget,\%menu,\%menulink,\%menutext);
-                                # Who
-                                %menu=('countries'=>$ShowDomainsStats?1:0,'alldomains'=>$ShowDomainsStats?2:0,'visitors'=>$ShowHostsStats?3:0,'allhosts'=>$ShowHostsStats?4:0,'lasthosts'=>($ShowHostsStats =~ /L/i)?5:0,'unknownip'=>$ShowHostsStats?6:0,'logins'=>$ShowAuthenticatedUsers?7:0,'alllogins'=>$ShowAuthenticatedUsers?8:0,'lastlogins'=>($ShowAuthenticatedUsers =~ /L/i)?9:0,'emailsenders'=>$ShowEMailSenders?10:0,'allemails'=>$ShowEMailSenders?11:0,'lastemails'=>($ShowEMailSenders =~ /L/i)?12:0,'emailreceivers'=>$ShowEMailReceivers?13:0,'allemailr'=>$ShowEMailReceivers?14:0,'lastemailr'=>($ShowEMailReceivers =~ /L/i)?15:0,'robots'=>$ShowRobotsStats?16:0,'allrobots'=>$ShowRobotsStats?17:0,'lastrobots'=>($ShowRobotsStats =~ /L/i)?18:0,'worms'=>$ShowWormsStats?19:0);
-                %menulink=('countries'=>1,'alldomains'=>2,'visitors'=>1,'allhosts'=>2,'lasthosts'=>2,'unknownip'=>2,'logins'=>1,'alllogins'=>2,'lastlogins'=>2,'emailsenders'=>1,'allemails'=>2,'lastemails'=>2,'emailreceivers'=>1,'allemailr'=>2,'lastemailr'=>2,'robots'=>1,'allrobots'=>2,'lastrobots'=>2,'worms'=>1);
-                %menutext=('countries'=>$Message[148],'alldomains'=>$Message[80],'visitors'=>$Message[81],'allhosts'=>$Message[80],'lasthosts'=>$Message[9],'unknownip'=>$Message[45],'logins'=>$Message[94],'alllogins'=>$Message[80],'lastlogins'=>$Message[9],'emailsenders'=>$Message[131],'allemails'=>$Message[80],'lastemails'=>$Message[9],'emailreceivers'=>$Message[132],'allemailr'=>$Message[80],'lastemailr'=>$Message[9],'robots'=>$Message[53],'allrobots'=>$Message[80],'lastrobots'=>$Message[9],'worms'=>$Message[136]);
-                ShowMenuCateg('who',$Message[92],'menu5.png',$frame,$targetpage,$linkanchor,$NewLinkParams,$NewLinkTarget,\%menu,\%menulink,\%menutext);
-                                # Navigation
-                                $linetitle=&AtLeastOneNotNull($ShowSessionsStats,$ShowPagesStats,$ShowFileTypesStats,$ShowFileSizesStats,$ShowOSStats,$ShowBrowsersStats,$ShowScreenSizeStats);
-                                if ($linetitle) { print "<tr><td class=\"awsm\"".($frame?"":" valign=\"top\"").">".($menuicon?"<img src=\"$DirIcons/other/menu2.png\" />&nbsp;":"")."<b>$Message[72]:</b></td>\n"; }
-                                if ($linetitle) { print ($frame?"</tr>\n":"<td class=\"awsm\">"); }
-                                if ($ShowSessionsStats)                 { print ($frame?"<tr><td class=\"awsm\">":""); print "<a href=\"$linkanchor#sessions\"$targetpage>$Message[117]</a>"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowFileTypesStats)         { print ($frame?"<tr><td class=\"awsm\">":""); print "<a href=\"$linkanchor#filetypes\"$targetpage>$Message[73]</a>"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowPagesStats)                 { print ($frame?"<tr><td class=\"awsm\">":""); print "<a href=\"$linkanchor#urls\"$targetpage>$Message[29]</a>\n"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowPagesStats)                 { print ($frame?"<tr><td class=\"awsm\"> &nbsp; <img height=\"8\" width=\"9\" src=\"$DirIcons/other/page.png\" alt=\"...\" /> ":""); print "<a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=urldetail"):"$PROG$StaticLinks.urldetail.$StaticExt")."\"$NewLinkTarget>$Message[80]</a>\n"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowPagesStats =~ /E/i)        { print ($frame?"<tr><td class=\"awsm\"> &nbsp; <img height=\"8\" width=\"9\" src=\"$DirIcons/other/page.png\" alt=\"...\" /> ":""); print "<a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=urlentry"):"$PROG$StaticLinks.urlentry.$StaticExt")."\"$NewLinkTarget>$Message[104]</a>\n"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowPagesStats =~ /X/i)        { print ($frame?"<tr><td class=\"awsm\"> &nbsp; <img height=\"8\" width=\"9\" src=\"$DirIcons/other/page.png\" alt=\"...\" /> ":""); print "<a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=urlexit"):"$PROG$StaticLinks.urlexit.$StaticExt")."\"$NewLinkTarget>$Message[116]</a>\n"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowOSStats)                         { print ($frame?"<tr><td class=\"awsm\">":""); print "<a href=\"$linkanchor#os\"$targetpage>$Message[59]</a>"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowOSStats)                          { print ($frame?"<tr><td class=\"awsm\"> &nbsp; <img height=\"8\" width=\"9\" src=\"$DirIcons/other/page.png\" alt=\"...\" /> ":""); print "<a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=osdetail"):"$PROG$StaticLinks.osdetail.$StaticExt")."\"$NewLinkTarget>$Message[58]</a>\n"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowOSStats)                         { print ($frame?"<tr><td class=\"awsm\"> &nbsp; <img height=\"8\" width=\"9\" src=\"$DirIcons/other/page.png\" alt=\"...\" /> ":""); print "<a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=unknownos"):"$PROG$StaticLinks.unknownos.$StaticExt")."\"$NewLinkTarget>$Message[0]</a>\n"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowBrowsersStats)                 { print ($frame?"<tr><td class=\"awsm\">":""); print "<a href=\"$linkanchor#browsers\"$targetpage>$Message[21]</a>"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowBrowsersStats)                 { print ($frame?"<tr><td class=\"awsm\"> &nbsp; <img height=\"8\" width=\"9\" src=\"$DirIcons/other/page.png\" alt=\"...\" /> ":""); print "<a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=browserdetail"):"$PROG$StaticLinks.browserdetail.$StaticExt")."\"$NewLinkTarget>$Message[58]</a>\n"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowBrowsersStats)                 { print ($frame?"<tr><td class=\"awsm\"> &nbsp; <img height=\"8\" width=\"9\" src=\"$DirIcons/other/page.png\" alt=\"...\" /> ":""); print "<a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=unknownbrowser"):"$PROG$StaticLinks.unknownbrowser.$StaticExt")."\"$NewLinkTarget>$Message[0]</a>\n"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($ShowScreenSizeStats)         { print ($frame?"<tr><td class=\"awsm\">":""); print "<a href=\"$linkanchor#screensizes\"$targetpage>$Message[135]</a>"; print ($frame?"</td></tr>\n":" &nbsp; "); }
-                                if ($linetitle) { print ($frame?"":"</td></tr>\n"); }
-                                # Referers
-                                %menu=('referer'=>$ShowOriginStats?1:0,'refererse'=>$ShowOriginStats?2:0,'refererpages'=>$ShowOriginStats?3:0,'keys'=>($ShowKeyphrasesStats || $ShowKeywordsStats)?4:0,'keyphrases'=>$ShowKeyphrasesStats?5:0,'keywords'=>$ShowKeywordsStats?6:0);
-                %menulink=('referer'=>1,'refererse'=>2,'refererpages'=>2,'keys'=>1,'keyphrases'=>2,'keywords'=>2);
-                %menutext=('referer'=>$Message[37],'refererse'=>$Message[126],'refererpages'=>$Message[127],'keys'=>$Message[14],'keyphrases'=>$Message[120],'keywords'=>$Message[121]);
-                ShowMenuCateg('referers',$Message[23],'menu7.png',$frame,$targetpage,$linkanchor,$NewLinkParams,$NewLinkTarget,\%menu,\%menulink,\%menutext);
-                                # Others
-                                %menu=('filetypes'=>($ShowFileTypesStats =~ /C/i)?1:0,'misc'=>$ShowMiscStats?2:0,'errors'=>($ShowHTTPErrorsStats||$ShowSMTPErrorsStats)?3:0,'clusters'=>$ShowClusterStats?5:0);
-                %menulink=('filetypes'=>1,'misc'=>1,'errors'=>1,'clusters'=>1);
-                %menutext=('filetypes'=>$Message[98],'misc'=>$Message[139],'errors'=>($ShowSMTPErrorsStats?$Message[147]:$Message[32]),'clusters'=>$Message[155]);
-                                foreach (keys %TrapInfosForHTTPErrorCodes) {
-                                        $menu{"errors$_"}=$ShowHTTPErrorsStats?4:0;
-                                        $menulink{"errors$_"}=2;
-                                        $menutext{"errors$_"}=$Message[31];
-                                }
-                ShowMenuCateg('others',$Message[2],'menu8.png',$frame,$targetpage,$linkanchor,$NewLinkParams,$NewLinkTarget,\%menu,\%menulink,\%menutext);
-                                # Extra/Marketing
-                                %menu=();
-                %menulink=();
-                %menutext=();
-                                foreach (1..@ExtraName-1) {
-                                        $menu{"extra$_"}=1;
-                                        $menulink{"extra$_"}=1;
-                                        $menutext{"extra$_"}=$ExtraName[$_];
-                                }
-                ShowMenuCateg('extra',$Message[134],'',$frame,$targetpage,$linkanchor,$NewLinkParams,$NewLinkTarget,\%menu,\%menulink,\%menutext);
-                                print "</table>\n";
-                        }
-                        else {
-                                # Menu Applet
-                                if ($frame) { }
-                                else {}
-                        }
-                        #print ($frame?"":"<br />\n");
-                        print "<br />\n";
-                }
-                # Print Back link
-                elsif (! $HTMLOutput{'main'}) {
-                        print "<table>\n";
-                        $NewLinkParams =~ s/(^|&)hostfilter=[^&]*//i;
-                        $NewLinkParams =~ s/(^|&)urlfilter=[^&]*//i;
-                        $NewLinkParams =~ s/(^|&)refererpagesfilter=[^&]*//i;
-                        $NewLinkParams =~ tr/&/&/s; $NewLinkParams =~ s/&$//;
-                        if (! $DetailedReportsOnNewWindows || $FrameName eq 'mainright' || $QueryString =~ /buildpdf/i) {
-                                print "<tr><td class=\"aws\"><a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript".(${NewLinkParams}?"?${NewLinkParams}":"")):"$PROG$StaticLinks.$StaticExt")."\">$Message[76]</a></td></tr>\n";
-                        }
-                        else {
-                                print "<tr><td class=\"aws\"><a href=\"javascript:parent.window.close();\">$Message[118]</a></td></tr>\n";
-                        }
-                        print "</table>\n";
-                        print "\n";
-                }
-        }
-
-        # Call to plugins' function AddHTMLMenuFooter
-        foreach my $pluginname (keys %{$PluginsLoaded{'AddHTMLMenuFooter'}})  {
-                my $function="AddHTMLMenuFooter_$pluginname()";
-                eval("$function");
-        }
-
-        # Exit if left frame
-        if ($FrameName eq 'mainleft') {
-                &html_end(0);
-                exit 0;
-        }
-
-        # FirstTime LastTime TotalVisits TotalUnique TotalPages TotalHits TotalBytes TotalHostsKnown TotalHostsUnknown
-        my $FirstTime=0;
-        my $LastTime=0;
-        $TotalUnique=$TotalVisits=$TotalPages=$TotalHits=$TotalBytes=0;
-        $TotalNotViewedPages=$TotalNotViewedHits=$TotalNotViewedBytes=0;
-        $TotalHostsKnown=$TotalHostsUnknown=0;
-        my $beginmonth=$MonthRequired;my $endmonth=$MonthRequired;
-        if ($MonthRequired eq 'all') { $beginmonth=1;$endmonth=12; }
-        for (my $month=$beginmonth; $month<=$endmonth; $month++) {
-                my $monthix=sprintf("%02s",$month);
-                if ($FirstTime{$YearRequired.$monthix} && ($FirstTime == 0 || $FirstTime > $FirstTime{$YearRequired.$monthix})) { $FirstTime = $FirstTime{$YearRequired.$monthix}; }
-                if ($LastTime < ($LastTime{$YearRequired.$monthix}||0)) { $LastTime = $LastTime{$YearRequired.$monthix}; }
-                $TotalHostsKnown+=$MonthHostsKnown{$YearRequired.$monthix}||0;                # Wrong in year view
-                $TotalHostsUnknown+=$MonthHostsUnknown{$YearRequired.$monthix}||0;        # Wrong in year view
-                $TotalUnique+=$MonthUnique{$YearRequired.$monthix}||0;                                # Wrong in year view
-                $TotalVisits+=$MonthVisits{$YearRequired.$monthix}||0;
-                $TotalPages+=$MonthPages{$YearRequired.$monthix}||0;
-                $TotalHits+=$MonthHits{$YearRequired.$monthix}||0;
-                $TotalBytes+=$MonthBytes{$YearRequired.$monthix}||0;
-                $TotalNotViewedPages+=$MonthNotViewedPages{$YearRequired.$monthix}||0;
-                $TotalNotViewedHits+=$MonthNotViewedHits{$YearRequired.$monthix}||0;
-                $TotalNotViewedBytes+=$MonthNotViewedBytes{$YearRequired.$monthix}||0;
-        }
-        # TotalHitsErrors TotalBytesErrors
-        my $TotalHitsErrors=0; my $TotalBytesErrors=0;
-        foreach (keys %_errors_h) { $TotalHitsErrors+=$_errors_h{$_}; $TotalBytesErrors+=$_errors_k{$_}; }
-        # TotalEntries (if not already specifically counted, we init it from _url_e hash table)
-        if (!$TotalEntries) { foreach (keys %_url_e) { $TotalEntries+=$_url_e{$_}; } }
-        # TotalExits (if not already specifically counted, we init it from _url_x hash table)
-        if (!$TotalExits) { foreach (keys %_url_x) { $TotalExits+=$_url_x{$_}; } }
-        # TotalBytesPages (if not already specifically counted, we init it from _url_k hash table)
-        if (!$TotalBytesPages) { foreach (keys %_url_k) { $TotalBytesPages+=$_url_k{$_}; } }
-        # TotalKeyphrases (if not already specifically counted, we init it from _keyphrases hash table)
-        if (!$TotalKeyphrases) { foreach (keys %_keyphrases) { $TotalKeyphrases+=$_keyphrases{$_}; } }
-        # TotalKeywords (if not already specifically counted, we init it from _keywords hash table)
-        if (!$TotalKeywords) { foreach (keys %_keywords) { $TotalKeywords+=$_keywords{$_}; } }
-        # TotalSearchEnginesPages (if not already specifically counted, we init it from _se_referrals_p hash table)
-        if (!$TotalSearchEnginesPages) { foreach (keys %_se_referrals_p) { $TotalSearchEnginesPages+=$_se_referrals_p{$_}; } }
-        # TotalSearchEnginesHits (if not already specifically counted, we init it from _se_referrals_h hash table)
-        if (!$TotalSearchEnginesHits) { foreach (keys %_se_referrals_h) { $TotalSearchEnginesHits+=$_se_referrals_h{$_}; } }
-        # TotalRefererPages (if not already specifically counted, we init it from _pagesrefs_p hash table)
-        if (!$TotalRefererPages) { foreach (keys %_pagesrefs_p) { $TotalRefererPages+=$_pagesrefs_p{$_}; } }
-        # TotalRefererHits (if not already specifically counted, we init it from _pagesrefs_h hash table)
-        if (!$TotalRefererHits) { foreach (keys %_pagesrefs_h) { $TotalRefererHits+=$_pagesrefs_h{$_}; } }
-        # TotalDifferentPages (if not already specifically counted, we init it from _url_p hash table)
-        $TotalDifferentPages||=scalar keys %_url_p;
-        # TotalDifferentKeyphrases (if not already specifically counted, we init it from _keyphrases hash table)
-        $TotalDifferentKeyphrases||=scalar keys %_keyphrases;
-        # TotalDifferentKeywords (if not already specifically counted, we init it from _keywords hash table)
-        $TotalDifferentKeywords||=scalar keys %_keywords;
-        # TotalDifferentSearchEngines (if not already specifically counted, we init it from _se_referrals_h hash table)
-        $TotalDifferentSearchEngines||=scalar keys %_se_referrals_h;
-        # TotalDifferentReferer (if not already specifically counted, we init it from _pagesrefs_h hash table)
-        $TotalDifferentReferer||=scalar keys %_pagesrefs_h;
-
-        # Define firstdaytocountaverage, lastdaytocountaverage, firstdaytoshowtime, lastdaytoshowtime
-        my $firstdaytocountaverage=$nowyear.$nowmonth."01";                                # Set day cursor to 1st day of month
-        my $firstdaytoshowtime=$nowyear.$nowmonth."01";                                        # Set day cursor to 1st day of month
-        my $lastdaytocountaverage=$nowyear.$nowmonth.$nowday;                        # Set day cursor to today
-        my $lastdaytoshowtime=$nowyear.$nowmonth."31";                                        # Set day cursor to last day of month
-        if ($MonthRequired eq 'all') {
-                $firstdaytocountaverage=$YearRequired."0101";                                # Set day cursor to 1st day of the required year
-        }
-        if (($MonthRequired ne $nowmonth && $MonthRequired ne 'all') || $YearRequired ne $nowyear) {
-                if ($MonthRequired eq 'all') {
-                        $firstdaytocountaverage=$YearRequired."0101";                        # Set day cursor to 1st day of the required year
-                        $firstdaytoshowtime=$YearRequired."1201";                                # Set day cursor to 1st day of last month of required year
-                        $lastdaytocountaverage=$YearRequired."1231";                        # Set day cursor to last day of the required year
-                        $lastdaytoshowtime=$YearRequired."1231";                                # Set day cursor to last day of last month of required year
-                }
-                else {
-                        $firstdaytocountaverage=$YearRequired.$MonthRequired."01";        # Set day cursor to 1st day of the required month
-                        $firstdaytoshowtime=$YearRequired.$MonthRequired."01";                # Set day cursor to 1st day of the required month
-                        $lastdaytocountaverage=$YearRequired.$MonthRequired."31";        # Set day cursor to last day of the required month
-                        $lastdaytoshowtime=$YearRequired.$MonthRequired."31";                # Set day cursor to last day of the required month
-                }
-        }
-        if ($Debug) {
-                debug("firstdaytocountaverage=$firstdaytocountaverage, lastdaytocountaverage=$lastdaytocountaverage",1);
-                debug("firstdaytoshowtime=$firstdaytoshowtime, lastdaytoshowtime=$lastdaytoshowtime",1);
-        }
-
-        # Call to plugins' function AddHTMLContentHeader
-        foreach my $pluginname (keys %{$PluginsLoaded{'AddHTMLContentHeader'}})  {
-                my $function="AddHTMLContentHeader_$pluginname()";
-                eval("$function");
-        }
-
-        # Output particular part
-    #-----------------------
-    if (scalar keys %HTMLOutput == 1) {
-
-            if ($HTMLOutput{'alldomains'}) {
-                    print "$Center<a name=\"domains\">&nbsp;</a><br />\n";
-                    # Show domains list
-                    my $title=''; my $cpt=0;
-                    if ($HTMLOutput{'alldomains'})  { $title.="$Message[25]"; $cpt=(scalar keys %_domener_h); }
-                    &tab_head("$title",19,0,'domains');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th width=\"$WIDTHCOLICON\">&nbsp;</th><th colspan=\"2\">$Message[17]</th>";
-                    if ($ShowDomainsStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
-                    if ($ShowDomainsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-                    if ($ShowDomainsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-                    print "<th>&nbsp;</th>";
-                    print "</tr>\n";
-                    $total_p=$total_h=$total_k=0;
-                    $max_h=1; foreach (values %_domener_h) { if ($_ > $max_h) { $max_h = $_; } }
-                    $max_k=1; foreach (values %_domener_k) { if ($_ > $max_k) { $max_k = $_; } }
-                    my $count=0;
-                    &BuildKeyList($MaxRowsInHTMLOutput,1,\%_domener_h,\%_domener_p);
-                    foreach my $key (@keylist) {
-                            my $bredde_p=0;my $bredde_h=0;my $bredde_k=0;
-                            if ($max_h > 0) { $bredde_p=int($BarWidth*$_domener_p{$key}/$max_h)+1; }        # use max_h to enable to compare pages with hits
-                            if ($_domener_p{$key} && $bredde_p==1) { $bredde_p=2; }
-                            if ($max_h > 0) { $bredde_h=int($BarWidth*$_domener_h{$key}/$max_h)+1; }
-                            if ($_domener_h{$key} && $bredde_h==1) { $bredde_h=2; }
-                            if ($max_k > 0) { $bredde_k=int($BarWidth*($_domener_k{$key}||0)/$max_k)+1; }
-                            if ($_domener_k{$key} && $bredde_k==1) { $bredde_k=2; }
-                            my $newkey=lc($key);
-                            if ($newkey eq 'ip' || ! $DomainsHashIDLib{$newkey}) {
-                                    print "<tr><td width=\"$WIDTHCOLICON\"><img src=\"$DirIcons\/flags\/ip.png\" height=\"14\"".AltTitle("$Message[0]")." /></td><td class=\"aws\">$Message[0]</td><td>$newkey</td>";
-                            }
-                            else {
-                                    print "<tr><td width=\"$WIDTHCOLICON\"><img src=\"$DirIcons\/flags\/$newkey.png\" height=\"14\"".AltTitle("$newkey")." /></td><td class=\"aws\">$DomainsHashIDLib{$newkey}</td><td>$newkey</td>";
-                            }
-                            if ($ShowDomainsStats =~ /P/i) { print "<td>$_domener_p{$key}</td>"; }
-                            if ($ShowDomainsStats =~ /H/i) { print "<td>$_domener_h{$key}</td>"; }
-                            if ($ShowDomainsStats =~ /B/i) { print "<td>".Format_Bytes($_domener_k{$key})."</td>"; }
-                            print "<td class=\"aws\">";
-                            if ($ShowDomainsStats =~ /P/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hp'}\" width=\"$bredde_p\" height=\"5\"".AltTitle("$Message[56]: ".int($_domener_p{$key}))." /><br />\n"; }
-                            if ($ShowDomainsStats =~ /H/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hh'}\" width=\"$bredde_h\" height=\"5\"".AltTitle("$Message[57]: ".int($_domener_h{$key}))." /><br />\n"; }
-                            if ($ShowDomainsStats =~ /B/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hk'}\" width=\"$bredde_k\" height=\"5\"".AltTitle("$Message[75]: ".Format_Bytes($_domener_k{$key}))." />"; }
-                            print "</td>";
-                            print "</tr>\n";
-                            $total_p += $_domener_p{$key};
-                            $total_h += $_domener_h{$key};
-                            $total_k += $_domener_k{$key}||0;
-                            $count++;
-                    }
-                    $rest_p=$TotalPages-$total_p;
-                    $rest_h=$TotalHits-$total_h;
-                    $rest_k=$TotalBytes-$total_k;
-                    if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) {         # All other domains (known or not)
-                            print "<tr><td width=\"$WIDTHCOLICON\">&nbsp;</td><td colspan=\"2\" class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                            if ($ShowDomainsStats =~ /P/i) { print "<td>$rest_p</td>"; }
-                            if ($ShowDomainsStats =~ /H/i) { print "<td>$rest_h</td>"; }
-                            if ($ShowDomainsStats =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
-                            print "<td class=\"aws\">&nbsp;</td>";
-                            print "</tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'allhosts'} || $HTMLOutput{'lasthosts'}) {
-                    print "$Center<a name=\"hosts\">&nbsp;</a><br />\n";
-                    # Show filter form
-                    &ShowFormFilter("hostfilter",$FilterIn{'host'},$FilterEx{'host'});
-                    # Show hosts list
-                    my $title=''; my $cpt=0;
-                    if ($HTMLOutput{'allhosts'})  { $title.="$Message[81]"; $cpt=(scalar keys %_host_h); }
-                    if ($HTMLOutput{'lasthosts'}) { $title.="$Message[9]"; $cpt=(scalar keys %_host_h); }
-                    &tab_head("$title",19,0,'hosts');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>";
-                    if ($FilterIn{'host'} || $FilterEx{'host'}) {        # With filter
-                            if ($FilterIn{'host'}) { print "$Message[79] '<b>$FilterIn{'host'}</b>'"; }
-                            if ($FilterIn{'host'} && $FilterEx{'host'}) { print " - "; }
-                            if ($FilterEx{'host'}) { print " Exlude $Message[79] '<b>$FilterEx{'host'}</b>'"; }
-                            if ($FilterIn{'host'} || $FilterEx{'host'}) { print ": "; }
-                            print "$cpt $Message[81]";
-                            if ($MonthRequired ne 'all') {
-                                    if ($HTMLOutput{'allhosts'} || $HTMLOutput{'lasthosts'}) { print "<br />$Message[102]: $TotalHostsKnown $Message[82], $TotalHostsUnknown $Message[1] - $TotalUnique $Message[11]"; }
-                            }
-                    }
-                    else {        # Without filter
-                            if ($MonthRequired ne 'all') { print "$Message[102] : $TotalHostsKnown $Message[82], $TotalHostsUnknown $Message[1] - $TotalUnique $Message[11]"; }
-                            else { print "$Message[102] : ".(scalar keys %_host_h); }
-                    }
-                    print "</th>";
-                    &ShowHostInfo('__title__');
-                    if ($ShowHostsStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
-                    if ($ShowHostsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-                    if ($ShowHostsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-                    if ($ShowHostsStats =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
-                    print "</tr>\n";
-                    $total_p=$total_h=$total_k=0;
-                    my $count=0;
-                    if ($HTMLOutput{'allhosts'})  { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Host'},\%_host_h,\%_host_p); }
-                    if ($HTMLOutput{'lasthosts'}) { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Host'},\%_host_h,\%_host_l); }
-                    foreach my $key (@keylist) {
-                            my $host=CleanFromCSSA($key);
-                            print "<tr><td class=\"aws\">".($_robot_l{$key}?'<b>':'')."$host".($_robot_l{$key}?'</b>':'')."</td>";
-                            &ShowHostInfo($key);
-                            if ($ShowHostsStats =~ /P/i) { print "<td>".($_host_p{$key}?$_host_p{$key}:"&nbsp;")."</td>"; }
-                            if ($ShowHostsStats =~ /H/i) { print "<td>$_host_h{$key}</td>"; }
-                            if ($ShowHostsStats =~ /B/i) { print "<td>".Format_Bytes($_host_k{$key})."</td>"; }
-                            if ($ShowHostsStats =~ /L/i) { print "<td>".($_host_l{$key}?Format_Date($_host_l{$key},1):'-')."</td>"; }
-                            print "</tr>\n";
-                            $total_p += $_host_p{$key};
-                            $total_h += $_host_h{$key};
-                            $total_k += $_host_k{$key}||0;
-                            $count++;
-                    }
-                    if ($Debug) { debug("Total real / shown : $TotalPages / $total_p - $TotalHits / $total_h - $TotalBytes / $total_h",2); }
-                    $rest_p=$TotalPages-$total_p;
-                    $rest_h=$TotalHits-$total_h;
-                    $rest_k=$TotalBytes-$total_k;
-                    if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) {        # All other visitors (known or not)
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                            &ShowHostInfo('');
-                            if ($ShowHostsStats =~ /P/i) { print "<td>".($rest_p?$rest_p:"&nbsp;")."</td>"; }
-                            if ($ShowHostsStats =~ /H/i) { print "<td>$rest_h</td>"; }
-                            if ($ShowHostsStats =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
-                            if ($ShowHostsStats =~ /L/i) { print "<td>&nbsp;</td>"; }
-                            print "</tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'unknownip'}) {
-                    print "$Center<a name=\"unknownip\">&nbsp;</a><br />\n";
-                    &tab_head("$Message[45]",19,0,'unknownwip');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>".(scalar keys %_host_h)." $Message[1]</th>";
-                    &ShowHostInfo('__title__');
-                    if ($ShowHostsStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
-                    if ($ShowHostsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-                    if ($ShowHostsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-                    if ($ShowHostsStats =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
-                    print "</tr>\n";
-                    $total_p=$total_h=$total_k=0;
-                    my $count=0;
-                    &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Host'},\%_host_h,\%_host_p);
-                    foreach my $key (@keylist) {
-                            my $host=CleanFromCSSA($key);
-                            print "<tr><td class=\"aws\">$host</td>";
-                            &ShowHostInfo($key);
-                            if ($ShowHostsStats =~ /P/i) { print "<td>".($_host_p{$key}?$_host_p{$key}:"&nbsp;")."</td>"; }
-                            if ($ShowHostsStats =~ /H/i) { print "<td>$_host_h{$key}</td>"; }
-                            if ($ShowHostsStats =~ /B/i) { print "<td>".Format_Bytes($_host_k{$key})."</td>"; }
-                            if ($ShowHostsStats =~ /L/i) { print "<td>".($_host_l{$key}?Format_Date($_host_l{$key},1):'-')."</td>"; }
-                            print "</tr>\n";
-                            $total_p += $_host_p{$key};
-                            $total_h += $_host_h{$key};
-                            $total_k += $_host_k{$key}||0;
-                            $count++;
-                    }
-                    if ($Debug) { debug("Total real / shown : $TotalPages / $total_p - $TotalHits / $total_h - $TotalBytes / $total_h",2); }
-                    $rest_p=$TotalPages-$total_p;
-                    $rest_h=$TotalHits-$total_h;
-                    $rest_k=$TotalBytes-$total_k;
-                    if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) {        # All other visitors (known or not)
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[82]</span></td>";
-                            &ShowHostInfo('');
-                            if ($ShowHostsStats =~ /P/i) { print "<td>".($rest_p?$rest_p:"&nbsp;")."</td>"; }
-                            if ($ShowHostsStats =~ /H/i) { print "<td>$rest_h</td>"; }
-                            if ($ShowHostsStats =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
-                            if ($ShowHostsStats =~ /L/i) { print "<td>&nbsp;</td>"; }
-                            print "</tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'allemails'} || $HTMLOutput{'lastemails'}) {
-                    &ShowEmailSendersChart($NewLinkParams,$NewLinkTarget);
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'allemailr'} || $HTMLOutput{'lastemailr'}) {
-                    &ShowEmailReceiversChart($NewLinkParams,$NewLinkTarget);
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'alllogins'} || $HTMLOutput{'lastlogins'}) {
-                    print "$Center<a name=\"logins\">&nbsp;</a><br />\n";
-                    my $title='';
-                    if ($HTMLOutput{'alllogins'}) { $title.="$Message[94]"; }
-                    if ($HTMLOutput{'lastlogins'}) { $title.="$Message[9]"; }
-                    &tab_head("$title",19,0,'logins');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>$Message[94] : ".(scalar keys %_login_h)."</th>";
-                    &ShowUserInfo('__title__');
-                    if ($ShowAuthenticatedUsers =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
-                    if ($ShowAuthenticatedUsers =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-                    if ($ShowAuthenticatedUsers =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-                    if ($ShowAuthenticatedUsers =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
-                    print "</tr>\n";
-                    $total_p=$total_h=$total_k=0;
-                    my $count=0;
-                    if ($HTMLOutput{'alllogins'}) { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Host'},\%_login_h,\%_login_p); }
-                    if ($HTMLOutput{'lastlogins'}) { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Host'},\%_login_h,\%_login_l); }
-                    foreach my $key (@keylist) {
-                            print "<tr><td class=\"aws\">$key</td>";
-                            &ShowUserInfo($key);
-                            if ($ShowAuthenticatedUsers =~ /P/i) { print "<td>".($_login_p{$key}?$_login_p{$key}:"&nbsp;")."</td>"; }
-                            if ($ShowAuthenticatedUsers =~ /H/i) { print "<td>$_login_h{$key}</td>"; }
-                            if ($ShowAuthenticatedUsers =~ /B/i) { print "<td>".Format_Bytes($_login_k{$key})."</td>"; }
-                            if ($ShowAuthenticatedUsers =~ /L/i) { print "<td>".($_login_l{$key}?Format_Date($_login_l{$key},1):'-')."</td>"; }
-                            print "</tr>\n";
-                            $total_p += $_login_p{$key}||0;
-                            $total_h += $_login_h{$key};
-                            $total_k += $_login_k{$key}||0;
-                            $count++;
-                    }
-                    if ($Debug) { debug("Total real / shown : $TotalPages / $total_p - $TotalHits / $total_h - $TotalBytes / $total_h",2); }
-                    $rest_p=$TotalPages-$total_p;
-                    $rest_h=$TotalHits-$total_h;
-                    $rest_k=$TotalBytes-$total_k;
-                    if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) {        # All other logins and/or anonymous
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[125]</span></td>";
-                            &ShowUserInfo('');
-                            if ($ShowAuthenticatedUsers =~ /P/i) { print "<td>".($rest_p?$rest_p:"&nbsp;")."</td>"; }
-                            if ($ShowAuthenticatedUsers =~ /H/i) { print "<td>$rest_h</td>"; }
-                            if ($ShowAuthenticatedUsers =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
-                            if ($ShowAuthenticatedUsers =~ /L/i) { print "<td>&nbsp;</td>"; }
-                            print "</tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'allrobots'} || $HTMLOutput{'lastrobots'}) {
-                    print "$Center<a name=\"robots\">&nbsp;</a><br />\n";
-                    my $title='';
-                    if ($HTMLOutput{'allrobots'})  { $title.="$Message[53]"; }
-                    if ($HTMLOutput{'lastrobots'}) { $title.="$Message[9]"; }
-                    &tab_head("$title",19,0,'robots');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>".(scalar keys %_robot_h)." $Message[51]</th>";
-                    if ($ShowRobotsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-                    if ($ShowRobotsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-                    if ($ShowRobotsStats =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
-                    print "</tr>\n";
-                    $total_p=$total_h=$total_k=$total_r=0;
-                    my $count=0;
-                    if ($HTMLOutput{'allrobots'})  { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Robot'},\%_robot_h,\%_robot_h); }
-                    if ($HTMLOutput{'lastrobots'}) { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Robot'},\%_robot_h,\%_robot_l); }
-                    foreach my $key (@keylist) {
-                            print "<tr><td class=\"aws\">".($RobotsHashIDLib{$key}?$RobotsHashIDLib{$key}:$key)."</td>";
-                            if ($ShowRobotsStats =~ /H/i) { print "<td>".($_robot_h{$key}-$_robot_r{$key}).($_robot_r{$key}?"+$_robot_r{$key}":"")."</td>"; }
-                            if ($ShowRobotsStats =~ /B/i) { print "<td>".Format_Bytes($_robot_k{$key})."</td>"; }
-                            if ($ShowRobotsStats =~ /L/i) { print "<td>".($_robot_l{$key}?Format_Date($_robot_l{$key},1):'-')."</td>"; }
-                            print "</tr>\n";
-                            #$total_p += $_robot_p{$key}||0;
-                            $total_h += $_robot_h{$key};
-                            $total_k += $_robot_k{$key}||0;
-                            $total_r += $_robot_r{$key}||0;
-                            $count++;
-                    }
-                    # For bots we need to count Totals
-                    my $TotalPagesRobots = 0; #foreach (values %_robot_p) { $TotalPagesRobots+=$_; }
-                    my $TotalHitsRobots = 0; foreach (values %_robot_h) { $TotalHitsRobots+=$_; }
-                    my $TotalBytesRobots = 0; foreach (values %_robot_k) { $TotalBytesRobots+=$_; }
-                    my $TotalRRobots = 0; foreach (values %_robot_r) { $TotalRRobots+=$_; }
-                    $rest_p=0;        #$rest_p=$TotalPagesRobots-$total_p;
-                    $rest_h=$TotalHitsRobots-$total_h;
-                    $rest_k=$TotalBytesRobots-$total_k;
-                    $rest_r=$TotalRRobots-$total_r;
-                    if ($Debug) { debug("Total real / shown : $TotalPagesRobots / $total_p - $TotalHitsRobots / $total_h - $TotalBytesRobots / $total_k",2); }
-                    if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0 || $rest_r > 0) {        # All other robots
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                            if ($ShowRobotsStats =~ /H/i) { print "<td>$rest_h</td>"; }
-                            if ($ShowRobotsStats =~ /B/i) { print "<td>".(Format_Bytes($rest_k))."</td>"; }
-                            if ($ShowRobotsStats =~ /L/i) { print "<td>&nbsp;</td>"; }
-                            print "</tr>\n";
-                    }
-                    &tab_end("* $Message[156]".($TotalRRobots?" $Message[157]":""));
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'urldetail'} || $HTMLOutput{'urlentry'} || $HTMLOutput{'urlexit'}) {
-                    # Call to plugins' function ShowPagesFilter
-                    foreach my $pluginname (keys %{$PluginsLoaded{'ShowPagesFilter'}})  {
-                            my $function="ShowPagesFilter_$pluginname()";
-                            eval("$function");
-                    }
-                    print "$Center<a name=\"urls\">&nbsp;</a><br />\n";
-                    # Show filter form
-                    &ShowFormFilter("urlfilter",$FilterIn{'url'},$FilterEx{'url'});
-                    # Show URL list
-                    my $title=''; my $cpt=0;
-                    if ($HTMLOutput{'urldetail'}) { $title=$Message[19]; $cpt=(scalar keys %_url_p); }
-                    if ($HTMLOutput{'urlentry'})  { $title=$Message[104]; $cpt=(scalar keys %_url_e); }
-                    if ($HTMLOutput{'urlexit'})   { $title=$Message[116]; $cpt=(scalar keys %_url_x); }
-                    &tab_head("$title",19,0,'urls');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>";
-                    if ($FilterIn{'url'} || $FilterEx{'url'}) {
-                            if ($FilterIn{'url'}) { print "$Message[79] <b>$FilterIn{'url'}</b>"; }
-                            if ($FilterIn{'url'} && $FilterEx{'url'}) { print " - "; }
-                            if ($FilterEx{'url'}) { print "Exclude $Message[79] <b>$FilterEx{'url'}</b>"; }
-                            if ($FilterIn{'url'} || $FilterEx{'url'}) { print ": "; }
-                            print "$cpt $Message[28]";
-                            if ($MonthRequired ne 'all') {
-                                    if ($HTMLOutput{'urldetail'}) { print "<br />$Message[102]: $TotalDifferentPages $Message[28]"; }
-                            }
-                    }
-                    else { print "$Message[102]: $cpt $Message[28]"; }
-                    print "</th>";
-                    if ($ShowPagesStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[29]</th>"; }
-                    if ($ShowPagesStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[106]</th>"; }
-                    if ($ShowPagesStats =~ /E/i) { print "<th bgcolor=\"#$color_e\" width=\"80\">$Message[104]</th>"; }
-                    if ($ShowPagesStats =~ /X/i) { print "<th bgcolor=\"#$color_x\" width=\"80\">$Message[116]</th>"; }
-                    # Call to plugins' function ShowPagesAddField
-                    foreach my $pluginname (keys %{$PluginsLoaded{'ShowPagesAddField'}})  {
-                            my $function="ShowPagesAddField_$pluginname('title')";
-                            eval("$function");
-                    }
-                    print "<th>&nbsp;</th></tr>\n";
-                    $total_p=$total_k=$total_e=$total_x=0;
-                    my $count=0;
-                    if ($HTMLOutput{'urlentry'}) { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'File'},\%_url_e,\%_url_e); }
-                    elsif ($HTMLOutput{'urlexit'}) { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'File'},\%_url_x,\%_url_x); }
-                    else { &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'File'},\%_url_p,\%_url_p); }
-                    $max_p=1; $max_k=1;
-                    foreach my $key (@keylist) {
-                            if ($_url_p{$key} > $max_p) { $max_p = $_url_p{$key}; }
-                            if ($_url_k{$key}/($_url_p{$key}||1) > $max_k) { $max_k = $_url_k{$key}/($_url_p{$key}||1); }
-                    }
-                    foreach my $key (@keylist) {
-                            print "<tr><td class=\"aws\">";
-                            &ShowURLInfo($key);
-                            print "</td>";
-                            my $bredde_p=0; my $bredde_e=0; my $bredde_x=0; my $bredde_k=0;
-                            if ($max_p > 0) { $bredde_p=int($BarWidth*($_url_p{$key}||0)/$max_p)+1; }
-                            if (($bredde_p==1) && $_url_p{$key}) { $bredde_p=2; }
-                            if ($max_p > 0) { $bredde_e=int($BarWidth*($_url_e{$key}||0)/$max_p)+1; }
-                            if (($bredde_e==1) && $_url_e{$key}) { $bredde_e=2; }
-                            if ($max_p > 0) { $bredde_x=int($BarWidth*($_url_x{$key}||0)/$max_p)+1; }
-                            if (($bredde_x==1) && $_url_x{$key}) { $bredde_x=2; }
-                            if ($max_k > 0) { $bredde_k=int($BarWidth*(($_url_k{$key}||0)/($_url_p{$key}||1))/$max_k)+1; }
-                            if (($bredde_k==1) && $_url_k{$key}) { $bredde_k=2; }
-                            if ($ShowPagesStats =~ /P/i) { print "<td>$_url_p{$key}</td>"; }
-                            if ($ShowPagesStats =~ /B/i) { print "<td>".($_url_k{$key}?Format_Bytes($_url_k{$key}/($_url_p{$key}||1)):"&nbsp;")."</td>"; }
-                            if ($ShowPagesStats =~ /E/i) { print "<td>".($_url_e{$key}?$_url_e{$key}:"&nbsp;")."</td>"; }
-                            if ($ShowPagesStats =~ /X/i) { print "<td>".($_url_x{$key}?$_url_x{$key}:"&nbsp;")."</td>"; }
-                            # Call to plugins' function ShowPagesAddField
-                            foreach my $pluginname (keys %{$PluginsLoaded{'ShowPagesAddField'}})  {
-                                    my $function="ShowPagesAddField_$pluginname('$key')";
-                                    eval("$function");
-                            }
-                            print "<td class=\"aws\">";
-                            # alt and title are not provided to reduce page size
-                            if ($ShowPagesStats =~ /P/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hp'}\" width=\"$bredde_p\" height=\"4\" /><br />"; }
-                            if ($ShowPagesStats =~ /B/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hk'}\" width=\"$bredde_k\" height=\"4\" /><br />"; }
-                            if ($ShowPagesStats =~ /E/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'he'}\" width=\"$bredde_e\" height=\"4\" /><br />"; }
-                            if ($ShowPagesStats =~ /X/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hx'}\" width=\"$bredde_x\" height=\"4\" />"; }
-                            print "</td></tr>\n";
-                            $total_p += $_url_p{$key};
-                            $total_e += $_url_e{$key};
-                            $total_x += $_url_x{$key};
-                            $total_k += $_url_k{$key};
-                            $count++;
-                    }
-                    if ($Debug) { debug("Total real / shown : $TotalPages / $total_p - $TotalEntries / $total_e - $TotalExits / $total_x - $TotalBytesPages / $total_k",2); }
-                    $rest_p=$TotalPages-$total_p;
-                    $rest_k=$TotalBytesPages-$total_k;
-                    $rest_e=$TotalEntries-$total_e;
-                    $rest_x=$TotalExits-$total_x;
-                    if ($rest_p > 0 || $rest_e > 0 || $rest_k > 0) {
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                            if ($ShowPagesStats =~ /P/i) { print "<td>".($rest_p?$rest_p:"&nbsp;")."</td>"; }
-                            if ($ShowPagesStats =~ /B/i) { print "<td>".($rest_k?Format_Bytes($rest_k/($rest_p||1)):"&nbsp;")."</td>"; }
-                            if ($ShowPagesStats =~ /E/i) { print "<td>".($rest_e?$rest_e:"&nbsp;")."</td>"; }
-                            if ($ShowPagesStats =~ /X/i) { print "<td>".($rest_x?$rest_x:"&nbsp;")."</td>"; }
-                            # Call to plugins' function ShowPagesAddField
-                            foreach my $pluginname (keys %{$PluginsLoaded{'ShowPagesAddField'}})  {
-                                    my $function="ShowPagesAddField_$pluginname('')";
-                                    eval("$function");
-                            }
-                            print "<td>&nbsp;</td></tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'unknownos'}) {
-                    print "$Center<a name=\"unknownos\">&nbsp;</a><br />\n";
-                    my $title="$Message[46]";
-                    &tab_head("$title",19,0,'unknownos');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>User agent (".(scalar keys %_unknownreferer_l).")</th><th>$Message[9]</th></tr>\n";
-                    $total_l=0;
-                    my $count=0;
-                    &BuildKeyList($MaxRowsInHTMLOutput,1,\%_unknownreferer_l,\%_unknownreferer_l);
-                    foreach my $key (@keylist) {
-                            my $useragent=CleanFromCSSA($key);
-                            print "<tr><td class=\"aws\">$useragent</td>";
-                            print "<td>".Format_Date($_unknownreferer_l{$key},1)."</td>";
-                            print "</tr>\n";
-                            $total_l+=1;
-                            $count++;
-                    }
-                    $rest_l=(scalar keys %_unknownreferer_l)-$total_l;
-                    if ($rest_l > 0) {
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                            print "<td>-</td>";
-                            print "</tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'unknownbrowser'}) {
-                    print "$Center<a name=\"unknownbrowser\">&nbsp;</a><br />\n";
-                    my $title="$Message[50]";
-                    &tab_head("$title",19,0,'unknownbrowser');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>User agent (".(scalar keys %_unknownrefererbrowser_l).")</th><th>$Message[9]</th></tr>\n";
-                    $total_l=0;
-                    my $count=0;
-                    &BuildKeyList($MaxRowsInHTMLOutput,1,\%_unknownrefererbrowser_l,\%_unknownrefererbrowser_l);
-                    foreach my $key (@keylist) {
-                            my $useragent=CleanFromCSSA($key);
-                            print "<tr><td class=\"aws\">$useragent</td><td>".Format_Date($_unknownrefererbrowser_l{$key},1)."</td></tr>\n";
-                            $total_l+=1;
-                            $count++;
-                    }
-                    $rest_l=(scalar keys %_unknownrefererbrowser_l)-$total_l;
-                    if ($rest_l > 0) {
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                            print "<td>-</td>";
-                            print "</tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'osdetail'}) {
-                    # Show os versions
-                    print "$Center<a name=\"osversions\">&nbsp;</a><br />";
-                    my $title="$Message[59]";
-                    &tab_head("$title",19,0,'osversions');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th colspan=\"2\">$Message[58]</th>";
-                    print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>";
-                    print "<th>&nbsp;</th>";
-                    print "</tr>\n";
-                    $total_h=0;
-                    my $count=0;
-                    &BuildKeyList(MinimumButNoZero(scalar keys %_os_h,500),1,\%_os_h,\%_os_h);
-                    my %keysinkeylist=();
-                    $max_h=1;
-                    # Count total by family
-                    my %totalfamily_h=();
-                    my $TotalFamily=0;
-                    OSLOOP: foreach my $key (@keylist) {
-                            $total_h+=$_os_h{$key};
-                            if ($_os_h{$key} > $max_h) { $max_h = $_os_h{$key}; }
-                            foreach my $family (@OSFamily) { if ($key =~ /^$family/i) { $totalfamily_h{$family}+=$_os_h{$key}; $TotalFamily+=$_os_h{$key}; next OSLOOP; } }
-                    }
-                    # Write records grouped in a browser family
-                    foreach my $family (@OSFamily) {
-                            my $p='&nbsp;';
-                            if ($total_h) { $p=int($totalfamily_h{$family}/$total_h*1000)/10; $p="$p %"; }
-                            my $familyheadershown=0;
-                            foreach my $key (reverse sort keys %_os_h) {
-                                    if ($key =~ /^$family(.*)/i) {
-                                            if (! $familyheadershown) {
-                                                    print "<tr bgcolor=\"#F6F6F6\"><td class=\"aws\" colspan=\"2\"><b>".uc($family)."</b></td>";
-                                                    print "<td><b>".int($totalfamily_h{$family})."</b></td><td><b>$p</b></td><td>&nbsp;</td>";
-                                                    print "</tr>\n";
-                                                    $familyheadershown=1;
-                                            }
-                                            $keysinkeylist{$key}=1;
-                                            my $ver=$1;
-                                            my $p='&nbsp;';
-                                            if ($total_h) { $p=int($_os_h{$key}/$total_h*1000)/10; $p="$p %"; }
-                                            print "<tr>";
-                                            print "<td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/os\/$key.png\"".AltTitle("")." /></td>";
-                                            print "<td class=\"aws\">$OSHashLib{$key}</td>";
-                                            my $bredde_h=0;
-                                            if ($max_h > 0) { $bredde_h=int($BarWidth*($_os_h{$key}||0)/$max_h)+1; }
-                                            if (($bredde_h==1) && $_os_h{$key}) { $bredde_h=2; }
-                                            print "<td>$_os_h{$key}</td><td>$p</td>";
-                                            print "<td class=\"aws\">";
-                                            # alt and title are not provided to reduce page size
-                                            if ($ShowOSStats) { print "<img src=\"$DirIcons\/other\/$BarPng{'hh'}\" width=\"$bredde_h\" height=\"5\" /><br />"; }
-                                            print "</td>";
-                                            print "</tr>\n";
-                                            $count++;
-                                    }
-                            }
-                    }
-                    # Write other records
-                    my $familyheadershown=0;
-                    foreach my $key (@keylist) {
-                            if ($keysinkeylist{$key}) { next; }
-                            if (! $familyheadershown) {
-                                    my $p='&nbsp;';
-                                    if ($total_h) { $p=int(($total_h-$TotalFamily)/$total_h*1000)/10; $p="$p %"; }
-                                    print "<tr bgcolor=\"#F6F6F6\"><td class=\"aws\" colspan=\"2\"><b>".uc($Message[2])."</b></td>";
-                                    print "<td><b>".($total_h-$TotalFamily)."</b></td><td><b>$p</b></td><td>&nbsp;</td>";
-                                    print "</tr>\n";
-                                    $familyheadershown=1;
-                            }
-                            my $p='&nbsp;';
-                            if ($total_h) { $p=int($_os_h{$key}/$total_h*1000)/10; $p="$p %"; }
-                            print "<tr>";
-                            if ($key eq 'Unknown') {
-                                    print "<td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/browser\/unknown.png\"".AltTitle("")." /></td><td class=\"aws\"><span style=\"color: #$color_other\">$Message[0]</span></td>";
-                            }
-                            else {
-                                    my $keywithoutcumul=$key; $keywithoutcumul =~ s/cumul$//i;
-                                    my $libos=$OSHashLib{$keywithoutcumul}||$keywithoutcumul;
-                                    my $nameicon=$keywithoutcumul; $nameicon =~ s/[^\w]//g;
-                                    print "<td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/os\/$nameicon.png\"".AltTitle("")." /></td><td class=\"aws\">$libos</td>";
-                            }
-                            my $bredde_h=0;
-                            if ($max_h > 0) { $bredde_h=int($BarWidth*($_os_h{$key}||0)/$max_h)+1; }
-                            if (($bredde_h==1) && $_os_h{$key}) { $bredde_h=2; }
-                            print "<td>$_os_h{$key}</td><td>$p</td>";
-                            print "<td class=\"aws\">";
-                            # alt and title are not provided to reduce page size
-                            if ($ShowOSStats) { print "<img src=\"$DirIcons\/other\/$BarPng{'hh'}\" width=\"$bredde_h\" height=\"5\" /><br />"; }
-                            print "</td>";
-                            print "</tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'browserdetail'}) {
-                    # Show browsers versions
-                    print "$Center<a name=\"browsersversions\">&nbsp;</a><br />";
-                    my $title="$Message[21]";
-                    &tab_head("$title",19,0,'browsersversions');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th colspan=\"2\">$Message[58]</th>";
-                    print "<th width=\"80\">$Message[111]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>";
-                    print "<th>&nbsp;</th>";
-                    print "</tr>\n";
-                    $total_h=0;
-                    my $count=0;
-                    &BuildKeyList(MinimumButNoZero(scalar keys %_browser_h,500),1,\%_browser_h,\%_browser_h);
-                    my %keysinkeylist=();
-                    $max_h=1;
-                    # Count total by family
-                    my %totalfamily_h=();
-                    my $TotalFamily=0;
-                    BROWSERLOOP: foreach my $key (@keylist) {
-                            $total_h+=$_browser_h{$key};
-                            if ($_browser_h{$key} > $max_h) { $max_h = $_browser_h{$key}; }
-                            foreach my $family (keys %BrowsersFamily) { if ($key =~ /^$family/i) { $totalfamily_h{$family}+=$_browser_h{$key}; $TotalFamily+=$_browser_h{$key}; next BROWSERLOOP; } }
-                    }
-                    # Write records grouped in a browser family
-                    foreach my $family (sort { $BrowsersFamily{$a} <=> $BrowsersFamily{$b} } keys %BrowsersFamily) {
-                            my $p='&nbsp;';
-                            if ($total_h) { $p=int($totalfamily_h{$family}/$total_h*1000)/10; $p="$p %"; }
-                            my $familyheadershown=0;
-                            foreach my $key (reverse sort keys %_browser_h) {
-                                    if ($key =~ /^$family(.*)/i) {
-                                            if (! $familyheadershown) {
-                                                    print "<tr bgcolor=\"#F6F6F6\"><td class=\"aws\" colspan=\"2\"><b>".uc($family)."</b></td>";
-                                                    print "<td>&nbsp;</td><td><b>".int($totalfamily_h{$family})."</b></td><td><b>$p</b></td><td>&nbsp;</td>";
-                                                    print "</tr>\n";
-                                                    $familyheadershown=1;
-                                            }
-                                            $keysinkeylist{$key}=1;
-                                            my $ver=$1;
-                                            my $p='&nbsp;';
-                                            if ($total_h) { $p=int($_browser_h{$key}/$total_h*1000)/10; $p="$p %"; }
-                                            print "<tr>";
-                                            print "<td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/browser\/$family.png\"".AltTitle("")." /></td>";
-                                            print "<td class=\"aws\">".ucfirst($family)." ".($ver?"$ver":"?")."</td>";
-                                            print "<td>".($BrowsersHereAreGrabbers{$family}?"<b>$Message[112]</b>":"$Message[113]")."</td>";
-                                            my $bredde_h=0;
-                                            if ($max_h > 0) { $bredde_h=int($BarWidth*($_browser_h{$key}||0)/$max_h)+1; }
-                                            if (($bredde_h==1) && $_browser_h{$key}) { $bredde_h=2; }
-                                            print "<td>$_browser_h{$key}</td><td>$p</td>";
-                                            print "<td class=\"aws\">";
-                                            # alt and title are not provided to reduce page size
-                                            if ($ShowBrowsersStats) { print "<img src=\"$DirIcons\/other\/$BarPng{'hh'}\" width=\"$bredde_h\" height=\"5\" /><br />"; }
-                                            print "</td>";
-                                            print "</tr>\n";
-                                            $count++;
-                                    }
-                            }
-                    }
-                    # Write other records
-                    my $familyheadershown=0;
-                    foreach my $key (@keylist) {
-                            if ($keysinkeylist{$key}) { next; }
-                            if (! $familyheadershown) {
-                                    my $p='&nbsp;';
-                                    if ($total_h) { $p=int(($total_h-$TotalFamily)/$total_h*1000)/10; $p="$p %"; }
-                                    print "<tr bgcolor=\"#F6F6F6\"><td class=\"aws\" colspan=\"2\"><b>".uc($Message[2])."</b></td>";
-                                    print "<td>&nbsp;</td><td><b>".($total_h-$TotalFamily)."</b></td><td><b>$p</b></td><td>&nbsp;</td>";
-                                    print "</tr>\n";
-                                    $familyheadershown=1;
-                            }
-                            my $p='&nbsp;';
-                            if ($total_h) { $p=int($_browser_h{$key}/$total_h*1000)/10; $p="$p %"; }
-                            print "<tr>";
-                            if ($key eq 'Unknown') {
-                                    print "<td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/browser\/unknown.png\"".AltTitle("")." /></td><td class=\"aws\"><span style=\"color: #$color_other\">$Message[0]</span></td><td width=\"80\">?</td>";
-                            }
-                            else {
-                                    my $keywithoutcumul=$key; $keywithoutcumul =~ s/cumul$//i;
-                                    my $libbrowser=$BrowsersHashIDLib{$keywithoutcumul}||$keywithoutcumul;
-                                    my $nameicon=$BrowsersHashIcon{$keywithoutcumul}||"notavailable";
-                                    print "<td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/browser\/$nameicon.png\"".AltTitle("")." /></td><td class=\"aws\">$libbrowser</td><td>".($BrowsersHereAreGrabbers{$key}?"<b>$Message[112]</b>":"$Message[113]")."</td>";
-                            }
-                            my $bredde_h=0;
-                            if ($max_h > 0) { $bredde_h=int($BarWidth*($_browser_h{$key}||0)/$max_h)+1; }
-                            if (($bredde_h==1) && $_browser_h{$key}) { $bredde_h=2; }
-                            print "<td>$_browser_h{$key}</td><td>$p</td>";
-                            print "<td class=\"aws\">";
-                            # alt and title are not provided to reduce page size
-                            if ($ShowBrowsersStats) { print "<img src=\"$DirIcons\/other\/$BarPng{'hh'}\" width=\"$bredde_h\" height=\"5\" /><br />"; }
-                            print "</td>";
-                            print "</tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'refererse'}) {
-                    print "$Center<a name=\"refererse\">&nbsp;</a><br />\n";
-                    my $title="$Message[40]";
-                    &tab_head("$title",19,0,'refererse');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>$TotalDifferentSearchEngines $Message[122]</th>";
-                    print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th><th bgcolor=\"#$color_p\" width=\"80\">$Message[15]</th>";
-                    print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>";
-                    print "</tr>\n";
-                    $total_s=0;
-                    my $count=0;
-                    &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Refer'},\%_se_referrals_h,((scalar keys %_se_referrals_p)?\%_se_referrals_p:\%_se_referrals_h));        # before 5.4 only hits were recorded
-                    foreach my $key (@keylist) {
-                            my $newreferer=CleanFromCSSA($SearchEnginesHashLib{$key}||$key);
-                            my $p_p; my $p_h;
-                            if ($TotalSearchEnginesPages) { $p_p=int($_se_referrals_p{$key}/$TotalSearchEnginesPages*1000)/10; }
-                            if ($TotalSearchEnginesHits) { $p_h=int($_se_referrals_h{$key}/$TotalSearchEnginesHits*1000)/10; }
-                            print "<tr><td class=\"aws\">$newreferer</td>";
-                            print "<td>".($_se_referrals_p{$key}?$_se_referrals_p{$key}:'&nbsp;')."</td>";
-                            print "<td>".($_se_referrals_p{$key}?"$p_p %":'&nbsp;')."</td>";
-                            print "<td>$_se_referrals_h{$key}</td>";
-                            print "<td>$p_h %</td>";
-                            print "</tr>\n";
-                            $total_p += $_se_referrals_p{$key};
-                            $total_h += $_se_referrals_h{$key};
-                            $count++;
-                    }
-                    if ($Debug) { debug("Total real / shown : $TotalSearchEnginesPages / $total_p - $TotalSearchEnginesHits / $total_h",2); }
-                    $rest_p=$TotalSearchEnginesPages-$total_p;
-                    $rest_h=$TotalSearchEnginesHits-$total_h;
-                    if ($rest_p > 0 || $rest_h > 0) {
-                            my $p_p;my $p_h;
-                            if ($TotalSearchEnginesPages) { $p_p=int($rest_p/$TotalSearchEnginesPages*1000)/10; }
-                            if ($TotalSearchEnginesHits) { $p_h=int($rest_h/$TotalSearchEnginesHits*1000)/10; }
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                            print "<td>".($rest_p?$rest_p:'&nbsp;')."</td>";
-                            print "<td>".($rest_p?"$p_p %":'&nbsp;')."</td>";
-                            print "<td>$rest_h</td>";
-                            print "<td>$p_h %</td>";
-                            print "</tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'refererpages'}) {
-                    print "$Center<a name=\"refererpages\">&nbsp;</a><br />\n";
-                    # Show filter form
-                    &ShowFormFilter("refererpagesfilter",$FilterIn{'refererpages'},$FilterEx{'refererpages'});
-                    my $title="$Message[41]"; my $cpt=0;
-                    $cpt=(scalar keys %_pagesrefs_h);
-                    &tab_head("$title",19,0,'refererpages');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>";
-                    if ($FilterIn{'refererpages'} || $FilterEx{'refererpages'}) {
-                            if ($FilterIn{'refererpages'}) { print "$Message[79] <b>$FilterIn{'refererpages'}</b>"; }
-                            if ($FilterIn{'refererpages'} && $FilterEx{'refererpages'}) { print " - "; }
-                            if ($FilterEx{'refererpages'}) { print "Exclude $Message[79] <b>$FilterEx{'refererpages'}</b>"; }
-                            if ($FilterIn{'refererpages'} || $FilterEx{'refererpages'}) { print ": "; }
-                            print "$cpt $Message[28]";
-                            #if ($MonthRequired ne 'all') {
-                            #        if ($HTMLOutput{'refererpages'}) { print "<br />$Message[102]: $TotalDifferentPages $Message[28]"; }
-                            #}
-                    }
-                    else { print "$Message[102]: $cpt $Message[28]"; }
-                    print "</th>";
-                    print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th><th bgcolor=\"#$color_p\" width=\"80\">$Message[15]</th>";
-                    print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>";
-                    print "</tr>\n";
-                    $total_s=0;
-                    my $count=0;
-                    &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Refer'},\%_pagesrefs_h,((scalar keys %_pagesrefs_p)?\%_pagesrefs_p:\%_pagesrefs_h));
-                    foreach my $key (@keylist) {
-                            my $nompage=CleanFromCSSA($key);
-                            if (length($nompage)>$MaxLengthOfShownURL) { $nompage=substr($nompage,0,$MaxLengthOfShownURL)."..."; }
-                            my $p_p; my $p_h;
-                            if ($TotalRefererPages) { $p_p=int($_pagesrefs_p{$key}/$TotalRefererPages*1000)/10; }
-                            if ($TotalRefererHits) { $p_h=int($_pagesrefs_h{$key}/$TotalRefererHits*1000)/10; }
-                            print "<tr><td class=\"aws\">";
-                            &ShowURLInfo($key);
-                            print "</td>";
-                            print "<td>".($_pagesrefs_p{$key}?$_pagesrefs_p{$key}:'&nbsp;')."</td><td>".($_pagesrefs_p{$key}?"$p_p %":'&nbsp;')."</td>";
-                            print "<td>".($_pagesrefs_h{$key}?$_pagesrefs_h{$key}:'&nbsp;')."</td><td>".($_pagesrefs_h{$key}?"$p_h %":'&nbsp;')."</td>";
-                            print "</tr>\n";
-                            $total_p += $_pagesrefs_p{$key};
-                            $total_h += $_pagesrefs_h{$key};
-                            $count++;
-                    }
-                    if ($Debug) { debug("Total real / shown : $TotalRefererPages / $total_p - $TotalRefererHits / $total_h",2); }
-                    $rest_p=$TotalRefererPages-$total_p;
-                    $rest_h=$TotalRefererHits-$total_h;
-                    if ($rest_p > 0 || $rest_h > 0) {
-                            my $p_p; my $p_h;
-                            if ($TotalRefererPages) { $p_p=int($rest_p/$TotalRefererPages*1000)/10; }
-                            if ($TotalRefererHits) { $p_h=int($rest_h/$TotalRefererHits*1000)/10; }
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                            print "<td>".($rest_p?$rest_p:'&nbsp;')."</td>";
-                            print "<td>".($rest_p?"$p_p %":'&nbsp;')."</td>";
-                            print "<td>$rest_h</td>";
-                            print "<td>$p_h %</td>";
-                            print "</tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'keyphrases'}) {
-                    print "$Center<a name=\"keyphrases\">&nbsp;</a><br />\n";
-                    &tab_head($Message[43],19,0,'keyphrases');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(15)."><th>$TotalDifferentKeyphrases $Message[103]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[14]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[15]</th></tr>\n";
-                    $total_s=0;
-                    my $count=0;
-                    &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Keyphrase'},\%_keyphrases,\%_keyphrases);
-                    foreach my $key (@keylist) {
-                            my $mot;
-                            # Convert coded keywords (utf8,...) to be correctly reported in HTML page.
-                            if ($PluginsLoaded{'DecodeKey'}{'decodeutfkeys'})  { $mot=CleanFromCSSA(DecodeKey_decodeutfkeys($key,$PageCode||'iso-8859-1')); }
-                            else { $mot = CleanFromCSSA(DecodeEncodedString($key)); }
-                            my $p;
-                            if ($TotalKeyphrases) { $p=int($_keyphrases{$key}/$TotalKeyphrases*1000)/10; }
-                            print "<tr><td class=\"aws\">".XMLEncode($mot)."</td><td>$_keyphrases{$key}</td><td>$p %</td></tr>\n";
-                            $total_s += $_keyphrases{$key};
-                            $count++;
-                    }
-                    if ($Debug) { debug("Total real / shown : $TotalKeyphrases / $total_s",2); }
-                    $rest_s=$TotalKeyphrases-$total_s;
-                    if ($rest_s > 0) {
-                            my $p;
-                            if ($TotalKeyphrases) { $p=int($rest_s/$TotalKeyphrases*1000)/10; }
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[124]</span></td><td>$rest_s</td>";
-                            print "<td>$p %</td></tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            if ($HTMLOutput{'keywords'}) {
-                    print "$Center<a name=\"keywords\">&nbsp;</a><br />\n";
-                    &tab_head($Message[44],19,0,'keywords');
-                    print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(15)."><th>$TotalDifferentKeywords $Message[13]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[14]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[15]</th></tr>\n";
-                    $total_s=0;
-                    my $count=0;
-                    &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Keyword'},\%_keywords,\%_keywords);
-                    foreach my $key (@keylist) {
-                            my $mot;
-                            # Convert coded keywords (utf8,...) to be correctly reported in HTML page.
-                            if ($PluginsLoaded{'DecodeKey'}{'decodeutfkeys'})  { $mot=CleanFromCSSA(DecodeKey_decodeutfkeys($key,$PageCode||'iso-8859-1')); }
-                            else { $mot = CleanFromCSSA(DecodeEncodedString($key)); }
-                            my $p;
-                            if ($TotalKeywords) { $p=int($_keywords{$key}/$TotalKeywords*1000)/10; }
-                            print "<tr><td class=\"aws\">".XMLEncode($mot)."</td><td>$_keywords{$key}</td><td>$p %</td></tr>\n";
-                            $total_s += $_keywords{$key};
-                            $count++;
-                    }
-                    if ($Debug) { debug("Total real / shown : $TotalKeywords / $total_s",2); }
-                    $rest_s=$TotalKeywords-$total_s;
-                    if ($rest_s > 0) {
-                            my $p;
-                            if ($TotalKeywords) { $p=int($rest_s/$TotalKeywords*1000)/10; }
-                            print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[30]</span></td><td>$rest_s</td>";
-                            print "<td>$p %</td></tr>\n";
-                    }
-                    &tab_end();
-                    &html_end(1);
-            }
-            foreach my $code (keys %TrapInfosForHTTPErrorCodes) {
-                    if ($HTMLOutput{"errors$code"}) {
-                            print "$Center<a name=\"errors$code\">&nbsp;</a><br />\n";
-                            &tab_head($Message[47],19,0,"errors$code");
-                            print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>URL (".(scalar keys %_sider404_h).")</th><th bgcolor=\"#$color_h\">$Message[49]</th><th>$Message[23]</th></tr>\n";
-                            $total_h=0;
-                            my $count=0;
-                            &BuildKeyList($MaxRowsInHTMLOutput,1,\%_sider404_h,\%_sider404_h);
-                            foreach my $key (@keylist) {
-                    my $nompage=XMLEncode(CleanFromCSSA($key));
-                                    #if (length($nompage)>$MaxLengthOfShownURL) { $nompage=substr($nompage,0,$MaxLengthOfShownURL)."..."; }
-                                    my $referer=XMLEncode(CleanFromCSSA($_referer404_h{$key}));
-                                    print "<tr><td class=\"aws\">$nompage</td>";
-                                    print "<td>$_sider404_h{$key}</td>";
-                                    print "<td class=\"aws\">".($referer?"$referer":"&nbsp;")."</td>";
-                                    print "</tr>\n";
-                                    $total_s += $_sider404_h{$key};
-                                    $count++;
-                            }
-                            # TODO Build TotalErrorHits
-    #                        if ($Debug) { debug("Total real / shown : $TotalErrorHits / $total_h",2); }
-    #                        $rest_h=$TotalErrorHits-$total_h;
-    #                        if ($rest_h > 0) {
-    #                                my $p;
-    #                                if ($TotalErrorHits) { $p=int($rest_h/$TotalErrorHits*1000)/10; }
-    #                                print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[30]</span></td>";
-    #                                print "<td>$rest_h</td>";
-    #                                print "<td>...</td>";
-    #                                print "</tr>\n";
-    #                        }
-                            &tab_end();
-                            &html_end(1);
-                    }
-            }
-            if ($HTMLOutput{'info'}) {
-                    # Not yet available
-                    print "$Center<a name=\"info\">&nbsp;</a><br />";
-                    &html_end(1);
-            }
-
-        my $htmloutput='';
-        foreach my $key (keys %HTMLOutput) { $htmloutput=$key; }
-            if ($htmloutput =~ /^plugin_(\w+)$/) {
-                    my $pluginname=$1;
-                    print "$Center<a name=\"plugin_$pluginname\">&nbsp;</a><br />";
-                       my $function="AddHTMLGraph_$pluginname()";
-                       eval("$function");
-                    &html_end(1);
-            }
-    }
-
-        # Output main page
-    #-----------------
-
-        if ($HTMLOutput{'main'}) {
-
-                # SUMMARY
-                #---------------------------------------------------------------------
-                if ($ShowMonthStats) {
-                        if ($Debug) { debug("ShowSummary",2); }
-                        #print "$Center<a name=\"summary\">&nbsp;</a><br />\n";
-                        my $title="$Message[128]";
-                        &tab_head("$title",0,0,'month');
-
-                        my $NewLinkParams=${QueryString};
-                        $NewLinkParams =~ s/(^|&)update(=\w*|$)//i;
-                        $NewLinkParams =~ s/(^|&)staticlinks(=\w*|$)//i;
-                        $NewLinkParams =~ s/(^|&)year=[^&]*//i;
-                        $NewLinkParams =~ s/(^|&)month=[^&]*//i;
-                        $NewLinkParams =~ s/(^|&)framename=[^&]*//i;
-                        $NewLinkParams =~ tr/&/&/s; $NewLinkParams =~ s/^&//; $NewLinkParams =~ s/&$//;
-                        if ($NewLinkParams) { $NewLinkParams="${NewLinkParams}&"; }
-                        my $NewLinkTarget='';
-                        if ($FrameName eq 'mainright') { $NewLinkTarget=" target=\"_parent\""; }
-
-                        # Ratio
-                        my $RatioVisits=0; my $RatioPages=0; my $RatioHits=0; my $RatioBytes=0;
-                        if ($TotalUnique > 0) { $RatioVisits=int($TotalVisits/$TotalUnique*100)/100; }
-                        if ($TotalVisits > 0) { $RatioPages=int($TotalPages/$TotalVisits*100)/100; }
-                        if ($TotalVisits > 0) { $RatioHits=int($TotalHits/$TotalVisits*100)/100; }
-                        if ($TotalVisits > 0) { $RatioBytes=int(($TotalBytes/1024)*100/($LogType eq 'M'?$TotalHits:$TotalVisits))/100; }
-
-                        my $colspan=5;
-                        my $w='20';
-                        if ($LogType eq 'W' || $LogType eq 'S') { $w='17'; $colspan=6; }
-
-                        # Show first/last
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\">";
-                        print "<td class=\"aws\"><b>$Message[133]</b></td><td class=\"aws\" colspan=\"".($colspan-1)."\">\n";
-                        print ($MonthRequired eq 'all'?"$Message[6] $YearRequired":"$Message[5] ".$MonthNumLib{$MonthRequired}." $YearRequired");
-                        print "</td></tr>\n";
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\">";
-                        print "<td class=\"aws\"><b>$Message[8]</b></td>\n";
-                        print "<td class=\"aws\" colspan=\"".($colspan-1)."\">".($FirstTime?Format_Date($FirstTime,0):"NA")."</td>";
-                        print "</tr>\n";
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\">";
-                        print "<td class=\"aws\"><b>$Message[9]</b></td>\n";
-                        print "<td class=\"aws\" colspan=\"".($colspan-1)."\">".($LastTime?Format_Date($LastTime,0):"NA")."</td>\n";
-                        print "</tr>\n";
-
-                        # Show main indicators title row
-                        print "<tr>";
-                        if ($LogType eq 'W' || $LogType eq 'S') { print "<td bgcolor=\"#$color_TableBGTitle\">&nbsp;</td>"; }
-                        if ($ShowMonthStats =~ /U/i) { print "<td width=\"$w%\" bgcolor=\"#$color_u\"".Tooltip(2).">$Message[11]</td>"; } else { print "<td bgcolor=\"#$color_TableBGTitle\" width=\"20%\">&nbsp;</td>"; }
-                        if ($ShowMonthStats =~ /V/i) { print "<td width=\"$w%\" bgcolor=\"#$color_v\"".Tooltip(1).">$Message[10]</td>"; } else { print "<td bgcolor=\"#$color_TableBGTitle\" width=\"20%\">&nbsp;</td>"; }
-                        if ($ShowMonthStats =~ /P/i) { print "<td width=\"$w%\" bgcolor=\"#$color_p\"".Tooltip(3).">$Message[56]</td>"; } else { print "<td bgcolor=\"#$color_TableBGTitle\" width=\"20%\">&nbsp;</td>"; }
-                        if ($ShowMonthStats =~ /H/i) { print "<td width=\"$w%\" bgcolor=\"#$color_h\"".Tooltip(4).">$Message[57]</td>"; } else { print "<td bgcolor=\"#$color_TableBGTitle\" width=\"20%\">&nbsp;</td>"; }
-                        if ($ShowMonthStats =~ /B/i) { print "<td width=\"$w%\" bgcolor=\"#$color_k\"".Tooltip(5).">$Message[75]</td>"; } else { print "<td bgcolor=\"#$color_TableBGTitle\" width=\"20%\">&nbsp;</td>"; }
-                        print "</tr>\n";
-                        # Show main indicators values for viewed traffic
-                        print "<tr>";
-                        if ($LogType eq 'M') {
-                                print "<td class=\"aws\">$Message[165]</td>";
-                                print "<td>&nbsp;<br />&nbsp;</td>\n";
-                                print "<td>&nbsp;<br />&nbsp;</td>\n";
-                                if ($ShowMonthStats =~ /H/i) { print "<td><b>$TotalHits</b>".($LogType eq 'M'?"":"<br />($RatioHits&nbsp;".lc($Message[57]."/".$Message[12]).")</td>"); } else { print "<td>&nbsp;</td>"; }
-                                if ($ShowMonthStats =~ /B/i) { print "<td><b>".Format_Bytes(int($TotalBytes))."</b><br />($RatioBytes&nbsp;$Message[108]/".lc($Message[($LogType eq 'M'?149:12)]).")</td>"; } else { print "<td>&nbsp;</td>"; }
-                        }
-                        else {
-                                if ($LogType eq 'W' || $LogType eq 'S') { print "<td class=\"aws\">$Message[160]&nbsp;*</td>"; }
-                                if ($ShowMonthStats =~ /U/i) { print "<td>".($MonthRequired eq 'all'?"<b>&lt;= $TotalUnique</b><br />$Message[129]":"<b>$TotalUnique</b><br />&nbsp;")."</td>"; } else { print "<td>&nbsp;</td>"; }
-                                if ($ShowMonthStats =~ /V/i) { print "<td><b>$TotalVisits</b><br />($RatioVisits&nbsp;$Message[52])</td>"; } else { print "<td>&nbsp;</td>"; }
-                                if ($ShowMonthStats =~ /P/i) { print "<td><b>$TotalPages</b><br />($RatioPages&nbsp;".lc($Message[56]."/".$Message[12]).")</td>"; } else { print "<td>&nbsp;</td>"; }
-                                if ($ShowMonthStats =~ /H/i) { print "<td><b>$TotalHits</b>".($LogType eq 'M'?"":"<br />($RatioHits&nbsp;".lc($Message[57]."/".$Message[12]).")</td>"); } else { print "<td>&nbsp;</td>"; }
-                                if ($ShowMonthStats =~ /B/i) { print "<td><b>".Format_Bytes(int($TotalBytes))."</b><br />($RatioBytes&nbsp;$Message[108]/".lc($Message[($LogType eq 'M'?149:12)]).")</td>"; } else { print "<td>&nbsp;</td>"; }
-                        }
-                        print "</tr>\n";
-                        # Show main indicators values for not viewed traffic values
-            if ($LogType eq 'M' || $LogType eq 'W' || $LogType eq 'S') {
-                            print "<tr>";
-                            if ($LogType eq 'M') {
-                                    print "<td class=\"aws\">$Message[166]</td>";
-                                    print "<td>&nbsp;<br />&nbsp;</td>\n";
-                                    print "<td>&nbsp;<br />&nbsp;</td>\n";
-                                    if ($ShowMonthStats =~ /H/i) { print "<td><b>$TotalNotViewedHits</b></td>"; } else { print "<td>&nbsp;</td>"; }
-                                    if ($ShowMonthStats =~ /B/i) { print "<td><b>".Format_Bytes(int($TotalNotViewedBytes))."</b></td>"; } else { print "<td>&nbsp;</td>"; }
-                            }
-                            else {
-                                    if ($LogType eq 'W' || $LogType eq 'S') { print "<td class=\"aws\">$Message[161]&nbsp;*</td>"; }
-                                    print "<td colspan=\"2\">&nbsp;<br />&nbsp;</td>\n";
-                                    if ($ShowMonthStats =~ /P/i) { print "<td><b>$TotalNotViewedPages</b></td>"; } else { print "<td>&nbsp;</td>"; }
-                                    if ($ShowMonthStats =~ /H/i) { print "<td><b>$TotalNotViewedHits</b></td>"; } else { print "<td>&nbsp;</td>"; }
-                                    if ($ShowMonthStats =~ /B/i) { print "<td><b>".Format_Bytes(int($TotalNotViewedBytes))."</b></td>"; } else { print "<td>&nbsp;</td>"; }
-                            }
-                            print "</tr>\n";
-            }
-                        &tab_end($LogType eq 'W' || $LogType eq 'S'?"* $Message[159]":"");
-        }
-
-                # BY MONTH
-                #---------------------------------------------------------------------
-                if ($ShowMonthStats) {
-
-                        if ($Debug) { debug("ShowMonthStats",2); }
-                        print "$Center<a name=\"month\">&nbsp;</a><br />\n";
-                        my $title="$Message[162]";
-                        &tab_head("$title",0,0,'month');
-                        print "<tr><td align=\"center\">\n";
-                        print "<center>\n";
-
-                        $average_nb=$average_u=$average_v=$average_p=$average_h=$average_k=0;
-                        $total_u=$total_v=$total_p=$total_h=$total_k=0;
-
-                        $max_v=$max_p=$max_h=$max_k=1;
-                        # Define total and max
-                        for (my $ix=1; $ix<=12; $ix++) {
-                                my $monthix=sprintf("%02s",$ix);
-                                $total_u+=$MonthUnique{$YearRequired.$monthix}||0;
-                                $total_v+=$MonthVisits{$YearRequired.$monthix}||0;
-                                $total_p+=$MonthPages{$YearRequired.$monthix}||0;
-                                $total_h+=$MonthHits{$YearRequired.$monthix}||0;
-                                $total_k+=$MonthBytes{$YearRequired.$monthix}||0;
-                                #if (($MonthUnique{$YearRequired.$monthix}||0) > $max_v) { $max_v=$MonthUnique{$YearRequired.$monthix}; }
-                                if (($MonthVisits{$YearRequired.$monthix}||0) > $max_v) { $max_v=$MonthVisits{$YearRequired.$monthix}; }
-                                #if (($MonthPages{$YearRequired.$monthix}||0) > $max_p)  { $max_p=$MonthPages{$YearRequired.$monthix}; }
-                                if (($MonthHits{$YearRequired.$monthix}||0) > $max_h)   { $max_h=$MonthHits{$YearRequired.$monthix}; }
-                                if (($MonthBytes{$YearRequired.$monthix}||0) > $max_k)  { $max_k=$MonthBytes{$YearRequired.$monthix}; }
-                        }
-                        # Define average
-                        # TODO
-
-                        # Show bars for month
-                        if ($PluginsLoaded{'ShowGraph'}{'graphapplet'}) {
-                                my @blocklabel=();
-                                for (my $ix=1; $ix<=12; $ix++) {
-                                        my $monthix=sprintf("%02s",$ix);
-                                        push @blocklabel,"$MonthNumLib{$monthix}\�$YearRequired";
-                                }
-                                my @vallabel=("$Message[11]","$Message[10]","$Message[56]","$Message[57]","$Message[75]");
-                                my @valcolor=("$color_u","$color_v","$color_p","$color_h","$color_k");
-                                my @valmax=($max_v,$max_v,$max_h,$max_h,$max_k);
-                                my @valtotal=($total_u,$total_v,$total_p,$total_h,$total_k);
-                                my @valaverage=();
-                                #my @valaverage=($average_v,$average_p,$average_h,$average_k);
-                                my @valdata=();
-                                my $xx=0;
-                                for (my $ix=1; $ix<=12; $ix++) {
-                                        my $monthix=sprintf("%02s",$ix);
-                                        $valdata[$xx++]=$MonthUnique{$YearRequired.$monthix}||0;
-                                        $valdata[$xx++]=$MonthVisits{$YearRequired.$monthix}||0;
-                                        $valdata[$xx++]=$MonthPages{$YearRequired.$monthix}||0;
-                                        $valdata[$xx++]=$MonthHits{$YearRequired.$monthix}||0;
-                                        $valdata[$xx++]=$MonthBytes{$YearRequired.$monthix}||0;
-                                }
-                                ShowGraph_graphapplet("$title","month",$ShowMonthStats,\@blocklabel,\@vallabel,\@valcolor,\@valmax,\@valtotal,\@valaverage,\@valdata);
-                        }
-                        else {
-                                print "<table>\n";
-                                print "<tr valign=\"bottom\">";
-                                print "<td>&nbsp;</td>\n";
-                                for (my $ix=1; $ix<=12; $ix++) {
-                                        my $monthix=sprintf("%02s",$ix);
-                                        my $bredde_u=0; my $bredde_v=0;my $bredde_p=0;my $bredde_h=0;my $bredde_k=0;
-                                        if ($max_v > 0) { $bredde_u=int(($MonthUnique{$YearRequired.$monthix}||0)/$max_v*$BarHeight)+1; }
-                                        if ($max_v > 0) { $bredde_v=int(($MonthVisits{$YearRequired.$monthix}||0)/$max_v*$BarHeight)+1; }
-                                        if ($max_h > 0) { $bredde_p=int(($MonthPages{$YearRequired.$monthix}||0)/$max_h*$BarHeight)+1; }
-                                        if ($max_h > 0) { $bredde_h=int(($MonthHits{$YearRequired.$monthix}||0)/$max_h*$BarHeight)+1; }
-                                        if ($max_k > 0) { $bredde_k=int(($MonthBytes{$YearRequired.$monthix}||0)/$max_k*$BarHeight)+1; }
-                                        print "<td>";
-                                        if ($ShowMonthStats =~ /U/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vu'}\" height=\"$bredde_u\" width=\"6\"".AltTitle("$Message[11]: ".($MonthUnique{$YearRequired.$monthix}||0))." />"; }
-                                        if ($ShowMonthStats =~ /V/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vv'}\" height=\"$bredde_v\" width=\"6\"".AltTitle("$Message[10]: ".($MonthVisits{$YearRequired.$monthix}||0))." />"; }
-                                        if ($QueryString !~ /buildpdf/i) { print "&nbsp;"; }
-                                        if ($ShowMonthStats =~ /P/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vp'}\" height=\"$bredde_p\" width=\"6\"".AltTitle("$Message[56]: ".($MonthPages{$YearRequired.$monthix}||0))." />"; }
-                                        if ($ShowMonthStats =~ /H/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vh'}\" height=\"$bredde_h\" width=\"6\"".AltTitle("$Message[57]: ".($MonthHits{$YearRequired.$monthix}||0))." />"; }
-                                        if ($ShowMonthStats =~ /B/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vk'}\" height=\"$bredde_k\" width=\"6\"".AltTitle("$Message[75]: ".Format_Bytes($MonthBytes{$YearRequired.$monthix}))." />"; }
-                                        print "</td>\n";
-                                }
-                                print "<td>&nbsp;</td>";
-                                print "</tr>\n";
-                                # Show lib for month
-                                print "<tr valign=\"middle\">";
-#                                if (!$StaticLinks) {
-#                                        print "<td><a href=\"".XMLEncode("$AWScript?${NewLinkParams}month=12&year=".($YearRequired-1))."\">&lt;&lt;</a></td>";
-#                                }
-#                                else {
-                                        print "<td>&nbsp;</td>";
-#                                }
-                                for (my $ix=1; $ix<=12; $ix++) {
-                                        my $monthix=sprintf("%02s",$ix);
-#                                        if (!$StaticLinks) {
-#                                                print "<td><a href=\"".XMLEncode("$AWScript?${NewLinkParams}month=$monthix&year=$YearRequired")."\">$MonthNumLib{$monthix}<br />$YearRequired</a></td>";
-#                                        }
-#                                        else {
-                                            print "<td>".(! $StaticLinks && $monthix==$nowmonth && $YearRequired==$nowyear?'<font class="currentday">':'');
-                                                print "$MonthNumLib{$monthix}<br />$YearRequired";
-                                            print (! $StaticLinks && $monthix==$nowmonth && $YearRequired==$nowyear?'<font class="currentday">':'')."</td>";
-#                                        }
-                                }
-#                                if (!$StaticLinks) {
-#                                        print "<td><a href=\"".XMLEncode("$AWScript?${NewLinkParams}month=1&year=".($YearRequired+1))."\">&gt;&gt;</a></td>";
-#                                }
-#                                else {
-                                        print "<td>&nbsp;</td>";
-#                                }
-                                print "</tr>\n";
-                                print "</table>\n";
-                        }
-                        print "<br />\n";
-
-                        # Show data array for month
-                        if ($AddDataArrayMonthStats) {
-                                print "<table>\n";
-                                print "<tr><td width=\"80\" bgcolor=\"#$color_TableBGRowTitle\">$Message[5]</td>";
-                                if ($ShowMonthStats =~ /U/i) { print "<td width=\"80\" bgcolor=\"#$color_u\"".Tooltip(2).">$Message[11]</td>"; }
-                                if ($ShowMonthStats =~ /V/i) { print "<td width=\"80\" bgcolor=\"#$color_v\"".Tooltip(1).">$Message[10]</td>"; }
-                                if ($ShowMonthStats =~ /P/i) { print "<td width=\"80\" bgcolor=\"#$color_p\"".Tooltip(3).">$Message[56]</td>"; }
-                                if ($ShowMonthStats =~ /H/i) { print "<td width=\"80\" bgcolor=\"#$color_h\"".Tooltip(4).">$Message[57]</td>"; }
-                                if ($ShowMonthStats =~ /B/i) { print "<td width=\"80\" bgcolor=\"#$color_k\"".Tooltip(5).">$Message[75]</td>"; }
-                                print "</tr>\n";
-                                for (my $ix=1; $ix<=12; $ix++) {
-                                        my $monthix=sprintf("%02s",$ix);
-                                        print "<tr>";
-                                        print "<td>".(! $StaticLinks && $monthix==$nowmonth && $YearRequired==$nowyear?'<font class="currentday">':'');
-                                        print "$MonthNumLib{$monthix} $YearRequired";
-                                        print (! $StaticLinks && $monthix==$nowmonth && $YearRequired==$nowyear?'</font>':'')."</td>";
-                                        if ($ShowMonthStats =~ /U/i) { print "<td>",$MonthUnique{$YearRequired.$monthix}?$MonthUnique{$YearRequired.$monthix}:"0","</td>"; }
-                                        if ($ShowMonthStats =~ /V/i) { print "<td>",$MonthVisits{$YearRequired.$monthix}?$MonthVisits{$YearRequired.$monthix}:"0","</td>"; }
-                                        if ($ShowMonthStats =~ /P/i) { print "<td>",$MonthPages{$YearRequired.$monthix}?$MonthPages{$YearRequired.$monthix}:"0","</td>"; }
-                                        if ($ShowMonthStats =~ /H/i) { print "<td>",$MonthHits{$YearRequired.$monthix}?$MonthHits{$YearRequired.$monthix}:"0","</td>"; }
-                                        if ($ShowMonthStats =~ /B/i) { print "<td>",Format_Bytes(int($MonthBytes{$YearRequired.$monthix}||0)),"</td>"; }
-                                        print "</tr>\n";
-                                }
-                                # Average row
-                                # TODO
-                                # Total row
-                                print "<tr><td bgcolor=\"#$color_TableBGRowTitle\">$Message[102]</td>";
-                                if ($ShowMonthStats =~ /U/i) { print "<td bgcolor=\"#$color_TableBGRowTitle\">$total_u</td>"; }
-                                if ($ShowMonthStats =~ /V/i) { print "<td bgcolor=\"#$color_TableBGRowTitle\">$total_v</td>"; }
-                                if ($ShowMonthStats =~ /P/i) { print "<td bgcolor=\"#$color_TableBGRowTitle\">$total_p</td>"; }
-                                if ($ShowMonthStats =~ /H/i) { print "<td bgcolor=\"#$color_TableBGRowTitle\">$total_h</td>"; }
-                                if ($ShowMonthStats =~ /B/i) { print "<td bgcolor=\"#$color_TableBGRowTitle\">".Format_Bytes($total_k)."</td>"; }
-                                print "</tr>\n";
-                                print "</table>\n<br />\n";
-                        }
-
-                        print "</center>\n";
-                        print "</td></tr>\n";
-                        &tab_end();
-                }
-
-                print "\n<a name=\"when\">&nbsp;</a>\n\n";
-
-                # BY DAY OF MONTH
-                #---------------------------------------------------------------------
-                if ($ShowDaysOfMonthStats) {
-                        if ($Debug) { debug("ShowDaysOfMonthStats",2); }
-                        print "$Center<a name=\"daysofmonth\">&nbsp;</a><br />\n";
-                        my $title="$Message[138]";
-                        &tab_head("$title",0,0,'daysofmonth');
-                        print "<tr>";
-                        print "<td align=\"center\">\n";
-                        print "<center>\n";
-
-                        my $NewLinkParams=${QueryString};
-                        $NewLinkParams =~ s/(^|&)update(=\w*|$)//i;
-                        $NewLinkParams =~ s/(^|&)staticlinks(=\w*|$)//i;
-                        $NewLinkParams =~ s/(^|&)year=[^&]*//i;
-                        $NewLinkParams =~ s/(^|&)month=[^&]*//i;
-                        $NewLinkParams =~ s/(^|&)framename=[^&]*//i;
-                        $NewLinkParams =~ tr/&/&/s; $NewLinkParams =~ s/^&//; $NewLinkParams =~ s/&$//;
-                        if ($NewLinkParams) { $NewLinkParams="${NewLinkParams}&"; }
-                        my $NewLinkTarget='';
-                        if ($FrameName eq 'mainright') { $NewLinkTarget=" target=\"_parent\""; }
-
-                        $average_nb=$average_u=$average_v=$average_p=$average_h=$average_k=0;
-                        $total_u=$total_v=$total_p=$total_h=$total_k=0;
-                        # Define total and max
-                        $max_v=$max_h=$max_k=0;                # Start from 0 because can be lower than 1
-                        foreach my $daycursor ($firstdaytoshowtime..$lastdaytoshowtime) {
-                                $daycursor =~ /^(\d\d\d\d)(\d\d)(\d\d)/;
-                                my $year=$1; my $month=$2; my $day=$3;
-                                if (! DateIsValid($day,$month,$year)) { next; }                        # If not an existing day, go to next
-                                $total_v+=$DayVisits{$year.$month.$day}||0;
-                                $total_p+=$DayPages{$year.$month.$day}||0;
-                                $total_h+=$DayHits{$year.$month.$day}||0;
-                                $total_k+=$DayBytes{$year.$month.$day}||0;
-                                if (($DayVisits{$year.$month.$day}||0) > $max_v)  { $max_v=$DayVisits{$year.$month.$day}; }
-                                #if (($DayPages{$year.$month.$day}||0) > $max_p)  { $max_p=$DayPages{$year.$month.$day}; }
-                                if (($DayHits{$year.$month.$day}||0) > $max_h)   { $max_h=$DayHits{$year.$month.$day}; }
-                                if (($DayBytes{$year.$month.$day}||0) > $max_k)  { $max_k=$DayBytes{$year.$month.$day}; }
-                        }
-                        # Define average
-                        foreach my $daycursor ($firstdaytocountaverage..$lastdaytocountaverage) {
-                                $daycursor =~ /^(\d\d\d\d)(\d\d)(\d\d)/;
-                                my $year=$1; my $month=$2; my $day=$3;
-                                if (! DateIsValid($day,$month,$year)) { next; }                        # If not an existing day, go to next
-                                $average_nb++;                                                                                        # Increase number of day used to count
-                                $average_v+=($DayVisits{$daycursor}||0);
-                                $average_p+=($DayPages{$daycursor}||0);
-                                $average_h+=($DayHits{$daycursor}||0);
-                                $average_k+=($DayBytes{$daycursor}||0);
-                        }
-                        if ($average_nb) {
-                                $average_v=$average_v/$average_nb;
-                                $average_p=$average_p/$average_nb;
-                                $average_h=$average_h/$average_nb;
-                                $average_k=$average_k/$average_nb;
-                                if ($average_v > $max_v) { $max_v=$average_v; }
-                                #if ($average_p > $max_p) { $max_p=$average_p; }
-                                if ($average_h > $max_h) { $max_h=$average_h; }
-                                if ($average_k > $max_k) { $max_k=$average_k; }
-                        }
-                        else {
-                                $average_v="?";
-                                $average_p="?";
-                                $average_h="?";
-                                $average_k="?";
-                        }
-
-                        # Show bars for day
-                        if ($PluginsLoaded{'ShowGraph'}{'graphapplet'}) {
-                                my @blocklabel=();
-                                foreach my $daycursor ($firstdaytoshowtime..$lastdaytoshowtime) {
-                                        $daycursor =~ /^(\d\d\d\d)(\d\d)(\d\d)/;
-                                        my $year=$1; my $month=$2; my $day=$3;
-                                        if (! DateIsValid($day,$month,$year)) { next; }                        # If not an existing day, go to next
-                                        my $bold=($day==$nowday && $month==$nowmonth && $year==$nowyear?':':'');
-                                        my $weekend=(DayOfWeek($day,$month,$year)=~/[06]/?'!':'');
-                                        push @blocklabel,"$day�$MonthNumLib{$month}$weekend$bold";
-                                }
-                                my @vallabel=("$Message[10]","$Message[56]","$Message[57]","$Message[75]");
-                                my @valcolor=("$color_v","$color_p","$color_h","$color_k");
-                                my @valmax=($max_v,$max_h,$max_h,$max_k);
-                                my @valtotal=($total_v,$total_p,$total_h,$total_k);
-                                $average_v=sprintf("%.2f",$average_v);
-                                $average_p=sprintf("%.2f",$average_p);
-                                $average_h=sprintf("%.2f",$average_h);
-                                $average_k=(int($average_k)?Format_Bytes(sprintf("%.2f",$average_k)):"0.00");
-                                my @valaverage=($average_v,$average_p,$average_h,$average_k);
-                                my @valdata=();
-                                my $xx=0;
-                                foreach my $daycursor ($firstdaytoshowtime..$lastdaytoshowtime) {
-                                        $daycursor =~ /^(\d\d\d\d)(\d\d)(\d\d)/;
-                                        my $year=$1; my $month=$2; my $day=$3;
-                                        if (! DateIsValid($day,$month,$year)) { next; }                        # If not an existing day, go to next
-                                        $valdata[$xx++]=$DayVisits{$year.$month.$day}||0;
-                                        $valdata[$xx++]=$DayPages{$year.$month.$day}||0;
-                                        $valdata[$xx++]=$DayHits{$year.$month.$day}||0;
-                                        $valdata[$xx++]=$DayBytes{$year.$month.$day}||0;
-                                }
-                                ShowGraph_graphapplet("$title","daysofmonth",$ShowDaysOfMonthStats,\@blocklabel,\@vallabel,\@valcolor,\@valmax,\@valtotal,\@valaverage,\@valdata);
-                        }
-                        else {
-                                print "<table>\n";
-                                print "<tr valign=\"bottom\">\n";
-                                foreach my $daycursor ($firstdaytoshowtime..$lastdaytoshowtime) {
-                                        $daycursor =~ /^(\d\d\d\d)(\d\d)(\d\d)/;
-                                        my $year=$1; my $month=$2; my $day=$3;
-                                        if (! DateIsValid($day,$month,$year)) { next; }                        # If not an existing day, go to next
-                                        my $bredde_v=0; my $bredde_p=0; my $bredde_h=0; my $bredde_k=0;
-                                        if ($max_v > 0) { $bredde_v=int(($DayVisits{$year.$month.$day}||0)/$max_v*$BarHeight)+1; }
-                                        if ($max_h > 0) { $bredde_p=int(($DayPages{$year.$month.$day}||0)/$max_h*$BarHeight)+1; }
-                                        if ($max_h > 0) { $bredde_h=int(($DayHits{$year.$month.$day}||0)/$max_h*$BarHeight)+1; }
-                                        if ($max_k > 0) { $bredde_k=int(($DayBytes{$year.$month.$day}||0)/$max_k*$BarHeight)+1; }
-                                        print "<td>";
-                                        if ($ShowDaysOfMonthStats =~ /V/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vv'}\" height=\"$bredde_v\" width=\"4\"".AltTitle("$Message[10]: ".int($DayVisits{$year.$month.$day}||0))." />"; }
-                                        if ($ShowDaysOfMonthStats =~ /P/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vp'}\" height=\"$bredde_p\" width=\"4\"".AltTitle("$Message[56]: ".int($DayPages{$year.$month.$day}||0))." />"; }
-                                        if ($ShowDaysOfMonthStats =~ /H/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vh'}\" height=\"$bredde_h\" width=\"4\"".AltTitle("$Message[57]: ".int($DayHits{$year.$month.$day}||0))." />"; }
-                                        if ($ShowDaysOfMonthStats =~ /B/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vk'}\" height=\"$bredde_k\" width=\"4\"".AltTitle("$Message[75]: ".Format_Bytes($DayBytes{$year.$month.$day}))." />"; }
-                                        print "</td>\n";
-                                }
-                                print "<td>&nbsp;</td>";
-                                # Show average value cell
-                                print "<td>";
-                                my $bredde_v=0; my $bredde_p=0; my $bredde_h=0; my $bredde_k=0;
-                                if ($max_v > 0) { $bredde_v=int($average_v/$max_v*$BarHeight)+1; }
-                                if ($max_h > 0) { $bredde_p=int($average_p/$max_h*$BarHeight)+1; }
-                                if ($max_h > 0) { $bredde_h=int($average_h/$max_h*$BarHeight)+1; }
-                                if ($max_k > 0) { $bredde_k=int($average_k/$max_k*$BarHeight)+1; }
-                                $average_v=sprintf("%.2f",$average_v);
-                                $average_p=sprintf("%.2f",$average_p);
-                                $average_h=sprintf("%.2f",$average_h);
-                                $average_k=(int($average_k)?Format_Bytes(sprintf("%.2f",$average_k)):"0.00");
-                                if ($ShowDaysOfMonthStats =~ /V/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vv'}\" height=\"$bredde_v\" width=\"4\"".AltTitle("$Message[10]: $average_v")." />"; }
-                                if ($ShowDaysOfMonthStats =~ /P/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vp'}\" height=\"$bredde_p\" width=\"4\"".AltTitle("$Message[56]: $average_p")." />"; }
-                                if ($ShowDaysOfMonthStats =~ /H/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vh'}\" height=\"$bredde_h\" width=\"4\"".AltTitle("$Message[57]: $average_h")." />"; }
-                                if ($ShowDaysOfMonthStats =~ /B/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vk'}\" height=\"$bredde_k\" width=\"4\"".AltTitle("$Message[75]: $average_k")." />"; }
-                                print "</td>\n";
-                                print "</tr>\n";
-                                # Show lib for day
-                                print "<tr valign=\"middle\">";
-                                foreach my $daycursor ($firstdaytoshowtime..$lastdaytoshowtime) {
-                                        $daycursor =~ /^(\d\d\d\d)(\d\d)(\d\d)/;
-                                        my $year=$1; my $month=$2; my $day=$3;
-                                        if (! DateIsValid($day,$month,$year)) { next; }                        # If not an existing day, go to next
-                                        my $dayofweekcursor=DayOfWeek($day,$month,$year);
-                                        print "<td".($dayofweekcursor=~/[06]/?" bgcolor=\"#$color_weekend\"":"").">";
-                                        print (! $StaticLinks && $day==$nowday && $month==$nowmonth && $year==$nowyear?'<font class="currentday">':'');
-                                        print "$day<br /><span style=\"font-size: ".($FrameName ne 'mainright' && $QueryString !~ /buildpdf/i?"9":"8")."px;\">".$MonthNumLib{$month}."</span>";
-                                        print (! $StaticLinks && $day==$nowday && $month==$nowmonth && $year==$nowyear?'</font>':'');
-                                        print "</td>\n";
-                                }
-                                print "<td>&nbsp;</td>";
-                                print "<td valign=\"middle\"".Tooltip(18).">$Message[96]</td>\n";
-                                print "</tr>\n";
-                                print "</table>\n";
-                        }
-                        print "<br />\n";
-
-                        # Show data array for days
-                        if ($AddDataArrayShowDaysOfMonthStats) {
-                                print "<table>\n";
-                                print "<tr><td width=\"80\" bgcolor=\"#$color_TableBGRowTitle\">$Message[4]</td>";
-                                if ($ShowDaysOfMonthStats =~ /V/i) { print "<td width=\"80\" bgcolor=\"#$color_v\"".Tooltip(1).">$Message[10]</td>"; }
-                                if ($ShowDaysOfMonthStats =~ /P/i) { print "<td width=\"80\" bgcolor=\"#$color_p\"".Tooltip(3).">$Message[56]</td>"; }
-                                if ($ShowDaysOfMonthStats =~ /H/i) { print "<td width=\"80\" bgcolor=\"#$color_h\"".Tooltip(4).">$Message[57]</td>"; }
-                                if ($ShowDaysOfMonthStats =~ /B/i) { print "<td width=\"80\" bgcolor=\"#$color_k\"".Tooltip(5).">$Message[75]</td>"; }
-                                print "</tr>";
-                                foreach my $daycursor ($firstdaytoshowtime..$lastdaytoshowtime) {
-                                        $daycursor =~ /^(\d\d\d\d)(\d\d)(\d\d)/;
-                                        my $year=$1; my $month=$2; my $day=$3;
-                                        if (! DateIsValid($day,$month,$year)) { next; }                        # If not an existing day, go to next
-                                        my $dayofweekcursor=DayOfWeek($day,$month,$year);
-                                        print "<tr".($dayofweekcursor=~/[06]/?" bgcolor=\"#$color_weekend\"":"").">";
-                                        print "<td>".(! $StaticLinks && $day==$nowday && $month==$nowmonth && $year==$nowyear?'<font class="currentday">':'');
-                    print Format_Date("$year$month$day"."000000",2);
-                    print (! $StaticLinks && $day==$nowday && $month==$nowmonth && $year==$nowyear?'</font>':'')."</td>";
-                                        if ($ShowDaysOfMonthStats =~ /V/i) { print "<td>",$DayVisits{$year.$month.$day}?$DayVisits{$year.$month.$day}:"0","</td>"; }
-                                        if ($ShowDaysOfMonthStats =~ /P/i) { print "<td>",$DayPages{$year.$month.$day}?$DayPages{$year.$month.$day}:"0","</td>"; }
-                                        if ($ShowDaysOfMonthStats =~ /H/i) { print "<td>",$DayHits{$year.$month.$day}?$DayHits{$year.$month.$day}:"0","</td>"; }
-                                        if ($ShowDaysOfMonthStats =~ /B/i) { print "<td>",Format_Bytes(int($DayBytes{$year.$month.$day}||0)),"</td>"; }
-                                        print "</tr>\n";
-                                }
-                                # Average row
-                                print "<tr bgcolor=\"#$color_TableBGRowTitle\"><td>$Message[96]</td>";
-                                if ($ShowDaysOfMonthStats =~ /V/i) { print "<td>$average_v</td>"; }
-                                if ($ShowDaysOfMonthStats =~ /P/i) { print "<td>$average_p</td>"; }
-                                if ($ShowDaysOfMonthStats =~ /H/i) { print "<td>$average_h</td>"; }
-                                if ($ShowDaysOfMonthStats =~ /B/i) { print "<td>$average_k</td>"; }
-                                print "</tr>\n";
-                                # Total row
-                                print "<tr bgcolor=\"#$color_TableBGRowTitle\"><td>$Message[102]</td>";
-                                if ($ShowDaysOfMonthStats =~ /V/i) { print "<td>$total_v</td>"; }
-                                if ($ShowDaysOfMonthStats =~ /P/i) { print "<td>$total_p</td>"; }
-                                if ($ShowDaysOfMonthStats =~ /H/i) { print "<td>$total_h</td>"; }
-                                if ($ShowDaysOfMonthStats =~ /B/i) { print "<td>".Format_Bytes($total_k)."</td>"; }
-                                print "</tr>\n";
-                                print "</table>\n<br />";
-                        }
-
-                        print "</center>\n";
-                        print "</td></tr>\n";
-                        &tab_end();
-                }
-
-                # BY DAY OF WEEK
-                #-------------------------
-                if ($ShowDaysOfWeekStats) {
-                        if ($Debug) { debug("ShowDaysOfWeekStats",2); }
-                        print "$Center<a name=\"daysofweek\">&nbsp;</a><br />\n";
-                        my $title="$Message[91]";
-                        &tab_head("$title",18,0,'daysofweek');
-                        print "<tr>";
-                        print "<td align=\"center\">";
-                        print "<center>\n";
-
-                        $max_h=$max_k=0;        # Start from 0 because can be lower than 1
-                        # Get average value for day of week
-                        my @avg_dayofweek_nb=(); my @avg_dayofweek_p=(); my @avg_dayofweek_h=(); my @avg_dayofweek_k=();
-                        foreach my $daycursor ($firstdaytocountaverage..$lastdaytocountaverage) {
-                                $daycursor =~ /^(\d\d\d\d)(\d\d)(\d\d)/;
-                                my $year=$1; my $month=$2; my $day=$3;
-                                if (! DateIsValid($day,$month,$year)) { next; }                        # If not an existing day, go to next
-                                my $dayofweekcursor=DayOfWeek($day,$month,$year);
-                                $avg_dayofweek_nb[$dayofweekcursor]++;                                        # Increase number of day used to count for this day of week
-                                $avg_dayofweek_p[$dayofweekcursor]+=($DayPages{$daycursor}||0);
-                                $avg_dayofweek_h[$dayofweekcursor]+=($DayHits{$daycursor}||0);
-                                $avg_dayofweek_k[$dayofweekcursor]+=($DayBytes{$daycursor}||0);
-                        }
-                        for (@DOWIndex) {
-                                if ($avg_dayofweek_nb[$_]) {
-                                        $avg_dayofweek_p[$_]=$avg_dayofweek_p[$_]/$avg_dayofweek_nb[$_];
-                                        $avg_dayofweek_h[$_]=$avg_dayofweek_h[$_]/$avg_dayofweek_nb[$_];
-                                        $avg_dayofweek_k[$_]=$avg_dayofweek_k[$_]/$avg_dayofweek_nb[$_];
-                                        #if ($avg_dayofweek_p[$_] > $max_p) { $max_p = $avg_dayofweek_p[$_]; }
-                                        if ($avg_dayofweek_h[$_] > $max_h) { $max_h = $avg_dayofweek_h[$_]; }
-                                        if ($avg_dayofweek_k[$_] > $max_k) { $max_k = $avg_dayofweek_k[$_]; }
-                                }
-                                else {
-                                        $avg_dayofweek_p[$_]="?";
-                                        $avg_dayofweek_h[$_]="?";
-                                        $avg_dayofweek_k[$_]="?";
-                                }
-                        }
-
-                        # Show bars for days of week
-                        if ($PluginsLoaded{'ShowGraph'}{'graphapplet'}) {
-                                my @blocklabel=();
-                                for (@DOWIndex) { push @blocklabel,($Message[$_+84].($_=~/[06]/?"!":"")); }
-                                my @vallabel=("$Message[56]","$Message[57]","$Message[75]");
-                                my @valcolor=("$color_p","$color_h","$color_k");
-                                my @valmax=(int($max_h),int($max_h),int($max_k));
-                                my @valtotal=($total_p,$total_h,$total_k);
-                                $average_p=sprintf("%.2f",$average_p);
-                                $average_h=sprintf("%.2f",$average_h);
-                                $average_k=(int($average_k)?Format_Bytes(sprintf("%.2f",$average_k)):"0.00");
-                                my @valaverage=($average_p,$average_h,$average_k);
-                                my @valdata=();
-                                my $xx=0;
-                                for (@DOWIndex) {
-                                        $valdata[$xx++]=$avg_dayofweek_p[$_]||0;
-                                        $valdata[$xx++]=$avg_dayofweek_h[$_]||0;
-                                        $valdata[$xx++]=$avg_dayofweek_k[$_]||0;
-                                        # Round to be ready to show array
-                                        $avg_dayofweek_p[$_]=sprintf("%.2f",$avg_dayofweek_p[$_]);
-                                        $avg_dayofweek_h[$_]=sprintf("%.2f",$avg_dayofweek_h[$_]);
-                                        $avg_dayofweek_k[$_]=sprintf("%.2f",$avg_dayofweek_k[$_]);
-                                        # Remove decimal part that are .0
-                                        if ($avg_dayofweek_p[$_] == int($avg_dayofweek_p[$_])) { $avg_dayofweek_p[$_]=int($avg_dayofweek_p[$_]); }
-                                        if ($avg_dayofweek_h[$_] == int($avg_dayofweek_h[$_])) { $avg_dayofweek_h[$_]=int($avg_dayofweek_h[$_]); }
-                                }
-                                ShowGraph_graphapplet("$title","daysofweek",$ShowDaysOfWeekStats,\@blocklabel,\@vallabel,\@valcolor,\@valmax,\@valtotal,\@valaverage,\@valdata);
-                        }
-                        else {
-                                print "<table>\n";
-                                print "<tr valign=\"bottom\">\n";
-                                for (@DOWIndex) {
-                                        my $bredde_p=0; my $bredde_h=0; my $bredde_k=0;
-                                        if ($max_h > 0) { $bredde_p=int($avg_dayofweek_p[$_]/$max_h*$BarHeight)+1; }
-                                        if ($max_h > 0) { $bredde_h=int($avg_dayofweek_h[$_]/$max_h*$BarHeight)+1; }
-                                        if ($max_k > 0) { $bredde_k=int($avg_dayofweek_k[$_]/$max_k*$BarHeight)+1; }
-                                        $avg_dayofweek_p[$_]=sprintf("%.2f",$avg_dayofweek_p[$_]);
-                                        $avg_dayofweek_h[$_]=sprintf("%.2f",$avg_dayofweek_h[$_]);
-                                        $avg_dayofweek_k[$_]=sprintf("%.2f",$avg_dayofweek_k[$_]);
-                                        # Remove decimal part that are .0
-                                        if ($avg_dayofweek_p[$_] == int($avg_dayofweek_p[$_])) { $avg_dayofweek_p[$_]=int($avg_dayofweek_p[$_]); }
-                                        if ($avg_dayofweek_h[$_] == int($avg_dayofweek_h[$_])) { $avg_dayofweek_h[$_]=int($avg_dayofweek_h[$_]); }
-                                        print "<td valign=\"bottom\">";
-                                        if ($ShowDaysOfWeekStats =~ /P/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vp'}\" height=\"$bredde_p\" width=\"6\"".AltTitle("$Message[56]: $avg_dayofweek_p[$_]")." />"; }
-                                        if ($ShowDaysOfWeekStats =~ /H/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vh'}\" height=\"$bredde_h\" width=\"6\"".AltTitle("$Message[57]: $avg_dayofweek_h[$_]")." />"; }
-                                        if ($ShowDaysOfWeekStats =~ /B/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vk'}\" height=\"$bredde_k\" width=\"6\"".AltTitle("$Message[75]: ".Format_Bytes($avg_dayofweek_k[$_]))." />"; }
-                                        print "</td>\n";
-                                }
-                                print "</tr>\n";
-                                print "<tr".Tooltip(17).">\n";
-                                for (@DOWIndex) {
-                                        print "<td".($_=~/[06]/?" bgcolor=\"#$color_weekend\"":"").">".(! $StaticLinks && $_==($nowwday-1) && $MonthRequired==$nowmonth && $YearRequired==$nowyear?'<font class="currentday">':'');
-                                        print $Message[$_+84];
-                                        print (! $StaticLinks && $_==($nowwday-1) && $MonthRequired==$nowmonth && $YearRequired==$nowyear?'<font class="currentday">':'')."</td>";
-                                }
-                                print "</tr>\n</table>\n";
-                        }
-                        print "<br />\n";
-
-                        # Show data array for days of week
-                        if ($AddDataArrayShowDaysOfWeekStats) {
-                                print "<table>\n";
-                                print "<tr><td width=\"80\" bgcolor=\"#$color_TableBGRowTitle\">$Message[4]</td>";
-                                if ($ShowDaysOfWeekStats =~ /P/i) { print "<td width=\"80\" bgcolor=\"#$color_p\"".Tooltip(3).">$Message[56]</td>"; }
-                                if ($ShowDaysOfWeekStats =~ /H/i) { print "<td width=\"80\" bgcolor=\"#$color_h\"".Tooltip(4).">$Message[57]</td>"; }
-                                if ($ShowDaysOfWeekStats =~ /B/i) { print "<td width=\"80\" bgcolor=\"#$color_k\"".Tooltip(5).">$Message[75]</td></tr>"; }
-                                for (@DOWIndex) {
-                                        print "<tr".($_=~/[06]/?" bgcolor=\"#$color_weekend\"":"").">";
-                                        print "<td>".(! $StaticLinks && $_==($nowwday-1) && $MonthRequired==$nowmonth && $YearRequired==$nowyear?'<font class="currentday">':'');
-                                        print $Message[$_+84];
-                                        print "</td>";
-                                        if ($ShowDaysOfWeekStats =~ /P/i) { print "<td>",$avg_dayofweek_p[$_],"</td>"; }
-                                        if ($ShowDaysOfWeekStats =~ /H/i) { print "<td>",$avg_dayofweek_h[$_],"</td>"; }
-                                        if ($ShowDaysOfWeekStats =~ /B/i) { print "<td>",Format_Bytes($avg_dayofweek_k[$_]),"</td>"; }
-                                        print "</tr>\n";
-                                }
-                                print "</table>\n<br />\n";
-                        }
-
-                        print "</center></td>";
-                        print "</tr>\n";
-                        &tab_end();
-                }
-
-                # BY HOUR
-                #----------------------------
-                if ($ShowHoursStats) {
-                        if ($Debug) { debug("ShowHoursStats",2); }
-                        print "$Center<a name=\"hours\">&nbsp;</a><br />\n";
-                        my $title="$Message[20]";
-                        if ($PluginsLoaded{'GetTimeZoneTitle'}{'timezone'}) { $title.=" (GMT ".(GetTimeZoneTitle_timezone()>=0?"+":"").int(GetTimeZoneTitle_timezone()).")"; }
-                        &tab_head("$title",19,0,'hours');
-                        print "<tr><td align=\"center\">\n";
-                        print "<center>\n";
-
-                        $max_h=$max_k=1;
-                        for (my $ix=0; $ix<=23; $ix++) {
-                          #if ($_time_p[$ix]>$max_p) { $max_p=$_time_p[$ix]; }
-                          if ($_time_h[$ix]>$max_h) { $max_h=$_time_h[$ix]; }
-                          if ($_time_k[$ix]>$max_k) { $max_k=$_time_k[$ix]; }
-                        }
-
-                        # Show bars for hour
-                        if ($PluginsLoaded{'ShowGraph'}{'graphapplet'}) {
-                                my @blocklabel=(0..23);
-                                my @vallabel=("$Message[56]","$Message[57]","$Message[75]");
-                                my @valcolor=("$color_p","$color_h","$color_k");
-                                my @valmax=(int($max_h),int($max_h),int($max_k));
-                                my @valtotal=($total_p,$total_h,$total_k);
-                                my @valaverage=($average_p,$average_h,$average_k);
-                                my @valdata=();
-                                my $xx=0;
-                                for (0..23) {
-                                        $valdata[$xx++]=$_time_p[$_]||0;
-                                        $valdata[$xx++]=$_time_h[$_]||0;
-                                        $valdata[$xx++]=$_time_k[$_]||0;
-                                }
-                                ShowGraph_graphapplet("$title","hours",$ShowHoursStats,\@blocklabel,\@vallabel,\@valcolor,\@valmax,\@valtotal,\@valaverage,\@valdata);
-                        }
-                        else {
-                                print "<table>\n";
-                                print "<tr valign=\"bottom\">\n";
-                                for (my $ix=0; $ix<=23; $ix++) {
-                                        my $bredde_p=0;my $bredde_h=0;my $bredde_k=0;
-                                        if ($max_h > 0) { $bredde_p=int($BarHeight*$_time_p[$ix]/$max_h)+1; }
-                                        if ($max_h > 0) { $bredde_h=int($BarHeight*$_time_h[$ix]/$max_h)+1; }
-                                        if ($max_k > 0) { $bredde_k=int($BarHeight*$_time_k[$ix]/$max_k)+1; }
-                                        print "<td>";
-                                        if ($ShowHoursStats =~ /P/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vp'}\" height=\"$bredde_p\" width=\"6\"".AltTitle("$Message[56]: ".int($_time_p[$ix]))." />"; }
-                                        if ($ShowHoursStats =~ /H/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vh'}\" height=\"$bredde_h\" width=\"6\"".AltTitle("$Message[57]: ".int($_time_h[$ix]))." />"; }
-                                        if ($ShowHoursStats =~ /B/i) { print "<img align=\"bottom\" src=\"$DirIcons\/other\/$BarPng{'vk'}\" height=\"$bredde_k\" width=\"6\"".AltTitle("$Message[75]: ".Format_Bytes($_time_k[$ix]))." />"; }
-                                        print "</td>\n";
-                                }
-                                print "</tr>\n";
-                                # Show hour lib
-                                print "<tr".Tooltip(17).">";
-                                for (my $ix=0; $ix<=23; $ix++) {
-                                  print "<th width=\"19\">$ix</th>\n";        # width=19 instead of 18 to avoid a MacOS browser bug.
-                                }
-                                print "</tr>\n";
-                                # Show clock icon
-                                print "<tr".Tooltip(17).">\n";
-                                for (my $ix=0; $ix<=23; $ix++) {
-                                        my $hrs=($ix>=12?$ix-12:$ix);
-                                        my $hre=($ix>=12?$ix-11:$ix+1);
-                                        my $apm=($ix>=12?"pm":"am");
-                                        print "<td><img src=\"$DirIcons\/clock\/hr$hre.png\" width=\"10\" alt=\"$hrs:00 - $hre:00 $apm\" /></td>\n";
-                                }
-                                print "</tr>\n";
-                                print "</table>\n";
-                        }
-                        print "<br />\n";
-
-                        # Show data array for hours
-                        if ($AddDataArrayShowHoursStats) {
-                                print "<table width=\"650\"><tr>\n";
-                                print "<td align=\"center\"><center>\n";
-
-                                print "<table>\n";
-                                print "<tr><td width=\"80\" bgcolor=\"#$color_TableBGRowTitle\">$Message[20]</td>";
-                                if ($ShowHoursStats =~ /P/i) { print "<td width=\"80\" bgcolor=\"#$color_p\"".Tooltip(3).">$Message[56]</td>"; }
-                                if ($ShowHoursStats =~ /H/i) { print "<td width=\"80\" bgcolor=\"#$color_h\"".Tooltip(4).">$Message[57]</td>"; }
-                                if ($ShowHoursStats =~ /B/i) { print "<td width=\"80\" bgcolor=\"#$color_k\"".Tooltip(5).">$Message[75]</td>"; }
-                                print "</tr>";
-                                for (my $ix=0; $ix<=11; $ix++) {
-                                        my $monthix=($ix<10?"0$ix":"$ix");
-                                        print "<tr>";
-                                        print "<td>$monthix</td>";
-                                        if ($ShowHoursStats =~ /P/i) { print "<td>",$_time_p[$monthix]?$_time_p[$monthix]:"0","</td>"; }
-                                        if ($ShowHoursStats =~ /H/i) { print "<td>",$_time_h[$monthix]?$_time_h[$monthix]:"0","</td>"; }
-                                        if ($ShowHoursStats =~ /B/i) { print "<td>",Format_Bytes(int($_time_k[$monthix])),"</td>"; }
-                                        print "</tr>\n";
-                                }
-                                print "</table>\n";
-
-                                print "</center></td>";
-                                print "<td width=\"10\">&nbsp;</td>";
-                                print "<td align=\"center\"><center>\n";
-
-                                print "<table>\n";
-                                print "<tr><td width=\"80\" bgcolor=\"#$color_TableBGRowTitle\">$Message[20]</td>";
-                                if ($ShowHoursStats =~ /P/i) { print "<td width=\"80\" bgcolor=\"#$color_p\"".Tooltip(3).">$Message[56]</td>"; }
-                                if ($ShowHoursStats =~ /H/i) { print "<td width=\"80\" bgcolor=\"#$color_h\"".Tooltip(4).">$Message[57]</td>"; }
-                                if ($ShowHoursStats =~ /B/i) { print "<td width=\"80\" bgcolor=\"#$color_k\"".Tooltip(5).">$Message[75]</td>"; }
-                                print "</tr>\n";
-                                for (my $ix=12; $ix<=23; $ix++) {
-                                        my $monthix=($ix<10?"0$ix":"$ix");
-                                        print "<tr>";
-                                        print "<td>$monthix</td>";
-                                        if ($ShowHoursStats =~ /P/i) { print "<td>",$_time_p[$monthix]?$_time_p[$monthix]:"0","</td>"; }
-                                        if ($ShowHoursStats =~ /H/i) { print "<td>",$_time_h[$monthix]?$_time_h[$monthix]:"0","</td>"; }
-                                        if ($ShowHoursStats =~ /B/i) { print "<td>",Format_Bytes(int($_time_k[$monthix])),"</td>"; }
-                                        print "</tr>\n";
-                                }
-                                print "</table>\n";
-
-                                print "</center></td></tr></table>\n";
-                                print "<br />\n";
-                        }
-
-                        print "</center></td></tr>\n";
-                        &tab_end();
-                }
-
-                print "\n<a name=\"who\">&nbsp;</a>\n\n";
-
-                # BY COUNTRY/DOMAIN
-                #---------------------------
-                if ($ShowDomainsStats) {
-                        if ($Debug) { debug("ShowDomainsStats",2); }
-                        print "$Center<a name=\"countries\">&nbsp;</a><br />\n";
-                        my $title="$Message[25] ($Message[77] $MaxNbOf{'Domain'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=alldomains"):"$PROG$StaticLinks.alldomains.$StaticExt")."\"$NewLinkTarget>$Message[80]</a>";
-                        &tab_head("$title",19,0,'countries');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th width=\"$WIDTHCOLICON\">&nbsp;</th><th colspan=\"2\">$Message[17]</th>";
-                        if ($ShowDomainsStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\"".Tooltip(3).">$Message[56]</th>"; }
-                        if ($ShowDomainsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th>"; }
-                        if ($ShowDomainsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th>"; }
-                        print "<th>&nbsp;</th>";
-                        print "</tr>\n";
-                        $total_p=$total_h=$total_k=0;
-                        $max_h=1; foreach (values %_domener_h) { if ($_ > $max_h) { $max_h = $_; } }
-                        $max_k=1; foreach (values %_domener_k) { if ($_ > $max_k) { $max_k = $_; } }
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'Domain'},$MinHit{'Domain'},\%_domener_h,\%_domener_p);
-                        foreach my $key (@keylist) {
-                                my $bredde_p=0;my $bredde_h=0;my $bredde_k=0;
-                                if ($max_h > 0) { $bredde_p=int($BarWidth*$_domener_p{$key}/$max_h)+1; }        # use max_h to enable to compare pages with hits
-                                if ($_domener_p{$key} && $bredde_p==1) { $bredde_p=2; }
-                                if ($max_h > 0) { $bredde_h=int($BarWidth*$_domener_h{$key}/$max_h)+1; }
-                                if ($_domener_h{$key} && $bredde_h==1) { $bredde_h=2; }
-                                if ($max_k > 0) { $bredde_k=int($BarWidth*($_domener_k{$key}||0)/$max_k)+1; }
-                                if ($_domener_k{$key} && $bredde_k==1) { $bredde_k=2; }
-                                my $newkey=lc($key);
-                                if ($newkey eq 'ip' || ! $DomainsHashIDLib{$newkey}) {
-                                        print "<tr><td width=\"$WIDTHCOLICON\"><img src=\"$DirIcons\/flags\/ip.png\" height=\"14\"".AltTitle("$Message[0]")." /></td><td class=\"aws\">$Message[0]</td><td>$newkey</td>";
-                                }
-                                else {
-                                        print "<tr><td width=\"$WIDTHCOLICON\"><img src=\"$DirIcons\/flags\/$newkey.png\" height=\"14\"".AltTitle("$newkey")." /></td><td class=\"aws\">$DomainsHashIDLib{$newkey}</td><td>$newkey</td>";
-                                }
-                                if ($ShowDomainsStats =~ /P/i) { print "<td>".($_domener_p{$key}?$_domener_p{$key}:'&nbsp;')."</td>"; }
-                                if ($ShowDomainsStats =~ /H/i) { print "<td>$_domener_h{$key}</td>"; }
-                                if ($ShowDomainsStats =~ /B/i) { print "<td>".Format_Bytes($_domener_k{$key})."</td>"; }
-                                print "<td class=\"aws\">";
-                                if ($ShowDomainsStats =~ /P/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hp'}\" width=\"$bredde_p\" height=\"5\"".AltTitle("")." /><br />\n"; }
-                                if ($ShowDomainsStats =~ /H/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hh'}\" width=\"$bredde_h\" height=\"5\"".AltTitle("")." /><br />\n"; }
-                                if ($ShowDomainsStats =~ /B/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hk'}\" width=\"$bredde_k\" height=\"5\"".AltTitle("")." />"; }
-                                print "</td>";
-                                print "</tr>\n";
-                                $total_p += $_domener_p{$key};
-                                $total_h += $_domener_h{$key};
-                                $total_k += $_domener_k{$key}||0;
-                                $count++;
-                        }
-                        $rest_p=$TotalPages-$total_p;
-                        $rest_h=$TotalHits-$total_h;
-                        $rest_k=$TotalBytes-$total_k;
-                        if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) {         # All other domains (known or not)
-                                print "<tr><td width=\"$WIDTHCOLICON\">&nbsp;</td><td colspan=\"2\" class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                                if ($ShowDomainsStats =~ /P/i) { print "<td>$rest_p</td>"; }
-                                if ($ShowDomainsStats =~ /H/i) { print "<td>$rest_h</td>"; }
-                                if ($ShowDomainsStats =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
-                                print "<td class=\"aws\">&nbsp;</td>";
-                                print "</tr>\n";
-                        }
-                        &tab_end();
-                }
-
-                # BY HOST/VISITOR
-                #--------------------------
-                if ($ShowHostsStats) {
-                        if ($Debug) { debug("ShowHostsStats",2); }
-                        print "$Center<a name=\"visitors\">&nbsp;</a><br />\n";
-                        my $title="$Message[81] ($Message[77] $MaxNbOf{'HostsShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=allhosts"):"$PROG$StaticLinks.allhosts.$StaticExt")."\"$NewLinkTarget>$Message[80]</a> &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=lasthosts"):"$PROG$StaticLinks.lasthosts.$StaticExt")."\"$NewLinkTarget>$Message[9]</a> &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=unknownip"):"$PROG$StaticLinks.unknownip.$StaticExt")."\"$NewLinkTarget>$Message[45]</a>";
-                        &tab_head("$title",19,0,'visitors');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\">";
-                        print "<th>";
-                        if ($MonthRequired ne 'all') { print "$Message[81] : $TotalHostsKnown $Message[82], $TotalHostsUnknown $Message[1] - $TotalUnique $Message[11]</th>"; }
-                        else { print "$Message[81] : ".(scalar keys %_host_h)."</th>"; }
-                        &ShowHostInfo('__title__');
-                        if ($ShowHostsStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\"".Tooltip(3).">$Message[56]</th>"; }
-                        if ($ShowHostsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th>"; }
-                        if ($ShowHostsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th>"; }
-                        if ($ShowHostsStats =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
-                        print "</tr>\n";
-                        $total_p=$total_h=$total_k=0;
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'HostsShown'},$MinHit{'Host'},\%_host_h,\%_host_p);
-                        foreach my $key (@keylist) {
-                                print "<tr>";
-                                print "<td class=\"aws\">$key</td>";
-                                &ShowHostInfo($key);
-                                if ($ShowHostsStats =~ /P/i) { print "<td>".($_host_p{$key}||"&nbsp;")."</td>"; }
-                                if ($ShowHostsStats =~ /H/i) { print "<td>$_host_h{$key}</td>"; }
-                                if ($ShowHostsStats =~ /B/i) { print "<td>".Format_Bytes($_host_k{$key})."</td>"; }
-                                if ($ShowHostsStats =~ /L/i) { print "<td>".($_host_l{$key}?Format_Date($_host_l{$key},1):'-')."</td>"; }
-                                print "</tr>\n";
-                                $total_p += $_host_p{$key};
-                                $total_h += $_host_h{$key};
-                                $total_k += $_host_k{$key}||0;
-                                $count++;
-                        }
-                        $rest_p=$TotalPages-$total_p;
-                        $rest_h=$TotalHits-$total_h;
-                        $rest_k=$TotalBytes-$total_k;
-                        if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) {        # All other visitors (known or not)
-                                print "<tr>";
-                                print "<td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                                &ShowHostInfo('');
-                                if ($ShowHostsStats =~ /P/i) { print "<td>$rest_p</td>"; }
-                                if ($ShowHostsStats =~ /H/i) { print "<td>$rest_h</td>"; }
-                                if ($ShowHostsStats =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
-                                if ($ShowHostsStats =~ /L/i) { print "<td>&nbsp;</td>"; }
-                                print "</tr>\n";
-                        }
-                        &tab_end();
-                }
-
-                # BY SENDER EMAIL
-                #----------------------------
-                if ($ShowEMailSenders) {
-                        &ShowEmailSendersChart($NewLinkParams,$NewLinkTarget);
-                }
-
-                # BY RECEIVER EMAIL
-                #----------------------------
-                if ($ShowEMailReceivers) {
-                        &ShowEmailReceiversChart($NewLinkParams,$NewLinkTarget);
-                }
-
-                # BY LOGIN
-                #----------------------------
-                if ($ShowAuthenticatedUsers) {
-                        if ($Debug) { debug("ShowAuthenticatedUsers",2); }
-                        print "$Center<a name=\"logins\">&nbsp;</a><br />\n";
-                        my $title="$Message[94] ($Message[77] $MaxNbOf{'LoginShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=alllogins"):"$PROG$StaticLinks.alllogins.$StaticExt")."\"$NewLinkTarget>$Message[80]</a>";
-                        if ($ShowAuthenticatedUsers =~ /L/i) { $title.=" &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=lastlogins"):"$PROG$StaticLinks.lastlogins.$StaticExt")."\"$NewLinkTarget>$Message[9]</a>"; }
-                        &tab_head("$title",19,0,'logins');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>$Message[94] : ".(scalar keys %_login_h)."</th>";
-                        &ShowUserInfo('__title__');
-                        if ($ShowAuthenticatedUsers =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\"".Tooltip(3).">$Message[56]</th>"; }
-                        if ($ShowAuthenticatedUsers =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th>"; }
-                        if ($ShowAuthenticatedUsers =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th>"; }
-                        if ($ShowAuthenticatedUsers =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
-                        print "</tr>\n";
-                        $total_p=$total_h=$total_k=0;
-                        $max_h=1; foreach (values %_login_h) { if ($_ > $max_h) { $max_h = $_; } }
-                        $max_k=1; foreach (values %_login_k) { if ($_ > $max_k) { $max_k = $_; } }
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'LoginShown'},$MinHit{'Login'},\%_login_h,\%_login_p);
-                        foreach my $key (@keylist) {
-                                my $bredde_p=0;my $bredde_h=0;my $bredde_k=0;
-                                if ($max_h > 0) { $bredde_p=int($BarWidth*$_login_p{$key}/$max_h)+1; }        # use max_h to enable to compare pages with hits
-                                if ($max_h > 0) { $bredde_h=int($BarWidth*$_login_h{$key}/$max_h)+1; }
-                                if ($max_k > 0) { $bredde_k=int($BarWidth*$_login_k{$key}/$max_k)+1; }
-                                print "<tr><td class=\"aws\">$key</td>";
-                                &ShowUserInfo($key);
-                                if ($ShowAuthenticatedUsers =~ /P/i) { print "<td>".($_login_p{$key}?$_login_p{$key}:"&nbsp;")."</td>"; }
-                                if ($ShowAuthenticatedUsers =~ /H/i) { print "<td>$_login_h{$key}</td>"; }
-                                if ($ShowAuthenticatedUsers =~ /B/i) { print "<td>".Format_Bytes($_login_k{$key})."</td>"; }
-                                if ($ShowAuthenticatedUsers =~ /L/i) { print "<td>".($_login_l{$key}?Format_Date($_login_l{$key},1):'-')."</td>"; }
-                                print "</tr>\n";
-                                $total_p += $_login_p{$key};
-                                $total_h += $_login_h{$key};
-                                $total_k += $_login_k{$key};
-                                $count++;
-                        }
-                        $rest_p=$TotalPages-$total_p;
-                        $rest_h=$TotalHits-$total_h;
-                        $rest_k=$TotalBytes-$total_k;
-                        if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) {        # All other logins
-                                print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">".($PageDir eq 'rtl'?"<span dir=\"ltr\">":"")."$Message[125]".($PageDir eq 'rtl'?"</span>":"")."</span></td>";
-                                &ShowUserInfo('');
-                                if ($ShowAuthenticatedUsers =~ /P/i) { print "<td>".($rest_p?$rest_p:"&nbsp;")."</td>"; }
-                                if ($ShowAuthenticatedUsers =~ /H/i) { print "<td>$rest_h</td>"; }
-                                if ($ShowAuthenticatedUsers =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
-                                if ($ShowAuthenticatedUsers =~ /L/i) { print "<td>&nbsp;</td>"; }
-                                print "</tr>\n";
-                        }
-                        &tab_end();
-                }
-
-                # BY ROBOTS
-                #----------------------------
-                if ($ShowRobotsStats) {
-                        if ($Debug) { debug("ShowRobotStats",2); }
-                        print "$Center<a name=\"robots\">&nbsp;</a><br />\n";
-                        &tab_head("$Message[53] ($Message[77] $MaxNbOf{'RobotShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=allrobots"):"$PROG$StaticLinks.allrobots.$StaticExt")."\"$NewLinkTarget>$Message[80]</a> &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=lastrobots"):"$PROG$StaticLinks.lastrobots.$StaticExt")."\"$NewLinkTarget>$Message[9]</a>",19,0,'robots');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(16)."><th>".(scalar keys %_robot_h)." $Message[51]*</th>";
-                        if ($ShowRobotsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-                        if ($ShowRobotsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-                        if ($ShowRobotsStats =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
-                        print "</tr>\n";
-                        $total_p=$total_h=$total_k=$total_r=0;
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'RobotShown'},$MinHit{'Robot'},\%_robot_h,\%_robot_h);
-                        foreach my $key (@keylist) {
-                                print "<tr><td class=\"aws\">".($PageDir eq 'rtl'?"<span dir=\"ltr\">":"").($RobotsHashIDLib{$key}?$RobotsHashIDLib{$key}:$key).($PageDir eq 'rtl'?"</span>":"")."</td>";
-                                if ($ShowRobotsStats =~ /H/i) { print "<td>".($_robot_h{$key}-$_robot_r{$key}).($_robot_r{$key}?"+$_robot_r{$key}":"")."</td>"; }
-                                if ($ShowRobotsStats =~ /B/i) { print "<td>".Format_Bytes($_robot_k{$key})."</td>"; }
-                                if ($ShowRobotsStats =~ /L/i) { print "<td>".($_robot_l{$key}?Format_Date($_robot_l{$key},1):'-')."</td>"; }
-                                print "</tr>\n";
-                                #$total_p += $_robot_p{$key};
-                                $total_h += $_robot_h{$key};
-                                $total_k += $_robot_k{$key}||0;
-                                $total_r += $_robot_r{$key}||0;
-                                $count++;
-                                }
-                        # For bots we need to count Totals
-                        my $TotalPagesRobots = 0; #foreach (values %_robot_p) { $TotalPagesRobots+=$_; }
-                        my $TotalHitsRobots = 0; foreach (values %_robot_h) { $TotalHitsRobots+=$_; }
-                        my $TotalBytesRobots = 0; foreach (values %_robot_k) { $TotalBytesRobots+=$_; }
-                        my $TotalRRobots = 0; foreach (values %_robot_r) { $TotalRRobots+=$_; }
-                        $rest_p=0;        #$rest_p=$TotalPagesRobots-$total_p;
-                        $rest_h=$TotalHitsRobots-$total_h;
-                        $rest_k=$TotalBytesRobots-$total_k;
-                        $rest_r=$TotalRRobots-$total_r;
-                        if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0 || $rest_r > 0) {        # All other robots
-                                print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                                if ($ShowRobotsStats =~ /H/i) { print "<td>".($rest_h-$rest_r).($rest_r?"+$rest_r":"")."</td>"; }
-                                if ($ShowRobotsStats =~ /B/i) { print "<td>".(Format_Bytes($rest_k))."</td>"; }
-                                if ($ShowRobotsStats =~ /L/i) { print "<td>&nbsp;</td>"; }
-                                print "</tr>\n";
-                        }
-                        &tab_end("* $Message[156]".($TotalRRobots?" $Message[157]":""));
-                }
-
-                # BY WORMS
-                #----------------------------
-                if ($ShowWormsStats) {
-                        if ($Debug) { debug("ShowWormsStats",2); }
-                        print "$Center<a name=\"worms\">&nbsp;</a><br />\n";
-                        &tab_head("$Message[163] ($Message[77] $MaxNbOf{'WormsShown'})",19,0,'worms');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(21).">";
-                        print "<th>".(scalar keys %_worm_h)." $Message[164]*</th>";
-                        print "<th>$Message[167]</th>";
-                        if ($ShowWormsStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-                        if ($ShowWormsStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-                        if ($ShowWormsStats =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
-                        print "</tr>\n";
-                        $total_p=$total_h=$total_k=0;
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'WormsShown'},$MinHit{'Worm'},\%_worm_h,\%_worm_h);
-                        foreach my $key (@keylist) {
-                                print "<tr>";
-                                print "<td class=\"aws\">".($PageDir eq 'rtl'?"<span dir=\"ltr\">":"").($WormsHashLib{$key}?$WormsHashLib{$key}:$key).($PageDir eq 'rtl'?"</span>":"")."</td>";
-                                print "<td class=\"aws\">".($PageDir eq 'rtl'?"<span dir=\"ltr\">":"").($WormsHashTarget{$key}?$WormsHashTarget{$key}:$key).($PageDir eq 'rtl'?"</span>":"")."</td>";
-                                if ($ShowWormsStats =~ /H/i) { print "<td>".$_worm_h{$key}."</td>"; }
-                                if ($ShowWormsStats =~ /B/i) { print "<td>".Format_Bytes($_worm_k{$key})."</td>"; }
-                                if ($ShowWormsStats =~ /L/i) { print "<td>".($_worm_l{$key}?Format_Date($_worm_l{$key},1):'-')."</td>"; }
-                                print "</tr>\n";
-                                #$total_p += $_worm_p{$key};
-                                $total_h += $_worm_h{$key};
-                                $total_k += $_worm_k{$key}||0;
-                                $count++;
-                                }
-                        # For worms we need to count Totals
-                        my $TotalPagesWorms = 0; #foreach (values %_worm_p) { $TotalPagesWorms+=$_; }
-                        my $TotalHitsWorms = 0; foreach (values %_worm_h) { $TotalHitsWorms+=$_; }
-                        my $TotalBytesWorms = 0; foreach (values %_worm_k) { $TotalBytesWorms+=$_; }
-                        $rest_p=0;        #$rest_p=$TotalPagesRobots-$total_p;
-                        $rest_h=$TotalHitsWorms-$total_h;
-                        $rest_k=$TotalBytesWorms-$total_k;
-                        if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) {        # All other worms
-                                print "<tr>";
-                                print "<td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                                print "<td class=\"aws\">-</td>";
-                                if ($ShowWormsStats =~ /H/i) { print "<td>".($rest_h)."</td>"; }
-                                if ($ShowWormsStats =~ /B/i) { print "<td>".(Format_Bytes($rest_k))."</td>"; }
-                                if ($ShowWormsStats =~ /L/i) { print "<td>&nbsp;</td>"; }
-                                print "</tr>\n";
-                        }
-                        &tab_end("* $Message[158]");
-                }
-
-                print "\n<a name=\"how\">&nbsp;</a>\n\n";
-
-                # BY SESSION
-                #----------------------------
-                if ($ShowSessionsStats) {
-                        if ($Debug) { debug("ShowSessionsStats",2); }
-                        print "$Center<a name=\"sessions\">&nbsp;</a><br />\n";
-                        my $title="$Message[117]";
-                        &tab_head($title,19,0,'sessions');
-                        my $Totals=0; foreach (@SessionsRange) { $average_s+=($_session{$_}||0)*$SessionsAverage{$_}; $Totals+=$_session{$_}||0; }
-                        if ($Totals) { $average_s=int($average_s/$Totals); }
-                        else { $average_s='?'; }
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(1)."><th>$Message[10]: $TotalVisits - $Message[96]: $average_s s</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[10]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[15]</th></tr>\n";
-                        $average_s=0;
-                        $total_s=0;
-                        my $count=0;
-                        foreach my $key (@SessionsRange) {
-                                my $p=0;
-                                if ($TotalVisits) { $p=int($_session{$key}/$TotalVisits*1000)/10; }
-                                $total_s+=$_session{$key}||0;
-                                print "<tr><td class=\"aws\">$key</td>";
-                                print "<td>".($_session{$key}?$_session{$key}:"&nbsp;")."</td>";
-                                print "<td>".($_session{$key}?"$p %":"&nbsp;")."</td>";
-                                print "</tr>\n";
-                                $count++;
-                        }
-                        $rest_s=$TotalVisits-$total_s;
-                        if ($rest_s > 0) {        # All others sessions
-                                my $p=0;
-                                if ($TotalVisits) { $p=int($rest_s/$TotalVisits*1000)/10; }
-                                print "<tr".Tooltip(20)."><td class=\"aws\"><span style=\"color: #$color_other\">$Message[0]</span></td>";
-                                print "<td>$rest_s</td>";
-                                print "<td>".($rest_s?"$p %":"&nbsp;")."</td>";
-                                print "</tr>\n";
-                        }
-                        &tab_end();
-                }
-
-                # BY FILE TYPE
-                #-------------------------
-                if ($ShowFileTypesStats) {
-                        if ($Debug) { debug("ShowFileTypesStatsCompressionStats",2); }
-                        print "$Center<a name=\"filetypes\">&nbsp;</a><br />\n";
-                        my $Totalh=0; foreach (keys %_filetypes_h) { $Totalh+=$_filetypes_h{$_}; }
-                        my $Totalk=0; foreach (keys %_filetypes_k) { $Totalk+=$_filetypes_k{$_}; }
-                        my $title="$Message[73]";
-                        if ($ShowFileTypesStats =~ /C/i) { $title.=" - $Message[98]"; }
-                        &tab_head("$title",19,0,'filetypes');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th colspan=\"3\">$Message[73]</th>";
-                        if ($ShowFileTypesStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\"".Tooltip(4).">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>"; }
-                        if ($ShowFileTypesStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\"".Tooltip(5).">$Message[75]</th><th bgcolor=\"#$color_k\" width=\"80\">$Message[15]</th>"; }
-                        if ($ShowFileTypesStats =~ /C/i) { print "<th bgcolor=\"#$color_k\" width=\"120\">$Message[100]</th><th bgcolor=\"#$color_k\" width=\"120\">$Message[101]</th><th bgcolor=\"#$color_k\" width=\"120\">$Message[99]</th>"; }
-                        print "</tr>\n";
-                        my $total_con=0; my $total_cre=0;
-                        my $count=0;
-                        &BuildKeyList($MaxRowsInHTMLOutput,1,\%_filetypes_h,\%_filetypes_h);
-                        foreach my $key (@keylist) {
-                                my $p_h='&nbsp;'; my $p_k='&nbsp;';
-                                if ($Totalh) { $p_h=int($_filetypes_h{$key}/$Totalh*1000)/10; $p_h="$p_h %"; }
-                                if ($Totalk) { $p_k=int($_filetypes_k{$key}/$Totalk*1000)/10; $p_k="$p_k %"; }
-                                if ($key eq 'Unknown') {
-                                        print "<tr><td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/mime\/unknown.png\"".AltTitle("")." /></td><td class=\"aws\" colspan=\"2\"><span style=\"color: #$color_other\">$Message[0]</span></td>";
-                                }
-                                else {
-                                        my $nameicon=$MimeHashIcon{$key}||"notavailable";
-                                        my $nametype=$MimeHashLib{$MimeHashFamily{$key}||""}||"&nbsp;";
-                                        print "<tr><td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/mime\/$nameicon.png\"".AltTitle("")." /></td><td class=\"aws\">$key</td>";
-                                        print "<td class=\"aws\">$nametype</td>";
-                                }
-                                if ($ShowFileTypesStats =~ /H/i) { print "<td>$_filetypes_h{$key}</td><td>$p_h</td>"; }
-                                if ($ShowFileTypesStats =~ /B/i) { print "<td>".Format_Bytes($_filetypes_k{$key})."</td><td>$p_k</td>"; }
-                                if ($ShowFileTypesStats =~ /C/i) {
-                                        if ($_filetypes_gz_in{$key}) {
-                                                my $percent=int(100*(1-$_filetypes_gz_out{$key}/$_filetypes_gz_in{$key}));
-                                                printf("<td>%s</td><td>%s</td><td>%s (%s%)</td>",Format_Bytes($_filetypes_gz_in{$key}),Format_Bytes($_filetypes_gz_out{$key}),Format_Bytes($_filetypes_gz_in{$key}-$_filetypes_gz_out{$key}),$percent);
-                                                $total_con+=$_filetypes_gz_in{$key};
-                                                $total_cre+=$_filetypes_gz_out{$key};
-                                        }
-                                        else {
-                                                print "<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>";
-                                        }
-                                }
-                                print "</tr>\n";
-                                $count++;
-                        }
-                        # Add total (only usefull if compression is enabled)
-                        if ($ShowFileTypesStats =~ /C/i) {
-                                my $colspan=3;
-                                 if ($ShowFileTypesStats =~ /H/i) { $colspan+=2; }
-                                 if ($ShowFileTypesStats =~ /B/i) { $colspan+=2; }
-                                 print "<tr>";
-                                 print "<td class=\"aws\" colspan=\"$colspan\"><b>$Message[98]</b></td>";
-                                 if ($ShowFileTypesStats =~ /C/i) {
-                                        if ($total_con) {
-                                                my $percent=int(100*(1-$total_cre/$total_con));
-                                                printf("<td>%s</td><td>%s</td><td>%s (%s%)</td>",Format_Bytes($total_con),Format_Bytes($total_cre),Format_Bytes($total_con-$total_cre),$percent);
-                                        }
-                                        else {
-                                                print "<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>";
-                                        }
-                                 }
-                                 print "</tr>\n";
-                        }
-                        &tab_end();
-                }
-
-                # BY FILE SIZE
-                #-------------------------
-                if ($ShowFileSizesStats) {
-
-                }
-
-                # BY FILE/URL
-                #-------------------------
-                if ($ShowPagesStats) {
-                        if ($Debug) { debug("ShowPagesStats (MaxNbOf{'PageShown'}=$MaxNbOf{'PageShown'} TotalDifferentPages=$TotalDifferentPages)",2); }
-                        print "$Center<a name=\"urls\">&nbsp;</a><a name=\"entry\">&nbsp;</a><a name=\"exit\">&nbsp;</a><br />\n";
-                        my $title="$Message[19] ($Message[77] $MaxNbOf{'PageShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=urldetail"):"$PROG$StaticLinks.urldetail.$StaticExt")."\"$NewLinkTarget>$Message[80]</a>";
-                        if ($ShowPagesStats =~ /E/i) { $title.=" &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=urlentry"):"$PROG$StaticLinks.urlentry.$StaticExt")."\"$NewLinkTarget>$Message[104]</a>"; }
-                        if ($ShowPagesStats =~ /X/i) { $title.=" &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=urlexit"):"$PROG$StaticLinks.urlexit.$StaticExt")."\"$NewLinkTarget>$Message[116]</a>"; }
-                        &tab_head("$title",19,0,'urls');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>$TotalDifferentPages $Message[28]</th>";
-                        if ($ShowPagesStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[29]</th>"; }
-                        if ($ShowPagesStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[106]</th>"; }
-                        if ($ShowPagesStats =~ /E/i) { print "<th bgcolor=\"#$color_e\" width=\"80\">$Message[104]</th>"; }
-                        if ($ShowPagesStats =~ /X/i) { print "<th bgcolor=\"#$color_x\" width=\"80\">$Message[116]</th>"; }
-                        # Call to plugins' function ShowPagesAddField
-                        foreach my $pluginname (keys %{$PluginsLoaded{'ShowPagesAddField'}})  {
-                                my $function="ShowPagesAddField_$pluginname('title')";
-                                eval("$function");
-                        }
-                        print "<th>&nbsp;</th></tr>\n";
-                        $total_p=$total_e=$total_x=$total_k=0;
-                        $max_p=1; $max_k=1;
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'PageShown'},$MinHit{'File'},\%_url_p,\%_url_p);
-                        foreach my $key (@keylist) {
-                                if ($_url_p{$key} > $max_p) { $max_p = $_url_p{$key}; }
-                                if ($_url_k{$key}/($_url_p{$key}||1) > $max_k) { $max_k = $_url_k{$key}/($_url_p{$key}||1); }
-                        }
-                        foreach my $key (@keylist) {
-                                print "<tr><td class=\"aws\">";
-                                &ShowURLInfo($key);
-                                print "</td>";
-                                my $bredde_p=0; my $bredde_e=0; my $bredde_x=0; my $bredde_k=0;
-                                if ($max_p > 0) { $bredde_p=int($BarWidth*($_url_p{$key}||0)/$max_p)+1; }
-                                if (($bredde_p==1) && $_url_p{$key}) { $bredde_p=2; }
-                                if ($max_p > 0) { $bredde_e=int($BarWidth*($_url_e{$key}||0)/$max_p)+1; }
-                                if (($bredde_e==1) && $_url_e{$key}) { $bredde_e=2; }
-                                if ($max_p > 0) { $bredde_x=int($BarWidth*($_url_x{$key}||0)/$max_p)+1; }
-                                if (($bredde_x==1) && $_url_x{$key}) { $bredde_x=2; }
-                                if ($max_k > 0) { $bredde_k=int($BarWidth*(($_url_k{$key}||0)/($_url_p{$key}||1))/$max_k)+1; }
-                                if (($bredde_k==1) && $_url_k{$key}) { $bredde_k=2; }
-                                if ($ShowPagesStats =~ /P/i) { print "<td>$_url_p{$key}</td>"; }
-                                if ($ShowPagesStats =~ /B/i) { print "<td>".($_url_k{$key}?Format_Bytes($_url_k{$key}/($_url_p{$key}||1)):"&nbsp;")."</td>"; }
-                                if ($ShowPagesStats =~ /E/i) { print "<td>".($_url_e{$key}?$_url_e{$key}:"&nbsp;")."</td>"; }
-                                if ($ShowPagesStats =~ /X/i) { print "<td>".($_url_x{$key}?$_url_x{$key}:"&nbsp;")."</td>"; }
-                                # Call to plugins' function ShowPagesAddField
-                                foreach my $pluginname (keys %{$PluginsLoaded{'ShowPagesAddField'}})  {
-                                        my $function="ShowPagesAddField_$pluginname('$key')";
-                                        eval("$function");
-                                }
-                                print "<td class=\"aws\">";
-                                if ($ShowPagesStats =~ /P/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hp'}\" width=\"$bredde_p\" height=\"4\"".AltTitle("")." /><br />"; }
-                                if ($ShowPagesStats =~ /B/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hk'}\" width=\"$bredde_k\" height=\"4\"".AltTitle("")." /><br />"; }
-                                if ($ShowPagesStats =~ /E/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'he'}\" width=\"$bredde_e\" height=\"4\"".AltTitle("")." /><br />"; }
-                                if ($ShowPagesStats =~ /X/i) { print "<img src=\"$DirIcons\/other\/$BarPng{'hx'}\" width=\"$bredde_x\" height=\"4\"".AltTitle("")." />"; }
-                                print "</td></tr>\n";
-                                $total_p += $_url_p{$key};
-                                $total_e += $_url_e{$key};
-                                $total_x += $_url_x{$key};
-                                $total_k += $_url_k{$key};
-                                $count++;
-                        }
-                        $rest_p=$TotalPages-$total_p;
-                        $rest_e=$TotalEntries-$total_e;
-                        $rest_x=$TotalExits-$total_x;
-                        $rest_k=$TotalBytesPages-$total_k;
-                        if ($rest_p > 0 || $rest_k > 0 || $rest_e > 0 || $rest_x > 0) {        # All other urls
-                                print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                                if ($ShowPagesStats =~ /P/i) { print "<td>$rest_p</td>"; }
-                                if ($ShowPagesStats =~ /B/i) { print "<td>".($rest_k?Format_Bytes($rest_k/($rest_p||1)):"&nbsp;")."</td>"; }
-                                if ($ShowPagesStats =~ /E/i) { print "<td>".($rest_e?$rest_e:"&nbsp;")."</td>"; }
-                                if ($ShowPagesStats =~ /X/i) { print "<td>".($rest_x?$rest_x:"&nbsp;")."</td>"; }
-                                # Call to plugins' function ShowPagesAddField
-                                foreach my $pluginname (keys %{$PluginsLoaded{'ShowPagesAddField'}})  {
-                                        my $function="ShowPagesAddField_$pluginname('')";
-                                        eval("$function");
-                                }
-                                print "<td>&nbsp;</td></tr>\n";
-                        }
-                        &tab_end();
-                }
-
-                # BY OS
-                #----------------------------
-                if ($ShowOSStats) {
-                        if ($Debug) { debug("ShowOSStats",2); }
-                        print "$Center<a name=\"os\">&nbsp;</a><br />\n";
-                        my $Totalh=0; my %new_os_h=();
-                        OSLOOP: foreach my $key (keys %_os_h) {
-                                $Totalh+=$_os_h{$key};
-                                foreach my $family (@OSFamily) { if ($key =~ /^$family/i) { $new_os_h{"${family}cumul"}+=$_os_h{$key}; next OSLOOP; } }
-                                $new_os_h{$key}+=$_os_h{$key};
-                        }
-                        my $title="$Message[59] ($Message[77] $MaxNbOf{'OsShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=osdetail"):"$PROG$StaticLinks.osdetail.$StaticExt")."\"$NewLinkTarget>$Message[80]/$Message[58]</a> &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=unknownos"):"$PROG$StaticLinks.unknownos.$StaticExt")."\"$NewLinkTarget>$Message[0]</a>";
-                        &tab_head("$title",19,0,'os');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th width=\"$WIDTHCOLICON\">&nbsp;</th><th>$Message[59]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th></tr>\n";
-                        $total_h=0;
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'OsShown'},$MinHit{'Os'},\%new_os_h,\%new_os_h);
-                        foreach my $key (@keylist) {
-                                my $p='&nbsp;';
-                                if ($Totalh) { $p=int($new_os_h{$key}/$Totalh*1000)/10; $p="$p %"; }
-                                if ($key eq 'Unknown') {
-                                        print "<tr><td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/os\/unknown.png\"".AltTitle("")." /></td><td class=\"aws\"><span style=\"color: #$color_other\">$Message[0]</span></td><td>$_os_h{$key}</td><td>$p</td></tr>\n";
-                                }
-                                else {
-                                        my $keywithoutcumul=$key; $keywithoutcumul =~ s/cumul$//i;
-                                        my $libos=$OSHashLib{$keywithoutcumul}||$keywithoutcumul;
-                                        my $nameicon=$keywithoutcumul; $nameicon =~ s/[^\w]//g;
-                                        # TODO Use OSFamilyLib
-                                        if ($libos eq 'win') { $libos="<b>Windows</b>"; }
-                                        if ($libos eq 'mac') { $libos="<b>Macintosh</b>"; }
-                                        print "<tr><td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/os\/$nameicon.png\"".AltTitle("")." /></td><td class=\"aws\">$libos</td><td>$new_os_h{$key}</td><td>$p</td></tr>\n";
-                                }
-                                $total_h += $new_os_h{$key};
-                                $count++;
-                        }
-                        if ($Debug) { debug("Total real / shown : $Totalh / $total_h",2); }
-                        $rest_h=$Totalh-$total_h;
-                        if ($rest_h > 0) {
-                                my $p;
-                                if ($Totalh) { $p=int($rest_h/$Totalh*1000)/10; }
-                                print "<tr>";
-                                print "<td>&nbsp;</td>";
-                                print "<td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td><td>$rest_h</td>";
-                                print "<td>$p %</td></tr>\n";
-                        }
-                        &tab_end();
-                }
-
-                # BY BROWSER
-                #----------------------------
-                if ($ShowBrowsersStats) {
-                        if ($Debug) { debug("ShowBrowsersStats",2); }
-                        print "$Center<a name=\"browsers\">&nbsp;</a><br />\n";
-                        my $Totalh=0; my %new_browser_h=();
-                        BROWSERLOOP: foreach my $key (keys %_browser_h) {
-                                $Totalh+=$_browser_h{$key};
-                                foreach my $family (keys %BrowsersFamily) { if ($key =~ /^$family/i) { $new_browser_h{"${family}cumul"}+=$_browser_h{$key}; next BROWSERLOOP; } }
-                                $new_browser_h{$key}+=$_browser_h{$key};
-                        }
-                        my $title="$Message[21] ($Message[77] $MaxNbOf{'BrowsersShown'}) &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=browserdetail"):"$PROG$StaticLinks.browserdetail.$StaticExt")."\"$NewLinkTarget>$Message[80]/$Message[58]</a> &nbsp; - &nbsp; <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=unknownbrowser"):"$PROG$StaticLinks.unknownbrowser.$StaticExt")."\"$NewLinkTarget>$Message[0]</a>";
-                        &tab_head("$title",19,0,'browsers');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th width=\"$WIDTHCOLICON\">&nbsp;</th><th>$Message[21]</th><th width=\"80\">$Message[111]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th></tr>\n";
-                        $total_h=0;
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'BrowsersShown'},$MinHit{'Browser'},\%new_browser_h,\%new_browser_h);
-                        foreach my $key (@keylist) {
-                                my $p='&nbsp;';
-                                if ($Totalh) { $p=int($new_browser_h{$key}/$Totalh*1000)/10; $p="$p %"; }
-                                if ($key eq 'Unknown') {
-                                        print "<tr><td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/browser\/unknown.png\"".AltTitle("")." /></td><td class=\"aws\"><span style=\"color: #$color_other\">$Message[0]</span></td><td width=\"80\">?</td><td>$_browser_h{$key}</td><td>$p</td></tr>\n";
-                                }
-                                else {
-                                        my $keywithoutcumul=$key; $keywithoutcumul =~ s/cumul$//i;
-                                        my $libbrowser=$BrowsersHashIDLib{$keywithoutcumul}||$keywithoutcumul;
-                                        my $nameicon=$BrowsersHashIcon{$keywithoutcumul}||"notavailable";
-                                        if ($BrowsersFamily{$keywithoutcumul}) { $libbrowser="<b>$libbrowser</b>"; }
-                                        print "<tr><td".($count?"":" width=\"$WIDTHCOLICON\"")."><img src=\"$DirIcons\/browser\/$nameicon.png\"".AltTitle("")." /></td><td class=\"aws\">".($PageDir eq 'rtl'?"<span dir=\"ltr\">":"")."$libbrowser".($PageDir eq 'rtl'?"</span>":"")."</td><td>".($BrowsersHereAreGrabbers{$key}?"<b>$Message[112]</b>":"$Message[113]")."</td><td>$new_browser_h{$key}</td><td>$p</td></tr>\n";
-                                }
-                                $total_h += $new_browser_h{$key};
-                                $count++;
-                        }
-                        if ($Debug) { debug("Total real / shown : $Totalh / $total_h",2); }
-                        $rest_h=$Totalh-$total_h;
-                        if ($rest_h > 0) {
-                                my $p;
-                                if ($Totalh) { $p=int($rest_h/$Totalh*1000)/10; }
-                                print "<tr>";
-                                print "<td>&nbsp;</td>";
-                                print "<td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td><td>&nbsp;</td><td>$rest_h</td>";
-                                print "<td>$p %</td></tr>\n";
-                        }
-                        &tab_end();
-                }
-
-                # BY SCREEN SIZE
-                #----------------------------
-                if ($ShowScreenSizeStats) {
-                        if ($Debug) { debug("ShowScreenSizeStats",2); }
-                        print "$Center<a name=\"screensizes\">&nbsp;</a><br />\n";
-                        my $Totalh=0; foreach (keys %_screensize_h) { $Totalh+=$_screensize_h{$_}; }
-                        my $title="$Message[135] ($Message[77] $MaxNbOf{'ScreenSizesShown'})";
-                        &tab_head("$title",0,0,'screensizes');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>$Message[135]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th></tr>\n";
-                        my $total_h=0;
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'ScreenSizesShown'},$MinHit{'ScreenSize'},\%_screensize_h,\%_screensize_h);
-                        foreach my $key (@keylist) {
-                                my $p='&nbsp;';
-                                if ($Totalh) { $p=int($_screensize_h{$key}/$Totalh*1000)/10; $p="$p %"; }
-                                $total_h+=$_screensize_h{$key}||0;
-                                print "<tr>";
-                                if ($key eq 'Unknown') {
-                                        print "<td class=\"aws\"><span style=\"color: #$color_other\">$Message[0]</span></td>";
-                                        print "<td>$p</td>";
-                                        }
-                                else {
-                                        my $screensize=$key;
-                                        print "<td class=\"aws\">$screensize</td>";
-                                        print "<td>$p</td>";
-                                }
-                                print "</tr>\n";
-                                $count++;
-                        }
-                        $rest_h=$Totalh-$total_h;
-                        if ($rest_h > 0) {        # All others sessions
-                                my $p=0;
-                                if ($Totalh) { $p=int($rest_h/$Totalh*1000)/10; }
-                                print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]</span></td>";
-                                print "<td>".($rest_h?"$p %":"&nbsp;")."</td>";
-                                print "</tr>\n";
-                        }
-                        &tab_end();
-                }
-
-                print "\n<a name=\"refering\">&nbsp;</a>\n\n";
-
-                # BY REFERENCE
-                #---------------------------
-                if ($ShowOriginStats) {
-                        if ($Debug) { debug("ShowOriginStats",2); }
-                        print "$Center<a name=\"referer\">&nbsp;</a><br />\n";
-                        my $Totalp=0; foreach (0..5) { $Totalp+=($_ != 4 || $IncludeInternalLinksInOriginSection)?$_from_p[$_]:0; }
-                        my $Totalh=0; foreach (0..5) { $Totalh+=($_ != 4 || $IncludeInternalLinksInOriginSection)?$_from_h[$_]:0; }
-                        &tab_head($Message[36],19,0,'referer');
-                        my @p_p=(0,0,0,0,0,0);
-                        if ($Totalp > 0) {
-                                $p_p[0]=int($_from_p[0]/$Totalp*1000)/10;
-                                $p_p[1]=int($_from_p[1]/$Totalp*1000)/10;
-                                $p_p[2]=int($_from_p[2]/$Totalp*1000)/10;
-                                $p_p[3]=int($_from_p[3]/$Totalp*1000)/10;
-                                $p_p[4]=int($_from_p[4]/$Totalp*1000)/10;
-                                $p_p[5]=int($_from_p[5]/$Totalp*1000)/10;
-                        }
-                        my @p_h=(0,0,0,0,0,0);
-                        if ($Totalh > 0) {
-                                $p_h[0]=int($_from_h[0]/$Totalh*1000)/10;
-                                $p_h[1]=int($_from_h[1]/$Totalh*1000)/10;
-                                $p_h[2]=int($_from_h[2]/$Totalh*1000)/10;
-                                $p_h[3]=int($_from_h[3]/$Totalh*1000)/10;
-                                $p_h[4]=int($_from_h[4]/$Totalh*1000)/10;
-                                $p_h[5]=int($_from_h[5]/$Totalh*1000)/10;
-                        }
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>$Message[37]</th>";
-                        if ($ShowOriginStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th><th bgcolor=\"#$color_p\" width=\"80\">$Message[15]</th>"; }
-                        if ($ShowOriginStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>"; }
-                        print "</tr>\n";
-                        #------- Referrals by direct address/bookmarks
-                        print "<tr><td class=\"aws\"><b>$Message[38]</b></td>";
-                        if ($ShowOriginStats =~ /P/i) { print "<td>".($_from_p[0]?$_from_p[0]:"&nbsp;")."</td><td>".($_from_p[0]?"$p_p[0] %":"&nbsp;")."</td>"; }
-                        if ($ShowOriginStats =~ /H/i) { print "<td>".($_from_h[0]?$_from_h[0]:"&nbsp;")."</td><td>".($_from_h[0]?"$p_h[0] %":"&nbsp;")."</td>"; }
-                        print "</tr>\n";
-                        #------- Referrals by news group
-                        print "<tr><td class=\"aws\"><b>$Message[107]</b></td>";
-                        if ($ShowOriginStats =~ /P/i) { print "<td>".($_from_p[5]?$_from_p[5]:"&nbsp;")."</td><td>".($_from_p[5]?"$p_p[5] %":"&nbsp;")."</td>"; }
-                        if ($ShowOriginStats =~ /H/i) { print "<td>".($_from_h[5]?$_from_h[5]:"&nbsp;")."</td><td>".($_from_h[5]?"$p_h[5] %":"&nbsp;")."</td>"; }
-                        print "</tr>\n";
-                        #------- Referrals by search engines
-                        print "<tr".Tooltip(13)."><td class=\"aws\"><b>$Message[40]</b> - <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=refererse"):"$PROG$StaticLinks.refererse.$StaticExt")."\"$NewLinkTarget>$Message[80]</a><br />\n";
-                        if (scalar keys %_se_referrals_h) {
-                                print "<table>\n";
-                                $total_p=0; $total_h=0;
-                                my $count=0;
-                                &BuildKeyList($MaxNbOf{'RefererShown'},$MinHit{'Refer'},\%_se_referrals_h,((scalar keys %_se_referrals_p)?\%_se_referrals_p:\%_se_referrals_h));
-                                foreach my $key (@keylist) {
-                                        my $newreferer=CleanFromCSSA($SearchEnginesHashLib{$key}||$key);
-                                        print "<tr><td class=\"aws\">- $newreferer</td>";
-                                        print "<td>".($_se_referrals_p{$key}?$_se_referrals_p{$key}:'0')."</td>";
-                                        print "<td>$_se_referrals_h{$key}</td>";
-                                        print "</tr>\n";
-                                        $total_p += $_se_referrals_p{$key};
-                                        $total_h += $_se_referrals_h{$key};
-                                        $count++;
-                                }
-                                if ($Debug) { debug("Total real / shown : $TotalSearchEnginesPages / $total_p -  $TotalSearchEnginesHits / $total_h",2); }
-                                $rest_p=$TotalSearchEnginesPages-$total_p;
-                                $rest_h=$TotalSearchEnginesHits-$total_h;
-                                if ($rest_p > 0 || $rest_h > 0) {
-                                        print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">- $Message[2]</span></td>";
-                                        print "<td>$rest_p</td>";
-                                        print "<td>$rest_h</td>";
-                                        print "</tr>\n";
-                                }
-                                print "</table>";
-                        }
-                        print "</td>\n";
-                        if ($ShowOriginStats =~ /P/i) { print "<td valign=\"top\">".($_from_p[2]?$_from_p[2]:"&nbsp;")."</td><td valign=\"top\">".($_from_p[2]?"$p_p[2] %":"&nbsp;")."</td>"; }
-                        if ($ShowOriginStats =~ /H/i) { print "<td valign=\"top\">".($_from_h[2]?$_from_h[2]:"&nbsp;")."</td><td valign=\"top\">".($_from_h[2]?"$p_h[2] %":"&nbsp;")."</td>"; }
-                        print "</tr>\n";
-                        #------- Referrals by external HTML link
-                        print "<tr".Tooltip(14)."><td class=\"aws\"><b>$Message[41]</b> - <a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=refererpages"):"$PROG$StaticLinks.refererpages.$StaticExt")."\"$NewLinkTarget>$Message[80]</a><br />\n";
-                        if (scalar keys %_pagesrefs_h) {
-                                print "<table>\n";
-                                $total_p=0; $total_h=0;
-                                my $count=0;
-                                &BuildKeyList($MaxNbOf{'RefererShown'},$MinHit{'Refer'},\%_pagesrefs_h,((scalar keys %_pagesrefs_p)?\%_pagesrefs_p:\%_pagesrefs_h));
-                                foreach my $key (@keylist) {
-                                        print "<tr><td class=\"aws\">- ";
-                                        &ShowURLInfo($key);
-                                        print "</td>";
-                                        print "<td>".($_pagesrefs_p{$key}?$_pagesrefs_p{$key}:'0')."</td>";
-                                        print "<td>$_pagesrefs_h{$key}</td>";
-                                        print "</tr>\n";
-                                        $total_p += $_pagesrefs_p{$key};
-                                        $total_h += $_pagesrefs_h{$key};
-                                        $count++;
-                                }
-                                if ($Debug) { debug("Total real / shown : $TotalRefererPages / $total_p - $TotalRefererHits / $total_h",2); }
-                                $rest_p=$TotalRefererPages-$total_p;
-                                $rest_h=$TotalRefererHits-$total_h;
-                                if ($rest_p > 0 || $rest_h > 0) {
-                                        print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">- $Message[2]</span></td>";
-                                        print "<td>$rest_p</td>";
-                                        print "<td>$rest_h</td>";
-                                        print "</tr>\n";
-                                }
-                                print "</table>";
-                        }
-                        print "</td>\n";
-                        if ($ShowOriginStats =~ /P/i) { print "<td valign=\"top\">".($_from_p[3]?$_from_p[3]:"&nbsp;")."</td><td valign=\"top\">".($_from_p[3]?"$p_p[3] %":"&nbsp;")."</td>"; }
-                        if ($ShowOriginStats =~ /H/i) { print "<td valign=\"top\">".($_from_h[3]?$_from_h[3]:"&nbsp;")."</td><td valign=\"top\">".($_from_h[3]?"$p_h[3] %":"&nbsp;")."</td>"; }
-                        print "</tr>\n";
-                        #------- Referrals by internal HTML link
-                        if ($IncludeInternalLinksInOriginSection) {
-                                print "<tr><td class=\"aws\"><b>$Message[42]</b></td>";
-                                if ($ShowOriginStats =~ /P/i) { print "<td>".($_from_p[4]?$_from_p[4]:"&nbsp;")."</td><td>".($_from_p[4]?"$p_p[4] %":"&nbsp;")."</td>"; }
-                                if ($ShowOriginStats =~ /H/i) { print "<td>".($_from_h[4]?$_from_h[4]:"&nbsp;")."</td><td>".($_from_h[4]?"$p_h[4] %":"&nbsp;")."</td>"; }
-                                print "</tr>\n";
-                        }
-                        #------- Unknown origin
-                        print "<tr><td class=\"aws\"><b>$Message[39]</b></td>";
-                        if ($ShowOriginStats =~ /P/i) { print "<td>".($_from_p[1]?$_from_p[1]:"&nbsp;")."</td><td>".($_from_p[1]?"$p_p[1] %":"&nbsp;")."</td>"; }
-                        if ($ShowOriginStats =~ /H/i) { print "<td>".($_from_h[1]?$_from_h[1]:"&nbsp;")."</td><td>".($_from_h[1]?"$p_h[1] %":"&nbsp;")."</td>"; }
-                        print "</tr>\n";
-                        &tab_end();
-                }
-
-                print "\n<a name=\"keys\">&nbsp;</a>\n\n";
-
-                # BY SEARCH KEYWORDS AND/OR KEYPHRASES
-                #-------------------------------------
-                if ($ShowKeyphrasesStats) { print "$Center<a name=\"keyphrases\">&nbsp;</a>"; }
-                if ($ShowKeywordsStats)   {        print "$Center<a name=\"keywords\">&nbsp;</a>"; }
-                if ($ShowKeyphrasesStats || $ShowKeywordsStats) { print "<br />\n"; }
-                if ($ShowKeyphrasesStats && $ShowKeywordsStats) { print "<table width=\"100%\" cellpadding=\"0\" cellspacing=\"0\"><tr>"; }
-                if ($ShowKeyphrasesStats) {
-                        # By Keyphrases
-                        if ($ShowKeyphrasesStats && $ShowKeywordsStats) { print "<td width=\"50%\" valign=\"top\">\n";        }
-                        if ($Debug) { debug("ShowKeyphrasesStats",2); }
-                        &tab_head("$Message[120] ($Message[77] $MaxNbOf{'KeyphrasesShown'})<br /><a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=keyphrases"):"$PROG$StaticLinks.keyphrases.$StaticExt")."\"$NewLinkTarget>$Message[80]</a>",19,($ShowKeyphrasesStats && $ShowKeywordsStats)?95:70,'keyphrases');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(15)."><th>$TotalDifferentKeyphrases $Message[103]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[14]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[15]</th></tr>\n";
-                        $total_s=0;
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'KeyphrasesShown'},$MinHit{'Keyphrase'},\%_keyphrases,\%_keyphrases);
-                        foreach my $key (@keylist) {
-                                my $mot;
-                                # Convert coded keywords (utf8,...) to be correctly reported in HTML page.
-                                if ($PluginsLoaded{'DecodeKey'}{'decodeutfkeys'})  { $mot=CleanFromCSSA(DecodeKey_decodeutfkeys($key,$PageCode||'iso-8859-1')); }
-                                else { $mot = CleanFromCSSA(DecodeEncodedString($key)); }
-                                my $p;
-                                if ($TotalKeyphrases) { $p=int($_keyphrases{$key}/$TotalKeyphrases*1000)/10; }
-                                print "<tr><td class=\"aws\">".XMLEncode($mot)."</td><td>$_keyphrases{$key}</td><td>$p %</td></tr>\n";
-                                $total_s += $_keyphrases{$key};
-                                $count++;
-                        }
-                        if ($Debug) { debug("Total real / shown : $TotalKeyphrases / $total_s",2); }
-                        $rest_s=$TotalKeyphrases-$total_s;
-                        if ($rest_s > 0) {
-                                my $p;
-                                if ($TotalKeyphrases) { $p=int($rest_s/$TotalKeyphrases*1000)/10; }
-                                print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[124]</span></td><td>$rest_s</td>";
-                                print "<td>$p&nbsp;%</td></tr>\n";
-                        }
-                        &tab_end();
-                        if ($ShowKeyphrasesStats && $ShowKeywordsStats) { print "</td>\n";        }
-                }
-                if ($ShowKeyphrasesStats && $ShowKeywordsStats) { print "<td> &nbsp; </td>"; }
-                if ($ShowKeywordsStats) {
-                        # By Keywords
-                        if ($ShowKeyphrasesStats && $ShowKeywordsStats) { print "<td width=\"50%\" valign=\"top\">\n";        }
-                        if ($Debug) { debug("ShowKeywordsStats",2); }
-                        &tab_head("$Message[121] ($Message[77] $MaxNbOf{'KeywordsShown'})<br /><a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=keywords"):"$PROG$StaticLinks.keywords.$StaticExt")."\"$NewLinkTarget>$Message[80]</a>",19,($ShowKeyphrasesStats && $ShowKeywordsStats)?95:70,'keywords');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(15)."><th>$TotalDifferentKeywords $Message[13]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[14]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[15]</th></tr>\n";
-                        $total_s=0;
-                        my $count=0;
-                        &BuildKeyList($MaxNbOf{'KeywordsShown'},$MinHit{'Keyword'},\%_keywords,\%_keywords);
-                        foreach my $key (@keylist) {
-                                my $mot;
-                                # Convert coded keywords (utf8,...) to be correctly reported in HTML page.
-                                if ($PluginsLoaded{'DecodeKey'}{'decodeutfkeys'})  { $mot=CleanFromCSSA(DecodeKey_decodeutfkeys($key,$PageCode||'iso-8859-1')); }
-                                else { $mot = CleanFromCSSA(DecodeEncodedString($key)); }
-                                my $p;
-                                if ($TotalKeywords) { $p=int($_keywords{$key}/$TotalKeywords*1000)/10; }
-                                print "<tr><td class=\"aws\">".XMLEncode($mot)."</td><td>$_keywords{$key}</td><td>$p %</td></tr>\n";
-                                $total_s += $_keywords{$key};
-                                $count++;
-                        }
-                        if ($Debug) { debug("Total real / shown : $TotalKeywords / $total_s",2); }
-                        $rest_s=$TotalKeywords-$total_s;
-                        if ($rest_s > 0) {
-                                my $p;
-                                if ($TotalKeywords) { $p=int($rest_s/$TotalKeywords*1000)/10; }
-                                print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[30]</span></td><td>$rest_s</td>";
-                                print "<td>$p %</td></tr>\n";
-                        }
-                        &tab_end();
-                        if ($ShowKeyphrasesStats && $ShowKeywordsStats) { print "</td>\n";        }
-                }
-                if ($ShowKeyphrasesStats && $ShowKeywordsStats) { print "</tr></table>\n"; }
-
-                print "\n<a name=\"other\">&nbsp;</a>\n\n";
-
-                # BY MISC
-                #----------------------------
-                if ($ShowMiscStats) {
-                        if ($Debug) { debug("ShowMiscStats",2); }
-                        print "$Center<a name=\"misc\">&nbsp;</a><br />\n";
-                        my $Totalh=0; my %new_browser_h=();
-                        if ($_misc_h{'AddToFavourites'}) {
-                                foreach my $key (keys %_browser_h) {
-                                        $Totalh+=$_browser_h{$key};
-                                        if ($key =~ /^msie/i) { $new_browser_h{"msiecumul"}+=$_browser_h{$key}; }
-                                }
-                                if ($new_browser_h{'msiecumul'}) { $_misc_h{'AddToFavourites'}=int(0.5+$_misc_h{'AddToFavourites'}*$Totalh/$new_browser_h{'msiecumul'}); }
-                        }
-                        my $title="$Message[139]";
-                        &tab_head("$title",19,0,'misc');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>$Message[139]</th>";
-                        print "<th width=\"100\">&nbsp;</th>";
-                        print "<th width=\"100\">&nbsp;</th>";
-                        print "</tr>\n";
-                        my %label=('AddToFavourites'=>$Message[137],'JavascriptDisabled'=>$Message[168],'JavaEnabled'=>$Message[140],'DirectorSupport'=>$Message[141],
-                        'FlashSupport'=>$Message[142],'RealPlayerSupport'=>$Message[143],'QuickTimeSupport'=>$Message[144],
-                        'WindowsMediaPlayerSupport'=>$Message[145],'PDFSupport'=>$Message[146]);
-                        foreach my $key (@MiscListOrder) {
-                                my $mischar=substr($key,0,1);
-                                if ($ShowMiscStats !~ /$mischar/i) { next; }
-                                my $total=0;
-                                my $p;
-                                if ($MiscListCalc{$key} eq 'v') { $total=$TotalVisits; }
-                                if ($MiscListCalc{$key} eq 'u') { $total=$TotalUnique; }
-                                if ($MiscListCalc{$key} eq 'hm') { $total=$_misc_h{'TotalMisc'}||0; }
-                                if ($total) { $p=int($_misc_h{$key}/$total*1000)/10; }
-                                print "<tr>";
-                                print "<td class=\"aws\">".($PageDir eq 'rtl'?"<span dir=\"ltr\">":"").$label{$key}.($PageDir eq 'rtl'?"</span>":"")."</td>";
-                                if ($MiscListCalc{$key} eq 'v') { print "<td>".($_misc_h{$key}||0)." / $total $Message[12]</td>"; }
-                                if ($MiscListCalc{$key} eq 'u') { print "<td>".($_misc_h{$key}||0)." / $total $Message[18]</td>"; }
-                                if ($MiscListCalc{$key} eq 'hm') { print "<td>-</td>"; }
-                                print "<td>".($total?"$p %":"&nbsp;")."</td>";
-                                print "</tr>\n";
-                        }
-                        &tab_end();
-                }
-
-                # BY HTTP STATUS
-                #----------------------------
-                if ($ShowHTTPErrorsStats) {
-                        if ($Debug) { debug("ShowHTTPErrorsStats",2); }
-                        print "$Center<a name=\"errors\">&nbsp;</a><br />\n";
-                        my $title="$Message[32]";
-                        &tab_head("$title",19,0,'errors');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th colspan=\"2\">$Message[32]*</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th><th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th></tr>\n";
-                        $total_h=0;
-                        my $count=0;
-                        &BuildKeyList($MaxRowsInHTMLOutput,1,\%_errors_h,\%_errors_h);
-                        foreach my $key (@keylist) {
-                                my $p=int($_errors_h{$key}/$TotalHitsErrors*1000)/10;
-                                print "<tr".Tooltip($key,$key).">";
-                                if ($TrapInfosForHTTPErrorCodes{$key}) { print "<td><a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=errors$key"):"$PROG$StaticLinks.errors$key.$StaticExt")."\"$NewLinkTarget>$key</a></td>"; }
-                                else { print "<td valign=\"top\">$key</td>"; }
-                                print "<td class=\"aws\">".($httpcodelib{$key}?$httpcodelib{$key}:'Unknown error')."</td><td>$_errors_h{$key}</td><td>$p %</td><td>".Format_Bytes($_errors_k{$key})."</td>";
-                                print "</tr>\n";
-                                $total_h+=$_errors_h{$key};
-                                $count++;
-                        }
-                        &tab_end("* $Message[154]");
-                }
-
-                # BY SMTP STATUS
-                #----------------------------
-                if ($ShowSMTPErrorsStats) {
-                        if ($Debug) { debug("ShowSMTPErrorsStats",2); }
-                        print "$Center<a name=\"errors\">&nbsp;</a><br />\n";
-                        my $title="$Message[147]";
-                        &tab_head("$title",19,0,'errors');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th colspan=\"2\">$Message[147]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th><th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th></tr>\n";
-                        $total_h=0;
-                        my $count=0;
-                        &BuildKeyList($MaxRowsInHTMLOutput,1,\%_errors_h,\%_errors_h);
-                        foreach my $key (@keylist) {
-                                my $p=int($_errors_h{$key}/$TotalHitsErrors*1000)/10;
-                                print "<tr".Tooltip($key,$key).">";
-                                print "<td valign=\"top\">$key</td>";
-                                print "<td class=\"aws\">".($smtpcodelib{$key}?$smtpcodelib{$key}:'Unknown error')."</td><td>$_errors_h{$key}</td><td>$p %</td><td>".Format_Bytes($_errors_k{$key})."</td>";
-                                print "</tr>\n";
-                                $total_h+=$_errors_h{$key};
-                                $count++;
-                        }
-                        &tab_end();
-                }
-
-                # BY CLUSTER
-                #----------------------------
-                if ($ShowClusterStats) {
-                        if ($Debug) { debug("ShowClusterStats",2); }
-                        print "$Center<a name=\"clusters\">&nbsp;</a><br />\n";
-                        my $title="$Message[155]";
-                        &tab_head("$title",19,0,'clusters');
-                        print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>$Message[155]</th>";
-                        &ShowClusterInfo('__title__');
-                        if ($ShowClusterStats =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th><th bgcolor=\"#$color_p\" width=\"80\">$Message[15]</th>"; }
-                        if ($ShowClusterStats =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>"; }
-                        if ($ShowClusterStats =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th><th bgcolor=\"#$color_k\" width=\"80\">$Message[15]</th>"; }
-                        print "</tr>\n";
-                        $total_p=$total_h=$total_k=0;
-                        # Cluster feature might have been enable in middle of month so we recalculate
-                        # total for cluster section only, to calculate ratio, instead of using global total
-                        foreach my $key (keys %_cluster_h) {
-                                $total_p+=int($_cluster_p{$key}||0);
-                                $total_h+=int($_cluster_h{$key}||0);
-                                $total_k+=int($_cluster_k{$key}||0);
-                        }
-                        my $count=0;
-                        foreach my $key (keys %_cluster_h) {
-                                my $p_p=int($_cluster_p{$key}/$total_p*1000)/10;
-                                my $p_h=int($_cluster_h{$key}/$total_h*1000)/10;
-                                my $p_k=int($_cluster_k{$key}/$total_k*1000)/10;
-                                print "<tr>";
-                                print "<td class=\"aws\">Computer $key</td>";
-                                &ShowClusterInfo($key);
-                                if ($ShowClusterStats =~ /P/i) { print "<td>".($_cluster_p{$key}?$_cluster_p{$key}:"&nbsp;")."</td><td>$p_p %</td>"; }
-                                if ($ShowClusterStats =~ /H/i) { print "<td>$_cluster_h{$key}</td><td>$p_h %</td>"; }
-                                if ($ShowClusterStats =~ /B/i) { print "<td>".Format_Bytes($_cluster_k{$key})."</td><td>$p_k %</td>"; }
-                                print "</tr>\n";
-                                $count++;
-                        }
-                        &tab_end();
-                }
-
-                 # BY EXTRA SECTIONS
-                 #----------------------------
-                 foreach my $extranum (1..@ExtraName-1) {
-                         if ($Debug) { debug("ExtraName$extranum",2); }
-                         print "$Center<a name=\"extra$extranum\">&nbsp;</a><br />";
-                        my $title=$ExtraName[$extranum];
-                         &tab_head("$title",19,0,"extra$extranum");
-                         print "<tr bgcolor=\"#$color_TableBGRowTitle\">";
-                         print "<th>".$ExtraFirstColumnTitle[$extranum]."</th>";
-                         if ($ExtraStatTypes[$extranum] =~ m/P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
-                         if ($ExtraStatTypes[$extranum] =~ m/H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
-                         if ($ExtraStatTypes[$extranum] =~ m/B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
-                         if ($ExtraStatTypes[$extranum] =~ m/L/i) { print "<th width=\"120\">$Message[9]</th>"; }
-                         print "</tr>\n";
-                         $total_p=$total_h=$total_k=0;
-                         #$max_h=1; foreach (values %_login_h) { if ($_ > $max_h) { $max_h = $_; } }
-                         #$max_k=1; foreach (values %_login_k) { if ($_ > $max_k) { $max_k = $_; } }
-                         my $count=0;
-                         if ($ExtraStatTypes[$extranum] =~ m/P/i) {
-                                 &BuildKeyList($MaxNbOfExtra[$extranum],$MinHitExtra[$extranum],\%{'_section_' . $extranum . '_h'},\%{'_section_' . $extranum . '_p'});
-                         }
-                         else {
-                                 &BuildKeyList($MaxNbOfExtra[$extranum],$MinHitExtra[$extranum],\%{'_section_' . $extranum . '_h'},\%{'_section_' . $extranum . '_h'});
-                         }
-                        foreach my $key (@keylist) {
-                                 my $firstcol = CleanFromCSSA(DecodeEncodedString($key));
-                                 $total_p+=${'_section_' . $extranum . '_p'}{$key};
-                                 $total_h+=${'_section_' . $extranum . '_h'}{$key};
-                                 $total_k+=${'_section_' . $extranum . '_k'}{$key};
-                                 print "<tr>";
-                                 printf("<td class=\"aws\">$ExtraFirstColumnFormat[$extranum]</td>", $firstcol, $firstcol, $firstcol, $firstcol, $firstcol);
-                                 if ($ExtraStatTypes[$extranum] =~ m/P/i) { print "<td>" . ${'_section_' . $extranum . '_p'}{$key} . "</td>"; }
-                                 if ($ExtraStatTypes[$extranum] =~ m/H/i) { print "<td>" . ${'_section_' . $extranum . '_h'}{$key} . "</td>"; }
-                                 if ($ExtraStatTypes[$extranum] =~ m/B/i) { print "<td>" . Format_Bytes(${'_section_' . $extranum . '_k'}{$key}) . "</td>"; }
-                                 if ($ExtraStatTypes[$extranum] =~ m/L/i) { print "<td>" . (${'_section_' . $extranum . '_l'}{$key}?Format_Date(${'_section_' . $extranum . '_l'}{$key},1):'-') . "</td>"; }
-                                 print "</tr>\n";
-                                 $count++;
-                        }
-                        if ($ExtraAddAverageRow[$extranum]) {
-                                 print "<tr>";
-                                 print "<td class=\"aws\"><b>$Message[96]</b></td>";
-                                 if ($ExtraStatTypes[$extranum] =~ m/P/i) { print "<td>" . ($count?($total_p/$count):"&nbsp;") . "</td>"; }
-                                 if ($ExtraStatTypes[$extranum] =~ m/H/i) { print "<td>" . ($count?($total_h/$count):"&nbsp;") . "</td>"; }
-                                 if ($ExtraStatTypes[$extranum] =~ m/B/i) { print "<td>" . ($count?Format_Bytes($total_k/$count):"&nbsp;") . "</td>"; }
-                                 if ($ExtraStatTypes[$extranum] =~ m/L/i) { print "<td>&nbsp;</td>"; }
-                                 print "</tr>\n";
-                        }
-                        if ($ExtraAddSumRow[$extranum]) {
-                                 print "<tr>";
-                                 print "<td class=\"aws\"><b>$Message[102]</b></td>";
-                                 if ($ExtraStatTypes[$extranum] =~ m/P/i) { print "<td>" . ($total_p) . "</td>"; }
-                                 if ($ExtraStatTypes[$extranum] =~ m/H/i) { print "<td>" . ($total_h) . "</td>"; }
-                                 if ($ExtraStatTypes[$extranum] =~ m/B/i) { print "<td>" . Format_Bytes($total_k) . "</td>"; }
-                                 if ($ExtraStatTypes[$extranum] =~ m/L/i) { print "<td>&nbsp;</td>"; }
-                                 print "</tr>\n";
-                        }
-                         &tab_end();
-                 }
-
-                &html_end(1);
-        }
-}
-else {
-        print "Jumped lines in file: $lastlinenb\n";
-        if ($lastlinenb) { print " Found $lastlinenb already parsed records.\n"; }
-        print "Parsed lines in file: $NbOfLinesParsed\n";
-        print " Found $NbOfLinesDropped dropped records,\n";
-        print " Found $NbOfLinesCorrupted corrupted records,\n";
-        print " Found $NbOfOldLines old records,\n";
-        print " Found $NbOfNewLines new qualified records.\n";
-}
-
-#sleep 10;
-
-0;        # Do not remove this line
-
-
-#-------------------------------------------------------
-# ALGORITHM SUMMARY
-#
-# Read_Config();
-# Check_Config() and Init variables
-# if 'frame not index'
-#        &Read_Language_Data($Lang);
-#        if 'frame not mainleft'
-#                &Read_Ref_Data();
-#                &Read_Plugins();
-# html_head
-#
-# If 'migrate'
-#   We create/update tmp file with
-#     &Read_History_With_TmpUpdate(year,month,UPDATE,NOPURGE,"all");
-#   Rename the tmp file
-#   html_end
-#   Exit
-# End of 'migrate'
-#
-# Get last history file name
-# Get value for $LastLine $LastLineNumber $LastLineOffset $LastLineChecksum with
-#        &Read_History_With_TmpUpdate(lastyear,lastmonth,NOUPDATE,NOPURGE,"general");
-#
-# &Init_HashArray()
-#
-# If 'update'
-#   Loop on each new line in log file
-#     lastlineoffset=lastlineoffsetnext; lastlineoffsetnext=file pointer position
-#     If line corrupted, skip --> next on loop
-#          Drop wrong virtual host --> next on loop
-#     Drop wrong method/protocol --> next on loop
-#     Check date --> next on loop
-#     If line older than $LastLine, skip --> next on loop
-#     So it's new line
-#     $LastLine = time or record
-#     Skip if url is /robots.txt --> next on loop
-#     Skip line for @SkipHosts --> next on loop
-#     Skip line for @SkipFiles --> next on loop
-#     Skip line for @SkipUserAgent --> next on loop
-#     Skip line for not @OnlyHosts --> next on loop
-#     Skip line for not @OnlyFiles --> next on loop
-#     Skip line for not @OnlyUserAgent --> next on loop
-#     Skip line for not @OnlyUsers --> next on loop
-#     Skip line for not @OnlyLines --> next on loop
-#     So it's new line approved
-#     If other month/year, create/update tmp file and purge data arrays with
-#       &Read_History_With_TmpUpdate(lastprocessedyear,lastprocessedmonth,UPDATE,PURGE,"all",lastlinenb,lastlineoffset,CheckSum($_));
-#     Define a clean Url and Query (set urlwithnoquery, tokenquery and standalonequery and $field[$pos_url])
-#     Define PageBool and extension
-#     Analyze: Misc tracker --> complete %misc
-#     Analyze: Add to favorites --> complete %_misc, countedtraffic=1 (not counted anywhere)
-#     If (!countedtraffic) Analyze: Worms --> complete %_worms, countedtraffic=1
-#     If (!countedtraffic) Analyze: Status code --> complete %_error_, %_sider404, %_referrer404 --> countedtraffic=1
-#     If (!countedtraffic) Analyze: Robots known --> complete %_robot, countedtraffic=1
-#     If (!countedtraffic) Analyze: Robots unknown on robots.txt --> complete %_robot, countedtraffic=1
-#     If (!countedtraffic) Analyze: File types - Compression
-#     If (!countedtraffic) Analyze: Date - Hour - Pages - Hits - Kilo
-#     If (!countedtraffic) Analyze: Login
-#     If (!countedtraffic) Do DNS Lookup
-#     If (!countedtraffic) Analyze: Country
-#     If (!countedtraffic) Analyze: Host - Url - Session
-#     If (!countedtraffic) Analyze: Browser - OS
-#     If (!countedtraffic) Analyze: Referer
-#     If (!countedtraffic) Analyze: EMail
-#     Analyze: Cluster
-#     Analyze: Extra (must be after 'Define a clean Url and Query')
-#     If too many records, we flush data arrays with
-#       &Read_History_With_TmpUpdate($lastprocessedyear,$lastprocessedmonth,UPDATE,PURGE,"all",lastlinenb,lastlineoffset,CheckSum($_));
-#   End of loop
-#   Create/update tmp file
-#          Seek to lastlineoffset to read and get last line into $_
-#          &Read_History_With_TmpUpdate($lastprocessedyear,$lastprocessedmonth,UPDATE,PURGE,"all",lastlinenb,lastlineoffset,CheckSum($_))
-#   Rename all tmp files
-# End of 'update'
-#
-# &Init_HashArray()
-#
-# If 'output'
-#   Loop for each month of required year
-#     &Read_History_With_TmpUpdate($YearRequired,monthloop,NOUPDATE,NOPURGE,"all" or "general time" if not required month)
-#   End of loop
-#   Show data arrays in HTML page
-#   html_end
-# End of 'output'
-#-------------------------------------------------------
-
-#-------------------------------------------------------
-# DNS CACHE FILE FORMATS SUPPORTED BY AWSTATS
-# Format /etc/hosts     x.y.z.w hostname
-# Format analog         UT/60 x.y.z.w hostname
-#-------------------------------------------------------
-
-#-------------------------------------------------------
-# IP Format (d=decimal on 16 bits, x=hexadecimal on 16 bits)
-#
-# 13.1.68.3                                                IPv4 (d.d.d.d)
-# 0:0:0:0:0:0:13.1.68.3                 IPv6 (x:x:x:x:x:x:d.d.d.d)
-# ::13.1.68.3
-# 0:0:0:0:0:FFFF:13.1.68.3                 IPv6 (x:x:x:x:x:x:d.d.d.d)
-# ::FFFF:13.1.68.3                                 IPv6
-#
-# 1070:0:0:0:0:800:200C:417B         IPv6
-# 1070:0:0:0:0:800:200C:417B         IPv6
-# 1070::800:200C:417B                         IPv6
-#-------------------------------------------------------
Index: openacs-4/packages/user-tracking/www/contributions-cards/faq-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/faq-card-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/faq-card-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,98 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+    <fullquery name="select_faqs">
+        <querytext>
+		select ans.question as question,
+			ans.entry_id as entry_id,
+			f.faq_id as faq_id,
+			f.faq_name as faq_name, 
+			(select site_node__url(site_nodes.node_id)
+	                    from site_nodes, acs_objects
+	                    where site_nodes.object_id = acs_objects.context_id and acs_objects.object_id=f.faq_id) as url,
+	                to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		    from faq_q_and_as ans, faqs f, acs_objects o,
+		    	dotlrn_communities com, acs_objects o2
+		    where o.object_id=ans.entry_id
+			and ans.faq_id=f.faq_id
+			and o.creation_user= :oneUser
+			and com.community_id= :oneCom
+			and o2.object_id=f.faq_id
+			and apm_package__parent_id(o2.context_id) = com.package_id
+			
+	</querytext>
+    </fullquery>
+
+    <fullquery name="select_faqs_by_user">
+        <querytext>
+		select ans.question as question,
+			ans.entry_id as entry_id,
+			f.faq_id as faq_id,
+			f.faq_name as faq_name, 
+			(select site_node__url(site_nodes.node_id)
+	                    from site_nodes, acs_objects
+	                    where site_nodes.object_id = acs_objects.context_id and acs_objects.object_id=f.faq_id) as url,
+	                to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		    from faq_q_and_as ans, faqs f, acs_objects o
+		    where o.object_id=ans.entry_id
+			and ans.faq_id=f.faq_id
+			and o.creation_user= :oneUser
+	</querytext>
+    </fullquery>
+
+    <fullquery name="select_faqs_by_com">
+        <querytext>
+		select f.faq_name as faq_name, 
+			f.faq_id as faq_id,
+			(select site_node__url(site_nodes.node_id)
+	                    from site_nodes, acs_objects
+	                    where site_nodes.object_id = acs_objects.context_id and acs_objects.object_id=f.faq_id) as url,
+	                to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		    from faqs f, acs_objects o, dotlrn_communities com
+		    where o.object_id=f.faq_id
+			and com.community_id= :oneCom
+			and apm_package__parent_id(o.context_id) = com.package_id
+	</querytext>
+    </fullquery>
+
+    <fullquery name="select_site_faqs">
+        <querytext>
+		select f.faq_name as faq_name, 
+			f.faq_id as faq_id,
+			(select site_node__url(site_nodes.node_id)
+	                    from site_nodes, acs_objects
+	                    where site_nodes.object_id = acs_objects.context_id and acs_objects.object_id=f.faq_id) as url,
+	                to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		    from faqs f, acs_objects o
+		    where o.object_id=f.faq_id
+	</querytext>
+    </fullquery>
+
+    <fullquery name="select_user_info">      
+        <querytext>
+            select first_names,
+                   last_name,
+                   email,
+                   to_char(creation_date, 'YYYY-MM-DD HH24:MI:SS') as registration_date,
+                   to_char(last_visit, 'YYYY-MM-DD HH24:MI:SS') as last_visit
+            from cc_users
+            where user_id = :oneUser
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_com_data">
+        <querytext>
+	   select f.community_key as key,
+			f.community_id as id,
+			f.pretty_name as pretty_name,
+			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		from dotlrn_communities_full f, acs_objects o
+		where f.community_id= :oneCom
+		      and o.object_id= f.community_id
+        </querytext>
+    </fullquery>
+    
+
+</queryset>
Index: openacs-4/packages/user-tracking/www/contributions-cards/faq-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/faq-card.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/faq-card.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,34 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<h3>#user-tracking.added_faqs#</h3>
+
+<ul>
+
+<if @Users:rowcount@ gt 0>
+	<H3>Usuarios Seleccionados </H3>
+	<listtemplate name="Users"></listtemplate>
+	<BR>
+</if>
+<if @Communities:rowcount@ gt 0>
+	<H3>Comunidades Seleccionados </H3>
+	<listtemplate name="Communities"></listtemplate>
+	<BR>
+</if>
+
+<if @Users:rowcount@ gt 0>
+	<center>
+	<listtemplate name="faqs_q_and_as"></listtemplate>
+	</center>
+
+</if>
+<else>
+	<center>
+	<listtemplate name="faqs"></listtemplate>
+	</center>
+</else>
+ 
+</ul>
+
+
Index: openacs-4/packages/user-tracking/www/contributions-cards/faq-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/faq-card.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/faq-card.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,266 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2004-11-23
+} -query { 
+    {user_id ""}
+    {community_id ""}
+} -properties {
+    Users:multirow
+    Communities:multirow
+    faqs:multirow
+    first_names:onevalue
+    last_name:onevalue
+    email:onevalue
+    user_id:onevalue
+    
+}
+
+if {![exists_and_not_null referer]} {
+    set referer "[user-tracking::get_package_url]/communities-stats"
+}
+
+# First of all, we have to delete all blank spaces
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+template::multirow create Users ID Name Mail RegistrationDate LastVisit
+template::multirow create Communities ID Name CreationDate Key
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				foreach oneCom $ComsList {
+					if {![empty_string_p $oneCom]} {
+						set query select_faqs
+						db_multirow -append -extend { 
+						    faqs_url
+						    posting_date_pretty
+						    entry_url
+						} faqs $query {} {						
+						   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+						   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+						   set faqs_url "${url}one-faq?faq_id=${faq_id}"
+						   set entry_url "${url}one-question?entry_id=${entry_id}"						
+						}
+					}
+				}
+			}
+		}
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+			}
+		}		
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				set query select_faqs_by_user
+				db_multirow -append -extend { 
+				    faqs_url
+				    posting_date_pretty
+				    entry_url
+				} faqs $query {} {						
+				   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set faqs_url "${url}one-faq?faq_id=${faq_id}"
+				   set entry_url "${url}one-question?entry_id=${entry_id}"						
+				}
+			}
+		}
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+				set query select_faqs_by_com
+				db_multirow -append -extend { 
+				    faqs_url
+				    posting_date_pretty
+				    entry_url
+				} faqs $query {} {
+				   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set faqs_url "${url}one-faq?faq_id=${faq_id}"
+				}
+			}
+		}
+	} else {
+		ad_require_permission [ad_conn package_id] "admin"
+		set query select_site_faqs
+		db_multirow -append -extend { 
+		    faqs_url
+		    posting_date_pretty
+		    entry_url
+		} faqs $query {} {
+		   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+		   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+		   set faqs_url "${url}one-faq?faq_id=${faq_id}"
+		}
+	}
+}
+
+set page_title [_ user-tracking.Faqs_Stats]
+set context [list $page_title]
+
+template::list::create \
+    -name faqs_q_and_as \
+    -multirow faqs \
+    -elements {
+        name {
+            label "#user-tracking.faq_name#"
+            link_url_col faqs_url
+            display_col faq_name
+        }
+        question {
+            label "#user-tracking.faq_question#"
+            link_url_col entry_url
+            display_col question
+        }
+        posting_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+
+    } -filters {
+        package_id {}
+    }
+
+template::list::create \
+    -name faqs \
+    -multirow faqs \
+    -elements {
+        name {
+            label "#user-tracking.faq_name#"
+            link_url_col faqs_url
+            display_col faq_name
+        }
+        posting_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+
+    } -filters {
+        package_id {}
+    }
+
+template::list::create \
+    -name Users \
+    -multirow Users \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "User Name"
+            display_col Name            
+        }
+        mail {
+            label "Mail"
+            display_col Mail
+        }
+        registration_date {
+            label "Registration Date"
+            display_col RegistrationDate
+        }
+        last {
+            label "Last Visit"
+            display_col LastVisit
+        }
+     }
+
+template::list::create \
+    -name Communities \
+    -multirow Communities \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "Community Name"
+            display_col Name            
+        }
+        creation_date {
+            label "Creation Date"
+            display_col CreationDate
+        }
+        key {
+            label "Key"
+            display_col Key
+        }
+     }
+
+
+
Index: openacs-4/packages/user-tracking/www/contributions-cards/files-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/files-card-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/files-card-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,173 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_modified_files">
+        <querytext>
+		select f.name, f.file_id, f.type, f.content_size,
+		       to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
+		       to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+		       file_storage__get_package_id(f.parent_id) as package_id,
+		       (select site_node__url(node_id) from site_nodes
+        			where object_id= file_storage__get_package_id(f.parent_id)) as package_url,
+		       o.creation_user
+		from acs_objects o, fs_files f, acs_objects o2, dotlrn_communities_full com
+		where f.file_id=o.object_id and
+		      o.modifying_user= :oneUser
+		      and o.creation_user <> :oneUser
+		      and com.community_id= :oneCom
+		      and o2.object_id= file_storage__get_package_id(f.parent_id)
+		      and o2.context_id=com.package_id
+		      
+	</querytext>
+    </fullquery>
+    
+    <fullquery name="select_site_modified_files">
+        <querytext>
+		select f.name, f.file_id, f.type, f.content_size,
+		       to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
+		       to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+		       file_storage__get_package_id(f.parent_id) as package_id,
+		       (select site_node__url(node_id) from site_nodes
+        			where object_id= file_storage__get_package_id(f.parent_id)) as package_url,
+		       o.creation_user
+		from acs_objects o, fs_files f
+		where f.file_id=o.object_id 
+		and to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') <> to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS')
+		      
+	</querytext>
+    </fullquery>    
+
+    <fullquery name="select_site_created_files">
+        <querytext>
+		select f.name, f.file_id, f.type, f.content_size,
+		       to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
+		       to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+		       file_storage__get_package_id(f.parent_id) as package_id,
+		       (select site_node__url(node_id) from site_nodes
+        			where object_id= file_storage__get_package_id(f.parent_id)) as package_url,
+		       o.creation_user
+		from acs_objects o, fs_files f
+		where f.file_id=o.object_id
+		and to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') = to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS')
+        </querytext>
+    </fullquery>
+   
+    <fullquery name="select_modified_files_by_user">
+        <querytext>
+		select f.name, f.file_id, f.type, f.content_size,
+		       to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
+		       to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+		       file_storage__get_package_id(f.parent_id) as package_id,
+		       (select site_node__url(node_id) from site_nodes
+        			where object_id= file_storage__get_package_id(f.parent_id)) as package_url,
+		       o.creation_user
+		from acs_objects o, fs_files f
+		where f.file_id=o.object_id and
+		      o.modifying_user= :oneUser
+		      and o.creation_user <> :oneUser
+	</querytext>
+    </fullquery>
+
+    <fullquery name="select_modified_files_by_com">
+        <querytext>
+		select f.name, f.file_id, f.type, f.content_size,
+		       to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
+		       to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+		       file_storage__get_package_id(f.parent_id) as package_id,
+		       (select site_node__url(node_id) from site_nodes
+        			where object_id= file_storage__get_package_id(f.parent_id)) as package_url,
+		       o.creation_user
+		from acs_objects o, fs_files f, acs_objects o2, dotlrn_communities_full com
+		where f.file_id=o.object_id
+		      and com.community_id= :oneCom
+		      and o2.object_id= file_storage__get_package_id(f.parent_id)
+		      and o2.context_id=com.package_id
+		      
+	</querytext>
+    </fullquery>
+
+    <fullquery name="get_root_folder">
+        <querytext>
+	select content_item__get_root_folder(:file_id);
+	</querytext>
+    </fullquery>
+
+    <fullquery name="select_created_files">
+        <querytext>
+		select f.name, f.file_id, f.type, f.content_size,
+		       to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
+		       to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+		       file_storage__get_package_id(f.parent_id) as package_id,
+		       (select site_node__url(node_id) from site_nodes
+        			where object_id= file_storage__get_package_id(f.parent_id)) as package_url,
+		       o.creation_user
+		from acs_objects o, fs_files f, acs_objects o2, dotlrn_communities_full com
+		where f.file_id=o.object_id
+		      and o.creation_user= :oneUser
+		      and com.community_id= :oneCom
+		      and o2.object_id= file_storage__get_package_id(f.parent_id)
+		      and o2.context_id=com.package_id
+        </querytext>
+    </fullquery>
+
+
+    <fullquery name="select_created_files_by_user">      
+        <querytext>
+		select f.name, f.file_id, f.type, f.content_size,
+		       to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
+		       to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+		       file_storage__get_package_id(f.parent_id) as package_id,
+		       (select site_node__url(node_id) from site_nodes
+        			where object_id= file_storage__get_package_id(f.parent_id)) as package_url,
+		       o.creation_user
+		from acs_objects o, fs_files f
+		where f.file_id=o.object_id
+		      and o.creation_user= :oneUser
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_created_files_by_com">
+        <querytext>
+		select f.name, f.file_id, f.type, f.content_size,
+		       to_char(f.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
+		       to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+		       file_storage__get_package_id(f.parent_id) as package_id,
+		       (select site_node__url(node_id) from site_nodes
+        			where object_id= file_storage__get_package_id(f.parent_id)) as package_url,
+		       o.creation_user
+		from acs_objects o, fs_files f, acs_objects o2, dotlrn_communities_full com
+		where f.file_id=o.object_id
+		      and com.community_id= :oneCom
+		      and o2.object_id= file_storage__get_package_id(f.parent_id)
+		      and o2.context_id=com.package_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_user_info">      
+        <querytext>
+            select first_names,
+                   last_name,
+                   email,
+                   to_char(creation_date, 'YYYY-MM-DD HH24:MI:SS') as registration_date,
+                   to_char(last_visit, 'YYYY-MM-DD HH24:MI:SS') as last_visit
+            from cc_users
+            where user_id = :oneUser
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_com_data">
+        <querytext>
+	   select f.community_key as key,
+			f.community_id as id,
+			f.pretty_name as pretty_name,
+			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		from dotlrn_communities_full f, acs_objects o
+		where f.community_id= :oneCom
+		      and o.object_id= f.community_id
+        </querytext>
+    </fullquery>
+    
+    
+    
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/contributions-cards/files-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/files-card.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/files-card.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,28 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<h3>#user-tracking.added_files_by#</h3>
+
+<if @Users:rowcount@ gt 0>
+	<H3>Usuarios Seleccionados </H3>
+	<listtemplate name="Users"></listtemplate>
+	<BR>
+</if>
+<if @Communities:rowcount@ gt 0>
+	<H3>Comunidades Seleccionados </H3>
+	<listtemplate name="Communities"></listtemplate>
+	<BR>
+</if>
+
+
+<p>#user-tracking.added_files#</p>
+<center>
+<listtemplate name="created_files"></listtemplate>
+</center>
+
+<p>#user-tracking.modified_files#</p>
+<center>
+<listtemplate name="modified_files"></listtemplate>
+</center>
+
Index: openacs-4/packages/user-tracking/www/contributions-cards/files-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/files-card.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/files-card.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,335 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2004-11-23
+} -query { 
+    {user_id ""}
+    {community_id ""}
+} -properties {
+    Users:multirow
+    Communities:multirow
+}
+
+if {![exists_and_not_null referer]} {
+    set referer "[user-tracking::get_package_url]/users-stats"
+}
+
+# First of all, we have to delete all blank spaces
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+template::multirow create Users ID Name Mail RegistrationDate LastVisit
+template::multirow create Communities ID Name CreationDate Key
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				foreach oneCom $ComsList {
+					if {![empty_string_p $oneCom]} {
+						set query select_created_files
+						db_multirow -append -extend { 
+						    files_url
+						    posting_date_pretty
+						    modified_date_pretty
+						} created_files $query {} {
+						   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+						   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+						   set modified_date_ansi [lc_time_system_to_conn $creation_date]
+						   set modified_date_pretty [lc_time_fmt $modified_date_ansi "%x %X"]
+						   set files_url "${package_url}file?file_id=$file_id"
+						}
+						set query select_modified_files
+						db_multirow -append -extend { 
+						    files_url
+						    posting_date_pretty
+						    modified_date_pretty
+						} modified_files $query {} {
+						   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+						   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+						   set modified_date_ansi [lc_time_system_to_conn $creation_date]
+						   set modified_date_pretty [lc_time_fmt $modified_date_ansi "%x %X"]
+						   set files_url "${package_url}file?file_id=$file_id"
+						}
+					}
+				}
+			}
+		}
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+			}
+		}		
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				set query select_created_files_by_user
+				db_multirow -append -extend { 
+				    files_url
+				    posting_date_pretty
+				    modified_date_pretty
+				} created_files $query {} {
+				   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set modified_date_ansi [lc_time_system_to_conn $creation_date]
+				   set modified_date_pretty [lc_time_fmt $modified_date_ansi "%x %X"]
+				   set files_url "${package_url}file?file_id=$file_id"
+				}
+				set query select_modified_files_by_user
+				db_multirow -append -extend { 
+				    files_url
+				    posting_date_pretty
+				    modified_date_pretty
+				} modified_files $query {} {
+				   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set modified_date_ansi [lc_time_system_to_conn $creation_date]
+				   set modified_date_pretty [lc_time_fmt $modified_date_ansi "%x %X"]
+				   set files_url "${package_url}file?file_id=$file_id"
+				}
+			}
+		}
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+				set query select_created_files_by_com
+				db_multirow -append -extend { 
+				    files_url
+				    posting_date_pretty
+				    modified_date_pretty
+				} created_files $query {} {
+				   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set modified_date_ansi [lc_time_system_to_conn $creation_date]
+				   set modified_date_pretty [lc_time_fmt $modified_date_ansi "%x %X"]
+				   set files_url "${package_url}file?file_id=$file_id"
+				}
+				set query select_modified_files_by_com
+				db_multirow -append -extend { 
+				    files_url
+				    posting_date_pretty
+				    modified_date_pretty
+				} modified_files $query {} {
+				   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set modified_date_ansi [lc_time_system_to_conn $creation_date]
+				   set modified_date_pretty [lc_time_fmt $modified_date_ansi "%x %X"]
+				   set files_url "${package_url}file?file_id=$file_id"
+				}
+			}
+		}
+	} else {
+
+		ad_require_permission  [ad_conn package_id] admin
+		set query select_site_created_files
+			db_multirow -append -extend { 
+			    files_url
+			    posting_date_pretty
+			    modified_date_pretty
+			} created_files $query {} {
+			   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+			   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+			   set modified_date_ansi [lc_time_system_to_conn $creation_date]
+			   set modified_date_pretty [lc_time_fmt $modified_date_ansi "%x %X"]
+			   set files_url "${package_url}file?file_id=$file_id"
+			}
+			set query select_site_modified_files
+			db_multirow -append -extend { 
+			    files_url
+			    posting_date_pretty
+			    modified_date_pretty
+			} modified_files $query {} {
+			   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+			   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+			   set modified_date_ansi [lc_time_system_to_conn $creation_date]
+			   set modified_date_pretty [lc_time_fmt $modified_date_ansi "%x %X"]
+			   set files_url "${package_url}file?file_id=$file_id"
+			}
+
+	}
+}
+
+
+set page_title [_ user-tracking.Files_Stats]
+set context [list $page_title]
+
+template::list::create \
+    -name created_files \
+    -multirow created_files \
+    -elements {
+        name {
+            label "#file-storage.Name#"
+            link_url_col files_url
+            display_col name
+        }
+        type {
+            label "#file-storage.Type#"
+            display_col type
+        }  
+        size {
+            label "#file-storage.Size#"
+            display_col content_size
+        }              
+        creation_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+        last_modified {
+            label "#file-storage.Last_Modified#"
+            display_col modified_date_pretty
+        }
+
+    } -filters {
+        package_id {}
+    }
+
+template::list::create \
+    -name modified_files \
+    -multirow modified_files \
+    -elements {
+        name {
+            label "#file-storage.Name#"
+            link_url_col files_url
+            display_col name
+        }
+        type {
+            label "#file-storage.Type#"
+            display_col type
+        }  
+        size {
+            label "#file-storage.Size#"
+            display_col content_size
+        }              
+        creation_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+        last_modified {
+            label "#file-storage.Last_Modified#"
+            display_col modified_date_pretty
+        }
+
+    } -filters {
+        package_id {}
+    }
+
+template::list::create \
+    -name Users \
+    -multirow Users \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "User Name"
+            display_col Name            
+        }
+        mail {
+            label "Mail"
+            display_col Mail
+        }
+        registration_date {
+            label "Registration Date"
+            display_col RegistrationDate
+        }
+        last {
+            label "Last Visit"
+            display_col LastVisit
+        }
+     }
+
+template::list::create \
+    -name Communities \
+    -multirow Communities \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "Community Name"
+            display_col Name            
+        }
+        creation_date {
+            label "Creation Date"
+            display_col CreationDate
+        }
+        key {
+            label "Key"
+            display_col Key
+        }
+     }
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/contributions-cards/forums-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/forums-card-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/forums-card-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,94 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_forums">
+        <querytext>
+    	    select (select site_node__url(site_nodes.node_id)
+                       from site_nodes, acs_objects
+                       where site_nodes.object_id = forums.package_id and acs_objects.object_id = forums.forum_id) as url,
+            	forums.name,
+            	to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
+            	forums.forum_id as forum_id            	
+            from forums_forums forums, acs_objects o, 
+            	dotlrn_communities com
+            where o.object_id = forums.forum_id
+            	and o.creation_user= :oneUser
+            	and com.community_id= :oneCom
+	    	and apm_package__parent_id(forums.package_id) = com.package_id            	
+            order by forums.name
+         </querytext>
+    </fullquery>
+
+    <fullquery name="select_forums_by_user">
+        <querytext>
+    	    select (select site_node__url(site_nodes.node_id)
+                       from site_nodes, acs_objects
+                       where site_nodes.object_id = forums_forums.package_id and acs_objects.object_id = forums_forums.forum_id) as url,
+            	forums_forums.name,
+            	to_char(acs_objects.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
+            	forums_forums.forum_id as forum_id            	
+            from forums_forums,
+            	acs_objects
+            where acs_objects.object_id = forum_id
+            	and acs_objects.creation_user= :oneUser
+            order by forums_forums.name
+         </querytext>
+    </fullquery>
+
+    <fullquery name="select_forums_by_com">
+        <querytext>
+   select distinct (select site_node__url(site_nodes.node_id)
+                       from site_nodes
+                       where site_nodes.object_id = forums.package_id) as url,
+            	forums.name as name,
+            	to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
+            	forums.forum_id as forum_id            	
+            from forums_forums forums,
+            	acs_objects o, dotlrn_communities com
+            where o.object_id = forums.forum_id            	
+            	and com.community_id= :oneCom
+	    	and apm_package__parent_id(forums.package_id) = com.package_id
+            order by forums.name
+         </querytext>
+    </fullquery>
+
+    <fullquery name="select_site_forums">
+        <querytext>
+	   select distinct (select site_node__url(site_nodes.node_id)
+                       from site_nodes
+                       where site_nodes.object_id = forums.package_id) as url,
+            	forums.name as name,
+            	to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
+            	forums.forum_id as forum_id            	
+            from forums_forums forums, acs_objects o
+            where o.object_id = forums.forum_id
+            order by forums.name
+         </querytext>
+    </fullquery>
+
+    <fullquery name="select_user_info">      
+        <querytext>
+            select first_names,
+                   last_name,
+                   email,
+                   to_char(creation_date, 'YYYY-MM-DD HH24:MI:SS') as registration_date,
+                   to_char(last_visit, 'YYYY-MM-DD HH24:MI:SS') as last_visit
+            from cc_users
+            where user_id = :oneUser
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_com_data">
+        <querytext>
+	   select f.community_key as key,
+			f.community_id as id,
+			f.pretty_name as pretty_name,
+			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		from dotlrn_communities_full f, acs_objects o
+		where f.community_id= :oneCom
+		      and o.object_id= f.community_id
+        </querytext>
+    </fullquery>
+
+</queryset>
Index: openacs-4/packages/user-tracking/www/contributions-cards/forums-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/forums-card.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/forums-card.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,24 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<h3>#user-tracking.forums_added#</h3>
+
+<ul>
+
+<if @Users:rowcount@ gt 0>
+	<H3>Usuarios Seleccionados </H3>
+	<listtemplate name="Users"></listtemplate>
+	<BR>
+</if>
+<if @Communities:rowcount@ gt 0>
+	<H3>Comunidades Seleccionados </H3>
+	<listtemplate name="Communities"></listtemplate>
+	<BR>
+</if>
+
+	<center>
+	<listtemplate name="forums"></listtemplate>
+	</center>
+
+
Index: openacs-4/packages/user-tracking/www/contributions-cards/forums-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/forums-card.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/forums-card.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,240 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2004-11-23
+} -query { 
+    {user_id ""}
+    {community_id ""}
+} -properties {
+    forums:multirow
+}
+
+if {![exists_and_not_null referer]} {
+    set referer "[user-tracking::get_package_url]/communities-stats"
+}
+
+# First of all, we have to delete all blank spaces
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+template::multirow create Users ID Name Mail RegistrationDate LastVisit
+template::multirow create Communities ID Name CreationDate Key
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				foreach oneCom $ComsList {
+					if {![empty_string_p $oneCom]} {
+						set query select_forums
+						db_multirow -append -extend { 
+						    forum_url
+						    posting_date_pretty
+						} forums $query {} {
+						   set posting_date_ansi [lc_time_system_to_conn $posting_date]
+						   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+						   set forum_url "${url}forum-view?forum_id=$forum_id"
+						}
+					}
+				}
+			}
+		}
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+			}
+		}		
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+		    		set query select_forums_by_user
+					db_multirow -append -extend { 
+					    forum_url
+					    posting_date_pretty	
+					} forums $query {} {
+					   set posting_date_ansi [lc_time_system_to_conn $posting_date]
+					   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+					   set forum_url "${url}forum-view?forum_id=$forum_id"
+					}
+			}
+		}
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+		    		set query select_forums_by_com
+				db_multirow -append -extend { 
+				    forum_url
+				    posting_date_pretty
+				} forums $query {} {
+				   set posting_date_ansi [lc_time_system_to_conn $posting_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set forum_url "${url}forum-view?forum_id=$forum_id"
+				}
+			}
+		}
+	} else {
+		#Admin
+		ad_require_permission [ad_conn package_id] "admin"
+    		set query select_site_forums
+		db_multirow -append -extend { 
+		    forum_url
+		    posting_date_pretty
+		} forums $query {} {
+		   set posting_date_ansi [lc_time_system_to_conn $posting_date]
+		   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+		   set forum_url "${url}forum-view?forum_id=$forum_id"
+		}
+	}
+}
+
+set page_title [_ user-tracking.Forums_Stats]
+set context [list $page_title]
+
+template::list::create \
+    -name forums \
+    -multirow forums \
+    -elements {
+        forum {
+            label "#user-tracking.Forum_Name#"
+            display_template {
+		<if @forums.name@ eq @name@>
+      		</if> <else>	
+      		<a href="@forums.forum_url@">@forums.name@</a>
+      		<% set name @forums.name@ %>
+      		</else>      	
+            }
+        }
+        posting_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+
+    } -filters {
+        forum_id {}
+    }
+
+template::list::create \
+    -name Users \
+    -multirow Users \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "User Name"
+            display_col Name            
+        }
+        mail {
+            label "Mail"
+            display_col Mail
+        }
+        registration_date {
+            label "Registration Date"
+            display_col RegistrationDate
+        }
+        last {
+            label "Last Visit"
+            display_col LastVisit
+        }
+     }
+
+template::list::create \
+    -name Communities \
+    -multirow Communities \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "Community Name"
+            display_col Name            
+        }
+        creation_date {
+            label "Creation Date"
+            display_col CreationDate
+        }
+        key {
+            label "Key"
+            display_col Key
+        }
+     }
+
+
+if {[exists_and_not_null alt_template]} {
+  ad_return_template $alt_template
+}
+
+
Index: openacs-4/packages/user-tracking/www/contributions-cards/messages-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/messages-card-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/messages-card-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,111 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_forums_messages">
+        <querytext>
+    	    select (select site_node__url(site_nodes.node_id)
+                       from site_nodes, acs_objects
+                       where site_nodes.object_id = forums.package_id and acs_objects.object_id = forums.forum_id) as url,
+            	forums.name,
+            	f_m.content,
+            	f_m.message_id,
+            	f_m.subject,
+            	to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
+            	forums.forum_id as forum_id            	
+            from forums_forums forums, acs_objects o, 
+            	forums_messages f_m,  dotlrn_communities com
+            where o.object_id = f_m.message_id
+            	and f_m.forum_id=forums.forum_id
+            	and o.creation_user= :oneUser
+            	and com.community_id= :oneCom
+	    	and apm_package__parent_id(forums.package_id) = com.package_id            	
+            order by forums.name
+         </querytext>
+    </fullquery>
+
+    <fullquery name="select_forums_messages_by_user">
+        <querytext>
+    	    select (select site_node__url(site_nodes.node_id)
+                       from site_nodes, acs_objects
+                       where site_nodes.object_id = forums_forums.package_id and acs_objects.object_id = forums_forums.forum_id) as url,
+            	forums_forums.name,
+            	forums_messages.content,
+            	forums_messages.message_id,
+            	forums_messages.subject,
+            	to_char(acs_objects.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
+            	forums_forums.forum_id as forum_id            	
+            from forums_forums,
+            	acs_objects, forums_messages
+            where acs_objects.object_id = forums_messages.message_id
+            	and forums_messages.forum_id=forums_forums.forum_id
+            	and acs_objects.creation_user= :oneUser
+            order by forums_forums.name
+         </querytext>
+    </fullquery>
+
+    <fullquery name="select_forums_messages_by_com">
+        <querytext>
+    	    select distinct (select site_node__url(site_nodes.node_id)
+                       from site_nodes, acs_objects
+                       where site_nodes.object_id = forums_forums.package_id and acs_objects.object_id = forums_forums.forum_id) as url,
+            	forums_forums.name,
+            	forums_messages.content,
+            	forums_messages.message_id,
+            	forums_messages.subject,
+            	to_char(acs_objects.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
+            	forums_forums.forum_id as forum_id            	
+            from forums_forums,
+            	acs_objects, forums_messages, dotlrn_communities com
+            where acs_objects.object_id = forums_messages.message_id
+            	and forums_messages.forum_id=forums_forums.forum_id
+            	            	and com.community_id= :oneCom
+	    	and apm_package__parent_id(forums_forums.package_id) = com.package_id
+            order by forums_forums.name
+         </querytext>
+    </fullquery>
+    
+    <fullquery name="select_site_forums_messages">
+        <querytext>
+    	    select (select site_node__url(site_nodes.node_id)
+                       from site_nodes, acs_objects
+                       where site_nodes.object_id = forums_forums.package_id and acs_objects.object_id = forums_forums.forum_id) as url,
+            	forums_forums.name,
+            	forums_messages.content,
+            	forums_messages.message_id,
+            	forums_messages.subject,
+            	to_char(acs_objects.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
+            	forums_forums.forum_id as forum_id            	
+            from forums_forums,
+            	acs_objects, forums_messages
+            where acs_objects.object_id = forums_messages.message_id
+            	and forums_messages.forum_id=forums_forums.forum_id
+            order by forums_forums.name
+         </querytext>
+    </fullquery>
+
+    <fullquery name="select_user_info">      
+        <querytext>
+            select first_names,
+                   last_name,
+                   email,
+                   to_char(creation_date, 'YYYY-MM-DD HH24:MI:SS') as registration_date,
+                   to_char(last_visit, 'YYYY-MM-DD HH24:MI:SS') as last_visit
+            from cc_users
+            where user_id = :oneUser
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_com_data">
+        <querytext>
+	   select f.community_key as key,
+			f.community_id as id,
+			f.pretty_name as pretty_name,
+			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		from dotlrn_communities_full f, acs_objects o
+		where f.community_id= :oneCom
+		      and o.object_id= f.community_id
+        </querytext>
+    </fullquery>
+
+</queryset>
Index: openacs-4/packages/user-tracking/www/contributions-cards/messages-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/messages-card.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/messages-card.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,24 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<h3>#user-tracking.messages_added#</h3>
+
+<ul>
+
+<if @Users:rowcount@ gt 0>
+	<H3>Usuarios Seleccionados </H3>
+	<listtemplate name="Users"></listtemplate>
+	<BR>
+</if>
+<if @Communities:rowcount@ gt 0>
+	<H3>Comunidades Seleccionados </H3>
+	<listtemplate name="Communities"></listtemplate>
+	<BR>
+</if>
+	<center>
+	<listtemplate name="forums_messages"></listtemplate>
+	</center>
+
+
+
Index: openacs-4/packages/user-tracking/www/contributions-cards/messages-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/messages-card.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/messages-card.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,277 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2004-11-23
+} -query { 
+    {user_id ""}
+    {community_id ""}
+} -properties {
+    forums:multirow
+}
+
+if {![exists_and_not_null referer]} {
+    set referer "[user-tracking::get_package_url]/communities-stats"
+}
+
+# First of all, we have to delete all blank spaces
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+template::multirow create Users ID Name Mail RegistrationDate LastVisit
+template::multirow create Communities ID Name CreationDate Key
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				foreach oneCom $ComsList {
+					if {![empty_string_p $oneCom]} {
+						set query select_forums_messages
+						db_multirow -append -extend { 
+						    message_url
+						    forum_url
+						    posting_date_pretty
+						} forums $query {} {
+						   set posting_date_ansi [lc_time_system_to_conn $posting_date]
+						   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+						   set message_url "${url}message-view?message_id=$message_id"
+						   set forum_url "${url}forum-view?forum_id=$forum_id"
+						}
+					}
+				}
+			}
+		}
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+			}
+		}		
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				set query select_forums_messages_by_user
+				db_multirow -append -extend { 
+				    message_url
+				    forum_url
+				    posting_date_pretty
+				} forums $query {} {
+				   set posting_date_ansi [lc_time_system_to_conn $posting_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set message_url "${url}message-view?message_id=$message_id"
+				   set forum_url "${url}forum-view?forum_id=$forum_id"
+				}
+			}
+		}
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+		    		set query select_forums_messages_by_com
+				db_multirow -append -extend { 
+				    forum_url
+				    posting_date_pretty
+				    message_url
+				} forums $query {} {
+				   set posting_date_ansi [lc_time_system_to_conn $posting_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set message_url "${url}message-view?message_id=$message_id"
+				   set forum_url "${url}forum-view?forum_id=$forum_id"
+				}
+			}
+		}
+	} else {
+		#Admin
+		ad_require_permission [ad_conn package_id] "admin"
+    		set query select_site_forums_messages
+		db_multirow -append -extend { 
+		    forum_url
+		    posting_date_pretty
+		    message_url
+		} forums $query {} {
+		   set posting_date_ansi [lc_time_system_to_conn $posting_date]
+		   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+		   set message_url "${url}message-view?message_id=$message_id"
+		   set forum_url "${url}forum-view?forum_id=$forum_id"
+		}
+	}
+}
+
+set page_title [_ user-tracking.Messages_Stats]
+set context [list $page_title]
+
+
+template::list::create \
+    -name forums_messages \
+    -multirow forums \
+    -elements {
+        forum {
+            label "#user-tracking.Forum_Name#"
+            display_template {
+		<if @forums.name@ eq @name@>
+      		</if> <else>	
+      		<a href="@forums.forum_url@">@forums.name@</a>
+      		<% set name @forums.name@ %>
+      		</else>      	
+            }
+        }
+        message {
+            label "#user-tracking.Subject#"
+            link_url_col message_url
+            display_col subject
+        }
+        posting_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+
+    } -filters {
+        forum_id {}
+    }
+
+template::list::create \
+    -name forums \
+    -multirow forums \
+    -elements {
+        forum {
+            label "#user-tracking.Forum_Name#"
+            display_template {
+		<if @forums.name@ eq @name@>
+      		</if> <else>	
+      		<a href="@forums.forum_url@">@forums.name@</a>
+      		<% set name @forums.name@ %>
+      		</else>      	
+            }
+        }
+        posting_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+
+    } -filters {
+        forum_id {}
+    }
+
+template::list::create \
+    -name Users \
+    -multirow Users \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "User Name"
+            display_col Name            
+        }
+        mail {
+            label "Mail"
+            display_col Mail
+        }
+        registration_date {
+            label "Registration Date"
+            display_col RegistrationDate
+        }
+        last {
+            label "Last Visit"
+            display_col LastVisit
+        }
+     }
+
+template::list::create \
+    -name Communities \
+    -multirow Communities \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "Community Name"
+            display_col Name            
+        }
+        creation_date {
+            label "Creation Date"
+            display_col CreationDate
+        }
+        key {
+            label "Key"
+            display_col Key
+        }
+     }
+
+
+if {[exists_and_not_null alt_template]} {
+  ad_return_template $alt_template
+}
+
+
Index: openacs-4/packages/user-tracking/www/contributions-cards/news-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/news-card-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/news-card-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,189 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+    <fullquery name="select_active_news">
+        <querytext>
+            select news.package_id,
+                   acs_object__name(apm_package__parent_id(news.package_id)) as parent_name,
+                   (select site_node__url(site_nodes.node_id)
+                    from site_nodes
+                    where site_nodes.object_id = news.package_id) as url,
+                   news.item_id,
+                   news.publish_title,
+                   to_char(news.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+            from news_items_approved news, dotlrn_communities com
+            where news.publish_date < current_timestamp
+            	and (news.archive_date >= current_timestamp or news.archive_date is null)
+             	and news.creation_user= :oneUser
+             	and com.community_id= :oneCom
+            	and apm_package__parent_id(news.package_id) = com.package_id
+            order by news.publish_date desc,
+                     news.publish_title
+       </querytext>
+    </fullquery>
+
+    <fullquery name="select_non_active_news">
+        <querytext>
+            select news.package_id,
+                   acs_object__name(apm_package__parent_id(news.package_id)) as parent_name,
+                   (select site_node__url(site_nodes.node_id)
+                    from site_nodes
+                    where site_nodes.object_id = news.package_id) as url,
+                   news.item_id,
+                   news.publish_title,
+                   to_char(news.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+            from news_items_approved news, dotlrn_communities com
+            where (news.publish_date >= current_timestamp
+            	or news.archive_date < current_timestamp)
+             	and news.creation_user= :oneUser
+             	and com.community_id= :oneCom
+            	and apm_package__parent_id(news.package_id) = com.package_id
+            order by news.publish_date desc,
+                     news.publish_title
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_active_news_by_user">
+        <querytext>
+            select news_items_approved.package_id,
+                   acs_object__name(apm_package__parent_id(news_items_approved.package_id)) as parent_name,
+                   (select site_node__url(site_nodes.node_id)
+                    from site_nodes
+                    where site_nodes.object_id = news_items_approved.package_id) as url,
+                   news_items_approved.item_id,
+                   news_items_approved.publish_title,
+                   to_char(news_items_approved.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+            from news_items_approved
+            where news_items_approved.publish_date < current_timestamp
+            	and (news_items_approved.archive_date >= current_timestamp or news_items_approved.archive_date is null)
+             	and news_items_approved.creation_user= :oneUser
+            order by news_items_approved.publish_date desc,
+                     news_items_approved.publish_title
+       </querytext>
+    </fullquery>
+
+
+    <fullquery name="select_non_active_news_by_user">
+        <querytext>
+            select news_items_approved.package_id,
+                   acs_object__name(apm_package__parent_id(news_items_approved.package_id)) as parent_name,
+                   (select site_node__url(site_nodes.node_id)
+                    from site_nodes
+                    where site_nodes.object_id = news_items_approved.package_id) as url,
+                   news_items_approved.item_id,
+                   news_items_approved.publish_title,
+                   to_char(news_items_approved.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+            from news_items_approved
+            where (news_items_approved.publish_date >= current_timestamp
+            	or news_items_approved.archive_date < current_timestamp)
+             	and news_items_approved.creation_user= :oneUser
+            order by news_items_approved.publish_date desc,
+                     news_items_approved.publish_title
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_active_news_by_com">
+        <querytext>
+            select distinct news.package_id,
+                   acs_object__name(apm_package__parent_id(news.package_id)) as parent_name,
+                   (select site_node__url(site_nodes.node_id)
+                    from site_nodes
+                    where site_nodes.object_id = news.package_id) as url,
+                   news.item_id,
+                   news.publish_title,
+                   to_char(news.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+            from news_items_approved news, dotlrn_communities com
+            where news.publish_date < current_timestamp
+            	and (news.archive_date >= current_timestamp or news.archive_date is null)
+             	and com.community_id= :oneCom
+            	and apm_package__parent_id(news.package_id) = com.package_id
+            order by publish_date_ansi desc,
+                     news.publish_title
+       </querytext>
+    </fullquery>
+
+
+    <fullquery name="select_non_active_news_by_com">
+        <querytext>
+            select distinct news.package_id,
+                   acs_object__name(apm_package__parent_id(news.package_id)) as parent_name,
+                   (select site_node__url(site_nodes.node_id)
+                    from site_nodes
+                    where site_nodes.object_id = news.package_id) as url,
+                   news.item_id,
+                   news.publish_title,
+                   to_char(news.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+            from news_items_approved news, dotlrn_communities com
+            where (news.publish_date >= current_timestamp
+            	or news.archive_date < current_timestamp)
+             	and com.community_id= :oneCom
+            	and apm_package__parent_id(news.package_id) = com.package_id
+            order by publish_date_ansi desc,
+                     news.publish_title
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_site_active_news">
+        <querytext>
+            select distinct news.package_id,
+                   acs_object__name(apm_package__parent_id(news.package_id)) as parent_name,
+                   (select site_node__url(site_nodes.node_id)
+                    from site_nodes
+                    where site_nodes.object_id = news.package_id) as url,
+                   news.item_id,
+                   news.publish_title,
+                   to_char(news.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+            from news_items_approved news
+            where news.publish_date < current_timestamp
+            	and (news.archive_date >= current_timestamp or news.archive_date is null)
+            order by publish_date_ansi desc,
+                     news.publish_title
+       </querytext>
+    </fullquery>
+
+
+    <fullquery name="select_site_non_active_news">
+        <querytext>
+            select distinct news.package_id,
+                   acs_object__name(apm_package__parent_id(news.package_id)) as parent_name,
+                   (select site_node__url(site_nodes.node_id)
+                    from site_nodes
+                    where site_nodes.object_id = news.package_id) as url,
+                   news.item_id,
+                   news.publish_title,
+                   to_char(news.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+            from news_items_approved news
+            where (news.publish_date >= current_timestamp
+            	or news.archive_date < current_timestamp)
+            order by publish_date_ansi desc,
+                     news.publish_title
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_user_info">      
+        <querytext>
+            select first_names,
+                   last_name,
+                   email,
+                   to_char(creation_date, 'YYYY-MM-DD HH24:MI:SS') as registration_date,
+                   to_char(last_visit, 'YYYY-MM-DD HH24:MI:SS') as last_visit
+            from cc_users
+            where user_id = :oneUser
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_com_data">
+        <querytext>
+	   select f.community_key as key,
+			f.community_id as id,
+			f.pretty_name as pretty_name,
+			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		from dotlrn_communities_full f, acs_objects o
+		where f.community_id= :oneCom
+		      and o.object_id= f.community_id
+        </querytext>
+    </fullquery>
+
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/contributions-cards/news-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/news-card.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/news-card.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,33 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+
+<h3>#user-tracking.Added_news#</h3>
+
+<ul>
+
+<if @Users:rowcount@ gt 0>
+	<H3>Usuarios Seleccionados </H3>
+	<listtemplate name="Users"></listtemplate>
+	<BR>
+</if>
+<if @Communities:rowcount@ gt 0>
+	<H3>Comunidades Seleccionados </H3>
+	<listtemplate name="Communities"></listtemplate>
+	<BR>
+</if>
+
+
+<center>
+<h4>#user-tracking.Active_news#</h4>
+<listtemplate name="active_news"></listtemplate>
+</center>
+<br>
+<br>
+<center>
+<h4>#user-tracking.Non_active_news#</h4>
+<listtemplate name="non_active_news"></listtemplate>
+</center>
+<br>
+<br>
Index: openacs-4/packages/user-tracking/www/contributions-cards/news-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/news-card.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/news-card.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,288 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2004-11-23
+} -query { 
+    {user_id ""}
+    {community_id ""}
+} -properties {
+    active_news:multirow
+    non_active_news:multirow
+    first_names:onevalue
+    last_name:onevalue
+    email:onevalue
+    user_id:onevalue
+    
+}
+
+if {![exists_and_not_null referer]} {
+    set referer "[user-tracking::get_package_url]/users-stats"
+}
+
+# First of all, we have to delete all blank spaces
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+template::multirow create Users ID Name Mail RegistrationDate LastVisit
+template::multirow create Communities ID Name CreationDate Key
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				foreach oneCom $ComsList {
+					if {![empty_string_p $oneCom]} {
+						set query select_active_news
+						set queryb select_non_active_news
+						db_multirow -append -extend { 
+						    news_url
+						    posting_date_pretty
+						} active_news $query {} {
+						   set posting_date_pretty [lc_time_fmt $publish_date_ansi "%x %X"]
+						   set news_url "${url}item?item_id=$item_id"
+						}
+						db_multirow -append -extend { 
+						    news_url
+						    posting_date_pretty
+						} non_active_news $queryb {} {						
+						   set posting_date_pretty [lc_time_fmt $publish_date_ansi "%x %X"]
+						   set news_url "${url}item?item_id=$item_id"						
+						}
+					}
+				}
+			}
+		}
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+			}
+		}		
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				set query select_active_news_by_user
+				set queryb select_non_active_news_by_user
+				db_multirow -append -extend { 
+				    news_url
+				    posting_date_pretty
+				} active_news $query {} {
+				   set posting_date_pretty [lc_time_fmt $publish_date_ansi "%x %X"]
+				   set news_url "${url}item?item_id=$item_id"
+				}
+				db_multirow -append -extend { 
+				    news_url
+				    posting_date_pretty
+				} non_active_news $queryb {} {						
+				   set posting_date_pretty [lc_time_fmt $publish_date_ansi "%x %X"]
+				   set news_url "${url}item?item_id=$item_id"						
+				}
+			}
+		}
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+				set query select_active_news_by_com
+				set queryb select_non_active_news_by_com
+				db_multirow -append -extend { 
+				    news_url
+				    posting_date_pretty
+				} active_news $query {} {
+				   set posting_date_pretty [lc_time_fmt $publish_date_ansi "%x %X"]
+				   set news_url "${url}item?item_id=$item_id"
+				}
+				db_multirow -append -extend { 
+				    news_url
+				    posting_date_pretty
+				} non_active_news $queryb {} {						
+				   set posting_date_pretty [lc_time_fmt $publish_date_ansi "%x %X"]
+				   set news_url "${url}item?item_id=$item_id"						
+				}
+			}
+		}
+	} else {
+		#Admin
+		ad_require_permission [ad_conn package_id] "admin"	
+		set query select_site_active_news
+		set queryb select_site_non_active_news
+		db_multirow -append -extend { 
+		    news_url
+		    posting_date_pretty
+		} active_news $query {} {
+		   set posting_date_pretty [lc_time_fmt $publish_date_ansi "%x %X"]
+		   set news_url "${url}item?item_id=$item_id"
+		}
+		db_multirow -append -extend { 
+		    news_url
+		    posting_date_pretty
+		} non_active_news $queryb {} {						
+		   set posting_date_pretty [lc_time_fmt $publish_date_ansi "%x %X"]
+		   set news_url "${url}item?item_id=$item_id"						
+		}
+	}
+}
+
+#Hay que modificar el titulo de la pagina
+set page_title [_ user-tracking.News_Stats]
+set context [list $page_title]
+
+template::list::create \
+    -name active_news \
+    -multirow active_news \
+    -elements {
+        title {
+            label "#user-tracking.news_title#"
+            link_url_col news_url
+            display_col publish_title
+        }
+        posting_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+
+    } -filters {
+        package_id {}
+    }
+
+
+#set queryb select_non_active_news
+
+template::list::create \
+    -name non_active_news \
+    -multirow non_active_news \
+    -elements {
+        title {
+            label "#user-tracking.news_title#"
+            link_url_col news_url
+            display_col publish_title
+        }
+        posting_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+
+    } -filters {
+        package_id {}
+    }
+
+template::list::create \
+    -name Users \
+    -multirow Users \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "User Name"
+            display_col Name            
+        }
+        mail {
+            label "Mail"
+            display_col Mail
+        }
+        registration_date {
+            label "Registration Date"
+            display_col RegistrationDate
+        }
+        last {
+            label "Last Visit"
+            display_col LastVisit
+        }
+     }
+
+template::list::create \
+    -name Communities \
+    -multirow Communities \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "Community Name"
+            display_col Name            
+        }
+        creation_date {
+            label "Creation Date"
+            display_col CreationDate
+        }
+        key {
+            label "Key"
+            display_col Key
+        }
+     }
+
+if {[exists_and_not_null alt_template]} {
+  ad_return_template $alt_template
+}
Index: openacs-4/packages/user-tracking/www/contributions-cards/survey-card-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/survey-card-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/survey-card-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,85 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+    <fullquery name="select_survey">
+        <querytext>
+		select s.survey_id, s.name, s.editable_p, s.single_response_p,
+			sr.response_id, to_char(sr.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+			s.package_id
+  		from surveys s, survey_responses_latest sr,
+  			dotlrn_communities com
+ 		where s.enabled_p='t'
+ 		      and s.survey_id = sr.survey_id
+ 		      and sr.initial_user_id= :oneUser
+ 		      and com.community_id= :oneCom
+	              and apm_package__parent_id(s.package_id) = com.package_id
+ 		order by upper(s.name)
+ 	</querytext>
+    </fullquery>
+
+    <fullquery name="select_survey_by_user">
+        <querytext>
+		select s.survey_id, s.name, s.editable_p, s.single_response_p,
+			sr.response_id, to_char(sr.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+			s.package_id
+  		from surveys s, survey_responses_latest sr
+ 		where s.enabled_p='t'
+ 		      and s.survey_id = sr.survey_id
+ 		      and sr.initial_user_id= :oneUser
+ 		order by upper(s.name)
+ 	</querytext>
+    </fullquery>
+
+    <fullquery name="select_survey_by_com">
+        <querytext>
+		select s.survey_id, s.name, s.editable_p, s.single_response_p,
+			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+			s.package_id
+  		from surveys s, dotlrn_communities com, acs_objects o
+ 		where s.enabled_p='t'
+	              and o.object_id=s.survey_id 		
+ 		      and com.community_id= :oneCom
+	              and apm_package__parent_id(s.package_id) = com.package_id
+ 		order by upper(s.name)
+ 	</querytext>
+    </fullquery>
+
+    <fullquery name="select_site_surveys">
+        <querytext>
+		select s.survey_id, s.name, s.editable_p, s.single_response_p,
+			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
+			s.package_id
+  		from surveys s, acs_objects o
+ 		where s.enabled_p='t'
+	              and o.object_id=s.survey_id
+ 		order by upper(s.name)
+ 	</querytext>
+    </fullquery>
+
+    <fullquery name="select_user_info">      
+        <querytext>
+            select first_names,
+                   last_name,
+                   email,
+                   to_char(creation_date, 'YYYY-MM-DD HH24:MI:SS') as registration_date,
+                   to_char(last_visit, 'YYYY-MM-DD HH24:MI:SS') as last_visit
+            from cc_users
+            where user_id = :oneUser
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_com_data">
+        <querytext>
+	   select f.community_key as key,
+			f.community_id as id,
+			f.pretty_name as pretty_name,
+			to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+		from dotlrn_communities_full f, acs_objects o
+		where f.community_id= :oneCom
+		      and o.object_id= f.community_id
+        </querytext>
+    </fullquery>
+  
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/contributions-cards/survey-card.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/survey-card.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/survey-card.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,31 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<h3>#user-tracking.added_survey#</h3>
+
+<ul>
+
+<if @Users:rowcount@ gt 0>
+	<H3>Usuarios Seleccionados </H3>
+	<listtemplate name="Users"></listtemplate>
+	<BR>
+</if>
+<if @Communities:rowcount@ gt 0>
+	<H3>Comunidades Seleccionados </H3>
+	<listtemplate name="Communities"></listtemplate>
+	<BR>
+</if>
+
+<if @Users:rowcount@ gt 0>
+	<center>
+	<listtemplate name="surveys_responses"></listtemplate>
+	</center>
+</if>
+<else>
+  </ul>
+	<center>
+	<listtemplate name="surveys"></listtemplate>
+	</center>
+</else>
+  
Index: openacs-4/packages/user-tracking/www/contributions-cards/survey-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/contributions-cards/survey-card.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/contributions-cards/survey-card.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,291 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2004-11-23
+} -query { 
+    {user_id ""}
+    {community_id ""}
+} -properties {
+    surveys:multirow
+    first_names:onevalue
+    last_name:onevalue
+    email:onevalue
+    user_id:onevalue
+    
+}
+
+if {![exists_and_not_null referer]} {
+    set referer "[user-tracking::get_package_url]/users-stats"
+}
+
+# First of all, we have to delete all blank spaces
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+template::multirow create Users ID Name Mail RegistrationDate LastVisit
+template::multirow create Communities ID Name CreationDate Key
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				foreach oneCom $ComsList {
+					if {![empty_string_p $oneCom]} {
+						set query select_survey
+						db_multirow -append -extend { 
+						    survey_url
+						    posting_date_pretty
+						    url
+						    goto
+						} surveys $query {} {
+						   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+						   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+						   set url [site_node::get_url_from_object_id -object_id $package_id]
+						   set survey_url "${url}one-respondent?survey_id=$survey_id#$response_id"
+						   set url "${url}one-survey?survey_id=${survey_id}"
+						   set goto "#user-tracking.survey_goto#"	
+						}
+					}
+				}
+			}
+		}
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+			}
+		}		
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+		foreach oneUser $UsersList {
+			if {![empty_string_p $oneUser]} {
+				if {![db_0or1row select_user_info {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $oneUser]]</li>"
+				    ad_script_abort
+				}
+				multirow append Users $oneUser "$first_names $last_name" $email $registration_date $last_visit
+				set query select_survey_by_user
+				db_multirow -append -extend { 
+				    survey_url
+				    posting_date_pretty
+				    url
+				    goto
+				} surveys $query {} {
+				   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set url [site_node::get_url_from_object_id -object_id $package_id]
+				   set survey_url "${url}one-respondent?survey_id=$survey_id#$response_id"
+				   set url "${url}one-survey?survey_id=${survey_id}"
+				   set goto "#user-tracking.survey_goto#"	
+				}
+			}
+		}
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+		foreach oneCom $ComsList {
+			if {![empty_string_p $oneCom]} {
+				if {![db_0or1row select_com_data {}]} {
+				    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+				    ad_script_abort
+				}
+				multirow append Communities $oneCom $pretty_name $creation_date $key
+		    		#Proffesor
+				set query select_survey_by_com
+				db_multirow -append -extend { 
+					posting_date_pretty
+			    		url
+			    		goto
+				} surveys $query {} {
+				   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+				   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+				   set url [site_node::get_url_from_object_id -object_id $package_id]
+				   set url "${url}one-survey?survey_id=${survey_id}"
+				   set goto "#user-tracking.survey_goto#"
+				}
+			}
+		}
+	} else {
+		#Admin
+		ad_require_permission [ad_conn package_id] "admin"
+		set query select_site_surveys
+		db_multirow -append -extend { 
+			posting_date_pretty
+	    		url
+	    		goto
+		} surveys $query {} {
+		   set posting_date_ansi [lc_time_system_to_conn $creation_date]
+		   set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+		   set url [site_node::get_url_from_object_id -object_id $package_id]
+		   set url "${url}one-survey?survey_id=${survey_id}"
+		   set goto "#user-tracking.survey_goto#"
+		}
+	}
+}
+
+if {![exists_and_not_null user_id]} {	
+	if {![exists_and_not_null community_id]} {
+    	} else {
+    	}   	
+} else {
+	set new_user_id [ad_conn user_id]	
+        if {![string equal $new_user_id $user_id]} {
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+	
+	if {![db_0or1row select_user_info {}]} {
+	    ad_return_complaint 1 "<li>[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]</li>"
+	    ad_script_abort
+	}
+}   	
+
+set page_title [_ user-tracking.Surveys_Stats]
+set context [list $page_title]
+
+template::list::create \
+    -name surveys \
+    -multirow surveys \
+    -elements {
+        title {
+            label "#user-tracking.survey_title#"
+            link_url_col url
+            display_col name
+        }
+        posting_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+    } -filters {
+        package_id {}
+    }
+
+template::list::create \
+    -name surveys_responses \
+    -multirow surveys \
+    -elements {
+        title {
+            label "#user-tracking.survey_title#"
+            link_url_col url
+            display_col name
+        }
+        posting_date {
+            label "#user-tracking.Post_Date#"
+            display_col posting_date_pretty
+        }
+        goto {
+            label "#user-tracking.survey_goto#"
+            link_url_col survey_url
+	    display_col goto
+        }
+
+    } -filters {
+        package_id {}
+    }
+
+template::list::create \
+    -name Users \
+    -multirow Users \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "User Name"
+            display_col Name            
+        }
+        mail {
+            label "Mail"
+            display_col Mail
+        }
+        registration_date {
+            label "Registration Date"
+            display_col RegistrationDate
+        }
+        last {
+            label "Last Visit"
+            display_col LastVisit
+        }
+     }
+
+template::list::create \
+    -name Communities \
+    -multirow Communities \
+    -elements {
+        id {
+            label "ID"
+            display_col ID
+        }
+        name {
+            label "Community Name"
+            display_col Name            
+        }
+        creation_date {
+            label "Creation Date"
+            display_col CreationDate
+        }
+        key {
+            label "Key"
+            display_col Key
+        }
+     }
+    
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/visited-material/faqs-visited-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/faqs-visited-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/faqs-visited-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_faqs">
+        <querytext>
+		select  f.faq_name as faq_name, 
+			(select site_node__url(site_nodes.node_id)
+	                    from site_nodes, acs_objects
+	                    where site_nodes.object_id = acs_objects.context_id and acs_objects.object_id= :faq_id) as url
+		    from faqs f
+		    where f.faq_id=:faq_id
+	</querytext>
+    </fullquery>
+    
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/visited-material/faqs-visited.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/faqs-visited.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/faqs-visited.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,3 @@
+<master>
+<h4>#user-tracking.Visited_Faqs#</h4>
+<listtemplate name="Faqs"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visited-material/faqs-visited.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/faqs-visited.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/faqs-visited.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,174 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}	
+} -properties {
+	Faqs:multirow
+}
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+
+set dataFile [open "$DataFileName" r]
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#EXTRA 4
+set pos $Map(POS_EXTRA_4)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_EXTRA_4) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+
+
+set i $part2
+
+template::multirow create Faqs ID Visits LastTime FaqUrl FaqName
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	set faq_id [lindex $campos 0]
+	if { [db_0or1row select_faqs {} ] } {
+		multirow append Faqs $faq_id [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]] "${url}one-faq?faq_id=${faq_id}" $faq_name
+	} else {
+		multirow append Faqs " " [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]] "${url}one-faq?faq_id=${faq_id}" $faq_name
+	}
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+}
+
+close $dataFile
+
+template::multirow sort Faqs -integer -decreasing Visits
+
+template::list::create \
+    -name Faqs \
+    -multirow Faqs \
+    -elements {
+        id {
+            label "#user-tracking.ID#"
+            display_col ID
+	    html { align center}
+        }
+        name {
+            label "#user-tracking.FAQ_Name#"
+            display_col FaqName
+            link_url_col FaqUrl     
+	    html { align center}
+        }
+        visits {
+            label "#user-tracking.Number_of_Visits#"
+            display_col Visits
+	    html { align center}
+        }
+        last {
+            label "#user-tracking.Last_Visit#"
+            display_col LastTime
+	    html { align center}
+        }
+     }  -html {align center}
+
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/visited-material/folders-visited-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/folders-visited-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/folders-visited-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_folders">
+        <querytext>
+		select f.name, 
+		       (select site_node__url(node_id) from site_nodes
+        			where object_id= file_storage__get_package_id(:folder_id)) as url
+		from fs_folders f
+		where f.folder_id=:folder_id
+	</querytext>
+    </fullquery>
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/visited-material/folders-visited.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/folders-visited.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/folders-visited.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,3 @@
+<master>
+<h4>#user-tracking.Visited_folders#</h4>
+<listtemplate name="Folders"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visited-material/folders-visited.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/folders-visited.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/folders-visited.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,173 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}	
+} -properties {
+	Folders:multirow
+}
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+
+set dataFile [open "$DataFileName" r]
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#EXTRA 5
+set pos $Map(POS_EXTRA_5)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_EXTRA_5) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+
+
+set i $part2
+
+template::multirow create Folders ID Visits LastTime FoldersUrl Name
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	set folder_id [lindex $campos 0]
+	if { [db_0or1row select_folders {} ] } {
+		multirow append Folders $folder_id [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]] "${url}index?folder_id=$folder_id" $name
+	} else {
+		multirow append Folders " " [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]] "${url}index?folder_id=$folder_id" $name
+	}
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+}
+
+close $dataFile
+
+template::multirow sort Folders -integer -decreasing Visits
+
+template::list::create \
+    -name Folders \
+    -multirow Folders \
+    -elements {
+        id {
+            label "#user-tracking.ID#"
+            display_col ID
+ 	    html {align center}            
+        }
+        title {
+            label "#user-tracking.Folder_Name#"
+            display_col Name
+            link_url_col FoldersUrl     
+ 	    html {align center}            
+        }
+        visits {
+            label "#user-tracking.Number_of_Visits#"
+            display_col Visits
+ 	    html {align center}            
+        }
+        last {
+            label "#user-tracking.Last_Visit#"
+            display_col LastTime
+ 	    html {align center}            
+        }
+     } -html {align center}            
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/visited-material/forums-visited-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/forums-visited-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/forums-visited-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,18 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_forum_data">
+        <querytext>
+    	    select (select site_node__url(site_nodes.node_id)
+                       from site_nodes, acs_objects
+                       where site_nodes.object_id = forums_forums.package_id and acs_objects.object_id = forums_forums.forum_id) as url,
+            	forums_forums.name as forum_name,            	
+            	forums_forums.forum_id as forum_id            	
+            from forums_forums            	
+            where forums_forums.forum_id= :forum_id            	
+            order by forums_forums.name
+         </querytext>
+    </fullquery>
+
+</queryset>
Index: openacs-4/packages/user-tracking/www/visited-material/forums-visited.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/forums-visited.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/forums-visited.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,4 @@
+<master>
+<h4>#user-tracking.Visited_Forums#</h4>
+
+<listtemplate name="Forums"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visited-material/forums-visited.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/forums-visited.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/forums-visited.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,173 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}	
+	{DataFileName ""}	
+} -properties {
+	Forums:multirow
+}
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+set dataFile [open "$DataFileName" r]
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+
+#EXTRA 2
+set pos $Map(POS_EXTRA_2)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_EXTRA_2) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+
+
+set i $part2
+
+template::multirow create Forums Name ID Visits Hits AdB LastTime ForumUrl
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	set forum_id [lindex $campos 0]
+	if { [db_0or1row select_forum_data {} ] } {
+		multirow append Forums $forum_name [lindex $campos 0] [lindex $campos 1] [lindex $campos 2] [lindex $campos 3] [user-tracking::converts_date [lindex $campos 4]] "${url}forum-view?forum_id=$forum_id"
+	} else {
+		multirow append Forums " " [lindex $campos 0] [lindex $campos 1] [lindex $campos 2] [lindex $campos 3] [user-tracking::converts_date [lindex $campos 4]] "${url}forum-view?forum_id=$forum_id"
+	}
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+}
+
+template::multirow sort Forums -integer -decreasing Hits
+
+close $dataFile
+
+template::list::create \
+    -name Forums \
+    -multirow Forums \
+    -elements {
+        id {
+            label "#user-tracking.ID#"
+            display_col ID
+            html {align center}
+        }
+        title {
+            label "#user-tracking.Forum_Name#"
+            display_col Name
+            link_url_col ForumUrl     
+            html {align center}
+        }
+        visits {
+            label "#user-tracking.Number_of_Visits#"
+            display_col Hits
+            html {align center}
+        }
+        last {
+            label "#user-tracking.Last_Visit#"
+            display_col LastTime
+            html {align center}
+        }
+     } -html {align center}
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/visited-material/messages-visited-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/messages-visited-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/messages-visited-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_message_data">
+        <querytext>
+    	    select (select site_node__url(site_nodes.node_id)
+                       from site_nodes, acs_objects
+                       where site_nodes.object_id = forums_forums.package_id and acs_objects.object_id = forums_forums.forum_id) as url,
+            	forums_forums.name as name,
+            	forums_messages.content,
+            	forums_messages.subject as subject,
+            	to_char(acs_objects.creation_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date,
+            	forums_forums.forum_id as forum_id            	
+            from forums_forums,
+            	acs_objects, forums_messages
+            where forums_messages.message_id= :message_id 
+            	and acs_objects.object_id = forums_messages.message_id
+            	and forums_messages.forum_id=forums_forums.forum_id
+            order by forums_forums.name
+         </querytext>
+    </fullquery>
+    
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/visited-material/messages-visited.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/messages-visited.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/messages-visited.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,3 @@
+<master>
+<h4>#user-tracking.Readed_Messages#</h4>
+<listtemplate name="Messages"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visited-material/messages-visited.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/messages-visited.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/messages-visited.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,179 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}	
+	{DataFileName ""}	
+} -properties {
+	Messages:multirow
+}
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+set dataFile [open "$DataFileName" r]
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#EXTRA 3
+set pos $Map(POS_EXTRA_3)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_EXTRA_3) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+
+
+set i $part2
+
+template::multirow create Messages ID Subject Visits LastTime MessageUrl ForumUrl ForumName
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	set message_id [lindex $campos 0]
+	if { [db_0or1row select_message_data {} ] } {
+		multirow append Messages $message_id $subject [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]] "${url}message-view?message_id=$message_id"  "${url}forum-view?forum_id=$forum_id" $name
+	} else {
+		multirow append Messages " " $subject [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]] "${url}message-view?message_id=$message_id" "${url}forum-view?forum_id=$forum_id" $name
+	}
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+}
+
+close $dataFile
+
+template::multirow sort Messages -integer -decreasing Visits
+
+template::list::create \
+    -name Messages \
+    -multirow Messages \
+    -elements {
+        id {
+            label "#user-tracking.ID#"
+            display_col ID
+            html {align center}
+        }
+        name {
+            label "#user-tracking.Forum_Name#"
+            display_col ForumName
+            link_url_col ForumUrl     
+            html {align center}
+        }
+        subject {
+            label "#user-tracking.Subject#"
+            display_col Subject
+            link_url_col MessageUrl     
+            html {align center}
+        }
+        visits {
+            label "#user-tracking.Number_of_Visits#"
+            display_col Visits
+            html {align center}
+        }
+        last {
+            label "#user-tracking.Last_Visit#"
+            display_col LastTime
+            html {align center}
+        }
+     } -html {align center}
+
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/visited-material/news-visited-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/news-visited-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/news-visited-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_news">
+        <querytext>
+            select news_items_approved.package_id,
+                   acs_object__name(apm_package__parent_id(news_items_approved.package_id)) as parent_name,
+                   (select site_node__url(site_nodes.node_id)
+                    from site_nodes
+                    where site_nodes.object_id = news_items_approved.package_id) as url,
+                   news_items_approved.publish_title,
+                   to_char(news_items_approved.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+            from news_items_approved
+            where news_items_approved.item_id= :item_id
+       </querytext>
+    </fullquery>
+    
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/visited-material/news-visited.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/news-visited.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/news-visited.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,3 @@
+<master>
+<h4>#user-tracking.Readed_News#</h4>
+<listtemplate name="News"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visited-material/news-visited.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/news-visited.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/news-visited.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,173 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}	
+} -properties {
+	News:multirow
+}
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+set dataFile [open "$DataFileName" r]
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#EXTRA 6
+set pos $Map(POS_EXTRA_6)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_EXTRA_6) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+
+
+set i $part2
+
+template::multirow create News ID Visits LastTime NewsUrl Title
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	set item_id [lindex $campos 0]
+	if { [db_0or1row select_news {} ] } {
+		multirow append News $item_id [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]] "${url}item?item_id=$item_id" $publish_title
+	} else {
+		multirow append News " " [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]] "${url}item?item_id=$item_id" $publish_title
+	}
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+}
+
+close $dataFile
+
+template::multirow sort News -integer -decreasing Visits
+
+template::list::create \
+    -name News \
+    -multirow News \
+    -elements {
+        id {
+            label "#user-tracking.ID#"
+            display_col ID
+            html {align center}
+        }
+        title {
+            label "#user-tracking.News_Title#"
+            display_col Title
+            link_url_col NewsUrl     
+            html {align center}
+        }
+        visits {
+            label "#user-tracking.Number_of_Visits#"
+            display_col Visits
+            html {align center}
+        }
+        last {
+            label "#user-tracking.Last_Visit#"
+            display_col LastTime
+            html {align center}
+        }
+     } -html {align center}
+
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/visited-material/surveys-visited-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/surveys-visited-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/surveys-visited-postgresql.xql	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_surveys">
+        <querytext>
+		select s.name, s.package_id,
+		(select site_node__url(site_nodes.node_id)
+	                    from site_nodes, acs_objects
+	                    where site_nodes.object_id = acs_objects.context_id and acs_objects.object_id= :survey_id) as url
+  		from surveys s
+  		where s.survey_id = :survey_id
+ 	</querytext>
+    </fullquery>
+    
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/visited-material/surveys-visited.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/surveys-visited.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/surveys-visited.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,4 @@
+<master>
+<h4>#user-tracking.Readed_Surveys#</h4>
+
+<listtemplate name="Surveys"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visited-material/surveys-visited.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/surveys-visited.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/surveys-visited.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,173 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}	
+} -properties {
+	Surveys:multirow
+}
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+set dataFile [open "$DataFileName" r]
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#EXTRA 7
+set pos $Map(POS_EXTRA_7)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_EXTRA_7) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+
+
+set i $part2
+
+template::multirow create Surveys ID Visits LastTime SurveyName Url
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	set survey_id [lindex $campos 0]
+	if { [db_0or1row select_surveys {} ] } {
+		multirow append Surveys $survey_id [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]] $name "${url}one-respondent?survey_id=$survey_id"
+	} else {
+		multirow append Surveys " " [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]] $name "${url}one-respondent?survey_id=$survey_id"
+	}
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+}
+
+close $dataFile
+
+template::multirow sort Surveys -integer -decreasing Visits
+
+template::list::create \
+    -name Surveys \
+    -multirow Surveys \
+    -elements {
+        id {
+            label "#user-tracking.ID#"
+            display_col ID
+            html {align center}
+        }
+        name {
+            label "#user-tracking.Survey_Name#"
+            display_col SurveyName  
+            link_url_col Url       
+            html {align center}
+        }
+        visits {
+            label "#user-tracking.Number_of_Visits#"
+            display_col Visits
+            html {align center}
+        }
+        last {
+            label "#user-tracking.Last_Visit#"
+            display_col LastTime
+            html {align center}
+        }
+     } -html {align center}
+
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/visited-material/top.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/top.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/top.adp	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,3 @@
+<master>
+<h4>#user-tracking.visited_object_top#</h4>
+<listtemplate name="Objects"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visited-material/top.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visited-material/top.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visited-material/top.tcl	14 Apr 2005 15:44:29 -0000	1.1
@@ -0,0 +1,204 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}	
+} -properties {
+	Objects:multirow
+}
+
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+set dataFile [open "$DataFileName" r]
+
+#getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+
+set NofView 10
+
+set ExtraUtil {2 3 4 5 6 7}
+
+array set ExtraTypes {
+	2 "Forum"
+	3 "Message"
+	4 "FAQ"
+	5 "Folder"
+	6 "News"
+	7 "Survey"
+}
+
+array set ExtraLinks {
+	2 "forums-visited"
+	3 "messages-visited"
+	4 "faqs-visited"
+	5 "folders-visited"
+	6 "news-visited"
+	7 "surveys-visited"
+}
+
+template::multirow create Objects ID Visits Hits AdB LastTime Type TypeLink
+
+foreach Extra $ExtraUtil {
+	set Pos_Extra "POS_EXTRA_${Extra}"
+	set pos $Map($Pos_Extra)
+	seek $dataFile $pos
+	set linea [gets $dataFile]
+	set patron "(BEGIN_EXTRA_${Extra}) (.*)"
+	while { ![regexp $patron $linea todo part1 part2] } {	
+		set linea [gets $dataFile]	
+		if {[eof $dataFile]} {
+			set part2 0
+			break;
+		}
+	}
+	
+	set i $part2
+	
+	while {$i > 0} {	
+		set linea [gets $dataFile]
+		set campos [split $linea]
+		set patron "(END_EXTRA_${Extra})"
+		if { ![regexp $patron $linea todo part1] } {
+			multirow append Objects [lindex $campos 0] [lindex $campos 1] [lindex $campos 2] [lindex $campos 3] [user-tracking::converts_date [lindex $campos 4]] $ExtraTypes($Extra) "$ExtraLinks($Extra)?DataFileName=$DataFileName"
+			set i [expr $i - 1]			
+		} else {
+			set i 0
+		}
+		if {[eof $dataFile]} { #Wrong file?
+			set i 0
+			break;
+		}
+		
+	}
+}
+
+close $dataFile
+
+template::multirow sort Objects -integer -decreasing Hits
+while {[template::multirow size Objects] > $NofView} {
+	template::multirow pop Objects
+}
+
+template::list::create \
+    -name Objects \
+    -multirow Objects \
+    -elements {
+        id {
+            label "#user-tracking.ID#"
+            display_col ID
+            html {align center}
+       }
+        title {
+            label "#user-tracking.Type#"
+            display_col Type
+            link_url_col TypeLink
+            html {align center}
+        }
+        visits {
+            label "#user-tracking.Number_of_Visits#"
+            display_col Hits
+            html {align center}
+        }
+        last {
+            label "#user-tracking.Last_Visit#"
+            display_col LastTime
+            html {align center}
+        }
+        
+     } -html {align center}
+
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/visits/daymonth.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/daymonth.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/daymonth.adp	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,3 @@
+<master>
+<h4>#user-tracking.visits_by_monthday#</h4><BR>
+<listtemplate name="DayMonth"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visits/daymonth.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/daymonth.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/daymonth.tcl	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,209 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @author pablomp (pablomp@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}	
+	{DataFileName ""}	
+	
+} -properties {
+	HitsByDay:onelist
+	PagesByDay:onelist
+	VisitsByDay:onelist	
+}
+
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+
+
+set dataFile [open "$DataFileName" r] 
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#Getting data about monthly visits
+set VisitsByDay [list 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
+set PagesByDay [list 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
+set HitsByDay [list 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
+
+set pos $Map(POS_DAY)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_DAY) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+set i $part2
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	
+
+	set day [string range [lindex $campos 0] 6 7]
+	set then [clock scan [lindex $campos 0]]
+	
+	set patron "(0)(\[1-9\])"
+	if { [regexp $patron $day todo part1 part2] } {
+		set day $part2	
+	}
+	#list interval 0-30, not 1-31
+	set day [expr $day - 1]
+	set VisitsByDay [lreplace $VisitsByDay $day $day [lindex $campos 4]]
+	set PagesByDay [lreplace $PagesByDay $day $day [lindex $campos 1]]
+	set HitsByDay [lreplace $HitsByDay $day $day [lindex $campos 2]]
+
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { 
+		break;
+	}
+	
+}
+close $dataFile
+     
+template::multirow create DayMonth Day Visits VisitsGraphic Pages PagesGraphic Hits HitsGraphic
+set intervalos [list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31]
+
+for {set i 0} { $i < [llength $VisitsByDay]} {incr i 1} { 
+    multirow append DayMonth [lindex $intervalos $i] \
+   	[lindex $VisitsByDay $i] [expr [lindex $VisitsByDay $i]*100/[f::lmax $VisitsByDay]] \
+    	[lindex $PagesByDay $i] [expr [lindex $PagesByDay $i]*100/[f::lmax $PagesByDay]] \
+    	[lindex $HitsByDay $i] [expr [lindex $HitsByDay $i]*100/[f::lmax $HitsByDay]]
+}
+
+template::list::create \
+    -name DayMonth \
+    -multirow DayMonth \
+    -elements {
+        day {
+            label "#user-tracking.Day#"
+            display_col Day
+	    html { align center}
+        }
+        Visits {
+            label "#user-tracking.Visits#"
+            display_col Visits
+	    html { align center}
+        }
+        VisitsGraphic {
+            label ""
+	    display_template {
+	    	<img src=../img/vh.png height=12 width=@DayMonth.VisitsGraphic@>
+	    }        }        
+        Pages {
+            label "#user-tracking.Visited_Pages#"
+            display_col Pages
+	    html { align center}
+        }
+        PagesGraphic {
+            label ""
+	    display_template {
+	    	<img src=../img/vp.png height=12 width=@DayMonth.PagesGraphic@>
+	    }        }
+        Hits {
+            label "#user-tracking.Hits#"
+            display_col Hits
+	    html { align center}
+        }
+        HitsGraphic {
+            label ""
+	    display_template {
+	    	<img src=../img/vk.png height=12 width=@DayMonth.HitsGraphic@>
+	    }        }	    
+     }\
+     -html {align center}
Index: openacs-4/packages/user-tracking/www/visits/dayweek.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/dayweek.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/dayweek.adp	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+<h4>#user-tracking.visits_by_weekday#</h4> <BR>
+<listtemplate name="DayWeek"></listtemplate>
+
+
Index: openacs-4/packages/user-tracking/www/visits/dayweek.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/dayweek.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/dayweek.tcl	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,203 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @author pablomp (pablomp@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}	
+	{DataFileName ""}	
+}
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+
+
+set dataFile [open "$DataFileName" r] 
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#Getting data about visits
+
+set VisitsByDayOfWeek [list 0 0 0 0 0 0 0]
+set PagesByDayOfWeek  [list 0 0 0 0 0 0 0]
+set HitsByDayOfWeek   [list 0 0 0 0 0 0 0]
+
+set pos $Map(POS_DAY)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_DAY) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+set i $part2
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	
+
+	set day [string range [lindex $campos 0] 6 7]
+	set then [clock scan [lindex $campos 0]]
+	set dayofweek [clock format $then -format "%w"]
+	set VisitsByDayOfWeek [lreplace $VisitsByDayOfWeek $dayofweek $dayofweek [expr [lindex $campos 4] + [lindex $VisitsByDayOfWeek $dayofweek]]]
+	set PagesByDayOfWeek [lreplace $PagesByDayOfWeek $dayofweek $dayofweek [expr [lindex $campos 1] + [lindex $PagesByDayOfWeek $dayofweek]]]
+	set HitsByDayOfWeek [lreplace $HitsByDayOfWeek $dayofweek $dayofweek [expr [lindex $campos 2] + [lindex $HitsByDayOfWeek $dayofweek]]]
+
+	set patron "(0)(\[1-9\])"
+	if { [regexp $patron $day todo part1 part2] } {
+		set day $part2	
+	}
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+	
+}
+close $dataFile  
+
+template::multirow create DayWeek Name Visits VisitsGraphic Pages PagesGraphic Hits HitsGraphic
+set days_names [lc_get day]
+
+for {set i 0} { $i < [llength $VisitsByDayOfWeek]} {incr i 1} { 
+    multirow append DayWeek [lindex $days_names $i] \
+    	[lindex $VisitsByDayOfWeek $i] [expr [lindex $VisitsByDayOfWeek $i]*100/[f::lmax $VisitsByDayOfWeek]] \
+    	[lindex $PagesByDayOfWeek $i] [expr [lindex $PagesByDayOfWeek $i]*100/[f::lmax $PagesByDayOfWeek]] \
+    	[lindex $HitsByDayOfWeek $i] [expr [lindex $HitsByDayOfWeek $i]*100/[f::lmax $HitsByDayOfWeek]]
+}
+
+template::list::create \
+    -name DayWeek \
+    -multirow DayWeek \
+    -elements {
+        Name {
+            label "#user-tracking.Day#"
+            display_col Name
+	    html { align center}
+        }
+        Visits {
+            label "#user-tracking.Visits#"
+            display_col Visits
+	    html { align center}
+        }
+        VisitsGraphic {
+            label ""
+	    display_template {
+	    	<img src=../img/vh.png height=12 width=@DayWeek.VisitsGraphic@>
+	    }        }        
+        Pages {
+            label "#user-tracking.Visited_Pages#"
+            display_col Pages
+	    html { align center}
+        }
+        PagesGraphic {
+            label ""
+	    display_template {
+	    	<img src=../img/vp.png height=12 width=@DayWeek.PagesGraphic@>
+	    }        }
+        Hits {
+            label "#user-tracking.Hits#"
+            display_col Hits
+	    html { align center}
+        }
+        HitsGraphic {
+            label ""
+	    display_template {
+	    	<img src=../img/vk.png height=12 width=@DayWeek.HitsGraphic@>
+	    }        }	    
+     }\
+     -html { align center}
+
Index: openacs-4/packages/user-tracking/www/visits/duration.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/duration.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/duration.adp	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,3 @@
+<master>
+<h4>#user-tracking.Duration#</h4> <BR>
+<listtemplate name="visitsLength"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visits/duration.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/duration.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/duration.tcl	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,196 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @author pablomp (pablomp@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}	
+	
+} -properties {
+	
+	SessionTime:onelist
+}
+
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+
+
+set dataFile [open "$DataFileName" r] 
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#Getting data about visits duration
+
+set SessionTime [list 0 0 0 0 0 0 0]
+
+set pos $Map(POS_SESSION)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_SESSION) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+set i $part2
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	
+	switch [lindex $campos 0] {
+		0s-30s { 
+			set SessionTime [lreplace $SessionTime 0 0 [lindex $campos 1]]		
+			}
+		30s-2mn { 
+			set SessionTime [lreplace $SessionTime 1 1 [lindex $campos 1]]			
+			}
+		2mn-5mn { 
+			set SessionTime [lreplace $SessionTime 2 2 [lindex $campos 1]]			
+			}
+		5mn-15mn { 
+			set SessionTime [lreplace $SessionTime 3 3 [lindex $campos 1]]			
+			}
+		15mn-30mn { 
+			set SessionTime [lreplace $SessionTime 4 4 [lindex $campos 1]]			
+			}
+		30mn-1h { 
+			set SessionTime [lreplace $SessionTime 5 5 [lindex $campos 1]]			
+			}
+		1h+ { 
+			set SessionTime [lreplace $SessionTime 6 6 [lindex $campos 1]]			
+			}
+		default {}
+	}
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+
+}
+close $dataFile
+
+template::multirow create visitsLength Duration Hits Graphic
+set intervalos [list "0s-30s" "30s-2mn" "2mn-5mn" "5mn-15mn" "15mn-30mn" "30mn-1h" "1h+"]
+if {$part2 != 0} {
+for {set i 0} { $i < [llength $SessionTime]} {incr i 1} { 
+    #puts [lindex $SessionTime $i] 
+    multirow append visitsLength [lindex $intervalos $i] [lindex $SessionTime $i] [expr [lindex $SessionTime $i]*100/[f::lmax $SessionTime]]
+}
+}
+template::list::create \
+    -name visitsLength \
+    -multirow visitsLength \
+    -elements {
+        duration {
+            label "#user-tracking.Duration#"
+            display_col Duration
+	    html { align center}
+        }
+        visits {
+            label "#user-tracking.Number_of_Visits#"
+            display_col Hits
+	    html { align center}
+        }
+        graphics {
+            label ""
+	    display_template {
+	    	<img src=../img/vh.png height=12 width=@visitsLength.Graphic@>
+	    }        }
+     }\
+ -html {align center}
+
Index: openacs-4/packages/user-tracking/www/visits/hits.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/hits.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/hits.adp	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,3 @@
+<master>
+<h4>#user-tracking.most_of_hits#</h4><BR>
+<listtemplate name="Hits"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visits/hits.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/hits.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/hits.tcl	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,98 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-03-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}	
+	
+} -properties {
+	
+	Hits:onelist
+	
+}
+
+dotlrn::require_admin 
+
+set dataFile [open "$DataFileName" r] 
+
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+
+#Getting data about maximum hits
+
+set pos $Map(POS_EXTRA_9)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(PETITION_BEGIN) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+
+set i $part2
+
+template::multirow create Hits Date Number
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	multirow append Hits [user-tracking::converts_date [lindex $campos 0]] [lindex $campos 1] 
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+}
+
+close $dataFile
+
+#template::multirow sort Hits -integer -decreasing Number
+
+template::list::create \
+    -name Hits \
+    -multirow Hits \
+    -elements {
+        date {
+            label "#user-tracking.Date#"
+            display_col Date     
+	    html {align center}
+        }
+        Number {
+            label "#user-tracking.Hits#"
+            display_col Number
+	    html {align center}
+        }
+
+     }\
+     -html {align center}
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/visits/hourly.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/hourly.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/hourly.adp	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,3 @@
+<master>
+<h4>#user-tracking.visits_by_hour#</h4><BR>
+<listtemplate name="Hourly"></listtemplate>
Index: openacs-4/packages/user-tracking/www/visits/hourly.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/hourly.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/hourly.tcl	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,189 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @author pablomp (pablomp@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}	
+	{DataFileName ""}	
+	
+} -properties {
+	
+	HitsByTime:onelist
+	PagesByTime:onelist
+	
+}
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+
+
+set dataFile [open "$DataFileName" r] 
+
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+
+#Getting data about hourly visits
+
+set PagesByTime [list 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
+set HitsByTime [list 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
+
+set pos $Map(POS_TIME)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_TIME) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+set i $part2
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	#set hour [expr [lindex $campos 0] - 1]	
+	set hour [lindex $campos 0]	
+	set PagesByTime [lreplace $PagesByTime $hour $hour [lindex $campos 1]]
+	set HitsByTime [lreplace $HitsByTime $hour $hour [lindex $campos 2]]
+
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Wrong file?
+		break;
+	}
+}
+close $dataFile  
+
+template::multirow create Hourly Hour Pages PagesGraphic Hits HitsGraphic
+set intervalos [list 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23]
+
+for {set i 0} { $i < [llength $PagesByTime]} {incr i 1} { 
+    multirow append Hourly [lindex $intervalos $i] \
+    	[lindex $PagesByTime $i] [expr [lindex $PagesByTime $i]*100/[f::lmax $PagesByTime]] \
+    	[lindex $HitsByTime $i] [expr [lindex $HitsByTime $i]*100/[f::lmax $HitsByTime]]
+}
+
+
+template::list::create \
+    -name Hourly \
+    -multirow Hourly \
+    -elements {
+        hour {
+            label "#user-tracking.Hour#"
+            display_col Hour
+	    html { align center}
+        }
+        Pages {
+            label "#user-tracking.Visited_Pages#"
+            display_col Pages
+	    html { align center}
+        }
+        PagesGraphic {
+            label ""
+	    display_template {
+	    	<img src=../img/vh.png height=12 width=@Hourly.PagesGraphic@>
+	    }        }
+        Hits {
+            label "#user-tracking.Hits#"
+            display_col Hits
+	    html { align center}
+        }
+        HitsGraphic {
+            label ""
+	    display_template {
+	    	<img src=../img/vk.png height=12 width=@Hourly.HitsGraphic@>
+	    }        }	    
+     }\
+ -html { align center}
Index: openacs-4/packages/user-tracking/www/visits/ip-report.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/ip-report.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/ip-report.adp	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+<h4>#user-tracking.ips_visits#</h4><BR>
+<center>
+<listtemplate name="Hosts"></listtemplate>
+</center>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/visits/ip-report.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/ip-report.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/ip-report.tcl	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,170 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-03-28
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}	
+} -properties {
+	Hosts:multirow
+}
+
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+
+set dataFile [open "$DataFileName" r]
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#Getting Ip data
+set pos $Map(POS_VISITOR)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_VISITOR) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+set i $part2
+
+template::multirow create Hosts Host Pages Hits LastVisit
+
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	
+	multirow append Hosts [lindex $campos 0] [lindex $campos 1] [lindex $campos 2] [user-tracking::converts_date [lindex $campos 4]]
+
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #Comprobacion en caso de archivo incorrecto
+		break;
+	}
+}
+
+
+close $dataFile
+
+template::list::create \
+    -name Hosts \
+    -multirow Hosts \
+    -elements {
+        host {
+            label "#user-tracking.Host#"
+            display_col Host
+            html {align center}
+        }
+        pages {
+            label "#user-tracking.Visited_Pages#"
+            display_col Pages
+            html {align center}
+        }
+        hits {
+            label "#user-tracking.Hits#"
+            display_col Hits
+            html {align center}
+        }
+        last {
+            label "#user-tracking.Last_Visit#"
+            display_col LastVisit
+            html {align center}
+        }
+        
+     }
+
+
+ad_return_template
Index: openacs-4/packages/user-tracking/www/visits/users-report-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/users-report-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/users-report-postgresql.xql	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="select_user_data">
+        <querytext>
+            select first_names,
+                   last_name,
+                   last_visit
+            from cc_users 
+            where user_id= :user_id
+        </querytext>
+    </fullquery>
+</queryset>
Index: openacs-4/packages/user-tracking/www/visits/users-report.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/users-report.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/users-report.adp	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+<h4>#user-tracking.users_visits#</h4><BR>
+<center>
+<listtemplate name="Users"></listtemplate>
+</center>
\ No newline at end of file
Index: openacs-4/packages/user-tracking/www/visits/users-report.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/visits/users-report.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/visits/users-report.tcl	14 Apr 2005 15:44:30 -0000	1.1
@@ -0,0 +1,177 @@
+ad_page_contract {
+    @author sergiog (sergiog@tid.es)
+    @author doa (doa@tid.es)
+    @creation-date 2005-01-10
+} -query { 
+	{config "site"}
+	{user_id ""}
+	{community_id ""}
+	{DataFileName ""}	
+} -properties {
+	Users:multirow
+}
+# First of all, we have to delete all blank spaces
+
+regsub -all -- "(%20)+" $user_id " " user_id
+regsub -all -- "\[\\t \\r\\n\]+" $user_id " " user_id
+regsub -all -- "(%20)+" $community_id " " community_id
+regsub -all -- "\[\\t \\r\\n\]+" $community_id " " community_id
+
+if {![empty_string_p $user_id]} {
+	if {![empty_string_p $community_id]} {
+		set mUserList [string trimleft $user_id " "]
+		set UsersList [split $mUserList]
+
+		set ComsList [string trimleft $community_id " "]
+		list ComsList [split $community_id]
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Stats of one community
+			if {[llength $UsersList] > 1} {
+				#Advanced stats of a community, professor
+				ad_require_permission [lindex $ComsList 0] "admin"
+			} else {				
+				#Stats of a user in a community
+				set new_user_id [ad_conn user_id]
+				if {![string equal $new_user_id [lindex $UsersList 0]]} {
+					#Stats of a different user
+					ad_require_permission [lindex $ComsList 0] "admin"
+				}
+				#Only read permission is necessary
+				ad_require_permission [lindex $ComsList 0] "read"
+			}
+		}			
+	} else {
+		set UsersList [split $user_id]
+		#Permission control
+		if {[llength $UsersList] > 1} {
+			#Advanced stats, need to be admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#User Stats
+			set new_user_id [ad_conn user_id]
+			if {![string equal $new_user_id [lindex $UsersList 0]]} {
+				#Stats of a different user
+				ad_require_permission [ad_conn package_id] "admin"
+			}
+			#Permission not necessary
+		}			
+	}
+} else {
+	if {![empty_string_p $community_id]} {
+		set ComsList [split $community_id]		
+		#Permission control
+		if {[llength $ComsList] > 1} {
+			#Advanced stats, site admin
+			ad_require_permission [ad_conn package_id] "admin"
+		} else {
+			#Advanced stats of a community, professor
+			ad_require_permission [lindex $ComsList 0] "admin"
+		}			
+	} else {
+		#Site-card
+		ad_require_permission [ad_conn package_id] "admin"
+	}
+}
+
+
+
+
+set dataFile [open "$DataFileName" r]
+
+#Getting map
+set linea [gets $dataFile]
+set fin [eof $dataFile]
+set patron "(BEGIN_MAP) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 SectionCount] ==1 } {
+		set fin 1
+	}
+}
+
+set fin 0
+set patron "^(\[A-Z\\_0-9\]*) (.*)"
+while { $fin == 0} {
+	set linea [gets $dataFile]
+	set fin [eof $dataFile]
+	if { [regexp $patron $linea todo part1 part2] ==1 } {
+		set Map($part1) $part2 
+	}
+	if { $linea == "END_MAP"} {
+		set fin 1
+	}
+}
+
+#Getting users data
+set pos $Map(POS_LOGIN)
+seek $dataFile $pos
+set linea [gets $dataFile]
+set patron "(BEGIN_LOGIN) (.*)"
+while { ![regexp $patron $linea todo part1 part2] } {	
+	set linea [gets $dataFile]	
+	if {[eof $dataFile]} {
+		set part2 0
+		break;
+	}
+}
+set i $part2
+
+template::multirow create Users Name ID Visits Hits LastVisit StatsLink
+
+set url "../users-card?user_id="
+
+while { $i > 0} {	
+	set linea [gets $dataFile]
+	set campos [split $linea]
+	set user_id [lindex $campos 0]
+	if { [db_0or1row select_user_data {} ] } {
+		multirow append Users "$first_names $last_name" [lindex $campos 0] [lindex $campos 1] [lindex $campos 2] [lc_time_fmt $last_visit "%c"] "${url}[lindex $campos 0]"
+	} else {
+		multirow append Users " " [lindex $campos 0] [lindex $campos 1] [lindex $campos 2] [lc_time_fmt $last_visit "%c"] "${url}[lindex $campos 0]"
+	}
+	set i [expr $i - 1]
+	if {[eof $dataFile]} { #wrong file?
+		break;
+	}
+}
+
+close $dataFile
+
+template::list::create \
+    -name Users \
+    -multirow Users \
+    -elements {
+        id {
+            label #user-tracking.ID#
+            display_col ID
+            html {align center}
+        }
+        title {
+            label "#user-tracking.Name#"
+            display_col Name
+            link_url_col StatsLink
+            html {align center}
+        }
+        visits {
+            label "#user-tracking.Visited_Pages#"
+            display_col Visits
+            html {align center}
+        }
+        hits {
+            label "#user-tracking.Hits#"
+            display_col Hits
+            html {align center}
+        }
+        last {
+            label "#user-tracking.Last_Visit#"
+            display_col LastVisit
+            html {align center}
+        }
+        
+     }
+ad_return_template
Index: openacs-4/packages/user-tracking-portlet/user-tracking-portlet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking-portlet/user-tracking-portlet.info,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking-portlet/user-tracking-portlet.info	1 Mar 2005 17:37:54 -0000	1.1
+++ openacs-4/packages/user-tracking-portlet/user-tracking-portlet.info	14 Apr 2005 15:38:32 -0000	1.2
@@ -7,16 +7,15 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="0.1d" url="http://openacs.org/repository/download/apm/user-tracking-portlet-0.1d.apm">
-        <owner url="mailto: pabloa@tid.es">Pablo Arozarena</owner>
-        <owner url="mailto:sergiog@tid.es">Sergio Gonz�lez</owner>
+    <version name="0.1d2" url="http://openacs.org/repository/download/apm/user-tracking-portlet-0.1d2.apm">
         <owner url="mailto:doa@tid.es">David Ortega</owner>
-        <release-date>2004-10-25</release-date>
+        <owner url="mailto:sergiog@tid.es">Sergio Gonz�lez</owner>
+        <owner url="mailto: pabloa@tid.es">Pablo Arozarena</owner>
+        <release-date>2005-04-13</release-date>
         <vendor url="http://e-lane.org/">E-lane</vendor>
 
-        <provides url="user-tracking-portlet" version="0.1d"/>
+        <provides url="user-tracking-portlet" version="0.1d2"/>
         <requires url="user-tracking" version="0.1d"/>
-        <requires url="new-portal" version="0.1a"/>
 
         <callbacks>
         </callbacks>
@@ -28,5 +27,3 @@
 
     </version>
 </package>
-
-
Index: openacs-4/packages/user-tracking-portlet/catalog/user-tracking-portlet.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking-portlet/catalog/user-tracking-portlet.en_US.ISO-8859-1.xml,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking-portlet/catalog/user-tracking-portlet.en_US.ISO-8859-1.xml	1 Mar 2005 17:37:54 -0000	1.1
+++ openacs-4/packages/user-tracking-portlet/catalog/user-tracking-portlet.en_US.ISO-8859-1.xml	14 Apr 2005 15:38:32 -0000	1.2
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="user-tracking-portlet" package_version="0.1d" locale="en_US" charset="ISO-8859-1">
+<message_catalog package_key="user-tracking-portlet" package_version="0.1d2" locale="en_US" charset="ISO-8859-1">
 
   <msg key="Admin_options">Admin Options</msg>
   <msg key="Community">Community</msg>
Index: openacs-4/packages/user-tracking-portlet/catalog/user-tracking-portlet.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking-portlet/catalog/user-tracking-portlet.es_ES.ISO-8859-1.xml,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking-portlet/catalog/user-tracking-portlet.es_ES.ISO-8859-1.xml	1 Mar 2005 17:37:54 -0000	1.1
+++ openacs-4/packages/user-tracking-portlet/catalog/user-tracking-portlet.es_ES.ISO-8859-1.xml	14 Apr 2005 15:38:32 -0000	1.2
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="user-tracking-portlet" package_version="0.1d" locale="es_ES" charset="ISO-8859-1">
+<message_catalog package_key="user-tracking-portlet" package_version="0.1d2" locale="es_ES" charset="ISO-8859-1">
 
   <msg key="Admin_options">Opciones de Administrador</msg>
   <msg key="Community">Comunidad</msg>
Index: openacs-4/packages/user-tracking-portlet/tcl/user-tracking-admin-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking-portlet/tcl/user-tracking-admin-portlet-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking-portlet/tcl/user-tracking-admin-portlet-procs.tcl	1 Mar 2005 17:37:54 -0000	1.1
+++ openacs-4/packages/user-tracking-portlet/tcl/user-tracking-admin-portlet-procs.tcl	14 Apr 2005 15:38:32 -0000	1.2
@@ -2,7 +2,7 @@
 
     Procedures to support the User-tracking management portlet.
 
-    @creation-date 2004-10.25
+    @creation-date 2004-10-25
     @author David Ortega (doa@tid.es)
 
 }
Index: openacs-4/packages/user-tracking-portlet/tcl/user-tracking-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking-portlet/tcl/user-tracking-portlet-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking-portlet/tcl/user-tracking-portlet-procs.tcl	1 Mar 2005 17:37:54 -0000	1.1
+++ openacs-4/packages/user-tracking-portlet/tcl/user-tracking-portlet-procs.tcl	14 Apr 2005 15:38:32 -0000	1.2
@@ -2,7 +2,7 @@
 
     Procedures to support the User-tracking Management portlet.
 
-    @creation-date 2004-10.25
+    @creation-date 2004-10-25
     @author David Ortega (doa@tid.es)
 
 }
Index: openacs-4/packages/user-tracking-portlet/www/user-tracking-admin-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking-portlet/www/user-tracking-admin-portlet.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking-portlet/www/user-tracking-admin-portlet.adp	1 Mar 2005 17:37:54 -0000	1.1
+++ openacs-4/packages/user-tracking-portlet/www/user-tracking-admin-portlet.adp	14 Apr 2005 15:38:32 -0000	1.2
@@ -1,6 +1,6 @@
 <ul>
   <li>
-        <a href="/user-tracking/lanza">  #user-tracking-portlet.user_tracking_package_access#</a>
+        <a href="/user-tracking">  #user-tracking-portlet.user_tracking_package_access#</a>
   </li>
 
 </ul>
Index: openacs-4/packages/user-tracking-portlet/www/user-tracking-admin-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking-portlet/www/user-tracking-admin-portlet.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking-portlet/www/user-tracking-admin-portlet.tcl	1 Mar 2005 17:37:54 -0000	1.1
+++ openacs-4/packages/user-tracking-portlet/www/user-tracking-admin-portlet.tcl	14 Apr 2005 15:38:32 -0000	1.2
@@ -2,7 +2,7 @@
 
     The display logic for the User Tracking Management admin portlet
     
-    @creation-date 2004-10.25
+    @creation-date 2004-10-25
     @author David Ortega (doa@tid.es)
 
 } -properties {
Index: openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet-postgresql.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet-postgresql.xql	20 Mar 2005 01:43:12 -0000	1.2
+++ openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet-postgresql.xql	14 Apr 2005 15:38:32 -0000	1.3
@@ -1,14 +1,15 @@
-<?xml version="1.0"?>
-
-<queryset>
-  <rdbms><type>postgresql</type><version>7.2</version></rdbms>
-
-    <fullquery name="get_user_info">
-        <querytext>
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="get_user_info">
+        <querytext>
     	select first_names , last_name
     	from persons
-    	where person_id=:user_id;
-        </querytext>
-    </fullquery>
-
-</queryset>
+    	where person_id=:user_id;
+        </querytext>
+    </fullquery>
+
+
+
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet.adp	1 Mar 2005 17:37:54 -0000	1.1
+++ openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet.adp	14 Apr 2005 15:38:32 -0000	1.2
@@ -2,10 +2,10 @@
    #user-tracking-portlet.General_Options#
    <ul>
   	<li>
-             <a href="/user-tracking/users-card?user_id=@user_id@"> #user-tracking-portlet.see_your_site_stats#</a>
+             <a href="/user-tracking/users-card?user_id=@user_id@"> #user-tracking-portlet.See_your_stats#</a>
        </li>
        <li>
-             <a href="/user-tracking/lanza?community_id=@community_id@&user_id=@user_id@&config=user&sitedomain=@sitedomain_all@"> #user-tracking-portlet.See_your_community_stats# </a>
+             <a href="/user-tracking/advanced-card?onlyuser=@user_id@&onlylines=@community_id@"> #user-tracking-portlet.See_your_community_stats# </a>
        </li>
    
      </ul>
@@ -15,14 +15,12 @@
        <li>
              <a href="/user-tracking/communities-card?community_id=@community_id@"> #user-tracking-portlet.see_community_stats# </a>
        </li>
-       <if @site_wide_admin_p@ ne 0>
        <li>
        	     <a href="/user-tracking/site-card"> #user-tracking-portlet.see_site_stats# </a>
        </li>
        <li>
-             <a href="/user-tracking/lanza"> #user-tracking-portlet.user_tracking_access_package#</a>
+             <a href="/user-tracking"> #user-tracking-portlet.user_tracking_access_package#</a>
        </li>
-       </if>
    </ul>
    </if>
 </if>
@@ -34,14 +32,14 @@
   </li>
 
 </ul>
-<if @site_wide_admin_p@ ne 0>
+<if @admin_p@ ne 0>
 #user-tracking-portlet.Admin_options#
 <ul>
   <li>
         <a href="/user-tracking/site-card"> #user-tracking-portlet.see_site_stats# </a>
   </li>
   <li>
-        <a href="/user-tracking/lanza"> #user-tracking-portlet.user_tracking_access_package#</a>
+        <a href="/user-tracking"> #user-tracking-portlet.user_tracking_access_package#</a>
   </li>
 </ul>
 </if>
Index: openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet.tcl	1 Mar 2005 17:37:54 -0000	1.1
+++ openacs-4/packages/user-tracking-portlet/www/user-tracking-portlet.tcl	14 Apr 2005 15:38:32 -0000	1.2
@@ -2,7 +2,7 @@
 
     The logic for the user-tracking portlet.
 
-    @creation-date 2004-10.25
+    @creation-date 2004-10-25
     @author David Ortega (doa@tid.es)
 
 } -query {
@@ -11,34 +11,18 @@
 	community_id: onevalue
 	admin_p: onevalue  
 	user_id: onevalue 
-	site_wide_admin_p: onevalue
 }
 
 array set config $cf
-
-#set shaded_p $config(shaded_p)
 set list_of_package_ids [lsort $config(package_id)]
-ns_log notice "La lista de packages ids es: $list_of_package_ids"
-#set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
 
 set community_id [dotlrn_community::get_community_id]
-ns_log notice "El community id es: $community_id" 
 set user_id [ad_conn user_id]
-if {[exists_and_not_null user_id]} {
-	set site_wide_admin_p [acs_user::site_wide_admin_p -user_id $user_id]
-} else {
-	set site_wide_admin_p 0
-}
 
 if {[exists_and_not_null community_id]} {
 	set community_id_p 1
 	if {[exists_and_not_null user_id]} {
 		db_0or1row get_user_info {} -column_array user
-		set sitedomain_all "${user(first_names)} ${user(last_name)} [_ user-tracking-portlet.in_the_community] $community_id"
-		set sitedomain "${user(first_names)} ${user(last_name)}"
-		set sitedomain_comm "Comunidad $community_id"
-	} else {
-		set sitedomain_comm "Comunidad $community_id"
 	}	
 set admin_p [ad_permission_p $community_id admin]
 
@@ -47,21 +31,6 @@
 	set community_id_p 0
 	if {[exists_and_not_null user_id]} {
 		db_0or1row get_user_info {} -column_array user
-		set sitedomain "${user(first_names)} ${user(last_name)}"
-	} else {
-		set sitedomain "[ad_system_name]"
 	}	
 }
-
-
-
-
-ns_log notice "El user id es $user_id"
-ns_log notice "El admin_p es $admin_p"
-#set admin_p [ad_permission_p $config(package_id) admin]
-#set admin_p [ad_permission_p $community_id admin]
-#ns_log notice "[ad_conn package_id]"
-#Si el community_id es cero es que estoy en la p�gina principal del usuario. Solo deber�a dejar ver estad�sticas del usuario en sus comunidades.
-#A no ser que sea admin.
-
 ad_return_template