Changeset 8145

Timestamp:

2004-09-24T10:38:06+12:00 (20 years ago)

Author:

mdewsnip

Message:

Check for ImageMagick being installed and on the path, and bail early if it isn't.

File:

• trunk/gsdl/perllib/plugins/ImagePlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -107 +107 @@
     }
 
+    # Check that ImageMagick is installed and available on the path
+    my $result = `identify 2>&1`;
+    if ($? == -1 || $? == 256) {  # Linux and Windows return different values for "program not found"
+    $self->{'imagemagick_not_installed'} = 1;
+    }
+
     return bless $self, $class;
 }
@@ -129 +135 @@
     my $verbosity = $self->{'verbosity'};
     my $outhandle = $self->{'outhandle'};
+
+    # None of this is going to work very well without ImageMagick...
+    if ($self->{'imagemagick_not_installed'}) {
+    print $outhandle "ImagePlug: ImageMagick not installed\n" if ($verbosity > 1);
+    return undef;
+    }
 
     # check the filename is okay