imagemagick

[test]

This code does not work under modperl
though tested as a small commandline script it does work.

Also when I change the m6 to a number(ie primary recordkey) it will work
Very strange Although I work around this by using the numbers, I feel a
bit limited by using numbers only..
Maybe the bogus DQT index 9 remark  ring s bell with somebody?


                $key = $sth->{'mysql_insertid'};


                $modelcode = 'm6';
 #              $modelcode = $key;
        
                $picnaam = $modelcode.".jpg";
                $filename = ${\DATAPAD}.$picnaam;       
                
                open(FH, "> $filename");
                while(<$file>) {
                        print FH $_;
                }
                close(FH);
                        
                $q = Image::Magick->new;        
                $m;             
                $res = $q->Read($filename);
                warn($res);
                $m = $q->montage('geometry'=>'150x120' );
                
                $picnaamT0 = $modelcode."-0.jpg";
                $filenameT0 = ${\DATAPAD}.$picnaamT0;   
 
                $m->Write('filename' =>$filenameT0);
                undef @$q;
                undef @$m;

Error message:
[Wed Oct 25 16:36:17 2000] null: Warning 315: Bogus DQT index 9
(/home/images/velvet/m6.jpg) at /www/lib/perl/Velvet/VelvetAdmin.pm line
682, <fh00002D\:\\down\\104\.jpg> chunk 231.


[Wed Oct 25 16:36:17 2000] [error] Can't locate object method "Write" via
package "Warning 310: No images to montage" at
/www/lib/perl/Velvet/VelvetAdmin.pm line 688, <fh00002D\:\\down\\104\.jpg>
chunk 231.



Arnold