I'm trying to run a perl script(s) from the command line (on a single
laptop here) and keep getting the following with media-gfx/gimp-2.0.4!

All scripts in the gimp manual also complain!!

X is running! (w/ nvidia drivers ;-)

~/PHOTO_SYNC/work $ ./test.perl -v
pict0006.jpg                                                                           
    
trying to start gimp with options ""
INIT: gimp_load_config
Parsing '/etc/gimp/2.0/gimprc'
Parsing '/home/roger/.gimp-2.0/gimprc'
gimp_composite: use=yes, verbose=no
Processor instruction sets: +mmx +sse -sse2 -3dnow -altivec -vis
INIT: gimp_initialize
INIT: gimp_real_initialize
INIT: gimp_restore
INIT: gimp_real_restore
Initializing plug-in: '/usr/lib/gimp/2.0/plug-ins/mrw'
Starting extension: 'extension_script_fu'
GIMP: extension_perl_server not available: unable to start the perl
server

EXIT: gimp_exit
EXIT: gimp_real_exit
EXIT: batch_exit_after_callback
test.perl: protocol error (1) at
/usr/lib/perl5/site_perl/5.8.2/i686-linux/Gimp/Net.pm line 66. (ERROR)
trying to start gimp with options ""
INIT: gimp_load_config
Parsing '/etc/gimp/2.0/gimprc'
Parsing '/home/roger/.gimp-2.0/gimprc'
gimp_composite: use=yes, verbose=no
Processor instruction sets: +mmx +sse -sse2 -3dnow -altivec -vis
INIT: gimp_initialize
INIT: gimp_real_initialize
INIT: gimp_restore
INIT: gimp_real_restore
Initializing plug-in: '/usr/lib/gimp/2.0/plug-ins/mrw'
Starting extension: 'extension_script_fu'
GIMP: extension_perl_server not available: unable to start the perl
server

EXIT: gimp_exit
EXIT: gimp_real_exit
EXIT: batch_exit_after_callback
protocol error (1) at
/usr/lib/perl5/site_perl/5.8.2/i686-linux/Gimp/Net.pm line 66.



Just for kicks, here's the script:

# Copyright (C) 2002 Laurent HOUDARD

#use strict;  <-- I unset this option as gimp-levels-auto refused to
work with it!

use Gimp;
use Gimp::Fu;

#Gimp::set_trace (TRACE_ALL);
Gimp::init;

my ($input, $output);

foreach $input (@ARGV) 
{
    print "processing $input...\n";
    my $img = Gimp->file_jpeg_load ($input, $input);
    my $drw = $img->get_active_layer ();

    # Plugin details here!
    #$drw->plug_in_dimage_color (1,  # gamma and tone correction
    #                           0); # default tone correction curve

    $drw->gimp-levels-auto
    
    ($output = $input) =~ s/(.*)\.jpg/$1_dc_fixed\.jpg/;

    print "writing $output\n";
    $drw->file_jpeg_save ($output, $output, 
                          0.75, # quality
                          0.0,  # smoothing
                          1,    # optimize
                          0,    # progressive
                          "",   # comment
                          0,    # subsampling
                          1,    # baseline
                          0,    # restart
                          0);   # DCT
}
-- 

Roger
http://www.eskimo.com/~roger/index.html

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

Reply via email to