- 

#!/usr/bin/perl

# Copyright 2014 ByWater Solutions

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use CGI qw(header);

use GD::Barcode;

use C4::Auth qw(checkauth);

=head1 NAME

/cgi-bin/koha/svc/barcode

=head1 SYNOPSIS

This service generates a PNG barcode image for the requested barcode.

=head2 PARAMETERS

=over

=item I<barcode>

I<barcode> is the desired barcode. It should be called like:

=item I<type>

I<type> is the desired barcode type. Possible values are

Code39

UPCE

UPCA

QRcode

NW7

Matrix2of5

ITF

Industrial2of5

IATA2of5

EAN8

EAN13

COOP2of5

If ommited,it defaults to Code39.

=item I<notext>

Unless I<notext=1> is specified in the parameter list, the

value of the barcode will included as text below the

scannable barcode.

=back

=head2 EXAMPLES

=over

=item /cgi-bin/koha/svc/barcode?barcode=123456789

Returns a Code39 barcode image for barcode 123456789

=item /cgi-bin/koha/svc/barcode?barcode=123456789&type=UPCE

Returns a UPCE barcode image for barcode 123456789

=item /cgi-bin/koha/svc/barcode?barcode=123456789&notext=1

Returns a Code39 barcode image for barcode 123456789

which does not include the human readable text '123456789'

below the scannable barcode.

=back

=cut

my $input = CGI->new;

my ( $user, $cookie, $sessionID, $flags ) = checkauth( $input, 1, {}, 'opac' );

$user && $sessionID or response_bad_request("User not logged in");

binmode(STDOUT);

my $type = $input->param('type') || 'Code39';

my $barcode = $input->param('barcode');

my $notext = $input->param('notext') ? 1 : 0;

my $image;

eval {

    $image = GD::Barcode->new( $type, $barcode )->plot( NoText => $notext )->png();

};

if ( $@ ) {

    # problem creating image

    print header( -status => 500 );

} else {

    print header('image/png');

    print $image;

}

exit 0;

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut