Issue 0000475 : Synchroniser plus de 7000 photos

git-svn-id: http://piwigo.org/svn/trunk@1775 68402e56-0260-453c-a942-63ccdbb3a9ee

1 files changed, 1086 insertions, 372 deletions

diff --git a/tools/create_listing_file.php b/tools/create_listing_file.php
index 47632010c..b5ab6491a 100644
--- a/tools/create_listing_file.php
+++ b/tools/create_listing_file.php
@@ -26,25 +26,32 @@
 // +-----------------------------------------------------------------------+
 
 // +-----------------------------------------------------------------------+
-// |                              parameters                               |
+// |                                User configuration                     |
 // +-----------------------------------------------------------------------+
 
+// Srcipt version
+$conf['version'] = 'Alligator';
+
 // prefix for thumbnails in "thumbnail" sub directories
 $conf['prefix_thumbnail'] = 'TN-';
 
-// $conf['file_ext'] lists all extensions (case insensitive) allowed for
-// your PhpWebGallery installation
-$conf['file_ext'] = array('jpg','JPG','jpeg','JPEG',
-                          'png','PNG','gif','GIF','mpg','zip',
-                          'avi','mp3','ogg');
+// $conf['file_ext'] lists all extensions (case insensitive) allowed for your PhpWebGallery installation
+$conf['file_ext'] = array('jpg','JPG','png','PNG','gif','GIF','mpg','zip', 'avi','mp3','ogg');
 
 // $conf['picture_ext'] must be a subset of $conf['file_ext']
-$conf['picture_ext'] = array('jpg','JPG','jpeg','JPEG',
-                             'png','PNG','gif','GIF');
+$conf['picture_ext'] = array('jpg','JPG','png','PNG','gif','GIF');
 
-// $conf['version'] is used to verify the compatibility of the generated
-// listing.xml file and the PhpWebGallery version you're running
-$conf['version'] = 'Alligator';
+// URL of main gallery
+$conf['gallery'] = 'http://';
+
+// max excution time before refresh in seconds
+$conf['max_execution_time'] = (5*ini_get('max_execution_time'))/6; // 25 seconds with default PHP configuration
+
+// refresh delay is seconds
+$conf['refresh_delay'] = 0;
+
+// $conf['file_ext'] lists all extensions (case insensitive) allowed for your PhpWebGallery installation
+$conf['file_ext'] = array('jpg','JPG','jpeg','JPEG','png','PNG','gif','GIF','mpg','zip', 'avi','mp3','ogg');
 
 // $conf['use_exif'] set to true if you want to use Exif information
 $conf['use_exif'] = true;
@@ -67,22 +74,118 @@ $conf['use_iptc_mapping'] = array(
   'date_creation'   => '2#055',
   'author'          => '2#122',
   'name'            => '2#005',
-  'comment'         => '2#120'
-  );
+  'comment'         => '2#120');
+
+// index.php content for command 'protect'
+$conf['protect_content'] = '<?php header("Location: '.$conf['gallery'].'") ?>';
+
+// directories names 
+$conf['thumbs'] = 'thumbnail'; // thumbnails
+$conf['high'] = 'pwg_high'; // high resolution
+$conf['represent'] = 'pwg_representative'; // non pictures representative files
+
+// +-----------------------------------------------------------------------+
+// |                                Advanced script configuration          |
+// +-----------------------------------------------------------------------+
+
+// url of icon directory in yoga template
+$pwg_conf['icon_dir'] = $conf['gallery'].'/template/yoga/icon/';
+
+// list of actions managed by this script
+$pwg_conf['scan_action'] = array('clean', 'test', 'generate', 'protect');
+
+// url of this script
+$pwg_conf['this_url'] = 'http://'.$_SERVER['SERVER_NAME'].$_SERVER['PHP_SELF'];
+
+// list of reserved directory names
+$pwg_conf['reserved_directory_names'] = array($conf['thumbs'], $conf['high'], $conf['represent'], ".", "..", ".svn");
+
+// content of index.php generated in protect action
+$pwg_conf['protect_content'] = '<?php header("Location: '.$conf['gallery'].'") ?>';
+
+// backup of PHP safe_mode INI parameter (used for time limitation)
+$pwg_conf['safe_mode'] = (ini_get('safe_mode') == '1') ? true : false;
+
+// Error level management
+// true  : show warnings
+// false : hide warnings
+$pwg_conf['warning']['protect'] = true;
 
 // +-----------------------------------------------------------------------+
 // |                               functions                               |
 // +-----------------------------------------------------------------------+
 
 /**
+ * write line in log file
+ *
+ * @param string line
+ * @return string
+ */
+function pwg_log($line)
+{
+  $log_file = fopen(__FILE__.'.log', 'a');
+  fwrite($log_file, $line);
+  fclose($log_file);
+}
+
+/**
+ * returns xml </dirX> lines
+ *
+ * @param integer $dir_start
+ * @param integer $dir_number
+ * @return string
+ */
+function pwg_close_level($dir_start, $dir_number)
+{
+  //~ pwg_log('>>>>> pwg_close_level($dir_start = '.var_export($dir_start, TRUE).', $dir_number = '.var_export($dir_number, TRUE).') >>>>>'."\n");
+  
+  $lines ='';
+  do
+  {
+    $lines .= str_repeat(' ', 2*$dir_start).'</dir'.$dir_start.">\n";
+    $dir_number--;
+    $dir_start--;
+  }
+  while(($dir_number > 0) && ($dir_start >= 0));
+  
+  //~ pwg_log('<<<<< pwg_close_level returns '.var_export($lines, TRUE).' <<<<<'."\n");
+  return $lines;
+}
+
+/**
+ * return a cleaned IPTC value
+ *
+ * @param string value
+ * @return string
+ */
+function pwg_clean_iptc_value($value)
+{
+  //~ pwg_log('>>>>> pwg_clean_iptc_value ($value = '.var_export($value, TRUE).') >>>>>'."\n");
+  
+  // strip leading zeros (weird Kodak Scanner software)
+  while (isset($value[0]) and $value[0] == chr(0))
+  {
+    $value = substr($value, 1);
+  }
+  // remove binary nulls
+  $value = str_replace(chr(0x00), ' ', $value);
+
+  //~ pwg_log('<<<<< pwg_clean_iptc_value() returns '.var_export($value, TRUE).' <<<<<'."\n");
+  return $value;
+}
+
+/**
  * returns informations from IPTC metadata, mapping is done at the beginning
  * of the function
  *
  * @param string $filename
+ * @param string $map
  * @return array
  */
-function get_iptc_data($filename, $map)
+function pwg_get_iptc_data($filename, $map)
 {
+  //~ pwg_log('>>>>> pwg_get_iptc_data ($filename = '.var_export($filename, TRUE).', $map = '.var_export($map, TRUE).') >>>>>'."\n");
+  
   $result = array();
 
   // Read IPTC data
@@ -103,12 +206,11 @@ function get_iptc_data($filename, $map)
         {
           if ($iptc_key == '2#025')
           {
-            $value = implode(',',
-                             array_map('clean_iptc_value',$iptc[$iptc_key]));
+            $value = implode(',', array_map('pwg_clean_iptc_value', $iptc[$iptc_key]));
           }
           else
           {
-            $value = clean_iptc_value($iptc[$iptc_key][0]);
+            $value = pwg_clean_iptc_value($iptc[$iptc_key][0]);
           }
 
           foreach (array_keys($map, $iptc_key) as $pwg_key)
@@ -119,36 +221,27 @@ function get_iptc_data($filename, $map)
       }
     }
   }
+  
+  //~ pwg_log('<<<<< pwg_get_iptc_data() returns '.var_export($result, TRUE).' <<<<<'."\n");
   return $result;
 }
 
 /**
- * return a cleaned IPTC value
+ * returns informations from IPTC metadata
  *
- * @param string value
- * @return string
+ * @param string $file
+ * @return array iptc
  */
-function clean_iptc_value($value)
+function pwg_get_sync_iptc_data($file)
 {
-  // strip leading zeros (weird Kodak Scanner software)
-  while ($value[0] == chr(0))
-  {
-    $value = substr($value, 1);
-  }
-  // remove binary nulls
-  $value = str_replace(chr(0x00), ' ', $value);
+  //~ pwg_log('>>>>> pwg_get_sync_iptc_data ($file = '.var_export($file, TRUE).') >>>>>'."\n");
 
-  return $value;
-}
-
-function get_sync_iptc_data($file)
-{
   global $conf;
 
   $map = $conf['use_iptc_mapping'];
   $datefields = array('date_creation', 'date_available');
 
-  $iptc = get_iptc_data($file, $map);
+  $iptc = pwg_get_iptc_data($file, $map);
 
   foreach ($iptc as $pwg_key => $value)
   {
@@ -168,501 +261,1122 @@ function get_sync_iptc_data($file)
     $iptc[$pwg_key] = htmlentities($value);
   }
 
-  $iptc['keywords'] = implode(
-  	       ',',
-  	       array_unique(
-  	         explode(
-  	           ',',
-  	           $iptc['keywords']
-  	           )
-  	         )
-  	       );
+  $iptc['keywords'] = implode(',', array_unique(explode(',', $iptc['keywords'])));
+
+  //~ pwg_log('<<<<< pwg_get_sync_iptc_data() returns '.var_export($iptc, TRUE).' <<<<<'."\n");
   return $iptc;
 }
 
 /**
- * returns a float value coresponding to the number of seconds since the
- * unix epoch (1st January 1970) and the microseconds are precised :
- * e.g. 1052343429.89276600
+ * return extension of the representative file
  *
- * @return float
+ * @param string $file_dir
+ * @param string $file_short
+ * @return string
  */
-function get_moment()
+function pwg_get_representative_ext($file_dir, $file_short)
 {
-  $t1 = explode(' ', microtime());
-  $t2 = explode('.', $t1[0]);
-  $t2 = $t1[1].'.'.$t2[1];
-  return $t2;
+  //~ pwg_log('>>>>> pwg_get_representative_ext($file_dir = '.var_export($file_dir, TRUE).', $file_short = '.var_export($file_short, TRUE).') >>>>>'."\n");
+  
+  global $conf;
+  
+  $rep_ext = '';
+  foreach ($conf['picture_ext'] as $ext)
+  {
+    if (file_exists($file_dir.'/'.$conf['represent'].'/'.$file_short.'.'.$ext))
+    {
+      $rep_ext = $ext;
+      break;
+    }
+  }
+  
+  //~ pwg_log('<<<<< pwg_get_representative_ext() returns '.var_export($rep_ext, TRUE).' <<<<<'."\n");
+  return $rep_ext; 
 }
 
 /**
- * returns the number of seconds (with 3 decimals precision) between the
- * start time and the end time given.
+ * return 'true' if high resolution picture exists else ''
  *
- * @param float start
- * @param float end
- * @return void
+ * @param string $file_dir
+ * @param string $file_base
+ * @return boolean
  */
-function get_elapsed_time($start, $end)
+function pwg_get_high($file_dir, $file_base)
 {
-  return number_format($end - $start, 3, '.', ' ').' s';
+  //~ pwg_log('>>>>> pwg_get_high($file = '.var_export($file_dir, TRUE).', $line = '.var_export($file_base, TRUE).') >>>>>'."\n");
+  
+  global $conf;
+  
+  $high = false;
+  if (file_exists($file_dir.'/'.$conf['high'].'/'.$file_base))
+  {
+    $high = true;
+  }
+  
+  //~ pwg_log('<<<<< pwg_get_high() returns '.var_export($high, TRUE).' <<<<<'."\n");
+  return $high; 
 }
 
 /**
- * returns an array with all picture files according to $conf['file_ext']
+ * return filename without extension
  *
- * @param string $dir
- * @return array
+ * @param string $filename
+ * @return string
  */
-function get_pwg_files($dir)
+function pwg_get_filename_wo_extension($filename)
 {
-  global $conf;
+  //~ pwg_log('>>>>> _get_filename_wo_extension($filename = '.var_export($filename, TRUE).') >>>>>'."\n");
+  
+  $short_name = substr($filename, 0, strrpos($filename, '.'));
+  
+  //~ pwg_log('<<<<< _get_filename_wo_extension() returns '.var_export($short_name, TRUE).' <<<<<'."\n");
+  return $short_name;
+}
 
-  $pictures = array();
-  if ($opendir = opendir($dir))
+/**
+ * return extension of the thumbnail
+ *
+ * @param string $file_dir
+ * @param string $file_short
+ * @return string
+ */
+function pwg_get_thumbnail_ext($file_dir, $file_short)
+{
+  //~ pwg_log('>>>>> pwg_get_thumbnail_ext($file_dir = '.var_export($file_dir, TRUE).', $file_short = '.var_export($file_short, TRUE).') >>>>>'."\n");
+  
+  global $conf;
+  
+  $thumb_ext = '';
+  foreach ($conf['picture_ext'] as $ext)
   {
-    while ($file = readdir($opendir))
+    if (file_exists($file_dir.'/'.$conf['thumbs'].'/'.$conf['prefix_thumbnail'].$file_short.'.'.$ext))
     {
-      if (in_array(get_extension($file), $conf['file_ext']))
-      {
-        array_push($pictures, $file);
-        if (!preg_match('/^[a-zA-Z0-9-_.]+$/', $file))
-        {
-          echo 'PWG-WARNING-2: "'.$file.'" : ';
-          echo 'The name of the file should be composed of ';
-          echo 'letters, figures, "-", "_" or "." ONLY';
-          echo "\n";
-        }
-      }
+      $thumb_ext = $ext;
+      break;
     }
   }
-  return $pictures;
+  
+  //~ pwg_log('<<<<< pwg_get_thumbnail_ext() returns '.var_export($thumb_ext, TRUE).' <<<<<'."\n");
+  return $thumb_ext; 
 }
 
 /**
- * returns an array with all thumbnails according to $conf['picture_ext']
- * and $conf['prefix_thumbnail']
+ * completes xml line <element .../> and returns error log
  *
- * @param string $dir
- * @return array
+ * @param string $file
+ * @param string &$line
+ * @return string
  */
-function get_thumb_files($dir)
+function pwg_scan_file($file_full, &$line)
 {
-  global $conf;
-
-  $prefix_length = strlen($conf['prefix_thumbnail']);
-
-  $thumbnails = array();
-  if (is_dir($dir.'/thumbnail'))
+  //~ pwg_log('>>>>> pwg_scan_file($file = '.var_export($file_full, TRUE).', $line = '.var_export($line, TRUE).') >>>>>'."\n");
+  
+  global $conf, $pwg_conf;
+  
+  $error_log ='';
+  
+  $file_base  = basename($file_full);
+  $file_short = pwg_get_filename_wo_extension($file_base);
+  $file_ext   = pwg_get_file_extension($file_base);
+  $file_dir   = dirname($file_full);
+
+  $element['file'] = $file_base;
+  $element['path'] = 'http://'.dirname($_SERVER['SERVER_NAME'].$_SERVER['PHP_SELF']).substr($file_dir, 1).'/'.$file_base;
+  
+  if (in_array($file_ext, $conf['picture_ext']))
   {
-    if ($opendir = opendir($dir.'/thumbnail'))
+    // Here we scan a picture : thumbnail is mandatory, high is optionnal, representative is not scanned
+    $element['tn_ext'] = pwg_get_thumbnail_ext($file_dir, $file_short);
+    if ($element['tn_ext'] != '')
     {
-      while ($file = readdir($opendir))
+      // picture has a thumbnail, get image width, heigth, size in Mo
+      $element['filesize'] = floor(filesize($file_full) / 1024);
+      if ($image_size = getimagesize($file_full))
+      {
+        $element['width'] = $image_size[0];
+        $element['height'] = $image_size[1];
+      }
+      
+      // get high resolution
+      if (pwg_get_high($file_dir, $file_base))
       {
-        if (in_array(get_extension($file), $conf['picture_ext'])
-            and substr($file,0,$prefix_length) == $conf['prefix_thumbnail'])
+        $element['has_high'] = 'true';
+      }
+      
+      // get EXIF meta datas
+      if ($conf['use_exif'])
+      {
+        // Verify activation of exif module
+        if (extension_loaded('exif'))
         {
-          array_push($thumbnails, $file);
+          if ($exif = read_exif_data($file_full))
+          {
+            foreach ($conf['use_exif_mapping'] as $pwg_key => $exif_key )
+            {
+              if (isset($exif[$exif_key]))
+              {
+                if ( in_array($pwg_key, array('date_creation','date_available') ) )
+                {
+                  if (preg_match('/^(\d{4}):(\d{2}):(\d{2})/', $exif[$exif_key], $matches))
+                    {
+                      $element[$pwg_key] = $matches[1].'-'.$matches[2].'-'.$matches[3];
+                    }
+                }
+                else
+                {
+                  $element[$pwg_key] = $exif[$exif_key];
+                }
+              }
+            }
+          }
+        }
+      }
+      
+      // get IPTC meta datas
+      if ($conf['use_iptc'])
+      {
+        $iptc = pwg_get_sync_iptc_data($file_full);
+        if (count($iptc) > 0)
+        {
+          foreach (array_keys($iptc) as $key)
+          {
+            $element[$key] = addslashes($iptc[$key]);
+          }
         }
       }
+      
     }
+    else
+    {
+      $error_log .= '          <code class="failure">Failure -</code> Thumbnail is missing for <code>'.$file_dir.'/'.$file_base.'</code>';
+      $error_log .= ' <img src="'.$pwg_conf['icon_dir'].'add_tag.png" title="'.$file_dir.'/thumbnail/'.$conf['prefix_thumbnail'].$file_short;
+      $error_log .= '.xxx ('.implode(', ', $conf['picture_ext']).')" /><br />'."\n";
+    }
+  }
+  else
+  {
+    // Here we scan a non picture file : thumbnail and high are unused, representative is optionnal
+    $ext = pwg_get_representative_ext($file_dir, $file_short);
+    if ($ext != '')
+    {
+      $element['representative_ext'] = $ext;
+    }
+  }
+  
+  if (strlen($error_log) == 0)
+  {
+    $line = pwg_get_indent('element').'<element ';
+    foreach($element as $key => $value)
+    {
+      $line .= $key.'="'.$value.'" ';
+    }
+    $line .= '/>'."\n";
   }
-  return $thumbnails;
+  
+  //~ pwg_log('<<<<< pwg_scan_file() returns '.var_export($error_log, TRUE).' <<<<<'."\n");
+  return $error_log;
 }
 
 /**
- * returns an array with representative picture files of a directory
- * according to $conf['picture_ext']
+ * returns current level in tree
  *
- * @param string $dir
- * @return array
+ * @return integer
  */
-function get_representative_files($dir)
+function pwg_get_level($dir)
 {
-  global $conf;
+  //~ pwg_log('>>>>> pwg_get_level($dir = '.var_export($dir, TRUE).') >>>>>'."\n");
+  
+  $level = substr_count($dir, '/') - 1; // -1 because of ./ at the beginning of path
+  
+  //~ pwg_log('<<<<< pwg_get_level() returns '.var_export($level, TRUE).' <<<<<'."\n");
+  return $level;
+}
 
-  $pictures = array();
-  if (is_dir($dir.'/pwg_representative'))
+/**
+ * returns indentation of element 
+ *
+ * @param string $element_type : 'root', 'element', 'dir'
+ * @return string
+ */
+function pwg_get_indent($element_type)
+{
+  //~ pwg_log('>>>>> pwg_get_indent($element_type = '.var_export($element_type, TRUE).') >>>>>'."\n");
+  
+  $level = substr_count($_SESSION['scan_list_fold'][0], '/') - 1; // because of ./ at the beginning
+  switch($element_type)
   {
-    if ($opendir = opendir($dir.'/pwg_representative'))
+    case 'dir' :
     {
-      while ($file = readdir($opendir))
-      {
-        if (in_array(get_extension($file), $conf['picture_ext']))
-        {
-          array_push($pictures, $file);
-        }
-      }
+      $indent = str_repeat(' ', 2*pwg_get_level($_SESSION['scan_list_fold'][0]));
+      break;
+    }
+    case 'root' :
+    {
+      $indent = str_repeat(' ', 2*pwg_get_level($_SESSION['scan_list_fold'][0])+2);
+      break;
+    }
+    case 'element' :
+    {
+      $indent = str_repeat(' ', 2*pwg_get_level($_SESSION['scan_list_fold'][0])+4);
+      break;
+    }
+    default :
+    {
+      $indent = '';
+      break;
     }
   }
-  return $pictures;
+  
+  //~ pwg_log('<<<<< pwg_get_indent() returns '.var_export(strlen($indent), TRUE).' spaces <<<<<'."\n");
+  return $indent;
 }
 
 /**
- * returns an array with high quality/resolution picture files of a directory
- * according to $conf['picture_ext']
+ * create index.php in directory and reserved sub_directories, return logs
  *
- * @param string $dir
- * @return array
+ * @param string dir
+ * @return string
  */
-function get_high_files($dir)
+function pwg_protect_directories($directory)
 {
-  global $conf;
-
-  $pictures = array();
-  if (is_dir($dir.'/pwg_high'))
+  global $conf, $pwg_conf;
+  
+  //~ pwg_log('>>>>> pwg_protect_directories($directory = '.var_export($directory, true).') >>>>>'."\n");
+  $error_log = '';
+  $dirlist = array($directory, $directory.'/'.$conf['thumbs'], $directory.'/'.$conf['high'], $directory.'/'.$conf['represent']);
+  
+  foreach ($dirlist as $dir)
   {
-    if ($opendir = opendir($dir.'/pwg_high'))
+    if (file_exists($dir))
     {
-      while ($file = readdir($opendir))
+      if (!file_exists($dir.'/index.php'))
       {
-        if (in_array(get_extension($file), $conf['picture_ext']))
+        $file = @fopen($dir.'/index.php', 'w');
+        if ($file != false)
+        {
+          fwrite($file, $pwg_conf['protect_content']); // the return code should be verified
+          $error_log .= '          <code class="success">Success -</code> index.php created in directory <a href="'.$dir.'">'.$dir."</a><br />\n";
+          $_SESSION['scan_cnt_fold']++;
+        }
+        else
         {
-          array_push($pictures, $file);
+          $error_log .= '          <code class="failure">Failure -</code> Can not create index.php in directory <code>'.$dir."</code><br />\n";
+        }
+      }
+      else
+      {
+        if ($pwg_conf['warning']['protect'])
+        {
+          $error_log .= '          <code class="warning">Warning -</code> index.php already exists in directory <a href="'.$dir.'">'.$dir."</a><br />\n";
+          $_SESSION['scan_cnt_fold']++;
         }
       }
     }
   }
-  return $pictures;
+  
+  //~ pwg_log('<<<<< pwg_protect_directories() returns '.var_export($error_log, true).' <<<<<'."\n");
+  return $error_log;
 }
 
 /**
- * search in $basedir the sub-directories and calls get_pictures
+ * returns file extension (.xxx)
  *
- * @return void
+ * @param string $file
+ * @return string
  */
-function get_dirs($basedir, $indent, $level)
+function pwg_get_file_extension($file)
 {
-  $fs_dirs = array();
-  $dirs = "";
-  global $conf_safe_mode;
+  //~ pwg_log('>>>>> pwg_get_file_extension($file = '.var_export($file, true).') >>>>>'."\n");
+  
+  $ext = substr(strrchr($file, '.'), 1, strlen ($file));
+  
+  //~ pwg_log('<<<<< pwg_get_file_extension() returns '.var_export($ext, true).' <<<<<'."\n");
+  return $ext;
+}
 
-  // Refresh the max_execution_time to avoid timout error
-  // By default time to scan a directory (without subdirs) is fixed to 30 seconds
-  if (!$conf_safe_mode)
-  {
-    set_time_limit(30);
-  }
+/**
+ * completes directory list of supported files and returns error logs
+ *
+ * @param string $directory
+ * @return string
+ */
+function pwg_get_file_list($directory)
+{
+  //~ pwg_log('>>>>> pwg_get_file_list($directory = '.var_export($directory, true).') >>>>>'."\n");
+  
+  global $conf, $pwg_conf;
 
-  if ($opendir = opendir($basedir))
+  $errorLog = '';
+  $dir = opendir($directory);
+  while (($file = readdir($dir)) !== false)
   {
-    while ($file = readdir($opendir))
+    switch (filetype($directory."/".$file))
     {
-      if ($file != '.'
-          and $file != '..'
-          and $file != '.svn'
-          and $file != 'thumbnail'
-          and $file != 'pwg_high'
-          and $file != 'pwg_representative'
-          and is_dir ($basedir.'/'.$file))
+      case 'file' :
+      {
+        if (in_array(pwg_get_file_extension($file), $conf['file_ext']))
+        {
+          // The file pointed is a regular file with a supported extension
+          array_push($_SESSION['scan_list_file'], $directory.'/'.$file);
+          //~ pwg_log('--->> Push in $_SESSION[scan_list_file] value "'.$directory.'/'.$file.'"'."\n");
+          if (!preg_match('/^[a-zA-Z0-9-_.]+$/', $file))
+          {
+            $errorLog .= '          <code class="failure">Failure -</code> Invalid file name for <code>'.$file.'</code> in <code>'.$directory.'</code>';
+            $errorLog .= ' <img src="'.$pwg_conf['icon_dir'].'add_tag.png"';
+            $errorLog .= ' title="Name should be composed of letters, figures, -, _ or . ONLY" /><br />'."\n";
+          }
+        }
+        break; // End of filetype FILE
+      }
+      case 'dir' :
       {
-        array_push($fs_dirs, $file);
-        if (!preg_match('/^[a-zA-Z0-9-_.]+$/', $file))
+        if(!in_array($file, $pwg_conf['reserved_directory_names']))
         {
-          echo 'PWG-WARNING-1: "'.$file.'" : ';
-          echo 'The name of the directory should be composed of ';
-          echo 'letters, figures, "-", "_" or "." ONLY';
-          echo "\n";
+          // The file pointed is a directory but neither system directory nor reserved by PWG
+          array_push($_SESSION['scan_list_fold'], $directory.'/'.$file);
+          //~ pwg_log('--->> Push in $_SESSION[scan_list_fold] value "'.$directory.'/'.$file.'"'."\n");
+          if (!preg_match('/^[a-zA-Z0-9-_.]+$/', $file))
+          {
+            $errorLog .= '          <code class="failure">Failure -</code> Invalid directory name for <code>'.$directory.'/'.$file.'</code>';
+            $errorLog .= ' <img src="'.$pwg_conf['icon_dir'].'add_tag.png"';
+            $errorLog .= ' title="Name should be composed of letters, figures, -, _ or . ONLY" /><br />'."\n";
+          }
         }
+        break; // End of filetype DIR
+      }
+      case 'fifo' :
+      case 'char' :
+      case 'block' :
+      case 'link' :
+      case 'unknown':
+      default :
+      {
+        // PWG does not manage these cases
+        break;
       }
     }
   }
-  // write of the dirs
-  foreach ($fs_dirs as $fs_dir)
-  {
-    $dirs.= "\n".$indent.'<dir'.$level.' name="'.$fs_dir.'">';
-    $dirs.= get_pictures($basedir.'/'.$fs_dir, $indent.'  ');
-    $dirs.= get_dirs($basedir.'/'.$fs_dir, $indent.'  ', $level + 1);
-    $dirs.= "\n".$indent.'</dir'.$level.'>';
-  }
-  return $dirs;
-}
+  closedir($dir);
+  
+  //~ pwg_log('<<<<< pwg_get_file_list() returns '.var_export($errorLog, true).' <<<<<'."\n");
 
-// get_extension returns the part of the string after the last "."
-function get_extension($filename)
-{
-  return substr(strrchr($filename, '.'), 1, strlen ($filename));
+  return $errorLog;
 }
 
-// get_filename_wo_extension returns the part of the string before the last
-// ".".
-// get_filename_wo_extension('test.tar.gz') -> 'test.tar'
-function get_filename_wo_extension($filename)
+/**
+ * returns a float value coresponding to the number of seconds since the
+ * unix epoch (1st January 1970) and the microseconds are precised :
+ * e.g. 1052343429.89276600
+ *
+ * @return float
+ */
+function pwg_get_moment()
 {
-  return substr($filename, 0, strrpos($filename, '.'));
+  //~ pwg_log('>>>>> pwg_get_moment() >>>>>'."\n");
+  
+  $t1 = explode(' ', microtime());
+  $t2 = explode('.', $t1[0]);
+  $t2 = $t1[1].'.'.$t2[1];
+
+  //~ pwg_log('<<<<< pwg_get_moment() returns '.var_export($t2, true).' <<<<<'."\n");
+  return $t2;
 }
 
-function get_pictures($dir, $indent)
+/**
+ * return true if HTTP_REFERER and PHP_SELF are similar
+ *
+ * return boolean
+ */
+function pwg_referer_is_me()
 {
-  global $conf, $page;
+  //~ pwg_log('>>>>> pwg_referer_is_me() >>>>>'."\n");
+  
+  $response = false;
+  $server = 'http://'.$_SERVER['SERVER_NAME'].$_SERVER['PHP_SELF'];
+  $caller = $_SERVER['HTTP_REFERER'];
+
+  if (strcasecmp($server, $caller) == 0) {
+    $response = true;
+  }
 
-  // fs means FileSystem : $fs_files contains files in the filesystem found
-  // in $dir that can be managed by PhpWebGallery (see get_pwg_files
-  // function), $fs_thumbnails contains thumbnails, $fs_representatives
-  // contains potentially representative pictures for non picture files
-  $fs_files = get_pwg_files($dir);
-  $fs_thumbnails = get_thumb_files($dir);
-  $fs_representatives = get_representative_files($dir);
-  $fs_highs = get_high_files($dir);
+  //~ pwg_log('<<<<< pwg_referer_is_me() returns '.var_export($response, true).' <<<<<'."\n");
+  return $response;
+}
 
-  $elements = array();
+// +-----------------------------------------------------------------------+
+// |                                pwg_<ACTION>_<STEP> FUNCTIONS          |
+// +-----------------------------------------------------------------------+
 
-  $print_dir = preg_replace('/^\.\//', '', $dir);
-  $print_dir = preg_replace('/\/*$/', '/', $print_dir);
+function pwg_test_start()
+{
+  //~ pwg_log('>>>>> pwg_test_start() >>>>>'."\n");
 
-  foreach ($fs_files as $fs_file)
+  global $g_message, $conf;
+  
+  if (isset($_REQUEST['version']))
   {
-    $element = array();
-    $element['file'] = $fs_file;
-    $element['path'] = $page['url'].$print_dir.$fs_file;
-    $element['filesize'] = floor(filesize($dir.'/'.$fs_file) / 1024);
+    if ($_REQUEST['version'] != $conf['version'])
+    {
+      $g_message = '0';
+    }
+    else
+    {
+      $g_message = '1';
+    }
+  }
+  else
+  {
+    $g_message  = '1';
+  }
+  $_SESSION['scan_step'] = 'exit';
+  
+  //~ pwg_log('<<<<< pwg_test_start() <<<<<'."\n");
+}
 
-    $file_wo_ext = get_filename_wo_extension($fs_file);
+function pwg_test_exit()
+{
+  //~ pwg_log('>>>>> pwg_test_exit() >>>>>'."\n");
 
-    foreach ($conf['picture_ext'] as $ext)
+  global $g_header, $g_message, $g_footer, $conf, $pwg_conf;
+ 
+  if (pwg_referer_is_me())
+  {
+    $g_header  = ' : <span class="success">Test</span>'."\n";
+    $g_message = '        This script is tagged : <code class="failure">'.$conf['version'].'</code>'."\n";
+    $g_footer  = '<a href="'.$pwg_conf['this_url'].'" title="Main menu"><img src="'.$pwg_conf['icon_dir'].'up.png" /></a>'."\n";
+  }
+  else
+  {
+    // compare version in GET parameter with $conf['version'] 
+    if ($g_message == '1')
     {
-      $test = $conf['prefix_thumbnail'].$file_wo_ext.'.'.$ext;
-      if (!in_array($test, $fs_thumbnails))
-      {
-        continue;
-      }
-      else
-      {
-        $element['tn_ext'] = $ext;
-        break;
-      }
+      exit('<pre>PWG-INFO-2: test successful</pre>');
     }
-
-    // 2 cases : the element is a picture or not. Indeed, for a picture
-    // thumbnail is mandatory, high is optional and for non picture element,
-    // thumbnail and representative is optionnal
-    if (in_array(get_extension($fs_file), $conf['picture_ext']))
+    else
     {
-      // if we found a thumnbnail corresponding to our picture...
-      if (isset($element['tn_ext']))
-      {
-        if ($image_size = @getimagesize($dir.'/'.$fs_file))
-        {
-          $element['width'] = $image_size[0];
-          $element['height'] = $image_size[1];
-        }
+      exit('<pre>PWG-ERROR-4: PhpWebGallery versions differs</pre>');
+    }
+  }
+  
+  //~ pwg_log('<<<<< pwg_test_exit() <<<<<'."\n");
+}
 
-        if ( in_array($fs_file, $fs_highs) )
-        {
-          $element['has_high'] = 'true';
-        }
+function pwg_clean_start()
+{
+  //~ pwg_log('>>>>> pwg_clean_start() >>>>>'."\n");
+  
+  global $g_message;
+  
+  if(@unlink('./listing.xml'))
+  {
+    $g_message = '1';
+  }
+  else
+  {
+    $g_message = '0';
+  }
 
-        if ($conf['use_exif'])
-        {
-          // Verify activation of exif module
-          if (extension_loaded('exif'))
-          {
-            if ($exif = read_exif_data($dir.'/'.$fs_file))
-            {
-              foreach ($conf['use_exif_mapping'] as $pwg_key => $exif_key )
-              {
-                if (isset($exif[$exif_key]))
-                {
-                  if ( in_array($pwg_key, array('date_creation','date_available') ) )
-                  {
-                     if (preg_match('/^(\d{4}):(\d{2}):(\d{2})/'
-                           ,$exif[$exif_key]
-                           ,$matches))
-                     {
-                       $element[$pwg_key] =
-                          $matches[1].'-'.$matches[2].'-'.$matches[3];
-                     }
-                  }
-                  else
-                  {
-                    $element[$pwg_key] = $exif[$exif_key];
-                  }
-                }
-              }
-            }
-          }
-        }
+  $_SESSION['scan_step'] = 'exit';
+  
+  //~ pwg_log('<<<<< pwg_clean_start() <<<<<'."\n");
+}
 
-        if ($conf['use_iptc'])
-        {
-          $iptc = get_sync_iptc_data($dir.'/'.$fs_file);
-          if (count($iptc) > 0)
-          {
-            foreach (array_keys($iptc) as $key)
-            {
-              $element[$key] = $iptc[$key];
-            }
-          }
-        }
+function pwg_clean_exit()
+{
+  //~ pwg_log('>>>>> pwg_clean_exit() >>>>>'."\n");
 
-        array_push($elements, $element);
-      }
-      else
-      {
-        echo 'PWG-ERROR-1: The thumbnail is missing for '.$dir.'/'.$fs_file;
-        echo '-> '.$dir.'/thumbnail/';
-        echo $conf['prefix_thumbnail'].$file_wo_ext.'.xxx';
-        echo ' ("xxx" can be : ';
-        echo implode(', ', $conf['picture_ext']);
-        echo ')'."\n";
-      }
+  global $g_header, $g_message, $g_footer, $conf, $pwg_conf;
+  
+  if(pwg_referer_is_me())
+  {
+    $g_header = ' : <span class="success">Clean</span>';
+    if ($g_message == '1')
+    {
+      $g_message = '        <code class="success">Success -</code> <code>listing.xml</code> file deleted'."\n";
     }
     else
     {
-      foreach ($conf['picture_ext'] as $ext)
-      {
-        $candidate = $file_wo_ext.'.'.$ext;
-        if (!in_array($candidate, $fs_representatives))
-        {
-          continue;
-        }
-        else
-        {
-          $element['representative_ext'] = $ext;
-          break;
-        }
-      }
-
-      array_push($elements, $element);
+      $g_message = '        <code class="failure">Failure -</code> <code>listing.xml</code> does not exist or is read only'."\n";
     }
+    $g_footer = '<a href="'.$pwg_conf['this_url'].'" title="Main menu"><img src="'.$pwg_conf['icon_dir'].'up.png" /></a>';
   }
-
-  $xml = "\n".$indent.'<root>';
-  $attributes = array('file','tn_ext','representative_ext','filesize',
-                      'width','height','date_creation','author','keywords',
-                      'name','comment','has_high', 'path');
-  foreach ($elements as $element)
+  else
   {
-    $xml.= "\n".$indent.'  ';
-    $xml.= '<element';
-    foreach ($attributes as $attribute)
+    if ($g_message == '1')
     {
-      if (isset($element{$attribute}))
-      {
-        $xml.= ' '.$attribute.'="'.$element{$attribute}.'"';
-      }
+      exit('<pre>PWG-INFO-3 : listing.xml file deleted</pre>');
+    }
+    else
+    {
+      exit('<pre>PWG-ERROR-3 : listing.xml does not exist</pre>');
     }
-    $xml.= ' />';
   }
-  $xml.= "\n".$indent.'</root>';
+  
+  //~ pwg_log('<<<<< pwg_clean_exit() <<<<<'."\n");
+}
 
-  return $xml;
+function pwg_protect_start()
+{
+  //~ pwg_log('>>>>> pwg_protect_start() >>>>>'."\n");
+  
+  $_SESSION['scan_logs'] = pwg_get_file_list('.');
+  sort($_SESSION['scan_list_fold']);
+  
+  // Erase first file list because root directory does not contain images.
+  $_SESSION['scan_list_file'] = array();
+  
+  // What are we doing at next step
+  if(count($_SESSION['scan_list_fold']) > 0)
+  {
+    $_SESSION['scan_step'] = 'list';
+  }
+  else
+  {
+    $_SESSION['scan_step'] = 'stop';
+  }
+  
+  //~ pwg_log('<<<<< pwg_protect_start() <<<<<'."\n");
 }
 
-// +-----------------------------------------------------------------------+
-// |                                script                                 |
-// +-----------------------------------------------------------------------+
-if (isset($_GET['action']))
+function pwg_protect_list()
 {
-  $page['action'] = $_GET['action'];
+  //~ pwg_log('>>>>> pwg_protect_list() >>>>>'."\n");
+
+  // Get list of files and directories
+  $_SESSION['scan_logs'] .= pwg_get_file_list($_SESSION['scan_list_fold'][0]);
+  sort($_SESSION['scan_list_fold']);
+  
+  // Delete unused file list
+  $_SESSION['scan_list_file'] = array();
+  
+  // Position next step
+  $_SESSION['scan_step'] = 'scan';
+  
+  //~ pwg_log('<<<<< pwg_protect_list() <<<<<'."\n");
 }
-else
+
+function pwg_protect_scan()
 {
-  $page['action'] = '';
+  //~ pwg_log('>>>>> pwg_protect_scan() >>>>>'."\n");
+  
+  $_SESSION['scan_logs'] .= pwg_protect_directories($_SESSION['scan_list_fold'][0]);
+  
+  if (isset($_SESSION['scan_list_fold'][1]))
+  {
+    array_shift($_SESSION['scan_list_fold']);
+    $_SESSION['scan_step'] = 'list';
+  }
+  else
+  {
+    $_SESSION['scan_step'] = 'stop';
+  }
+  
+  //~ pwg_log('<<<<< pwg_protect_scan() <<<<<'."\n");
 }
 
-// Looking at the safe_mode configuration for execution time
-$conf_safe_mode = TRUE;
-if (ini_get('safe_mode') == 0)
+function pwg_protect_stop()
 {
-  $conf_safe_mode = FALSE;
+  //~ pwg_log('>>>>> pwg_protect_stop() >>>>>'."\n");
+  
+  global $g_header, $g_message, $g_footer, $pwg_conf;
+  
+  $time_elapsed = number_format(pwg_get_moment() - $_SESSION['scan_time'], 3, '.', ' ');
+
+  $g_header   = ' : <span class="success">Protect</span>';
+  $g_message  = '        <div>'."\n".$_SESSION['scan_logs'].'        </div>'."\n";
+  $g_message .= '        <div><code class="success">'.$_SESSION['scan_cnt_fold'].'</code> directories protected</div>'."\n";
+  $g_message .= '        <div style="{text-align: right;}">Gallery protected in : <code>'.$time_elapsed.' s</code></div>';
+  $g_footer   = '<a href="'.$pwg_conf['this_url'].'" title="Main menu"><img src="'.$pwg_conf['icon_dir'].'up.png" /></a>';
+  
+  // What are we doing at next step
+  $_SESSION['scan_step'] = 'exit';
+  
+  //~ pwg_log('<<<<< pwg_protect_stop() <<<<<'."\n");
 }
 
-echo '<pre>';
-switch ($page['action'])
+function pwg_generate_start()
 {
-  case 'generate' :
+  //~ pwg_log('>>>>> pwg_generate_start() >>>>>'."\n");
+  //~ pwg_log("GENARATE start >>>\n".var_export($_SESSION['scan_list_fold'], true)."\n".var_export($_SESSION['scan_list_file'], true)."\nGENERATE start >>>\n");
+
+  global $g_listing, $conf;
+  
+  // Flush line <informations>
+  $xml_header_url = 'http://'.dirname($_SERVER['SERVER_NAME'].$_SERVER['PHP_SELF']).'/';
+  $xml_header_date = date('Y-m-d');
+  $xml_header_version = htmlentities($conf['version']);
+  
+  $attrs = array();
+  if ($conf['use_iptc'])
   {
-    $start = get_moment();
+    $attrs = array_merge($attrs, array_keys($conf['use_iptc_mapping']) );
+  }
+  if ($conf['use_exif'])
+  {
+    $attrs = array_merge($attrs, array_keys($conf['use_exif_mapping']) );
+  }
+  $xml_header_metadata = implode(',',array_unique($attrs));
+  
+  $xml_header = '<informations';
+  $xml_header .= ' generation_date="'.$xml_header_date.'"';
+  $xml_header .= ' phpwg_version="'.$xml_header_version.'"';
+  $xml_header .= ' metadata="'.$xml_header_metadata.'"';
+  $xml_header .= ' url="'.$xml_header_url.'"';
+  $xml_header .= '>'."\n";
+  
+  fwrite($g_listing, $xml_header);
+  
+  // Initialization of directory and file lists
+  $_SESSION['scan_list_fold'] = array();
+  $_SESSION['scan_list_file'] = array();
+  $_SESSION['scan_logs'] = pwg_get_file_list('.');
+  sort($_SESSION['scan_list_fold']);
+          
+  // Erase first file list because root directory does not contain images.
+  $_SESSION['scan_list_file'] = array();
+            
+  // What are we doing at next step
+  if(count($_SESSION['scan_list_fold']) > 0)
+  {
+    $_SESSION['scan_step'] = 'list';
+  }
+  else
+  {
+    $_SESSION['scan_step'] = 'stop';
+  }
+  
+  //~ pwg_log("GENARATE start <<<\n".var_export($_SESSION['scan_list_fold'], true)."\n".var_export($_SESSION['scan_list_file'], true)."\nGENERATE start <<<\n");
+  //~ pwg_log('<<<<< pwg_generate_start() <<<<<'."\n");
+}
 
-    $listing = '<informations';
-    $listing.= ' generation_date="'.date('Y-m-d').'"';
-    $listing.= ' phpwg_version="'.htmlentities($conf{'version'}).'"';
+function pwg_generate_list()
+{
+  //~ pwg_log('>>>>> pwg_generate_list() >>>>>'."\n");
+  //~ pwg_log("GENARATE list >>>\n".var_export($_SESSION['scan_list_fold'], true)."\n".var_export($_SESSION['scan_list_file'], true)."\nGENERATE list >>>\n");
+  
+  global $g_listing;
+  
+  // Flush line <dirX name=""> in xml file
+  $dirname = basename($_SESSION['scan_list_fold'][0]);
+  $line = pwg_get_indent('dir').'<dir'.pwg_get_level($_SESSION['scan_list_fold'][0]).' name="'.$dirname.'">'."\n";
+  fwrite($g_listing, $line);
+  
+  // Get list of files and directories
+  $_SESSION['scan_logs'] .= pwg_get_file_list($_SESSION['scan_list_fold'][0]);
+  sort($_SESSION['scan_list_fold']); // Mandatory to keep the tree order
+  sort($_SESSION['scan_list_file']); // Easier to read when sorted
+  
+  // Flush line <root>
+  $line = pwg_get_indent('root').'<root>'."\n";
+  fwrite($g_listing, $line);
+  
+  // What are we doing at next step
+  $_SESSION['scan_step'] = 'scan';
+  
+  //~ pwg_log("GENARATE list <<<\n".var_export($_SESSION['scan_list_fold'], true)."\n".var_export($_SESSION['scan_list_file'], true)."\nGENERATE list <<<\n");
+  //~ pwg_log('<<<<< pwg_generate_list() <<<<<'."\n");
+}
 
-    $attrs=array();
-    if ($conf['use_iptc'])
+function pwg_generate_scan()
+{
+  //~ pwg_log('>>>>> pwg_generate_scan() >>>>>'."\n");
+  //~ pwg_log("GENARATE scan >>>\n".var_export($_SESSION['scan_list_fold'], true)."\n".var_export($_SESSION['scan_list_file'], true)."\nGENERATE scan >>>\n");
+  
+  global $g_listing;
+  
+  while (pwg_continue() and count($_SESSION['scan_list_file']) > 0)
+  {
+    $line = '';
+    $_SESSION['scan_logs'] .= pwg_scan_file($_SESSION['scan_list_file'][0], $line);
+    if (strlen($line) > 0)
     {
-      $attrs = array_merge($attrs, array_keys($conf['use_iptc_mapping']) );
+      fwrite($g_listing, $line);
     }
-    if ($conf['use_exif'])
+    //~ pwg_log('---<< Pull of $_SESSION[scan_list_file] value "'.$_SESSION['scan_list_file'][0].'"'."\n");
+    array_shift($_SESSION['scan_list_file']);
+    $_SESSION['scan_cnt_file']++;
+  }
+          
+  if (count($_SESSION['scan_list_file']) <= 0)
+  {
+    // Flush line </root>
+    $line = pwg_get_indent('root').'</root>'."\n";
+    fwrite($g_listing, $line);
+    
+    // How many directories to close
+    $current_level = pwg_get_level($_SESSION['scan_list_fold'][0]);
+    if (isset($_SESSION['scan_list_fold'][1]))
+    {
+      //~ pwg_log('---<< Pull of $_SESSION[scan_list_fold] value "'.$_SESSION['scan_list_fold'][0].'"'."\n");
+      array_shift($_SESSION['scan_list_fold']);
+      $_SESSION['scan_cnt_fold']++;
+      $next_level = pwg_get_level($_SESSION['scan_list_fold'][0]);
+      $_SESSION['scan_step'] = 'list';
+    }
+    else
+    {
+      $next_level = -1;
+      $_SESSION['scan_step'] = 'stop';
+    }
+    
+    if ($current_level == $next_level)
     {
-      $attrs = array_merge($attrs, array_keys($conf['use_exif_mapping']) );
+      fwrite($g_listing, pwg_close_level($current_level, 1));
     }
-    $listing.= ' metadata="'.implode(',',array_unique($attrs)).'"';
+    else
+    {
+      if (($current_level > $next_level))
+      {
+        fwrite($g_listing, pwg_close_level($current_level, $current_level-$next_level+1));
+      } // Nothing to do if current_level < next_level
+    }
+  }
+  
+  //~ pwg_log("GENERATE scan <<<\n".var_export($_SESSION['scan_list_fold'], true)."\n".var_export($_SESSION['scan_list_file'], true)."\nGENERATE scan <<<\n");
+  //~ pwg_log('<<<<< pwg_generate_scan() <<<<<'."\n");
+}
 
-    $end = strrpos($_SERVER['PHP_SELF'], '/') + 1;
-    $local_folder = substr($_SERVER['PHP_SELF'], 0, $end);
-    $page['url'] = 'http://'.$_SERVER['HTTP_HOST'].$local_folder;
+function pwg_generate_stop()
+{
+  //~ pwg_log('>>>>> pwg_generate_stop() >>>>>'."\n");
+  //~ pwg_log("GENARATE stop >>>\n".var_export($_SESSION['scan_list_fold'], true)."\n".var_export($_SESSION['scan_list_file'], true)."\nGENERATE stop >>>\n");
+  
+  global $pwg_conf, $g_listing, $g_header, $g_message, $g_footer;
+  
+  // Flush line </informations>
+  fwrite($g_listing, '</informations>'."\n");
+  
+  // backup error log before cleaning session
+  $time_elapsed = number_format(pwg_get_moment() - $_SESSION['scan_time'], 3, '.', ' ');
+  
+  $g_header   = ' : <span class="success">Generate</span>';
+  $g_message  = '        <div>'."\n".$_SESSION['scan_logs'].'        </div>'."\n";
+  $g_message .= '        <div><code class="success">'.$_SESSION['scan_cnt_fold'].'</code> directories parsed<br />'."\n";
+  $g_message .= '        <code class="success">'.$_SESSION['scan_cnt_file'].'</code> files scanned</div>'."\n";
+  $g_message .= '        <div>View <a href="listing.xml">listing.xml</a></div>'."\n";
+  $g_message .= '        <div style="{text-align: right;}">Listing generated in : <code>'.$time_elapsed.' s</code></div>';
+  $g_footer   = '<a href="'.$pwg_conf['this_url'].'" title="Main menu"><img src="'.$pwg_conf['icon_dir'].'up.png" /></a>';
+      
+  // What are we doing at next step
+  $_SESSION['scan_step'] = 'exit';
+  
+  //~ pwg_log("GENARATE stop <<<\n".var_export($_SESSION['scan_list_fold'], true)."\n".var_export($_SESSION['scan_list_file'], true)."\nGENERATE stop <<<\n");
+  //~ pwg_log('<<<<< pwg_generate_stop() <<<<<'."\n");
+}
+
+// +-----------------------------------------------------------------------+
+// |                                ALWAYS CALLED FUNCTIONS                |
+// +-----------------------------------------------------------------------+
+
+/**
+ * This function check step and time ellapsed to determine end of loop
+ *
+ * @return bool
+ */
+function pwg_continue()
+{
+  //~ pwg_log('>>>>> pwg_continue() >>>>>'."\n");
+  
+  global $conf, $pwg_conf, $g_refresh, $g_header, $g_message, $g_footer, $start_time;
+  
+  if (!isset($_SESSION['scan_step']) or $_SESSION['scan_step'] == 'exit')
+  {
+    // evident end of process
+    $return = false;
+  }
+  else
+  {
+    if ($pwg_conf['safe_mode'])
+    {
+      // can not reset the time
+      $time_elapsed = pwg_get_moment() - $start_time;
+      if ($time_elapsed < $conf['max_execution_time'])
+      {
+        $return = true;
+      }
+      else
+      {
+        $start_time = $_SESSION['scan_time'];
+        $formated_time = number_format(pwg_get_moment() - $start_time, 3, '.', ' ');
 
-    $listing.= ' url="'.$page['url'].'"';
-    $listing.= '/>'."\n";
+        $g_refresh = '<meta http-equiv="Refresh" content="'.$conf['refresh_delay'].'">'."\n";
+        $g_header  = ' : <span class="success">'.ucfirst($_SESSION['scan_action']).'</span>';
+        $g_message = '';
+        if ($_SESSION['scan_cnt_fold'] != 0)
+        {
+          $g_message .= '<code class="success">'.$_SESSION['scan_cnt_fold'].'</code> directories scanned<br />'."\n";
+        }
+        if ($_SESSION['scan_cnt_file'] != 0)
+        {
+          $g_message .= '<code class="success">'.$_SESSION['scan_cnt_file'].'</code> files scanned<br />'."\n";
+        }
+        $nb = count($_SESSION['scan_list_fold']);
+        if ($nb > 0)
+        {
+          $g_message .= '<code class="warning">'.$nb.'</code> directories to scan<br />'."\n";
+        }
+        $nb = count($_SESSION['scan_list_file']);
+        if ($nb > 0)
+        {
+          $g_message .= '<code class="warning">'.$nb.'</code> files to scan<br />'."\n";
+        }
+        $g_message .= '        <div style="{text-align: right;}">Time elapsed : <code>'.$formated_time.' s</code></div>';
+        $g_footer  = '<a href="'.$pwg_conf['this_url'].'?action='.$_SESSION['scan_action'].'" title="Continue"><img src="'.$pwg_conf['icon_dir'].'right.png" /></a>'."\n";
+        
+        $return = false;
+      }
+    }
+    else
+    {
+      // reset the time
+      set_time_limit(intval(ini_get('max_execution_time')));
+      $return = true;
+    }
+  }
+  //~ pwg_log('<<<<< pwg_continue() returns '.var_export($return, true).' <<<<<'."\n");
+  
+  return $return;
+}
 
-    $listing.= get_dirs('.', '', 0);
+/**
+ * This function :
+ * -> Verify the script call
+ * -> Lock the script
+ * -> Open listing.xml if action is 'generate'
+ * -> Initialize output and session variables
+ *
+ * @return nothing
+ */
+function pwg_init()
+{
+  //~ pwg_log('>>>>> pwg_init() >>>>>'."\n");
 
-    if ($fp = @fopen("./listing.xml","w"))
+  global $g_message, $g_listing, $g_footer, $conf, $pwg_conf, $start_time;
+  
+  // Lock other script sessions, this lock will be remove during 'exit' step
+  if (!isset($_SESSION['scan_step']))
+  {
+    $fp = @fopen(__FILE__.'.lock', 'x+'); // return false if __FILE__.lock exists or if cannot create
+    if ($fp == false)
     {
-      fwrite($fp, $listing);
-      fclose($fp);
-      echo 'PWG-INFO-1: listing.xml created in ';
-      echo get_elapsed_time($start, get_moment());
-      echo "\n";
+      $g_header   = $_SESSION['scan_action'];
+      $g_message  = '        <code class="failure">Failure -</code> Another script is running';
+      $g_message .= ' <img src="'.$pwg_conf['icon_dir'].'add_tag.png" title="Delete file '.__FILE__.'.lock and retry" />';
+      $g_message .= "\n";
+      $g_footer   = '<a href="'.$pwg_conf['this_url'].'" title="Main menu"><img src="'.$pwg_conf['icon_dir'].'up.png" /></a>'."\n";
+      $_SESSION['scan_step'] = 'exit';
+      //~ pwg_log('<<<<< pwg_init() failure <<<<<'."\n");
+      return;
     }
     else
     {
-      echo "PWG-ERROR-2: I can't write the file listing.xml"."\n";
+      fwrite($fp, session_id()); // Writing session_id to trace lock
+      fclose($fp);
+      $_SESSION['scan_step'] = 'init';
     }
-    break;
   }
-  case 'test' :
+  
+  // Verify and backup parameter action. This backup will be removed during step 'exit'
+  if (isset($_REQUEST['action']))
   {
-    if (isset($_GET['version']))
+    if (in_array($_REQUEST['action'], $pwg_conf['scan_action']))
     {
-      if ($_GET['version'] != $conf['version'])
+      if (isset($_SESSION['scan_action']))
       {
-        echo 'PWG-ERROR-4: PhpWebGallery versions differs'."\n";
+        if ($_SESSION['scan_action'] != $_REQUEST['action'])
+        {
+          // Fatal error
+          $g_message  = '        <code class="failure">Failure -</code> Parameter <code>action</code> differs between url and session';
+          $g_message .= "\n";
+          $g_footer   = '<a href="'.$pwg_conf['this_url'].'" title="Main menu"><img src="'.$pwg_conf['icon_dir'].'up.png" /></a>'."\n";
+          $_SESSION['scan_step'] = 'exit';
+          //~ pwg_log('<<<<< pwg_init() failure <<<<<'."\n");
+          return;
+        }
       }
       else
       {
-        echo 'PWG-INFO-2: test successful'."\n";
+        $_SESSION['scan_action'] = $_REQUEST['action'];
       }
     }
     else
     {
-      echo 'PWG-INFO-2: test successful'."\n";
+      // Fatal error
+      $g_message  = '        <code class="failure">Failure -</code> Problem with <code>action</code> parameter';
+      $g_message .= ' <img src="'.$pwg_conf['icon_dir'].'add_tag.png" title="empty, '.implode(', ', $pwg_conf['scan_action']).'" />';
+      $g_message .= "\n";
+      $g_footer   = '<a href="'.$pwg_conf['this_url'].'" title="Main menu"><img src="'.$pwg_conf['icon_dir'].'up.png" /></a>'."\n";
+      $_SESSION['scan_step'] = 'exit';
+      //~ pwg_log('<<<<< pwg_init() failure <<<<<'."\n");
+      return;
     }
-    break;
   }
-  case 'clean' :
+  else
   {
-    if( @unlink('./listing.xml'))
-    {
-      echo 'PWG-INFO-3 : listing.xml file deleted'."\n";
-    }
-    else
+    // Here we are on welcome page
+    $g_message  = '        <ul>'."\n";
+    $g_message .= '          <li><a href="'.$pwg_conf['this_url'].'?action=test" title="Display/Compare script version">Test</a></li>'."\n";
+    $g_message .= '          <li><a href="'.$pwg_conf['this_url'].'?action=clean" title="Delete listing.xml if exists">Clean</a></li>'."\n";
+    $g_message .= '          <li><a href="'.$pwg_conf['this_url'].'?action=generate" title="Scan all images from this directory and write informations in listing.xml">Listing</a></li>'."\n";
+    $g_message .= '          <li><a href="'.$pwg_conf['this_url'].'?action=protect" title="Protect all directories from this point with index.php">Protect</a></li>'."\n";
+    $g_message .= '        </ul>'."\n";
+    $g_footer   = '<a href="'.$conf['gallery'].'/admin.php?page=site_manager" title="Main gallery :: site manager">';
+    $g_footer  .= '<img src="'.$pwg_conf['icon_dir'].'home.png" /></a>'."\n";
+    $_SESSION['scan_step'] = 'exit';
+  }
+  
+  // Open listing.xml
+  if ($_SESSION['scan_action'] == 'generate')
+  {
+    $mode = ($_SESSION['scan_step'] == 'init') ? 'w' : 'a'; // Erase old listing.xml at the beginning of generation (mode w)
+    $g_listing = @fopen('listing.xml', $mode);
+    if ($g_listing === false)
     {
-      echo 'PWG-ERROR-3 : listing.xml does not exist'."\n";
+      $g_header   = $_SESSION['scan_action'];
+      $g_message  = '        <code class="failure">Failure -</code> Can not write file <code>listing.xml</code>';
+      $g_message .= "\n";
+      $g_footer   = '<a href="'.$pwg_conf['this_url'].'" title="Main menu"><img src="'.$pwg_conf['icon_dir'].'up.png" /></a>'."\n";
+      $_SESSION['scan_step'] = 'exit';
+      //~ pwg_log('<<<<< pwg_init() failure <<<<<'."\n");
+      return;
     }
-    break;
   }
-  default :
+  
+  // Initializing session counters. This counters will be completely unset during step 'exit'
+  if ($_SESSION['scan_step'] == 'init')
   {
-    // Menu de lancement pour la mise à jour manuel des sites distant
-    echo '</pre>
-<ul>
-  <li>
-    <a href="create_listing_file.php?action=generate">Generate listing.xml</a>
-  </li>
+    $_SESSION['scan_list_file'] = array();
+    $_SESSION['scan_list_fold'] = array();
+    $_SESSION['scan_cnt_file'] = 0;
+    $_SESSION['scan_cnt_fold'] = 0;
+    $_SESSION['scan_time'] = $start_time;
+    $_SESSION['scan_step'] = 'start';
+    $_SESSION['scan_logs'] = '';
+  }
+  
+  //~ pwg_log('<<<<< pwg_init() success <<<<<'."\n");
+}
 
-  <li>
-    <a href="create_listing_file.php?action=test">Test</a>
-  </li>
+/**
+ * This function :
+ * -> Close listing.xml if action is 'generate'
+ * -> Unlock the script
+ * -> Erase session variables
+ *
+ * @return nothing
+ */
+function pwg_exit()
+{
+  //~ pwg_log('>>>>> pwg_exit() >>>>>'."\n");
+  
+  global $g_listing;
+  
+  // Close XML file
+  if ($_SESSION['scan_action'] == 'generate' and $g_listing != false)
+  {
+    fclose($g_listing);
+  }
+  
+  // Unlock script
+  unlink(__FILE__.'.lock');
+  
+  // Erase session counters
+  unset($_SESSION['scan_list_file']);
+  unset($_SESSION['scan_list_fold']);
+  unset($_SESSION['scan_cnt_file']);
+  unset($_SESSION['scan_cnt_fold']);
+  unset($_SESSION['scan_time']);
+  unset($_SESSION['scan_step']);
+  $local_action = $_SESSION['scan_action'];
+  unset($_SESSION['scan_action']);
+  unset($_SESSION['scan_logs']);
+
+
+  // Call specific action post process
+  if (is_callable('pwg_'.$local_action.'_exit'))
+  {
+    call_user_func('pwg_'.$local_action.'_exit');
+  }
+  
+  //~ pwg_log('<<<<< pwg_exit() <<<<<'."\n");
+}
+
+// +-----------------------------------------------------------------------+
+// |                                script                                 |
+// +-----------------------------------------------------------------------+
+session_start();
+
+$start_time = pwg_get_moment();
+
+// Initializing message for web page
+$g_refresh = '';
+$g_header  = '';
+$g_message = '';
+$g_footer  = '';
+$g_listing = '';
 
-  <li>
-    <a href="create_listing_file.php?action=clean">Clean</a>
-  </li>
-</ul>
-<pre>';
+pwg_init();
+
+while(pwg_continue())
+{
+  if (is_callable('pwg_'.$_SESSION['scan_action'].'_'.$_SESSION['scan_step']))
+  {
+    call_user_func('pwg_'.$_SESSION['scan_action'].'_'.$_SESSION['scan_step']); // Run the step : start, list, scan, stop are available
   }
+  else
+  {
+    $g_header   = $_SESSION['scan_action'];
+    $g_message  = '        <code class="failure">Failure -</code> INTERNAL STEP ERROR : <code>pwg_'.$_SESSION['scan_action'].'_'.$_SESSION['scan_step'].'()</code> undefined';
+    $g_message .= "\n";
+    $g_footer   = '<a href="'.$pwg_conf['this_url'].'" title="Main menu"><img src="'.$pwg_conf['icon_dir'].'up.png" /></a>'."\n";
+    $_SESSION['scan_step'] = 'exit';
+  }
+}
+
+if ($_SESSION['scan_step'] == 'exit')
+{
+  pwg_exit();
 }
-echo '</pre>';
+
 ?>
+<html>
+  <head>
+  <?php echo $g_refresh; ?>
+  <title>Manage distant gallery</title>
+  </head>
+    <style type="text/css">
+      code {font-weight: bold}
+      img {border-style: none; vertical-align: middle}
+      ul {list-style-image: url(<?php echo $pwg_conf['icon_dir']; ?>add_tag.png)}      
+      .success {color: green}
+      .warning {color: orange}
+      .failure {color: red}
+      .header {text-align: center; font-variant: small-caps; font-weight: bold;}
+      .p {color: #F93;}
+      .w {color: #ccc;}
+      .g {color: #69C;}
+      .pwg {text-decoration: none; border-bottom-style: dotted; border-bottom-width: 1px;}
+      .content {width: 75%; position: absolute; top: 10%; left: 12%;}
+      .footer {text-align: right;}
+      .pwg_block {float: left;}
+    </style>
+  <body>
+    <div class="content">
+      <fieldset class="header">
+        <span class="p">Php</span>
+        <span class="w">Web</span>
+        <span class="g">Gallery</span>
+        &nbsp;distant site<? echo $g_header; ?>
+      </fieldset>
+      <fieldset>
+<?php echo $g_message; ?>
+      </fieldset>
+      <fieldset class="footer">
+        <div class="pwg_block">
+          Powered by <a href="http://www.phpwebgallery.net" class="pwg"><span class="p">Php</span><span class="w">Web</span><span class="g">Gallery</span></a>
+        </div>
+        <?php echo $g_footer; ?>
+      </fieldset>
+    </div>
+  </body>
+</html>