printDTD.pl
- $DTD_HOME='C:/Zvon/DTD/Zvon';
- $TARGET_HOME='C:/Zvon/ZvonHTML/DTD/Zvon';
- opendir DIR, $DTD_HOME;
- @list = readdir DIR;
- use File::Basename;
- use File::Path;
- chdir($DTD_HOME);
- OUTER: foreach $dtdFile (@list)
- {
- next OUTER if !($dtdFile=~ /\.dtd/);
- $htmlFile = "$TARGET_HOME/$dtdFile";
- $htmlFile =~ s/\.dtd/\.html/g;
- $htmlDir = dirname($htmlFile);
- if(!(-d $htmlDir)) {mkpath($htmlDir,true);};
- if(-f $dtdFile)
- {
- open DTD_IN, $dtdFile;
- if (!(open DTD_OUT, ">$htmlFile")){print "\n$htmlFile not created";};
- read DTD_IN,$tmp, 1000000;
- close DTD_IN;
-
- $tmp=~s/</</g ;
- $tmp=~s/>/>/g;
- $tmp=~s/\n/<LI>/g;
- $tmp=~s/href="(\S*)\.xsl"/href="<A href="$1\.html"> $1\.xsl<\/A>"/g;
-
- print DTD_OUT "<HTML><HEAD><META http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\"> <TITLE>$dtdFile</TITLE></HEAD><BODY><H2>$dtdFile</H2><P>generated from template <A HREF='zvonTemplateDTD.html'>zvonTemplateDTD.xml</A></P><OL><LI>$tmp</OL></BODY></HTML>";
- close DTD_OUT;
- }
- }