#!/usr/bin/perl

use strict;
use CGI;
use GD::Barcode::QRcode;

#binmode(STDOUT);

my $cgi = CGI->new;
my $input = $cgi->Vars();
my $text = $input->{'text'};#'*CO39 -.$/+%*';
my $ecc = lc($input->{'ecc'});
($ecc =~ m/^[lmqh]$/) || ($ecc = 'm');

my $qr_profile = {
    l => {Ecc => 'L', Version => 5, ModuleSize => 2},
    m => {Ecc => 'M', Version => 6, ModuleSize => 2},
    q => {Ecc => 'Q', Version => 8, ModuleSize => 2},
    h => {Ecc => 'H', Version => 10, ModuleSize =>2},
  

};

print "Content-Type: image/png\n\n";
print GD::Barcode::QRcode->new($text, $qr_profile->{$ecc})->plot->png;

exit 0;