#
# qr_html.pl (qr_img.cgi ver.0.50h)
#
sub output_html{
$version_t_filename=$path."/qrvfr".$qrcode_version.".dat";
@cc=();
open(IN, $version_t_filename);
while () {
chop;
push(@cc,$_);
}
close(IN);
print "Content-type:text/html\n\n";
print "\n";
$i=0;
while ($i<$max_modules_1side){
$j=0;
while ($j<$max_modules_1side){
$ccx=substr($cc[$i],$j,1);
print "![](\x22".$img_path4html."/".$img_fn[)
0)) ]."\x22>";
$j++;
}
print "
\n";
$i++;
}
print "";
}
1;