[ic] UserTag not working...

[David McGuire]

I have the usertag:

UserTag thumb Order path
UserTag thumb PosNumber 1
UserTag thumb Interpolate
UserTag thumb Routine <<EOF
eval {
    require Image::Magick;
};
if($@) {
        return sub {
            open OFH,">>/tmp/dave.log";
            print OFH "F: Failed to run thumb\n";
            close OFH;
        };
}
sub {
       my ($path) = @_;

       open OFH,">>/tmp/dave.log";
       print OFH "F: $path\n";
       close OFH;

       my $srcImage = Image::Magick->new;
       my $x = $srcImage->Read($path);
       $x = $srcImage->Resize(geometry=>'100x100');
       split "/", $path;
       $_[length($_)-1] = "thumb_".$_[length($_)-1];
       $path = join "/", @_;
       $x = $srcImage->Write($path);
       return;
}
EOF


I then try to use it like this:
[thumb path="[sratch ipu_fpath]"]

where ipu_fpath is a [tmp ipu_fpath] I created before.

The dave.log file is never written to despite permissions being set
correctly...  am I using the tag incorrectly or is there something else I
should know?

Dave