/[webpac]/trunk/back2html.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/back2html.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 13 - (show annotations)
Sun Feb 16 22:41:37 2003 UTC (16 years, 8 months ago) by dpavlin
File size: 330 byte(s)
added configuration file with database descriptions,
moved isis.xml definition file in separate directory (in preparation for MARK),
support for different encodings in different files,
various fixes, improvements and badly written parts which will change ;-)

1 #
2 # reformat html inside xml back to html (basically, support for tables)
3 #
4 # filed #-# field ###
5 # ...
6
7 sub back2html {
8 my $html = shift;
9
10 my $out;
11 foreach $line (split(/###/,$html)) {
12 $out .= "<tr><td>";
13 my @items = split(/#-#/,$line);
14 $out .= join("</td><td>",@items);
15 $out .= "</td></tr>\n";
16 }
17 return $out;
18 }
19
20 1;

Properties

Name Value
cvs2svn:cvs-rev 1.1

  ViewVC Help
Powered by ViewVC 1.1.26