use GD::Barcode;
use C4::Auth qw(checkauth);
use C4::Output qw(output_with_http_headers);
=head1 NAME
my $input = CGI->new;
my ( $user, $cookie, $sessionID, $flags ) = checkauth( $input, 1, {}, 'opac' );
$user && $sessionID or response_bad_request("User not logged in");
unless ( $user && $sessionID ) {
output_with_http_headers( $input, undef, undef, 'html', '401 Unauthorized' );
exit;
}
binmode(STDOUT);
-