File: killtoodeepcontents.pl

package info (click to toggle)
openswan 1%3A2.4.6%2Bdfsg.2-1.1
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 24,996 kB
  • ctags: 16,877
  • sloc: ansic: 121,112; sh: 19,524; xml: 9,699; asm: 4,422; perl: 4,087; makefile: 3,367; tcl: 713; exp: 657; yacc: 396; pascal: 328; lex: 289; sed: 265; awk: 124; lisp: 3
file content (59 lines) | stat: -rw-r--r-- 888 bytes parent folder | download | duplicates (7) 
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;
    }
  }
}