[Commit-womb] gnumaint mfupgrade

[Jose E. Marchesi]

CVSROOT:        /cvsroot/womb
Module name:    gnumaint
Changes by:     Jose E. Marchesi <jemarch>      06/08/31 21:58:01

Modified files:
        .              : mfupgrade 

Log message:
        Include the first page contents and the page separator ^L on output

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/mfupgrade?cvsroot=womb&r1=1.1.1.1&r2=1.2

Patches:
Index: mfupgrade
===================================================================
RCS file: /cvsroot/womb/gnumaint/mfupgrade,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -b -r1.1.1.1 -r1.2
--- mfupgrade   30 Aug 2006 00:31:22 -0000      1.1.1.1
+++ mfupgrade   31 Aug 2006 21:58:01 -0000      1.2
@@ -9,6 +9,8 @@
 ### Global variables
 ###
 
+set first_page_contents {}
+
 set contact_regexp {(?x)
     # A regexp to match contact information
     ^([^<(]*)             # The name of the contact (optional)
@@ -84,6 +86,7 @@
 
 proc build_maintainers_db {} {
     
+    global first_page_contents
     global maintainers_file
     global maintainersdb
 
@@ -95,12 +98,16 @@
        exit 1
     }
 
-    # Get the first line
+    # Get the first line and collect the info
     gets $finput line
+    append first_page_contents $line
+    append first_page_contents "\n"
 
     # Skip until second page
     while {(![eof $finput]) && ([string index $line 0] != "\f")} {
        gets $finput line
+        append first_page_contents $line
+        append first_page_contents "\n"
     }
     # Consume the ^L
     if {![eof $finput]} then {
@@ -121,8 +128,12 @@
 
 proc do_convert {} {
 
+    global first_page_contents
     global maintainersdb
 
+    puts $first_page_contents
+    puts {}
+
     foreach pkg $maintainersdb {
 
        if {[lindex $pkg 2] == ""} then {