[Gimp-user] help Perl-fu: Cannot save image

[Valter Mazzola]

This scrip�t isn't able to save the logo in png format, i've tried othe formats but 
seesm there are
 bug in gimp.

I'm using GIMP version 1.2.3, Mandrake Linux 9.0.


------------------------------------------------------
#!/usr/local/bin/perl

use Gimp ":auto";
use Gimp::Fu;
use strict;

sub net {
}

Gimp::init;
Gimp::on_net(\&net);

Gimp::set_trace (TRACE_ALL);

my $i=0;

system ("rm -f image_1.png");


        script_fu_alien_glow_logo("hello hello $i", "150", 
"-*-utopia-bold-r-*-*-150-*-*-*-*-*-*-*", [255,0,0] );

        my $img = &gimp_image_list();

        my $fname = "image_1.png";
        my $activelayer= &gimp_image_flatten($img);
        
        
        file_png_save(RUN_NONINTERACTIVE, $img, $activelayer,           
                    $fname, $fname, 0, 9, 0, 0, 0, 0, 0);

# Handle over control to gimp

exit main();
------------------------------------------------------------------
_______________________________________________
Gimp-user mailing list
[EMAIL PROTECTED]
http://lists.xcf.berkeley.edu/mailman/listinfo/gimp-user