added configuration file with database descriptions,

[webpac] / back2html.pm

#
# reformat html inside xml back to html (basically, support for tables)
#
# filed #-# field ###
# ...

sub back2html {
        my $html = shift;

        my $out;
        foreach $line (split(/###/,$html)) {
                $out .= "<tr><td>";
                my @items = split(/#-#/,$line);
                $out .= join("</td><td>",@items);
                $out .= "</td></tr>\n";
        }
        return $out;
}

1;