summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/shipunov/biokey2html2.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/shipunov/biokey2html2.pl')
-rw-r--r--Master/texmf-dist/scripts/shipunov/biokey2html2.pl31
1 files changed, 31 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/shipunov/biokey2html2.pl b/Master/texmf-dist/scripts/shipunov/biokey2html2.pl
new file mode 100644
index 00000000000..75801f4430a
--- /dev/null
+++ b/Master/texmf-dist/scripts/shipunov/biokey2html2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -w
+
+print STDERR "Making HTML title and paragrafs tags... \n";
+
+while(<>){
+ s@^\s+?$@\n<p>@g;
+print;
+}
+
+BEGIN {
+print <<END_OF_BEGIN
+<!doctype html public \"-//w3c//dtd html 4.0 transitional//en\">
+<html>
+<head>
+ \t<meta http-equiv=\"Content-Type\" content=\"text/html\">
+ \t<link type="text/css" rel="stylesheet" href="ws_key.css">
+</head>
+<body>
+
+END_OF_BEGIN
+}
+
+END{
+print <<END_OF_END
+
+</body>
+</html>
+END_OF_END
+}
+
+# \ No newline at end of file