I am using Image Magick very successfully at SpecialEngines.com's SE Auctions when images are up-loaded in the sub new2, but I do have a problem with Thumbs not showing up for images loaded with the Bulk Loader and the Self-hosted images entered into the sub new.
Seems that only up-loaded Images will produce thumbs. That is a fact of life in the fast lane. Hopefully I don't confuse anyone here!

-----------------------
Anyways, I am testing this code to call up thumbnails at this time.. This one almost works.. Need a little help on this one!
I use (my $thumbpic) to call $image1$t or no $image1$t but does not call up the $imagedisp1 if no $image1$t.
-----------------------
my $t = "t";
my $thumbpic;

if ($image1 ne '') {
$thumbpic = "<a href=\"#DESC\"><IMG SRC=$image1$t border=1 width=\"50\"></a>";
}
if ($image1 eq '') {
$thumbpic = "<IMG border=0 SRC=$config{'no_pic'} alt=\"No pictures for this item!\">";
}
if (($imagedisp1 ne '') && ($image1 eq '')) {
$thumbpic = "<a href=\"#DESC\"><IMG SRC=$image1 border=1 width=\"50\"></a>";
}
print "$thumbpic";
-------------------------------

I have in the mean time, for those that use Image Magick, developed a simple command code to display Thumbs (if any) on the Item Display pages, if image1, if no image1 it displays a No Pic Picture instead.

This is placed above the DISC & BID buttons. See a working example at SE Auctions: http://specialengines.com/auction
Thanks...

This is Setup to display a No Pic Image also if no thumbnail pic, but can be changed to use the NO PICS Words instead (you will need a no_pic.gif image or use words). Simply move the #-#####'s and block out the print command not needed.
--------------------------------
my $t = "t";
my $thumbpic = "<a href=\"#DESC\"><IMG SRC=$image1$t border=1 width=\"50\"></a>";

if ($image1 eq '') {
#-##### print "<table align=center border=1 cellpadding=0 cellspacing=0 width=58 bgcolor=$config{'colortablebody'}><tr><td align=center><font size=1 color=red><B>NO PICS</B></font></td></tr></table> <br>";
print "<IMG border=0 SRC=$config{'no_pic'} alt=\"No pictures for this item!\"> <br>";
} else {
print "$thumbpic";
}
--------------------------------

eMail me if you like and lets swap ideas!
Thank you for any suggestions,
Jayzfury jay@specialengines.com

Thumbs work even better on all the dispall... pages because it uses (yes or no) for $image1. Using the Code from the last forum comments above. See this at: http://specialengines.com/auction
---------------
The following code was used for the Display Item Page:
Place it above the Description and Bid Button or where ever you want. You will need to make a No-Pic image or you can change it to use the words "NO PIC".

The "no_thumb.gif" is my background image that says "No Image Thumb" on it and the "$config{'no_pic1'}" is used to call up my no-pic image, leaving $thumbpic to represent the thumbnail "$image1$t".
---------------
EOF

print "<table width=50 border=1 background=../../auction-images/no_thumb.gif align=center cellspacing=0 cellpadding=0>
<tr><td align=center>";
my $t = "t"; # add $t like this $image1$t
my $thumbpic = "<a href=\"#DESC\"><IMG align=center SRC=$image1$t border=0 width=\"50\"></a>";

if ($image1 eq '') {
print "<IMG align=center border=0 SRC=$config{'no_pic1'} alt=\"No pictures for this item!\">";
} else {
print "$thumbpic";
}
print "</td></tr></table>";

print <<"EOF";
---------------
Just an idea, but maybe this little bit of info can help the Thumbnail Image Magick users out there.
Jayzfury
jay@specialengines.com
at
http://specialengines.com

Thanks Again

Thanks
Daniel.

Follow the instructions from the text below... Good luck!
##############################################
Imagemagick software must be installed on your server or this won't work.
BACKUP ALL AUCTION FILES BEFORE YOU START!!

1. Open Auction.pl:
Add this line below to the other use commands at top:
use Image::Magick;

2. Goto sub procnew and find this line:
if ($form{'UPIMAGE1'} ne "") {
&File::Copy::move ("$config{'imagebase'}/temp/$form{'UPIMAGE1'}", "$config{'imagebase'}/$form{'UPIMAGE1'}") or oops ("Please notify the site admin that the image cannot be copied from the temp dir to the photo dir.");

3. Add these lines below it:
if ($form{'GALLERY'} eq "Yes" ) {
my ($q, $x);
$q= Image::Magick->new;
$x= $q->Read("$config{'imagebase'}/$form{'UPIMAGE1'}");
warn "$x" if "$x";
$x = $q->Resize(geometry=>'80x80');
warn "$x" if "$x";
$x=$q->Write("$config{'imagebase'}/$form{'UPIMAGE1'}t");
}

4. In the gallery area of auction.pl find the line:
my $timeremain = time_remain($file);
Below it add this line:
my $t = "t";

6. Edit the next line from:
my $imagedisp = "<IMG SRC=$image1 BORDER=\"0\" WIDTH=\"75\">";
To:
my $imagedisp = "<IMG SRC=$image1$t BORDER=\"0\" WIDTH=\"75\">";

7. Save the auction.pl file.

8. Now Open gallery sections in the dispallgallery.pl & dispcat7.pl, if you use dispcat7.
(the gallery disp files)

9. In the gallery area of these files find the line:
my $timeremain = time_remain($file);
Below it add this line:
my $t = "t";

10. Edit the next line from:
my $imagedisp = "<IMG SRC=$image1 BORDER=\"0\" WIDTH=\"75\">";
To:
my $imagedisp = "<IMG SRC=$image1$t BORDER=\"0\" WIDTH=\"75\">";

11. Save the gallery files.
Finally you upload both files and hopefully everything works.
Extra Note: It will not convert your current featured gallery to thumbs but will make thumbs for auctions posted after the editing.
##############################################
This will not make thumbnails for images if they are hosted somewhere else, only the uploaded images will make thumbs.
See http://specialengines.com/auction for a working example. We could definetly use the traffic!

Check with www.powweb.com, they have ImageMagick on their server. Rates are $7.77 per mo. for 200 meg and your own control panel. If you host there, let them know Jayzfury at SpecialEngines.com recommended you. I get a free month if you sign up. Thanks..
Jayzfury
jay@specialengines.com
at
http://specialengines.com

#####################################
# Unlinking your Thumbnail files.

1. Open selleredit.pl file and locate these lines...

if ($image1 ne "") {
my @image1 = split /\//, $image1;
$image1 = pop @image1;
$image1 =~ s/\"|\'|\>//g;
unlink "$config{'imagebase'}/$image1";
}

3. Place this bit of code below it so the thumbnail file (.jpgt, .gift, etc.) will be deleted when someone deletes their auction early or completely removes it from your system.

if ($image1 ne "") {
my $t = 't';
my @image1 = split /\//, $image1;
$image1 = pop @image1;
$image1 =~ s/\"|\'|\>//g;
unlink "$config{'imagebase'}/$image1$t";
}

Any problems, let me know..
Jayzfury
jay@specialengines.com
at
http://specialengines.com/auction
Please feel free to check us out when you get a chance!

You misunderstood something here...

Sorry to hear that it's not working for you but $imagedisp is the key word here, and the auction.pl has this command through out the script. If you are having any problems getting things set up, let me know. It works great in 4.00D and has been for some time. I received the 4.00 early script and have been fine tuning out the bugs along with Richard. The new script's great! Check it out ( all tumbnails ) in action at http://specialengines.com/cgi-bin/auction/auction.pl?dispcat .. If you have ImageMagick on your host server or personal server, it will work fine for you! Laters...
Regards all,
Jayzfury
jay@specialengines.com
at
http://specialengines.com

Thanks
Daniel
www.avabid.com

Any help appreciated.

Thanks
Daniel