loncom/cgi/barcode.png - diff

Return to barcode.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.9, 2002/01/03 14:47:23	version 1.11, 2003/02/03 18:03:52
Line 1	Line 1
#!/usr/bin/perl	#!/usr/bin/perl

# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# barcode.gif - A CGI script that dynamically outputs a barcode.	# barcode.png - A CGI script that dynamically outputs a barcode.
#	#
# $Id$	# $Id$
#	#
Line 27	Line 27
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# Scott Harrison
# YEAR=2001	# YEAR=2001
# 8/15,9/28,12/11	# 8/15,9/28,12/11
#	#
Line 53 foreach (split(/&/,$ENV{'QUERY_STRING'})	Line 52 foreach (split(/&/,$ENV{'QUERY_STRING'})
}	}
}	}

# Tell the server we are sending a gif graphic	# Tell the server we are sending a png graphic
print <<END;	print <<END;
Content-type: image/gif	Content-type: image/png

END	END

Line 71 if ($GD::Barcode::errStr or !defined($oG	Line 70 if ($GD::Barcode::errStr or !defined($oG
my $bindata=$oGdBar->plot->png; # create barcode image	my $bindata=$oGdBar->plot->png; # create barcode image
undef $oGdBar;	undef $oGdBar;
binmode(STDOUT);	binmode(STDOUT);
open OUT,"\|pngtopnm\|ppmtogif 2>/dev/null"; # convert into gif image	#open OUT,"\|pngtopnm\|ppmtogif 2>/dev/null"; # convert into gif image
print OUT $bindata; # output image	#print OUT $bindata; # output image
$\|=1; # be sure to flush before closing	#$\|=1; # be sure to flush before closing
close OUT;	#close OUT;
	print $bindata;