diff options
| author | fukachan <fukachan> | 2001-03-03 10:11:04 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-03 10:11:04 +0000 |
| commit | 2d4615b11721cde9110a079672ff4129cd74d347 (patch) | |
| tree | eb55aa85fdebe7c35226cc52707b0ecfa3198cb6 /doc | |
| parent | 86db6fe8826a77fda333faa48c4b1e21d36a54d5 (diff) | |
| download | fml8-2d4615b11721cde9110a079672ff4129cd74d347.tar.gz fml8-2d4615b11721cde9110a079672ff4129cd74d347.tar.bz2 fml8-2d4615b11721cde9110a079672ff4129cd74d347.zip | |
convert some text to html format
Diffstat (limited to 'doc')
| -rwxr-xr-x | doc/bin/text2html.pl | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/doc/bin/text2html.pl b/doc/bin/text2html.pl new file mode 100755 index 00000000..321ff8b2 --- /dev/null +++ b/doc/bin/text2html.pl @@ -0,0 +1,56 @@ +#!/usr/local/bin/perl +#-*- perl -*- +# +# Copyright (C) 2001 Ken'ichi Fukamachi +# All rights reserved. This program is free software; you can +# redistribute it and/or modify it under the same terms as Perl itself. +# +# $Id$ +# $FML$ +# + +use strict; +use Carp; + + +&HEADER; +print "<PRE>\n"; +while (<>) { print $_;} +print "</PRE>\n"; +&FOOTER; + +1; + + +sub HEADER +{ + +print <<"_EOF"; +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> +<HTML> +<HEAD> +<TITLE> +$ARGV[0] +</TITLE> +<META http-equiv="Content-Type" + content="text/html; charset=EUC-JP"> +</HEAD> + +<BODY BGCOLOR="#E6E6FA"> +_EOF + +} + + +sub FOOTER +{ + +print <<'_EOF'; +</BODY> +</HTML> +_EOF + +} + + +1; |