summaryrefslogtreecommitdiff
path: root/doc/utils/killtoodeepcontents.pl
diff options
context:
space:
mode:
authorRene Mayrhofer <rene@mayrhofer.eu.org>2007-01-28 20:57:54 +0000
committerRene Mayrhofer <rene@mayrhofer.eu.org>2007-01-28 20:57:54 +0000
commit808cf8b3174aa7ad0833ea69cb55753d21318c9c (patch)
treef616989731c65ab1b6361b3ae5fff5ffed2e0c0a /doc/utils/killtoodeepcontents.pl
parent58d26e02cd8686e177eebb9fb81e6b17798bbb30 (diff)
downloadvyos-strongswan-808cf8b3174aa7ad0833ea69cb55753d21318c9c.tar.gz
vyos-strongswan-808cf8b3174aa7ad0833ea69cb55753d21318c9c.zip
[svn-upgrade] Integrating new upstream version, strongswan (2.8.1)
Diffstat (limited to 'doc/utils/killtoodeepcontents.pl')
-rw-r--r--doc/utils/killtoodeepcontents.pl59
1 files changed, 0 insertions, 59 deletions
diff --git a/doc/utils/killtoodeepcontents.pl b/doc/utils/killtoodeepcontents.pl
deleted file mode 100644
index a6fe551d6..000000000
--- a/doc/utils/killtoodeepcontents.pl
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/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;
- }
- }
-}