File: FAQ-html.pl

package info (click to toggle)
cxref 1.5c-9
  • links: PTS
  • area: main
  • in suites: woody
  • size: 1,504 kB
  • ctags: 1,359
  • sloc: ansic: 16,721; yacc: 1,930; sh: 722; lex: 416; makefile: 345; lisp: 256; python: 80; perl: 78
file content (98 lines) | stat: -rwxr-xr-x 2,232 bytes parent folder | download | duplicates (2)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
#!/usr/bin/perl
#-*-perl-*-

#
# Copyright Andrew M. Bishop 1996.97,98.
#
# Usage: FAQ-html.pl < FAQ > FAQ.html
#

$_=<STDIN>;
s/^ *//;
s/ *\n//;
$first=$_;

print "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">\n";
print "<HTML>\n";
print "\n";
print "<HEAD>\n";
print "<TITLE>$first</TITLE>\n";
print "</HEAD>\n";
print "\n";
print "<BODY>\n";
print "\n";
print "<h1>$first</h1>\n";

$questions=0;
$answers=0;
$pre=0;
$blank=1;

while(<STDIN>)
  {
   chop;

   s/&/&amp;/g;
   s/</&lt;/g;
   s/>/&gt;/g;
   s/\"/&quot;/g;

   next if(m/^ *=+ *$/);
   next if ($_ eq "--------------------");
   $pre++,$blank=0,next if($pre==1 && $_ eq "");
   $blank=1,next        if($pre!=1 && $_ eq "");
   $pre++ if($pre);

   if ($_ eq "--------------------------------------------------------------------------------")
       {
        $pre=0,print "</pre>\n" if($pre);
        print "<hr>\n";
        $answers++              if( $answers);
        $questions=0,$answers=1 if( $questions);
        $questions=1            if(!$questions && !$answers);
       }
   elsif (m/^(Section [0-9]+)/)
       {
        $section = $1;
        $section =~ tr/ /-/;

        $pre=0,print "</pre>\n" if($pre);
        print "<p><b><a href=\"#$section\">$_</a></b>\n" if($questions);
        print "<h2><a name=\"$section\">$_</a></h2>\n"       if($answers);
       }
   elsif(m/^(Q [0-9]+.[0-9]+[a-z]*)/)
       {
        $question = $1;
        $question =~ tr/ /-/;

        $blank=0,$pre=0,print "</pre>\n" if($pre);
        print "<p><a href=\"#$question\">$_</a>\n"  if($questions);
        print "<h3><a name=\"$question\">$_</a></h3>\n" if($answers);
        $pre=1,print "<pre>\n" if($answers);
       }
   elsif(m/\((See Q [0-9]+.[0-9]+[a-z]*)\)/)
       {
        $question = substr($1,4);
        $question =~ tr/ /-/;
        $href=$1;

        s%$1%<a href="#$question">$href</a>% if($answers);
        print "$_\n";
       }
   elsif(m%(^|[^\'\"])(http://[A-Za-z0-9-_.]+/[/A-Za-z0-9-_.~]*)%)
       {
        $href=$2;

        s%$2%<a href="$href">$href</a>%;
        print "$_\n";
       }
   else
       {
        $blank=0,print "\n" if($blank);
        print "$_\n";
       }
  }

print "</BODY>\n";
print "\n";
print "</HTML>\n";