1 files changed, 43 insertions, 0 deletions
diff --git a/man/mib2c.extract.pl b/man/mib2c.extract.pl
new file mode 100644
index 0000000..14b9dea
--- /dev/null
+++ b/man/mib2c.extract.pl
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+
+# read comments from mib2c and insert them in mib2c.conf.5
+my $mib2csrc = shift;
+
+while (<>) {
+    if (/COMMANDSHERE/) {
+	open(I,$mib2csrc);
+	while (<I>) {
+	    last if (/^# which include:/);
+	}
+	while (<I>) {
+	    last if (!/^#/);
+	    s/^#\s+//;
+	    # Avoid ' at the beginning of a line
+	    s/^'/\\&'/;
+	    # Quotes in a quoted argument must be doubled.
+	    s/"/""/g;
+	    s/^(\@.*\@)$/.IP "$1"/;
+	    print;
+	}
+	close(I);
+    } elsif (/VAREXPANSIONSHERE/) {
+	open(I,$mib2csrc);
+	while (<I>) {
+	    last if (/^# Mib components,/);
+	}
+	while (<I>) {
+	    last if (!/^#/);
+	    next if (/^#\s*$/);
+	    s/^#\s+//;
+	    # Avoid ' at the beginning of a line
+	    s/^'/\\&'/;
+	    # Quotes in a quoted argument must be doubled.
+	    s/"/""/g;
+	    s/^(\S+)\s+--\s+(.*)/.IP "$1"\n$2/;
+	    print;
+	}
+	close(I);
+    } else {
+	print;
+    }
+}