I'm a newbie to Gimp. I'm trying to use perl scripts to run gimp. The scripts run when i execute it form the command line but when i run it from a browser it doesn't work. the error_log shows:
"[Fri Nov 08 12:21:57 2002] [error] [client] protocol error (1) at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/Gimp/Net.pm line 66."

I have searched the newsgroups and found that this problem is quite common but no one has provided a solution. Does any one have any ideas as to how i can solve this problem?

I have included my script in this mail if it helps.
I look forward to your assistence.



#include the modules necessary to interface with gimp
use Gimp qw(:auto);
use Gimp::Fu;
use Gimp::Net;
use CGI;
Gimp::set_trace(TRACE_ALL); # Enable trace output

#tell browser what output format to expect
print "Content-type:text/html\n\n";

print <<HEAD;

print "Running as ", scalar getpwuid($>), "\n";

#parse the data posted from the form into thier respcted names
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$FORM{$name} = $value;

$infile = "/var/www/inimg/";
$outfile = "/var/www/outimg/";
$infile = $infile . "car.gif";
$outfile = $outfile . "car_out.gif";

print "infile, $infile";

#Register extension to gimp
register("", "","","","","","<None>","*","",\&embed);

exit main();

sub embed{
print "\ninfile got here, $infile";
$img = gimp_file_load($infile,$infile); $drawable = gimp_image_flatten($img); # in case of layers
print <<EndHTML;

Here is what you entered:<p>
Image name: $FORM{'image'}<p>
Output name: $FORM{'output_img'}<p>
Alpha value: $FORM{'alpha'}<p>
K_ey: $FORM{'key'}<p>

return ();

Add photos to your e-mail with MSN 8. Get 2 months FREE*. http://join.msn.com/?page=features/featuredemail

Gimp-developer mailing list

Reply via email to