Gimp::Perl - problem to save PNG

[Jan Theofel]

Hello,

I played with Seth's perl-o-tine plugin which is really great.

But I have a problem: Many of my pictures can't be converted in a 
GIF file (indexed mode), because they have too much colors. I also 
dislike GIF files because of patent problems, we all know about. 

So I thought, I'll hack a little patch for the script, so that it
handels the file as PNG files. When it works, I'd simply add a checkbox
in the userinterface to ask if the user want's to get a GIF or a PNG
output.

Anyway, the changed script doesn't work. :-(

I added my patch below, perhaps you can find the mistake?

The problem occurs when calling 'tmpimg->file_png_save(...)'. I also
tried the function gimp_file_save (as in the original script), but that
doesn't work either. And yes, I'm sure that I'm allowed to write files,
it my $HOME. :-)

My system informations:
SuSE Linux 7.0, gtk 1.2.8, Gimp 1.1.29, XFree 4.0

Thank you!

Here's the patch:

---- snip ----
92c92
<     $imgname = "$imgbasename-$i-$j.png";
---
>     $imgname = "$imgbasename-$i-$j.gif";
97c97
< #    if (! $tmplay->is_indexed) {
---
>     if (! $tmplay->is_indexed) {
101,104c101,103
< #        $tmpimg->convert_indexed (2,0,256,0,1,duck) 
< #     }
< #   
$tmpimg->gimp_file_save(-1,"$savepath$imgpath$imgname","$savepath$imgpath$imgname");
<    
$tmpimg->file_png_save(-1,"$savepath$imgpath$imgname","$imgname",1,0,0,0,0,0,0);
---
>         $tmpimg->convert_indexed (2,0,256,0,1,duck) 
>       }
>     
>$tmpimg->gimp_file_save(-1,"$savepath$imgpath$imgname","$savepath$imgpath$imgname");
---- snap ----

Bye,
Jan

-- 
   ETES - Espenhain & Theofel EDV-Systeme GbR

  ACHTUNG - NEUE ADRESSE! ACHTUNG - NEUE ADRESSE!
     Libanonstrasse 58 A * D-70184 Stuttgart
   Phone +49 711 4895550 * Fax +49 711 4809761
    EMail: [EMAIL PROTECTED] --- URL: www.etes.de