0
+ − 1 #!/usr/bin/perl
+ − 2 #
+ − 3 # CleanupGallery v0.1 for BINS
+ − 4 # Copyright (C) 2003 by Jochen Schaeuble <psionic@psionic.de>
+ − 5 #
+ − 6 # $Id: bins_cleanupgallery,v 1.3 2003/04/08 18:29:46 jerome Exp $
+ − 7 #
+ − 8 # This program is free software; you can redistribute it and/or modify
+ − 9 # it under the terms of the GNU General Public License as published by
+ − 10 # the Free Software Foundation; either version 2 of the License, or
+ − 11 # (at your option) any later version.
+ − 12 #
+ − 13 # This program is distributed in the hope that it will be useful,
+ − 14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
+ − 15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ − 16 # GNU General Public License for more details.
+ − 17 #
+ − 18 # You should have received a copy of the GNU General Public License
+ − 19 # along with this program; see the file COPYING. If not, write to
+ − 20 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 21 # Boston, MA 02111-1307, USA.
+ − 22
+ − 23 use File::Glob ':glob' ;
+ − 24
+ − 25 @knownImageExtentions = ( "jpg" , "jpeg" , "gif" , "png" , "tiff" ,
+ − 26 "bmp" , "tga" , "ps" , "eps" , "fit" , "pcx" ,
+ − 27 "miff" , "pix" , "pnm" , "rgb" , "im1" , "xcf" ,
+ − 28 "xwd" , "xpm" , "avs" , "dcm" , "dcx" , "dib" ,
+ − 29 "dps" , "dpx" , "epdf" , "epi" , "ept" , "fpx" ,
+ − 30 "icb" , "mat" , "mtv" , "pbm" , "pcd" , "pct" ,
+ − 31 "pdb" , "ppm" , "ptif" , "pwp" , "ras" , "thm" ,
+ − 32 );
+ − 33
+ − 34 $imageExts = join ( '|' , @knownImageExtentions );
+ − 35
+ − 36 @webFormats = ( "jpg" , "jpeg" , "gif" , "png" );
+ − 37 $webExts = join ( '|' , @webFormats );
+ − 38
+ − 39
+ − 40 sub ProcessDir
+ − 41 {
+ − 42 local * DIR ;
+ − 43 ( local $curdir , local $dstdir , local $srcdir ) = @_ ;
+ − 44
+ − 45 opendir ( DIR , "$dstdir/$curdir" );
+ − 46 while ( $file = readdir ( DIR )) {
+ − 47 $file = "$curdir/$file" ;
+ − 48
+ − 49 if ( - d "$dstdir/$file" && $file !~ m/\.\.?$/ && $file !~ m/static\.\w*$/ ) {
+ − 50 if ( - d "$srcdir/$file" ) {
+ − 51 # Directory exists in src and dest, process it
+ − 52 & ProcessDir ( $file , $dstdir , $srcdir );
+ − 53 } else {
+ − 54 # Directory only available in dest remove it
+ − 55 print "## Removing dir: $dstdir/$file\n" ;
+ − 56 `rm -Ri \"$dstdir/$file\"` ;
+ − 57 }
+ − 58 } elsif (( - f "$dstdir/$file" || - l "$dstdir/$file" ) &&
+ − 59 $file =~ m/.*\.($webExts)$/i ) {
+ − 60
+ − 61 my @srcfiles = bsd_glob ( "$srcdir/$curdir/*" ,
+ − 62 GLOB_NOCASE |
+ − 63 GLOB_QUOTE |
+ − 64 GLOB_TILDE );
+ − 65 $filefound = 0 ;
+ − 66 FILESEARCH:
+ − 67 foreach $curfile ( @srcfiles ) {
+ − 68 # remove trailing .xml
+ − 69 if ( $curfile =~ m/.*\.xml$/i ) {
+ − 70 $curfile =~ s/(.*)\.xml$/$1/i ;
+ − 71 }
+ − 72
+ − 73 # remove file extension
+ − 74 $curfile =~ s/.*\/([^\/]*)\.($imageExts)$/$1/i ;
+ − 75 if (( $curfile ne "" ) && ( $file =~ m/$curfile.*\.($webExts)$/i )) {
+ − 76 $filefound = 1 ;
+ − 77 last FILESEARCH ;
+ − 78 }
+ − 79 }
+ − 80 if ( $filefound == 0 ) {
+ − 81 $file =~ s/(.*)_\w+\.($webExts)$/$1/i ;
+ − 82 print "## Removing file: $dstdir/$file*\n" ;
+ − 83 `rm -v \"$dstdir/$file\"*` ;
+ − 84 }
+ − 85 }
+ − 86 }
+ − 87 closedir ( DIR )
+ − 88 }
+ − 89
+ − 90 sub usage
+ − 91 {
+ − 92 print "CleanupGallery v0.1 (c) 2003 by Jochen Schaeuble <psionic\@psionic.de\n" ;
+ − 93 print "\n" ;
+ − 94 print "This is free software with ABSOLUTELY NO WARRANTY.\n" ;
+ − 95 print "See COPYING file for details.\n\n" ;
+ − 96 print "Usage:\n\n" ;
+ − 97 print "cleanupgallery <Gallery Source Directory> <Destination Directory>\n" ;
+ − 98 print "\n" ;
+ − 99 exit ( 0 );
+ − 100 }
+ − 101
+ − 102 if ( $#ARGV != 1 || !- d $ARGV [ 0 ] || !- d $ARGV [ 1 ]) {
+ − 103 & usage ;
+ − 104 }
+ − 105 ( $srcdir , $dstdir ) = @ARGV ;
+ − 106
+ − 107 ProcessDir ( "" , $dstdir , $srcdir );
