#!/usr/bin/perl -w
use strict;
# use lib "/path/to/ubbmod/dirs"; # or where you put GD::SI
use CGI qw[header];
my @error;
my @ok;
test($_) foreach qw(GD Image::Magick GD::SecurityImage);
print header();
if (@error) {
print "<h1>ERRORS</h1>".join("
n", @error);
}
if(@ok) {
print qq~<h1>INSTALLED VERSIONS</h1>~;
print "$_->[0]tv$_->[1]
n" foreach @ok;
}
sub test {
my $mod = shift || return;
eval "require $mod";
if($@) {
push @error, $@;
} else {
push @ok, [$mod, $mod->VERSION];
}
}