blob: 75801f4430a96d07d96326e128fb83d910ce95db (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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
}
#
|
