loncom/cgi/barcode.png - diff

Return to barcode.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.11, 2003/02/03 18:03:52	version 1.12, 2005/04/07 06:56:21
Line 27	Line 27
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# YEAR=2001
# 8/15,9/28,12/11
#
###	###

# I'm using format=Code39.	# I'm using format=Code39.
Line 43 use strict;	Line 40 use strict;
use GD::Barcode::Code39;	use GD::Barcode::Code39;

$\|=1; # Autoflush after each print/write	$\|=1; # Autoflush after each print/write
	my %env;
foreach (split(/&/,$ENV{'QUERY_STRING'})) {	foreach (split(/&/,$ENV{'QUERY_STRING'})) {
my ($name, $value) = split(/=/,$_);	my ($name, $value) = split(/=/,$_);
$value =~ tr/+/ /;	$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
if ($name eq 'encode') {	if ($name eq 'encode') {
$ENV{'form.'.$name}=$value;	$env{'form.'.$name}=$value;
}	}
}	}

Line 58 Content-type: image/png	Line 56 Content-type: image/png

END	END

unless(defined($ENV{'form.encode'}) and length($ENV{'form.encode'})) {	unless(defined($env{'form.encode'}) and length($env{'form.encode'})) {
$ENV{'form.encode'}='*ERRORUNDEFINED**';	$env{'form.encode'}='*ERRORUNDEFINED**';
}	}
my $text = ''.uc($ENV{'form.encode'}).'';	my $text = ''.uc($env{'form.encode'}).'';
my $oGdBar=GD::Barcode::Code39->new($text);	my $oGdBar=GD::Barcode::Code39->new($text);
if ($GD::Barcode::errStr or !defined($oGdBar)) {	if ($GD::Barcode::errStr or !defined($oGdBar)) {
warn($GD::Barcode::errStr);	warn($GD::Barcode::errStr);