";
}
elsif ($ullevel > 1) {
$body .= "";
}
}
else {
if ($ullevel == $subullevel[$subn-1]) {
$subtitle[$subn-1] .= "";
}
elsif ($ullevel > $subullevel[$subn-1]) {
$subbody[$subn-1] .= "";
}
}
}
# other tags
else {
if ($ullevel >= 1) {
$tmptag = "<$tagname";
while (($a, $c) = each (%{$attr})) {
# for amazon images
if (($tagname eq "img")
and ($a eq "src")
and ($c =~ /^images\/AMAZON/)) {
$c =~ s/^images\/AMAZON/http:\/\/images.amazon.com\/images\/P/;
}
if ($a ne "/") {
$tmptag .= " $a=\"$c\"";
}
}
if (($tagname eq "img")
or ($tagname eq "hr")
or ($tagname eq "br")) {
$tmptag .= " />";
}
else {
$tmptag .= ">";
}
if ($subn == 0) {
if ($ullevel == 1) {
$title .= $tmptag;
}
else {
$body .= $tmptag;
}
}
else {
if ($subullevel[$subn-1] == $ullevel) {
$subtitle[$subn-1] .= $tmptag;
}
else {
$subbody[$subn-1] .= $tmptag;
}
}
}
}
}
sub text
{
my ($dtext) = shift;
$dtext =~ s/&/&/g;
if ($preflag != 1) {
$dtext =~ s/ +/ /g;
$dtext =~ s/^\n//g;
}
if ($h1flag == 1) {
#print "dtext = $dtext\n";
$_ = $dtext;
if (/(\d+)年(\d+)月/) {
$year = $1;
$month = $2;
#print "year = $year\nmonth = $month\n";
}
}
if ($nsaflag == 0) {
if ($subn == 0) {
if ($ullevel == 1) {
$title .= $dtext;
}
elsif ($ullevel > 1) {
$body .= $dtext;
}
}
elsif ($subullevel[$subn-1] == $ullevel) {
$subtitle[$subn-1] .= $dtext;
}
else {
$subbody[$subn-1] .= $dtext;
}
}
}
sub end
{
my ($tagname) = shift;
my $i;
my $blosxomfile;
my $category;
# h1 tag
if ($tagname eq "h1") {
$h1flag = 0;
}
# h2 tag
elsif ($tagname eq "h2") {
$h2flag = 0;
}
# ul tag
elsif ($tagname eq "ul") {
$ullevel --;
if ($subn == 0) {
if ($ullevel >= 1) {
$body .= "\n";
for ($i = 1; $i < $ullevel; $i ++) {
$body .= " ";
}
$body .= "