Mercurial > hg > mgallery
annotate mgtool.php @ 30:f2c21a8b9071
Sort images in a folder by their capture timestamp.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Sat, 23 Apr 2016 19:36:31 +0300 |
| parents | 8cf743c7ea23 |
| children | 953b0f7636f4 |
| rev | line source |
|---|---|
| 0 | 1 #!/usr/bin/php |
| 2 <?php | |
| 3 // | |
| 4 // Yet Another Image Gallery | |
| 5 // Commandline tool for creating / updating gallery | |
| 6 // (C) Copyright 2015 Tecnic Software productions (TNSP) | |
| 7 // | |
| 8 require_once "mgallery.inc.php"; | |
| 9 | |
| 10 // | |
| 11 // Array for specifying what will be copied and converted | |
| 12 // from the image file's EXIF information tag(s). | |
| 13 // | |
| 14 $galExifConversions = array( | |
| 15 array(MG_STR, "caption" , "ImageDescription"), | |
| 16 array(MG_STR, "copyright" , "Copyright"), | |
| 17 array(MG_STR, "model" , "Model"), | |
| 18 array(MG_INT, "width" , array("COMPUTED", "Width")), | |
| 19 array(MG_INT, "height" , array("COMPUTED", "Height")), | |
| 20 array(MG_DVA, "fnumber" , "FNumber"), | |
| 21 array(MG_DVA, "exposure" , "ExposureTime"), | |
| 22 array(MG_INT, "iso" , "ISOSpeedRatings"), | |
|
29
8cf743c7ea23
Add focal length and lens model display.
Matti Hamalainen <ccr@tnsp.org>
parents:
26
diff
changeset
|
23 array(MG_STR, "lensmodel" , "UndefinedTag:0xA434"), |
| 0 | 24 array(MG_DVA, "focallength" , "FocalLength"), |
| 25 array(MG_STR, "datetime" , "DateTimeOriginal"), | |
| 26 array(MG_STR, "datetime" , "DateTimeDigitized"), | |
| 27 array(MG_INT, "filesize" , "FileSize"), | |
| 28 ); | |
| 29 | |
| 30 define("GCMD_UPDATE" , 1); | |
| 31 define("GCMD_RESCAN" , 2); | |
| 32 define("GCMD_CLEAN" , 3); | |
| 33 | |
| 34 define("GCLEAN_CACHES" , 0x01); | |
| 35 define("GCLEAN_THUMBNAILS", 0x02); | |
| 36 define("GCLEAN_ALL" , 0x0f); | |
| 37 | |
| 38 define("GUPD_MED_IMAGE" , 0x01); | |
| 39 define("GUPD_TN_IMAGE" , 0x02); | |
| 40 define("GUPD_IMAGES" , 0x0f); | |
| 41 define("GUPD_EXIF_INFO" , 0x10); | |
| 42 define("GUPD_CAPTION" , 0x20); | |
| 43 | |
| 44 | |
| 45 // | |
| 46 // Convert and scale image file function, for generating | |
| 47 // the intermediate size images and thumbnails. Uses the | |
| 48 // PHP ImageMagick bindings. | |
| 49 // | |
| 50 function mgConvertImage($inFilename, $outFilename, $outDim, $outFormat, $outQuality, $thumb) | |
| 51 { | |
| 52 // Create conversion entity | |
| 53 $img = new Imagick($inFilename); | |
| 54 if ($img === FALSE) | |
| 55 return mgError("ImageMagick could not digest the file '".$inFilename."'.\n"); | |
| 56 | |
| 57 if ($outDim !== FALSE) | |
| 58 { | |
| 59 // Get dimensions, setup background | |
| 60 $dim = $img->getImageGeometry(); | |
| 61 //$img->setImageBackgroundColor(imagick::COLOR_BLACK); | |
| 62 $img->setGravity(imagick::GRAVITY_CENTER); | |
| 63 | |
| 64 | |
| 65 if ($dim["width"] < $dim["height"]) | |
| 66 { | |
| 67 $stmp = $outDim[0]; | |
| 68 $outDim[0] = $outDim[1]; | |
| 69 $outDim[1] = $stmp; | |
| 70 } | |
| 71 | |
| 72 if ($dim["width"] != $outDim[0] || $dim["height"] != $outDim[1]) | |
| 73 { | |
| 74 $outDim[1] = ($dim["height"] * $outDim[0]) / $dim["width"]; | |
| 75 } | |
| 76 | |
| 77 // Act based on image size vs. desired size and $thumb mode | |
| 78 if ($thumb || $dim["width"] > $outDim[0] || $dim["height"] > $outDim[1]) | |
| 79 { | |
| 80 // Image is larger | |
|
1
a07447c02b13
Use Lanczos filter for scaling instead of quadratic. Better quality and
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
81 $img->resizeImage($outDim[0], $outDim[1], Imagick::FILTER_LANCZOS, 1); |
| 0 | 82 $img->setImageExtent($outDim[0], $outDim[1]); |
| 83 $img->normalizeImage(); | |
| 84 $img->unsharpMaskImage(0, 0.5, 1, 0.05); | |
| 85 } | |
| 86 if ($dim["width"] < $outDim[0] || $dim["height"] < $outDim[1]) | |
| 87 { | |
| 88 // Image is smaller than requested dimension(s)? | |
|
1
a07447c02b13
Use Lanczos filter for scaling instead of quadratic. Better quality and
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
89 $img->resizeImage($outDim[0], $outDim[1], Imagick::FILTER_LANCZOS, 1); |
| 0 | 90 $img->setImageExtent($outDim[0], $outDim[1]); |
| 91 $img->unsharpMaskImage(0, 0.5, 1, 0.05); | |
| 92 } | |
| 93 } | |
| 94 | |
| 95 $img->setFormat($outFormat); | |
| 96 $img->setCompressionQuality($outQuality); | |
| 97 | |
| 98 $img->stripImage(); | |
| 99 $img->writeImage($outFilename); | |
| 100 $img->removeImage(); | |
| 101 return TRUE; | |
| 102 } | |
| 103 | |
| 104 | |
| 105 // | |
| 106 // Converts one value (mainly from EXIF tag information) | |
| 107 // by doing explicing type casting and special conversions. | |
| 108 // | |
| 109 function mgConvertExifData($val, $vtype) | |
| 110 { | |
| 111 switch ($vtype) | |
| 112 { | |
| 113 case MG_STR: return (string) $val; | |
| 114 case MG_INT: return intval($val); | |
| 115 case MG_BOOL: return intval($val); | |
| 116 case MG_DVA: | |
| 117 if (sscanf($val, "%d/%d", $v1, $v2) == 2) | |
| 118 { | |
| 119 if ($v1 < $v2) | |
| 120 return $val; | |
| 121 else | |
| 122 return sprintf("%1.1f", $v1 / $v2); | |
| 123 } | |
| 124 else | |
| 125 return $val; | |
| 126 | |
| 127 default: | |
| 128 return $val; | |
| 129 } | |
| 130 } | |
| 131 | |
| 132 | |
| 133 // | |
| 134 // Conditionally copies one "field" from an associated array/hash to another. | |
| 135 // If destination is already SET, nothing will be done. If source does | |
| 136 // not exist (e.g. one or more of the keys do not exist in source array), | |
| 137 // a default value will be used, if provided. | |
| 138 // Source may have multi-depth keys, destination has one key. | |
| 139 // | |
| 140 function mgCopyEntryData(&$dst, $src, $vtype, $dkey, $skeys, $default = NULL) | |
| 141 { | |
| 142 // Is destination already set? | |
| 143 if (isset($dst[$dkey])) | |
| 144 return FALSE; | |
| 145 | |
| 146 // If input key is not array, change it into one | |
| 147 if (!is_array($skeys)) | |
| 148 $skeys = array($skeys); | |
| 149 | |
| 150 // Traverse input array by using consequent keys | |
| 151 $tmp = &$src; | |
| 152 foreach ($skeys as $skey) | |
| 153 { | |
| 154 if (!array_key_exists($skey, $tmp)) | |
| 155 { | |
| 156 // Key didn't exist, try for default | |
| 157 if ($default !== NULL) | |
| 158 $dst[$dkey] = $default; | |
| 159 return FALSE; | |
| 160 } | |
| 161 else | |
| 162 $tmp = &$tmp[$skey]; | |
| 163 } | |
| 164 | |
| 165 // Optionally convert the input value | |
| 166 $dst[$dkey] = mgConvertExifData($tmp, $vtype); | |
| 167 return TRUE; | |
| 168 } | |
| 169 | |
| 170 | |
| 171 // | |
| 172 // Attempt to get gallery album data from various sources. | |
| 173 // | |
| 174 function mgGetAlbumData($galBasePath, $galPath) | |
| 175 { | |
| 176 // Check path permissions | |
| 177 $galData = array(); | |
| 178 if (is_readable($galPath)) | |
| 179 { | |
| 180 // First, try to read gallery/album info file | |
| 181 $filename = mgGetPath($galPath, "info_file"); | |
| 182 if ($filename !== FALSE && file_exists($filename)) | |
| 183 { | |
| 184 mgDebug("Reading INFOFILE: ".$filename."\n"); | |
| 185 if (($galData = parse_ini_file($filename, FALSE)) === FALSE) | |
| 186 $galData = array(); | |
| 187 } | |
| 188 | |
| 189 // Read header file, if any, and we don't have "header" field set yet | |
| 190 $filename = mgGetPath($galPath, "header_file"); | |
| 191 if ($filename !== FALSE && file_exists($filename) && | |
| 192 !isset($galData["header"])) | |
| 193 { | |
| 194 mgDebug("Reading HEADERFILE: ".$filename."\n"); | |
| 195 $galData["header"] = file_get_contents($filename); | |
| 196 } | |
| 197 | |
| 198 // Check for alternate key/values for album title/caption | |
| 199 if (isset($galData["title"]) && !isset($galData["caption"])) | |
| 200 { | |
| 201 $galData["caption"] = $galData["title"]; | |
| 202 unset($galData["title"]); | |
| 203 } | |
| 204 } | |
| 205 else | |
| 206 $galData["hide"] = TRUE; | |
| 207 | |
| 208 // If caption is not set, use last path component for | |
| 209 // a fallback value in case we don't discover proper title | |
| 210 // from other sources we can't check here yet. | |
| 211 $path = explode("/", $galPath); | |
| 212 $galData["fallback_caption"] = ucfirst(str_replace("_", " ", end($path))); | |
| 213 | |
| 214 // Last, store the current gallery path | |
| 215 $len = strlen($galBasePath); | |
| 216 if ($len < strlen($galPath) && substr($galPath, 0, $len) == $galBasePath) | |
| 217 $galData["path"] = substr($galPath, $len); | |
| 218 else | |
| 219 $galData["path"] = ""; | |
| 220 | |
| 221 return $galData; | |
| 222 } | |
| 223 | |
| 224 | |
| 225 function mgReadCaptionsFile($galBasePath, $galPath) | |
| 226 { | |
| 227 $captions = array(); | |
| 228 $filename = mgGetPath($galPath, "captions_file"); | |
| 229 if ($filename === FALSE || ($fp = @fopen($filename, "rb")) === FALSE) | |
| 230 return $captions; | |
| 231 | |
| 232 mgDebug("Reading CAPTIONS: ".$filename."\n"); | |
| 233 | |
| 234 // Read and parse data | |
| 235 while (!feof($fp)) | |
| 236 { | |
| 237 $str = trim(fgets($fp)); | |
| 238 // Ignore comments and empty lines | |
| 239 if ($str != "#" && $str != "") | |
| 240 { | |
|
11
0b097770061d
Improve content hiding functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
10
diff
changeset
|
241 if (preg_match("/^([#%]?)\s*(\S+?)\s+(.+)$/", $str, $m)) |
|
0b097770061d
Improve content hiding functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
10
diff
changeset
|
242 $captions[$m[2]] = array("caption" => $m[3], "hide" => ($m[1] == "#"), "hide_contents" => ($m[1] == "%"), "used" => FALSE); |
| 0 | 243 else |
|
11
0b097770061d
Improve content hiding functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
10
diff
changeset
|
244 if (preg_match("/^([#%]?)\s*(\S+?)$/", $str, $m)) |
|
0b097770061d
Improve content hiding functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
10
diff
changeset
|
245 $captions[$m[2]] = array("hide" => ($m[1] == "#"), "hide_contents" => ($m[1] == "%"), "used" => FALSE); |
| 0 | 246 } |
| 247 } | |
| 248 | |
| 249 fclose($fp); | |
| 250 return $captions; | |
| 251 } | |
| 252 | |
| 253 | |
| 254 function mgMakeDir($path, $perm) | |
| 255 { | |
| 256 if (!file_exists($path)) | |
| 257 { | |
| 258 if (mkdir($path, $perm, TRUE) === false) | |
| 259 return mgError("Could not create directory '".$path."'\n"); | |
| 260 } | |
| 261 return TRUE; | |
| 262 } | |
| 263 | |
| 264 | |
| 265 function mgYesNoPrompt($msg, $default = FALSE) | |
| 266 { | |
| 267 echo $msg." [".($default ? "Y/n" : "y/N")."]? "; | |
| 268 $sprompt = strtolower(trim(fgets(STDIN))); | |
| 269 | |
| 270 if ($default) | |
| 271 return ($sprompt == "n"); | |
| 272 else | |
| 273 return ($sprompt == "y"); | |
| 274 } | |
| 275 | |
| 276 | |
| 277 function mgDelete($path, $recurse) | |
| 278 { | |
| 279 global $flagDoDelete; | |
| 280 if (is_dir($path)) | |
| 281 { | |
| 282 if (($dirHandle = @opendir($path)) === FALSE) | |
| 283 return mgError("Could not read directory '".$path."'.\n"); | |
| 284 | |
| 285 while (($dirFile = @readdir($dirHandle)) !== FALSE) | |
| 286 { | |
| 287 if ($dirFile != "." && $dirFile != "..") | |
| 288 mgDelete($path."/".$dirFile, $recurse); | |
| 289 } | |
| 290 closedir($dirHandle); | |
| 291 | |
| 292 echo " - ".$path." [DIR]\n"; | |
| 293 if ($flagDoDelete) | |
| 294 rmdir($path); | |
| 295 } | |
| 296 else | |
| 297 { | |
| 298 if (!$recurse) | |
| 299 echo " - ".$path."\n"; | |
| 300 if ($flagDoDelete) | |
| 301 unlink($path); | |
| 302 } | |
| 303 } | |
| 304 | |
| 305 | |
| 306 function mgCheckQuit($now = FALSE) | |
| 307 { | |
| 308 global $flagQuit; | |
| 309 | |
| 310 // Dispatch pending signals | |
| 311 pcntl_signal_dispatch(); | |
| 312 | |
| 313 // Check result | |
| 314 if ($now && $flagQuit) | |
| 315 mgFatal("Quitting.\n"); | |
| 316 | |
| 317 return $flagQuit; | |
| 318 } | |
| 319 | |
| 320 | |
| 321 function mgNeedUpdate($entry, $field, $cvalue) | |
| 322 { | |
| 323 if (!array_key_exists($field, $entry)) | |
| 324 return TRUE; | |
| 325 | |
| 326 return ($entry[$field] < $cvalue); | |
| 327 } | |
| 328 | |
| 329 | |
|
30
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
330 function mgSortFunc($a, $b) |
|
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
331 { |
|
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
332 if (isset($a["datetime"]) && isset($b["datetime"])) |
|
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
333 return strcmp($b["datetime"], $a["datetime"]); |
|
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
334 else |
|
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
335 return 0; |
|
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
336 } |
|
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
337 |
|
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
338 |
|
16
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
339 function mgWriteGalleryCache($cacheFilename, &$gallery, &$entries, &$parentEntry) |
|
15
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
340 { |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
341 // Store gallery cache for this directory |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
342 $images = array(); |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
343 $albums = array(); |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
344 foreach ($entries as $ename => &$edata) |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
345 { |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
346 if ($edata["hide"]) |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
347 continue; |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
348 |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
349 unset($edata["hide"]); |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
350 if ($edata["type"] == 0) |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
351 $images[$ename] = &$edata; |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
352 else |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
353 $albums[$ename] = &$edata; |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
354 } |
|
30
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
355 |
|
f2c21a8b9071
Sort images in a folder by their capture timestamp.
Matti Hamalainen <ccr@tnsp.org>
parents:
29
diff
changeset
|
356 uasort($images, "mgSortFunc"); |
|
15
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
357 ksort($albums); |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
358 |
|
16
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
359 // Choose gallery album image |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
360 if (count($images) > 0) |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
361 { |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
362 end($images); |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
363 $parentEntry["image"] = key($images); |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
364 } |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
365 |
|
15
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
366 $str = |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
367 "<?\n". |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
368 "\$galData = ".var_export($gallery, TRUE).";\n". |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
369 "\$galAlbumsIndex = ".var_export(array_keys($albums), TRUE).";\n". |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
370 "\$galImagesIndex = ".var_export(array_keys($images), TRUE).";\n". |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
371 "\$galEntries = ".var_export($entries, TRUE).";\n". |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
372 "?>"; |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
373 |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
374 if (@file_put_contents($cacheFilename, $str, LOCK_EX) === FALSE) |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
375 return mgError("Error writing '".$cacheFilename."'\n"); |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
376 |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
377 return TRUE; |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
378 } |
|
805f93962cf9
Factorize gallery cache file writing to a separate function.
Matti Hamalainen <ccr@tnsp.org>
parents:
11
diff
changeset
|
379 |
|
16
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
380 |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
381 function mgHandleDirectory($mode, $basepath, $path, &$parentData, &$parentEntry, $writeMode, $startAt) |
| 0 | 382 { |
| 383 global $galExifConversions, $galTNPath, $galCleanFlags; | |
| 384 | |
| 385 // Get cache file path | |
| 386 if (($cacheFilename = mgGetPath($path, "cache_file")) === FALSE) | |
| 387 return mgError("Cache filename / path not set.\n"); | |
| 388 | |
| 389 mgCheckQuit(TRUE); | |
| 390 | |
| 391 // Read directory contents | |
| 392 $entries = array(); | |
| 393 if (($dirHandle = @opendir($path)) === FALSE) | |
| 394 return mgError("Could not read directory '".$path."'.\n"); | |
| 395 | |
| 396 while (($dirFile = @readdir($dirHandle)) !== FALSE) | |
| 397 { | |
| 398 $realFile = $path."/".$dirFile; | |
| 399 if (is_dir($realFile)) | |
| 400 { | |
| 401 if ($dirFile[0] != "." && $dirFile != $galTNPath) | |
| 402 $entries[$dirFile] = array("type" => 1, "base" => $dirFile, "ext" => "", "mtime" => filemtime($realFile)); | |
| 403 } | |
| 404 else | |
|
6
405a02586fc2
Fix handling of image files that have spaces in filename (regexp used \S,
Matti Hamalainen <ccr@tnsp.org>
parents:
1
diff
changeset
|
405 if (preg_match("/^([^\/]+)(".mgGetSetting("format_exts").")$/i", $dirFile, $dirMatch)) |
| 0 | 406 $entries[$dirFile] = array("type" => 0, "base" => $dirMatch[1], "ext" => $dirMatch[2], "mtime" => filemtime($realFile), "hide" => false); |
| 407 } | |
| 408 closedir($dirHandle); | |
| 409 | |
| 410 mgCheckQuit(); | |
| 411 | |
| 412 // Cleanup mode | |
| 413 if ($mode == GCMD_CLEAN) | |
| 414 { | |
| 415 $gallery = array(); | |
| 416 | |
| 417 if ($writeMode) | |
| 418 { | |
| 419 if ($galCleanFlags & GCLEAN_CACHES) | |
| 420 mgDelete($cacheFilename, FALSE); | |
| 421 | |
| 422 if ($galCleanFlags & GCLEAN_THUMBNAILS) | |
| 423 mgDelete($path."/".$galTNPath, TRUE); | |
| 424 } | |
| 425 } | |
| 426 else | |
| 427 // Update modes | |
| 428 if ($mode == GCMD_UPDATE || $mode == GCMD_RESCAN) | |
| 429 { | |
| 430 // Load current cache file, if it exists | |
| 431 $galEntries = array(); | |
| 432 $cacheTime = -1; | |
| 433 if ($mode == GCMD_UPDATE && file_exists($cacheFilename)) | |
| 434 { | |
| 435 $cacheTime = filemtime($cacheFilename); | |
| 436 @include $cacheFilename; | |
| 437 } | |
| 438 | |
| 439 // Read caption data | |
| 440 $captions = mgReadCaptionsFile($basepath, $path); | |
| 441 $gallery = mgGetAlbumData($basepath, $path); | |
| 442 if ($parentData !== NULL && $parentEntry !== NULL) | |
| 443 { | |
|
16
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
444 $gallery["parent"] = &$parentData; |
| 0 | 445 mgCopyEntryData($gallery, $parentEntry, MG_STR, "caption", "caption"); |
| 446 } | |
| 447 | |
| 448 // Start actual processing | |
| 449 $nentries = count($entries); | |
| 450 $nentry = 0; | |
| 451 echo $path." .. "; | |
| 452 foreach ($entries as $ename => &$edata) | |
| 453 { | |
| 454 printf("\r%s (%1.1f%%) ..", $path, ($nentry * 100.0) / $nentries); | |
| 455 | |
| 456 $nentry++; | |
| 457 $efilename = $path."/".$ename; | |
| 458 | |
| 459 if (array_key_exists($ename, $galEntries)) | |
| 460 $galEntry = &$galEntries[$ename]; | |
| 461 else | |
| 462 $galEntry = array(); | |
| 463 | |
| 464 mgCheckQuit(FALSE); | |
| 465 | |
| 466 // Update with captions file data, if any | |
| 467 if (array_key_exists($ename, $captions)) | |
| 468 { | |
| 469 foreach ($captions[$ename] as $ckey => $cval) | |
| 470 $edata[$ckey] = $cval; | |
| 471 } | |
| 472 | |
| 473 // Handle entry based on type | |
| 474 if ($edata["type"] == 0) | |
| 475 { | |
| 476 $updFlags = 0; | |
| 477 $tnPath = $path."/".$galTNPath; | |
| 478 $medFilename = $tnPath."/".$edata["base"].mgGetSetting("med_suffix").$edata["ext"]; | |
| 479 $tnFilename = $tnPath."/".$ename; | |
| 480 $capFilename = $path."/".$edata["base"].".txt"; | |
| 481 | |
| 482 // Check what we need to update .. | |
| 483 if (!file_exists($medFilename) || filemtime($medFilename) < $edata["mtime"]) | |
| 484 $updFlags |= GUPD_MED_IMAGE; | |
| 485 | |
| 486 if (!file_exists($tnFilename) || filemtime($tnFilename) < $edata["mtime"]) | |
| 487 $updFlags |= GUPD_TN_IMAGE; | |
| 488 | |
| 489 if (mgNeedUpdate($galEntry, "mtime", $edata["mtime"])) | |
| 490 $updFlags |= GUPD_EXIF_INFO; | |
| 491 | |
| 492 if (file_exists($capFilename) && | |
| 493 mgNeedUpdate($galEntry, "mtime", filemtime($capFilename))) | |
| 494 $updFlags |= GUPD_CAPTION; | |
| 495 | |
| 496 // Check for EXIF info | |
| 497 if (($updFlags & GUPD_EXIF_INFO) && | |
| 498 ($exif = @exif_read_data($efilename)) !== FALSE) | |
| 499 { | |
| 500 echo "%"; | |
| 501 foreach ($galExifConversions as $conv) | |
| 502 mgCopyEntryData($edata, $exif, $conv[0], $conv[1], $conv[2]); | |
| 503 } | |
| 504 else | |
| 505 { | |
| 506 // Copy old data that is not yet in new | |
| 507 echo "*"; | |
| 508 foreach ($galEntry as $okey => $odata) | |
| 509 { | |
| 510 if (!array_key_exists($okey, $edata)) | |
| 511 $edata[$okey] = $odata; | |
| 512 } | |
| 513 } | |
| 514 | |
| 515 // Generate thumbnails, etc. | |
| 516 if ($updFlags & GUPD_IMAGES) | |
| 517 { | |
| 518 mgMakeDir($tnPath, 0755); | |
| 519 | |
| 520 if ($updFlags & GUPD_MED_IMAGE) | |
| 521 { | |
| 522 echo "1"; | |
| 523 mgConvertImage($efilename, $medFilename, | |
| 524 array(mgGetSetting("med_width"), mgGetSetting("med_height")), | |
| 525 "JPEG", mgGetSetting("med_quality"), TRUE); | |
| 526 } | |
| 527 | |
| 528 if ($updFlags & GUPD_TN_IMAGE) | |
| 529 { | |
| 530 echo "2"; | |
| 531 mgConvertImage($efilename, $tnFilename, | |
| 532 array(mgGetSetting("tn_width"), mgGetSetting("tn_height")), | |
| 533 "JPEG", mgGetSetting("tn_quality"), TRUE); | |
| 534 } | |
| 535 } | |
| 536 | |
| 537 // Check for .txt caption file | |
| 538 if ($updFlags & GUPD_CAPTION) | |
| 539 { | |
| 540 echo "?"; | |
| 541 if (($tmpData = @file_get_contents($capFilename)) !== FALSE) | |
| 542 $edata["caption"] = $tmpData; | |
| 543 } | |
| 544 } | |
| 545 else | |
| 546 if ($edata["type"] == 1) | |
| 547 { | |
| 10 | 548 // Set some of the album data here |
| 0 | 549 $tmp = mgGetAlbumData($basepath, $efilename); |
| 550 mgCopyEntryData($edata, $tmp, MG_STR, "caption", "caption"); | |
| 551 mgCopyEntryData($edata, $tmp, MG_STR, "caption", "fallback_caption"); | |
| 552 mgCopyEntryData($edata, $tmp, MG_STR, "caption", "title"); | |
| 553 mgCopyEntryData($edata, $tmp, MG_BOOL, "hide", "hide", FALSE); | |
|
11
0b097770061d
Improve content hiding functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
10
diff
changeset
|
554 mgCopyEntryData($edata, $tmp, MG_BOOL, "hide_contents", "hide_contents", FALSE); |
| 0 | 555 } |
| 556 } | |
| 557 | |
| 558 echo "\r".$path." ..... DONE\n"; | |
| 559 | |
| 560 mgCheckQuit(TRUE); | |
| 561 } | |
| 562 else | |
| 563 mgFatal("Invalid work mode '".$mode."'.\n"); | |
| 564 | |
| 565 mgCheckQuit(TRUE); | |
| 566 | |
| 567 // Recurse to subdirectories | |
|
9
232086da1670
Fix generating of sub-album/dirs names without gallery.info to specify
Matti Hamalainen <ccr@tnsp.org>
parents:
6
diff
changeset
|
568 foreach ($entries as $ename => &$edata) |
| 0 | 569 if ($edata["type"] == 1) |
| 570 { | |
| 571 $epath = $path."/".$ename."/"; | |
| 572 $newWriteMode = ($writeMode === FALSE && $epath == $startAt) || $writeMode; | |
| 573 | |
| 574 if (!mgHandleDirectory($mode, $basepath, $epath, $gallery, $edata, $newWriteMode, $startAt)) | |
| 575 return FALSE; | |
| 576 } | |
| 577 | |
|
16
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
578 // Finish update modes |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
579 if ($mode == GCMD_UPDATE || $mode == GCMD_RESCAN) |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
580 { |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
581 // Store gallery cache for this directory |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
582 if ($writeMode && !mgWriteGalleryCache($cacheFilename, $gallery, $entries, $parentEntry)) |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
583 return FALSE; |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
584 } |
|
3491ab93630e
Add sub-gallery thumbnails to gallery cache data.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
585 |
| 0 | 586 mgCheckQuit(TRUE); |
| 587 | |
| 588 return TRUE; | |
| 589 } | |
| 590 | |
| 591 | |
| 592 function mgSigHandler($signo) | |
| 593 { | |
| 594 global $flagQuit; | |
| 595 switch ($signo) | |
| 596 { | |
| 597 case SIGTERM: | |
| 598 mgFatal("Received SIGTERM.\n"); | |
| 599 break; | |
| 600 | |
| 601 case SIGQUIT: | |
| 602 case SIGINT: | |
| 603 $flagQuit = TRUE; | |
| 604 break; | |
| 605 | |
| 606 } | |
| 607 } | |
| 608 | |
| 609 | |
| 610 function mgProcessGalleries($cmd, $path) | |
| 611 { | |
| 612 global $galTNPath; | |
| 613 | |
| 614 // Fetch the settings we need | |
| 615 if (mgReadSettings() === FALSE) | |
| 616 die("MGallery not configured.\n"); | |
| 617 | |
| 618 // Check validity of some settings | |
| 619 $galPath = mgGetSetting("base_path"); | |
| 620 $galTNPath = mgCleanPath(TRUE, mgGetSetting("tn_path")); | |
| 621 if ($galTNPath != mgGetSetting("tn_path")) | |
| 622 mgError("Invalid tn_path, using '".$galTNPath."'.\n"); | |
| 623 | |
| 624 if (strpos($galTNPath, "/") !== FALSE || $galTNPath == "") | |
| 625 mgFatal("Invalid tn_path '".$galTNPath."'.\n"); | |
| 626 | |
| 627 $parentData = $parentEntry = NULL; | |
| 628 $writeMode = TRUE; | |
| 629 $startAt = NULL; | |
| 630 | |
| 631 // Check for path argument | |
| 632 if ($path !== FALSE) | |
| 633 { | |
| 634 // Check the given path, needs to be "under" the gallery path | |
| 635 $cmp = mgCleanPath(TRUE, mgRealPath($galPath))."/"; | |
| 636 $tmp = mgCleanPath(TRUE, mgRealPath($path))."/"; | |
| 637 if (substr($tmp, 0, strlen($cmp)) != $cmp) | |
| 638 mgFatal("Path '".$path."' ('".$tmp."') does not reside under '".$galPath."' ('".$cmp."')!\n"); | |
| 639 | |
| 640 // Check if we need to bootstrap | |
| 641 if ($cmp != $tmp) | |
| 642 { | |
| 643 $bpath = mgCleanPath(TRUE, mgRealPath($tmp."../")); | |
| 644 | |
| 645 if ($cmd != GCMD_CLEAN) | |
| 646 { | |
| 647 $cacheFile = mgGetPath($bpath, "cache_file"); | |
| 648 if (!file_exists($cacheFile)) | |
| 649 mgFatal("Can't start working from '".$path."', parent '".$cacheFile."' does not exist!\n"); | |
| 650 | |
| 651 @include($cacheFile); | |
| 652 if (!isset($galEntries) || !isset($galData)) | |
| 653 mgFatal("Cache file '".$cacheFile."' is broken or stale.\n"); | |
| 654 } | |
| 655 | |
| 656 $writeMode = FALSE; | |
| 657 $startAt = $tmp; | |
| 658 $path = $bpath; | |
| 659 | |
| 660 echo "Starting: '".$startAt."' inside '".$path."'.\n"; | |
| 661 } | |
| 662 else | |
| 663 $path = $tmp; | |
| 664 } | |
| 665 else | |
| 666 $path = $galPath; | |
| 667 | |
| 668 // Start working | |
| 669 echo "Gallery path: '".$galPath."', starting at '".$path."' ...\n"; | |
| 670 mgHandleDirectory($cmd, $galPath, $path, $parentData, $parentEntry, $writeMode, $startAt); | |
| 671 } | |
| 672 | |
| 673 | |
| 674 function mgShowCopyright() | |
| 675 { | |
| 676 global $mgProgVersion, $mgProgCopyright, | |
| 677 $mgProgInfo, $mgProgEmail; | |
| 678 | |
| 679 echo | |
| 680 "MGTool ".$mgProgVersion." - MGallery management tool\n". | |
| 681 $mgProgInfo." ".$mgProgEmail."\n". | |
| 682 "(C) Copyright ".$mgProgCopyright."\n"; | |
| 683 } | |
| 684 | |
| 685 | |
| 686 function mgShowHelp() | |
| 687 { | |
| 688 global $argv; | |
| 689 echo | |
| 690 "Usage: ".basename($argv[0])." <command> [arguments]\n". | |
| 691 "\n". | |
| 692 " --help - Show this help.\n". | |
| 693 " --version - Show version information.\n". | |
| 694 "\n". | |
| 695 " update [path]\n". | |
| 696 " Update directories under <path> or all gallery dirs.\n". | |
| 697 " Conditionally scans dirs for new or changed images and\n". | |
| 698 " updates cache files as needed.\n". | |
| 699 "\n". | |
| 700 " rescan [path]\n". | |
| 701 " Like 'update', but forces all cache files to be regenerated\n". | |
| 702 " and EXIF/caption/etc information to be re-scanned even\n". | |
| 703 " if the file timestamps do not justify re-scanning.\n". | |
| 704 "\n". | |
| 705 " clean <all|caches|thumbnails> [path]\n". | |
| 706 " Delete all generated files or selectively cache files or\n". | |
| 707 " everything inside thumbnail directories.\n". | |
| 708 "\n". | |
| 709 " config\n". | |
| 710 " Display configuration values.\n". | |
| 711 "\n"; | |
| 712 } | |
| 713 | |
| 714 | |
| 715 // | |
| 716 // Main code starts | |
| 717 // | |
| 718 if (php_sapi_name() != "cli" || !empty($_SERVER["REMOTE_ADDR"])) | |
| 719 { | |
| 720 header("Status: 404 Not Found"); | |
| 721 die(); | |
| 722 } | |
| 723 | |
| 724 pcntl_signal(SIGTERM, "mgSigHandler"); | |
| 725 pcntl_signal(SIGHUP, "mgSigHandler"); | |
| 726 pcntl_signal(SIGQUIT, "mgSigHandler"); | |
| 727 pcntl_signal(SIGINT, "mgSigHandler"); | |
| 728 | |
| 729 | |
| 730 $cmd = mgCArgLC(1); | |
| 731 switch ($cmd) | |
| 732 { | |
| 733 case "--version": | |
| 734 case "version": | |
| 735 case "ver": | |
| 736 mgShowCopyright(); | |
| 737 break; | |
| 738 | |
| 739 case FALSE: | |
| 740 // No arguments | |
| 741 mgError("Nothing to do. Showing help:\n"); | |
| 742 | |
| 743 case "--help": | |
| 744 case "help": | |
| 745 if ($cmd !== FALSE) | |
| 746 mgShowCopyright(); | |
| 747 mgShowHelp(); | |
| 748 break; | |
| 749 | |
| 750 case "update": case "up": case "upd": case "upda": | |
| 751 mgProcessGalleries(GCMD_UPDATE, mgCArg(2)); | |
| 752 break; | |
| 753 | |
| 754 case "rescan": case "re": case "res": | |
| 755 mgProcessGalleries(GCMD_RESCAN, mgCArg(2)); | |
| 756 break; | |
| 757 | |
| 758 case "clean": case "cl": case "cle": | |
| 759 $cmode = mgCArgLC(2, 2); | |
| 760 switch ($cmode) | |
| 761 { | |
| 762 case "al": $galCleanFlags = GCLEAN_ALL; break; | |
| 763 case "ca": $galCleanFlags = GCLEAN_CACHES; break; | |
| 764 case "th": $galCleanFlags = GCLEAN_THUMBNAILS; break; | |
| 765 case FALSE: | |
| 766 mgFatal("Cleaning requires a mode argument.\n"); | |
| 767 | |
| 768 default: | |
| 769 mgFatal("Invalid clean mode '".mgCArg(2)."'.\n"); | |
| 770 } | |
| 771 $flagDoDelete = FALSE; | |
| 772 mgProcessGalleries(GCMD_CLEAN, mgCArg(3)); | |
| 773 echo "--\n"; | |
| 774 if (mgYesNoPrompt("Really delete the above files and directories?")) | |
| 775 { | |
|
25
c698618e6f67
Actually implement deletion.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
776 echo "Deleting ...\n"; |
|
c698618e6f67
Actually implement deletion.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
777 $flagDoDelete = TRUE; |
|
c698618e6f67
Actually implement deletion.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
778 mgProcessGalleries(GCMD_CLEAN, mgCArg(3)); |
|
c698618e6f67
Actually implement deletion.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
779 } |
|
c698618e6f67
Actually implement deletion.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
780 else |
|
c698618e6f67
Actually implement deletion.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
781 { |
|
c698618e6f67
Actually implement deletion.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
782 echo "Okay, canceling operation.\n"; |
| 0 | 783 } |
| 784 break; | |
| 785 | |
| 786 case "config": | |
| 787 case "dump": | |
| 788 if (mgReadSettings() === FALSE) | |
| 789 die("MGallery not configured.\n"); | |
| 790 | |
| 791 foreach ($mgDefaults as $key => $dval) | |
| 792 { | |
| 793 $sval = mgGetSetting($key); | |
| 26 | 794 if ($cmd == "dump") |
| 795 { | |
| 796 printf("%-20s = %s\n", $key, mgGetDValStr($dval[0], $sval)); | |
| 797 } | |
| 798 else | |
| 799 { | |
| 800 printf("%-20s = %s%s\n", | |
| 801 $key, | |
| 802 mgGetDValStr($dval[0], $sval), | |
| 803 ($dval[1] !== NULL && $sval !== $dval[1]) ? " (default: ".mgGetDValStr($dval[0], $dval[1]).")" : ""); | |
| 804 } | |
| 0 | 805 } |
| 806 break; | |
| 807 | |
| 808 default: | |
| 809 mgError("Unknown option/command '".$cmd."'.\n"); | |
| 810 break; | |
| 811 } | |
| 812 | |
| 813 ?> |