doc/utils/killtoodeepcontents.pl


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

#!/usr/bin/perl

$toc=0;
$memo=0;

while(<>) {
  if(0 && /^Status of this Memo/) {
    $memo=1;
    print;
    next;
  }
    
  if(/^Table of Contents/) {
    print ".bp\n";
    $toc=1;
    print;
    next;
  }
  
  if(!$toc && !$memo) {
    print;
    next;
  }

  if($toc) {
    if(/^[0-9]*\.[0-9]*\.[0-9]* / ||
#       /^[0-9]*\.[0-9]* / ||
       /^[0-9]*\.[0-9]*\.[0-9]*\.[0-9]* /) {
      next;
    }

    if(/^14./) {
      $toc=0;
    }
    if(/^\.bp/) {
      next;
    }
    print;
  }

  if($memo) {
    if(/^\.bp/) {
      next;
    }
    
    if(/^Copyright Notice/) {
      print ".fi\n";
      print "This memo provides information for the Internet community.  It does\n";
      print "not specify an Internet standard of any kind.  Distribution of this\n";
      print "memo is unlimited.\n";
      print "\n.ti 0\n";

      print;

      $memo=0;
      next;
    }
  }
}