[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] <img src="cgi-bin/image.pl">



>Does anyone know how to return an image from MacPerl? Let me explain:

I'd think you have to send the correct header first.

print "Content-type: image/gif\n\n";

and then print the image data.

Of course it's extremely simple if you use Lincoln Stein's port of Tom
Boutell's GD image package ( freely available http://www.boutell.com ).

For example (From Lincoln Steins GD.html):

       use GD;

        # create a new image
        $im = new GD::Image(100,100);
        # allocate some colors
        $white = $im->colorAllocate(255,255,255);
        $black = $im->colorAllocate(0,0,0);
        $red = $im->colorAllocate(255,0,0);
        $blue = $im->colorAllocate(0,0,255);
        # make the background transparent and interlaced
        $im->transparent($white);
        $im->interlaced('true');
        # Put a black frame around the picture
        $im->rectangle(0,0,99,99,$black);
        # Draw a blue oval
        $im->arc(50,50,95,75,0,360,$blue);
        # And fill it with red
        $im->fill(50,50,$red);
        # Convert the image to GIF and print it on standard output
        print $im->gif;

-Chris

Dept of Molecular and Cell Biology      "Information wants to be free."
UC Berkeley  * Kane Lab 614 Barker Hall



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch