jp2tojpg

jaa 15.06.03 11:42

Muuttaa JasPerin avulla jp2 kuvan jpgksi

 Tekstiversio  Arvo: 0 (0 ääntä)  Äänestä: +  -
#!/usr/bin/perl
#
# Kääntää annetun kuvan jpg:ksi JasPerin avulla.
#
# JasPer löytyy osoitteesta
# http://www.ece.uvic.ca/~mdadams/jasper/
#

use strict;
use LWP::Simple;
use CGI 'param';

# Haetaan parametri url muuttujaan
my $inputUrl = param("url");

# Jos ei ole annettu parametriä 'url', niin tulostetaan kyselylomake
if ($inputUrl eq "") {

    # Kerrotaan selaimelle että on tulossa htmllää
    print "Content-type: text/html\n\n";

    # Tulostetaan urlia kysyvä lomake
    print "<html>\n<body>\n";
    print "<form action=\"/cgi-bin/jp2tojpg.pl\" method=\"get\">\n";
    print "URL: <input size=\"75\" type=\"text\" name=\"url\">\n";
    print "<input type=\"submit\" value=\"Convert\">\n";
    print "</form>\n</body>\n</html>";

    # Lopetetaan ohjelma koska ei ole kuvaa
    exit(0);
}

# Haetaan annettu kuva muuttujaan
my $inputImg = get($inputUrl);

# Tehdään putki jasperille
open JASPER, "|jasper -T jpg";

# Tulostetaan haettu kuva putken kautta jasperille
print JASPER $inputImg;

# luetaan jasperin tulostus muuttujaan
my $outputImg = <JASPER>;

# Kerrotaan selaimelle että nyt on tulossa jpeg kuva
print "Content-type: image/jpeg\n\n";

# Tulostetaan saatu kuva
print $outputImg;