\n";
print <<"_HTML_";
■ 投稿者:$name
■ 投稿日:$date |
_HTML_
print " $url | \n";
print "\n";
$ico =~ s/\n//g;
if ($i_mode == 1) {
if ($i_hei eq ""){
print "![](\"$i_dir/$ico\") | \n";
}
elsif($i_hei ne "") {
print "![](\"$i_dir/$ico\") | \n";
}
}
else { print " | \n"; }
if ($a_link == 1) { &auto_($comment); }
print "$comment | \n";
if($res_n == 2){
print <<"_HTML_";
_HTML_
}
$res = 0;
foreach $lines(@lines) {
($rnam,$rdate,$rname,$rmail,$rd_may,$rcom,$rurl,$rfont,$rico,$rtype) = split(/<>/,$lines);
if ($namber eq "$rtype"){
if ($res == 0) { print " \n"; $res=1; }
if ($rmail ne "") { $rname="$rname"; }
if ($rd_may eq ""){ $rd_may= "No Title"; }
if ($link_i == 1){
if ($rurl ne "") {
$rurl = " ";
}
} elsif ($link_i == 0){
if ($rurl ne "") { $rurl = "http://$rurl"; }
}
print <<"_HTML_";
|
■ 投稿者:$rname
■ 投稿日:$rdate |
_HTML_
print " $rurl \n";
print " |
\n";
$ico =~ s/\n//g;
if ($i_mode == 1) {
if ($i_hei eq ""){
print "![](\"$i_dir/$rico\") | \n";
}
elsif($i_hei ne "") {
print "![](\"$i_dir/$rico\") | \n";
}
}
else { print " | \n"; }
if ($a_link == 1) { &auto_($rcom); }
print "$rcom | \n";
print " | \n";
}
}
print " |