[magick-users] Problem with Perl script

[zfrankowski]

Hi,

   I used Godaddy shared hosting and I'm having problems with this script.  It's
basic but it doesn't seem to like it.  It worked the other day but not today. 
It's going to be implemented into a bigger script but i wanted to get it
working individually right now.

#!/usr/bin/local

use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use Image::Magick;

$a = 0;

$x[0] = "APS4500-1.jpg";

while ($a < 2) {

  my($image, $x);

  $x->New;
  $x->Read('../pics/APS4500-1.jpg');
  $x->Resize('30%');
  $x->Write('../pics/tnAPS4500-1.jpg');

        $a = ++$a;
}

print "Content-type: text/html \n\n";

print "DONE";
exit;

*** when i substitute for variable names it doesn't work either

#!/usr/bin/local

use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use Image::Magick;

$a = 0;

$x[0] = "APS4500-1.jpg";

while ($a < 2) {

  my($image, $x);

  $x->New;
  $x->Read("../pics/$x[0]');
  $x->Resize('30%');
  $x->Write("../pics/tn$x[0]');

        $a = ++$a;
}

print "Content-type: text/html \n\n";

print "DONE";
exit;

Any help would be appreciated!

Thanks - Zack

--

_______________________________________________
Magick-users mailing list
Magick-users@imagemagick.org
http://studio.imagemagick.org/mailman/listinfo/magick-users