The script below, called wallace.pl, executes fine when I execute it at
the command line, but dies when I try to call it from my web browser.
##############################################################################
Here is there error it gives when it dies:
wallace.pl: protocol error (1) at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Gimp/Net.pm line 66. (ERROR)
##############################################################################
Here is the script:
#!/usr/bin/perl 
#

use Gimp qw(:auto );
use Gimp::Fu;
Gimp::set_trace(TRACE_ALL);

my $imageurl = "/images/";
my $filename = "/home/swamp/html/images/";
$imageurl =~ s/^(.*)\/(.*)$/$1\/backtest/g;
$filename =~ s/^(.*)\/(.*)$/$1\/backtest/g;
print STDERR "[wallace.pl] About ready to call register\n";  
register(
         "test_background", 
         "Test an image as a background in a web browser.",
         "Test an image as a background in a web browser.
          Requires and Indexed color image",
         "SPW",
         "(c) 1999 SPW", 
         "1999-02-20",
         "<Toolbox>/Xtns/Web Graphics/Test As Background",
         "INDEXED*",
         [],
         \&test_background
         );

print "Content-type: text/html\n\n";
print qq(
         <html>
         <head>
         <meta http-equiv="expires" content="0" >
         </head>
         <body background="$imageurl.gif">
         <font size="5">Hi Everybody!</font>
         </body>
         </html>
        );


sub test_background {
    print STDERR "[wallace.pl] Start test_background\n";

    my $size  = 100;
    my $color = [127, 255, 0];
    
    my $img = Gimp->image_new ($size, $size, RGB);

    
    # Create a new layer
    $layer = Gimp->gimp_layer_new($img, $size, $size, RGB,
                                  "Layer 1", 100, NORMAL_MODE);
    
    # add the layer to the image
    Gimp->gimp_image_add_layer($img, $layer, -1);

    # Set the background to the required color
    Gimp->gimp_palette_set_background($color);
    
    # Paint the layer
    Gimp->gimp_edit_fill($layer);
    
    # Get the image's drawable
    my $drawable = Gimp->gimp_image_active_drawable($img);
    
    # Add text to the background
    Gimp->gimp_text($img,
                    $drawable,
                    1,
                    1,
                    "Hello",
                    0,
                    1,
                    12,
                    0,
                    "*",
                    "courier",
                    "*",
                    "*",
                    "*",
                    "*");

    
    # Convert the image to indexed just make sure
    Gimp->gimp_convert_indexed($img, 0, $size);

    Gimp->file_gif_save(RUN_NONINTERACTIVE,
                        $img, 
                        $drawable,
                        "$filename.gif",
                        "$filename.gif",
                        0, 0, 0, 0);
    print STDERR "[wallace.pl] Just finished saving $filename.gif\n";
#    open O, ">$filename.html";
#    print O  qq(<html><head>
#               <meta http-equiv="expires" content="0" ></head>
#               <body background="$filename.gif">
#               This is how the image looks as a background pattern.
#                </body></html>
#               );

#    my $url = "$file:$filename.html";
#    eval( "extension_web_browser", 1, $url, 0);
    return ();
}

exit main;

Darian-- [EMAIL PROTECTED] | http://www.studentssharing.org
____________________________________________________________________________
Ralph Nader for President  http://www.votenader.org


Reply via email to