#! /usr/bin/perl
#
#   $Id: dbconv,v 1.16 2013/04/24 15:12:55 doi Exp doi $
#
#   dbconv - convert seiyuu databases
#
#   this program will convert the format of the seiyuu databases,
#   which are maintained by Hitoshi Doi <doi@usagi.org>.
#   it is mainly used for creating parts of the WWW seiyuu pages.
#
#   the seiyuu information is available via WWW at:
#       http://www.usagi.org/doi/seiyuu/
#
#   original hack by Hitoshi Doi (doi@usagi.org), 1995.10.17
#
#   this program is public domain.  do whatever you want with it.
#   this program is offered "as is", and does not have any warrantee.
#
#   ---------------------------------------------------------------
#   modifications
#
#   1996.03.18   Hitoshi Doi
#                support title format version 2
#                generate indexed WWW info
#
#   1996.05.25   Hitoshi Doi
#                added -listall option
#
#   2001.02.09   Hitoshi Doi
#                support continuation lines
#   ---------------------------------------------------------------

$me = $0;
$me =~ s/.*\///;

$print_out = 'VA';
$wwwtype = '';
$wwwdir = '';
$listall = '';
$listall2 = '';

while ($ai = shift(@ARGV)) {
    if ($ai eq '-dbformat') {
        $print_out = 'DB';
    }
    elsif ($ai eq '-dbprefix') {
        $DB_prefix = shift(@ARGV);
    }
    elsif ($ai eq '-vaformat') {
        $print_out = 'VA';
    }
    elsif ($ai eq '-db') {
        $dbfile = shift(@ARGV);
    }
    elsif ($ai eq '-www') {
        $wwwtype = shift(@ARGV);
        $wwwdir = shift(@ARGV);
        $print_out = '';
    }
    elsif ($ai eq '-listall') {
        $listall = shift(@ARGV);
        $print_out = '';
    }
    elsif ($ai eq '-listall2') {
        $listall2 = shift(@ARGV);
        $print_out = '';
    }
    elsif ($ai eq '-help') {
        print "$me - convert seiyuu databases
usage: $me -db FILE
options: -dbformat          print out in DB format
         -vaformat          print out in VA format [default]
         -www cd SUBDIR     generate indexed WWW info for CDs
         -www title SUBDIR  generate indexed WWW info for titles
         -www role SUBIDR   generate indexed WWW info for roles
         -listall PATH      list all in HTML format, preceeded by PATH
         -listall2 PATH     list all in HTML TABLE format, preceeded by PATH
";
        exit 0;
    }
}

if (!$dbfile) {
    print "$me: the seiyuu database is undefined.\n";
    print "specify the database with the -db option.\n";
    exit -1;
}
$ev_db = "seiyuu database $dbfile";
if (!open(DB, '<', $dbfile)) {
    print "$me: can't open the $ev_db.\n";
    exit -1;
}

$style = " onMouseOver=\"this.style.background='pink'\"";
$style .= " onMouseOut=\"this.style.background=''\"";

&read_profile;
#
# go through the database and do processing
#
$DB_format = '';
while ($l = <DB>) {
        chop $l;
        next if ($l =~ m/^$/);
        next if ($l =~ m/^#/);

        while ($l =~ m/\\$/) {                # continuation
            $l =~ s/\\$//;
            $l .= <DB>;
            chop $l;
        }

        #
        # new title
        #
        if ($l =~ m/^[A-Za-z0-9\"]/) {
            $cur_title = $l;
            $cur_url = '';
            $cur_cover = '';
            next;
        }

        $l =~ s/^[ ]+//i;                # remove leading spaces
        #
        # special keywords
        #
        if ($l =~ m/^URL/) {
            $l =~ s/^URL[ ]*//i;
            $cur_url = $l;
            if ($listall) {
                print "<LI><A HREF=\"$listall/$cur_url\">";
                print "$cur_title</A>\n";
            }
            if ($listall2) {
                my @x = split(/,/, $cur_title);
                print "<tr $style valign=top><td>$x[1]</td><td>";
                print "<a href=\"$listall2/$cur_url\">$x[0]</a></td>";
                my $stext = '';
                while ($l = <DB>) {
                    chop $l;
                    last if ($l eq '');
                    my ($x, $ss) = split(/::/, $l);
                    $ss =~ s/\{.*//;
                    if (length($stext) > 25) {
                        $stext .= ',...';
                        last;
                    }
                    $stext .= ', ' if ($stext ne '');
                    $stext .= $ss;
                }
                print '<td>' . $stext . '</td>';
                print "</tr>\n";
            }
            next;
        }
        if ($l =~ m/^COVER/) {
            $l =~ s/^COVER[ ]*//i;
            $cur_cover = $l;
            next;
        }
        #
        # character :: voice actor info
        #
        ($chara, $val) = split(/::/, $l);
        ($va, $debut) = split(/--/, $val);
        $chara =~ s/[ ]*$//;
        $chara =~ s/^[ ]*//;
        $va =~ s/^[ ]*//;
        $va =~ s/[ ]*$//;
        $eps = '';
        if ($va =~ m/\{.*\}/) {
            $eps = $va;
            $va =~ s/[ ]*\{.*\}.*//;
            $eps =~ s/.*\{//;
            $eps =~ s/\}.*//;
        }
        $debut =~ s/^[ ]*//;

        next if (!$va);

        #
        # create WWW info
        #
        if ($wwwdir) {
            $val = $va;
            $val =~ y/A-Z/a-z/;
            $s_titles{$val} .= $cur_title . "\t";
            $s_url{$val} .= $cur_url . "\t";
            $s_role{$val} .= $chara . "\t";
            $s_eps{$val} .= $eps . "\t";
            $s_debut{$val} .= $debut . "\t";
        }
        #
        # to VA format
        #
        if ($print_out eq 'VA') {
            if ($debut) {
                $VA_data{$va} .= " $cur_title -- $debut\n  $chara";
            }
            else {
                $VA_data{$va} .= " $cur_title\n  $chara";
            }
            if ($eps) {
                $VA_data{$va} .= " {$eps}";
            }
            $VA_data{$va} .= "\n";
        }
        #
        # to DB format
        #  [debut] char - title {eps} - va (kanji)
        #
        if ($print_out eq 'DB') {
            $DB_format = $DB_prefix . ' ';
            $DB_format .= "[$debut] " if ($debut);
            # print even if $chara is null
            $DB_format .= "$chara - ";
            if ($cur_url) {
                $DB_format .= "<A HREF=\"";
                if ($cur_url =~ m/^\//) {
                    $DB_format .= $cur_url;
                }
                else {
                    $DB_format .= "/doi/$cur_url";
                }
                ($tt, $dt) = split(/,/, $cur_title);
                $DB_format .= "\">$tt</A> $dt";
            }
            else {
                $DB_format .= "$cur_title";
            }
            if ($eps) {
                $DB_format .= " {$eps}";
            }
            $va .= " ($kanji{$va})" if ($kanji{$va});
            $DB_format .= " - $va\n";
            print $DB_format;
            $DB_format = '';
        }
}
close(DB);

#
# print out VA format
#
if ($print_out eq 'VA') {
    foreach $k (sort keys(%VA_data)) {
        print "$k\n$VA_data{$k}\n";
    }
}

if ($wwwdir) {
    &write_wwwcd if ($wwwtype eq 'cd');
    &write_wwwtitle if ($wwwtype eq 'title');
    &write_wwwrole if ($wwwtype eq 'role');
}

exit 0;

#
# subroutines
#

sub read_profile
{
    my $pf = '/home/doi/www/seiyuu/db/DB.profile';
    open(PF, '<', $pf);
    my @all = <PF>;
    close(PF);
    %kanji = ();
    foreach my $pl (@all) {
        chop $pl;
        my ($r, $k) = split(/\t/, $pl, 2);
        $kanji{$r} = $k;
    }
}

#
# write data for WWW use (for CD)
#
sub write_wwwcd
{
    my (@e_name, @e_url, @e_role);
    my ($en, $eu, $er);
    my $www_index = $wwwdir . "/Index";
    my $www_out;

    system "/bin/mv", $wwwdir, $wwwdir . ".old";
    mkdir $wwwdir, 0755;
    open(INDEX, '>', $www_index);
    my $i = 0;
    foreach my $k (sort keys %s_titles) {
        printf INDEX "%05d:%s\n", $i, $k;
        $www_out = sprintf("$wwwdir/%05d", $i);
        open(WWWOUT, ">$www_out");
        @e_name = split(/\t/, $s_titles{$k});
        @e_url = split(/\t/, $s_url{$k});
        @e_role = split(/\t/, $s_role{$k});
        @e_eps = split(/\t/, $s_eps{$k});
        while ($en = shift(@e_name)) {
            $eu = shift(@e_url);
            $er = shift(@e_role);
            $ep = shift(@e_eps);
            my @x = split(/,/, $en);
            print WWWOUT "<TR valign=top><TD>$x[1]</TD><TD>";
            if ($eu) {
                if ($eu =~ m/^\//) {
                    print WWWOUT "<A HREF=\"$eu\">";
                }
                else {
                    print WWWOUT "<A HREF=\"../$eu\">";
                }
            }
            print WWWOUT "$x[0]";
            if ($eu) {
                print WWWOUT "</A>";
            }
            print WWWOUT "</TD><TD>" . $er;
            print WWWOUT " {$ep}" if ($ep);
            print WWWOUT "</TD></TR>\n";
        }
        close(WWWOUT);
        $i++;
    }
    close(INDEX);
}

#
# write data for WWW use (for titles)
#
sub write_wwwtitle
{
    my(@e_name, @e_url, @e_role);
    my($en, $eu, $er);
    my $www_index = $wwwdir . "/Index";
    my $www_out;

    system "/bin/mv", $wwwdir, $wwwdir . ".old";
    mkdir($wwwdir, 0755);
    open(INDEX, '>', $www_index);
    my $i = 0;
    foreach my $k (sort keys %s_titles) {
        printf INDEX "%05d:%s\n", $i, $k;
        $www_out = sprintf("$wwwdir/%05d", $i);
        open(WWWOUT, '>', $www_out);
        @e_name = split(/\t/, $s_titles{$k});
        @e_url = split(/\t/, $s_url{$k});
        while ($en = shift(@e_name)) {
            $eu = shift(@e_url);
            print WWWOUT "<LI>";
            if ($eu) {
                if ($eu =~ m/^\//) {
                    print WWWOUT "<A HREF=\"$eu\">";
                }
                else {
                    print WWWOUT "<A HREF=\"../$eu\">";
                }
            }
            print WWWOUT "$en";
            if ($eu) {
                print WWWOUT "</A>";
            }
            print WWWOUT "\n";
        }
        close(WWWOUT);
        $i++;
    }
    close(INDEX);
}

#
# write data for WWW use (for roles)
#
sub write_wwwrole
{
    my(@e_name, @e_url, @e_role);
    my($en, $eu, $er);
    my $www_index = $wwwdir . "/Index";
    my $www_out;

    system "/bin/mv", $wwwdir, $wwwdir . ".old";
    mkdir($wwwdir, 0755);
    open(INDEX, '>', $www_index);
    my $i = 0;
    foreach my $k (sort keys %s_titles) {
        printf INDEX "%05d:%s\n", $i, $k;
        $www_out = sprintf("$wwwdir/%05d", $i);
        open(WWWOUT, '>', $www_out);
        @e_name = split(/\t/, $s_titles{$k});
        @e_url = split(/\t/, $s_url{$k});
        @e_role = split(/\t/, $s_role{$k});
        @e_eps = split(/\t/, $s_eps{$k});
        @e_debut = split(/\t/, $s_debut{$k});
        while ($en = shift(@e_name)) {
            $eu = shift(@e_url);
            $er = shift(@e_role);
            $ee = shift(@e_eps);
            $ed = shift(@e_debut);
            print WWWOUT "<TR valign=top><TD> ";
            if ($eu) {
                if ($eu =~ m/^\//) {
                    print WWWOUT "<A HREF=\"$eu\">";
                }
                else {
                    print WWWOUT "<A HREF=\"../$eu\">";
                }
            }
            print WWWOUT "$en";
            if ($eu) {
                print WWWOUT "</A>";
            }
            if ($ee) {
                print WWWOUT " {$ee}";
            }
            if ($ed) {
                print WWWOUT " <b>[$ed]</b>";
            }
            print WWWOUT " </TD><TD>$er</TD></TR>\n";
        }
        close(WWWOUT);
        $i++;
    }
    close(INDEX);
}

<table width="100%" cellspacing=0 bgcolor="#c0c0c0"><tr valign=top><TD align=middle><a href="?/seiyuu/"><img src="/doi/seiyuu/buttons/Viphone/b310-seiyuu2.png"></a>
</TD></tr></table>
<div class=allbody style="font-size:110%;line-height:133%;margin:8;">
</div><!-- allbody -->
<hr>
<center style="font-size:100%;color:#00d0d0;">this page converted for the iPhone</center>
<p><table width="100%" cellspacing=0 bgcolor="#c0c0c0"><tr><td colspan=4 align=middle>seiyuu database links</td></tr><tr valign=top><td align=middle>
<a href="?/seiyuu/individual.html"><img src="/doi/seiyuu/buttons/Viphone//b75-50-sakura2l.png"></a>
</td><td align=middle><a href="?/seiyuu/cd/"><img src="/doi/seiyuu/buttons/Viphone/b75-50-asuka1l.png"></a>
</td><td align=middle><a href="?/seiyuu/video/"><img src="/doi/seiyuu/buttons/Viphone/b75-50-chori1l.png"></a>
</td><td align=middle><a href="?/seiyuu/events/"><img src="/doi/seiyuu/buttons/Viphone/b75-50-manami2l.png"></a>
</td></tr>
<tr><td colspan=4 align=middle><a href="?/seiyuu/"><img src="/doi/seiyuu/buttons/Viphone/b310-seiyuu2.png"></a>
</td></tr></table>
<center>
<script type="text/javascript"><!--
google_ad_client = "ca-pub-8482462949925912";
/* mobile */
google_ad_slot = "9028441554";
google_ad_width = 320;
google_ad_height = 50;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</center>
<p>
<table width="100%" cellspacing=0><tr valign=top>
<td align=center bgcolor="#ccffcc">
<a href="?/">Hitoshi Doi</a>
| <a href="/doi/rss2.xml" style="color:orange;">[RSS 2.0]</a>
</td></tr></table>
</body>