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; |