Mercurial > bins

comparison tools/bins_cleanupgallery @ 0:a84c32f131df 1.1.29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import vendor version
author Peter Gervai <grin@grin.hu>
date Wed, 15 Oct 2008 23:28:56 +0200
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:a84c32f131df
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);