Legacy ImageMagick Discussions Archive

Code: Select all

#!/data/share/prgs/perl
# make_thumbnails.pl
#2007_02_19

use strict;
use lib qw(/data/share/perllib);
#use gdls::common;
use gdls::file_utilities;
#use gdls::exportfileio;
use Image::Magick;

my @attribfields	= qw(type width height x-resolution y-resolution gamma filter format class base_filename); # compression
my @otherfields	= qw(action);

my $image = Image::Magick->new;
my $sourcedir		= "/home/basbergb/original";
my $thumbnaildir	= "/data/share/bb/thumbnail";

my $errno = undef;
my $retval= undef;
my $line = undef;

unless(-d $sourcedir)
{	file_utilities::makedir($sourcedir, "/") ;
	chmod 0777,$sourcedir;
}

unless(-d $thumbnaildir)
{	file_utilities::makedir($thumbnaildir, "/") ;
	chmod 0777,$thumbnaildir;
}

my @files;
{	opendir(my $dh, $sourcedir) or die "can't opendir $sourcedir: $!";
	my @f = readdir($dh);
	closedir $dh;
	chdir $sourcedir or die "Can't change to directory: $sourcedir\n";
	foreach (@f)
	{	push(@files, $_) if(-f && m/\.tif$/i); # skip non-TIFF files
	}
	@files = sort @files;
}

# print "Checking: $sourcedir (".(scalar @files).")\n";
my $fh;

foreach my $f (@files)
{	next if(-d $f || -l $f);

	@$image = ();

	(my $newfile = $f) =~ s/\.tif$/\.jpg/i;
	#(my $newfile = $f) =~ s/\.tif$/\.jpg/i;
	$errno = 0;
	$retval = $image->Read("$sourcedir/$f");
	$retval = "Exception 999: Could not load image." if($retval eq "" && !scalar @$image);
	if($retval)
	{	$errno = $1 if($retval =~ m/^Exception (\d+):/);
	        print "error - $line\n";
		next;
	}

	if(int($errno) < 400)
	{	my @imgattr = $image->Get(@attribfields);
		foreach (@imgattr){$_ = "" unless(defined $_);}
		print "attrib :  @imgattr\n";
		$image->Resize(geometry=>'150x150', density=>'300x300', filter=>'Hermite', support=>1.1);
		$image->Thumbnail(geometry=>'150x150');
#worked		$image->Negate(gray=>1);
#nothin'	$image->Solarize(factor=>75);
#bummer		$image->Threshold(threshold=>.6);
		$image->Write(filename=>"$thumbnaildir/$newfile", compression=>'JPG', quality=>75);
		chmod 0666,"$thumbnaildir/$newfile";
	}
}

undef $image;

Code: Select all

<?php
header("Content-Type: text/plain"); 
system("exec 2>&1; convert -version"); 
?>