diff options
Diffstat (limited to 'Master/texmf-dist/scripts/shipunov/biokey2html2.pl')
-rw-r--r-- | Master/texmf-dist/scripts/shipunov/biokey2html2.pl | 31 |
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 |