← Back to branch summary

~ubuntu-branches/ubuntu/feisty/freeradius/feisty-security

« back to all changes in this revision

Viewing changes to doc/rfc/rewrite.pl

  • Committer: Bazaar Package Importer
  • Author(s): Mark Hymers
  • Date: 2006-12-16 20:45:11 UTC
  • mfrom: (3.1.10 feisty)
  • Revision ID: james.westby@ubuntu.com-20061216204511-3pbbsu4s8jtehsor
Tags: 1.1.3-3
http://bugs.debian.org/403384
Fix POSIX compliance problem in init script.  Closes: #403384. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
doc/rfc/rewrite.pl
1
 
#!/usr/bin/perl
2
 
 
3
 
#
4
 
#   Read in the references, and put into an associative array
5
 
#
6
 
open FILE, "<refs" || die "Error opening refs: $!\n";
7
 
while (<FILE>) {
8
 
    chop;
9
 
    split;
10
 
    
11
 
    $refs{$_[1]} = $_[0];
12
 
}
13
 
close FILE;
14
 
 
15
 
#
16
 
#  now loop over the input RFC's.
17
 
#
18
 
foreach $file (@ARGV) {
19
 
    open FILE, "<$file" || die "Error opening $file: $!\n";
20
 
 
21
 
    $attribute = "zzzzz";
22
 
 
23
 
    # get the current reference
24
 
    $ref = $file;
25
 
    $ref =~ s/\..*//g;
26
 
        
27
 
    open OUTPUT, ">$ref.html" || die "Error creating $ref.html: $!\n";
28
 
 
29
 
    #
30
 
    #  Print out the HTML header
31
 
    #
32
 
    print OUTPUT <<EOF;
33
 
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
34
 
<HTML>
35
 
<head>
36
 
   <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
37
 
   <meta name="GENERATOR" content="Perl">
38
 
   <title>$ref.html</title>
39
 
</head>
40
 
<body>
41
 
<PRE>
42
 
 
43
 
EOF
44
 
 
45
 
    #  loop over the input file
46
 
    while (<FILE>) {
47
 
        # html-ize it
48
 
        s/&/&amp;/g;
49
 
        s/</&lt;/g;
50
 
        s/>/&gt;/g;
51
 
        
52
 
        if (/\[Page/) {
53
 
            print OUTPUT;
54
 
            next;
55
 
        }
56
 
        
57
 
        if (/^RFC \d+/) {
58
 
            print OUTPUT;
59
 
            next;
60
 
        }
61
 
        
62
 
        chop;
63
 
        
64
 
        #
65
 
        #  Attribute name header.
66
 
        #
67
 
        if (/^\d+\./) {
68
 
            split;
69
 
 
70
 
            if ($refs{$_[1]} ne "") {
71
 
                $attribute = $_[1];
72
 
                
73
 
                print OUTPUT "<A NAME=\"$attribute\"><H2>$_[0] $attribute</H2></a>\n";
74
 
                
75
 
            } else {
76
 
                print OUTPUT "<H2>$_</H2>\n";
77
 
                $attribute = "zzzz";
78
 
            }
79
 
            next;
80
 
        }
81
 
 
82
 
        #
83
 
        #  Mark these up special.
84
 
        #
85
 
        if ((/^   Description/) ||
86
 
            (/^   Type/) ||
87
 
            (/^   Length/) ||
88
 
            (/^   Value/)) {
89
 
            print OUTPUT "<B>$_</B>\n";
90
 
            next;
91
 
        }
92
 
        
93
 
        # Make the current attribute name bold
94
 
        s/$attribute/<B>$attribute<\/B>/g;
95
 
 
96
 
        split;
97
 
 
98
 
        #
99
 
        #  Re-write the output with links to where-ever
100
 
        #
101
 
        foreach $word (@_) {
102
 
            $word =~ s/[^-a-zA-Z]//g;
103
 
 
104
 
            if ($refs{$word} ne "") {
105
 
                if ($refs{$word} eq $ref) {
106
 
                    s/$word/<A HREF="#$word">$word<\/A>/g;
107
 
                } else {
108
 
                    s/$word/<A HREF="$refs{$word}.html#$word">$word<\/A>/g;
109
 
                }
110
 
            }
111
 
        }
112
 
 
113
 
        print OUTPUT $_, "\n";
114
 
    }
115
 
 
116
 
    print OUTPUT "</PRE>\n";
117
 
    print OUTPUT "</BODY>\n";
118
 
    close OUTPUT;
119
 
    close FILE;
120
 
}
121
 
 
122
 
#
123
 
#  And finally, create the index.
124
 
#
125
 
open OUTPUT, ">index.html" || die "Error creating index.html: $!\n";
126
 
 
127
 
#
128
 
#  Print out the HTML header
129
 
#
130
 
print OUTPUT <<EOF;
131
 
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
132
 
<HTML>
133
 
<head>
134
 
   <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
135
 
   <meta name="GENERATOR" content="Perl">
136
 
   <title>$ref.html</title>
137
 
</head>
138
 
<body>
139
 
 
140
 
<H2>RADIUS Attribute List</H2>
141
 
EOF
142
 
 
143
 
$letter = "@";
144
 
 
145
 
foreach $key (sort keys %refs) {
146
 
    if (substr($key,0,1) ne $letter) {
147
 
        $letter = substr($key,0,1);
148
 
        print OUTPUT "\n<H3>$letter</H3>\n\n";
149
 
    }
150
 
    
151
 
    print OUTPUT "<A HREF=\"$refs{$key}.html#$key\">$key</A><BR>\n";
152
 
}
153
 
 
154
 
print OUTPUT "</BODY>\n";
155
 
close OUTPUT;