loncom/cgi/barcode.png - diff

Return to barcode.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.5, 2001/12/11 19:32:03	version 1.6, 2001/12/11 20:01:05
Line 43	Line 43
use strict;	use strict;
use GD::Barcode::Code39;	use GD::Barcode::Code39;

map {	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;
}	}
} (split(/&/,$ENV{'QUERY_STRING'}));	}

# Tell the server we are sending a gif graphic	# Tell the server we are sending a gif graphic
print <<END;	print <<END;