view release on metacpan or  search on metacpan

bin/kim_category_images  view on Meta::CPAN

#   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
#   Boston, MA 02111-1307, USA.


use strict;
use Image::Kimdaba;
use English qw( -no_match_vars ) ;

print "Checking if you have convert from ImageMagick package\n";
my $res=system("which convert");
die "You need to install Image::Magick module and ImageMagieck" unless $res==0;

my $folder=getRootFolder();
print "Parsing the ${folder}/index.xml database...\n";
parseDB( "$folder" );

mkdir "$folder/CategoryImages";

my %founds=();
my %founds_alone=();