[48773] contrib

[jmr at macports.org]

Revision: 48773
          http://trac.macports.org/changeset/48773
Author:   jmr at macports.org
Date:     2009-03-28 11:23:27 -0700 (Sat, 28 Mar 2009)
Log Message:
-----------
Add contrib script to repair corrupted file_map.db (#2725)

Added Paths:
-----------
    contrib/repairfilemap/
    contrib/repairfilemap/repairfilemap.tcl

Added: contrib/repairfilemap/repairfilemap.tcl
===================================================================
--- contrib/repairfilemap/repairfilemap.tcl	                        (rev 0)
+++ contrib/repairfilemap/repairfilemap.tcl	2009-03-28 18:23:27 UTC (rev 48773)
@@ -0,0 +1,115 @@
+#!/usr/bin/tclsh
+
+# $Id$
+#
+# Created by Kevin Ballard <eridius at macports.org>
+# This creates a new file_map based on the contents of the receipts.
+# Intended for use when file_map.db gets corrupted.
+#
+# The way this works is it parses all the receipts, pulls out the active ones,
+# pulls out the image contents of each receipt, removes the image directory from
+# the beginning of each path, and uses the resulting paths to construct an
+# old-style file_map file. Once this is done, simply delete your file_map.db
+# file and run a MacPorts command that access this file (such as deactivating
+# a port, getting a contents list, or asking what port provides a file) and
+# MacPorts will convert the file_map to a new file_map.db file.
+#
+# Note: this assumes you are using port images. If you aren't, this script will
+# not work for you.
+#
+# This script is in the public domain. Do whatever you want with it. The only
+# disclaimer is I am not liable for anything unexpected this script might do.
+
+set tclpackage "/Library/Tcl"
+if {[lindex $::argv 0] == "-t"} {
+    set tclpackage [lindex $::argv 1]
+}
+
+catch {
+	source [file join $tclpackage macports1.0 macports_fastload.tcl]
+}
+package require macports 1.0
+
+if {[catch {mportinit} result]} {
+	puts "Failed to initialize ports system, $result"
+	exit 1
+}
+
+set file_map {}
+
+proc parse_receipt {name} {
+	global macports::registry.path
+
+	set file_map {}
+
+	set name [lindex [file split $name] end]
+
+	set receipt_path [file join ${macports::registry.path} receipts $name]
+
+	set versions {}
+	set x [glob -nocomplain [file join $receipt_path *]]
+	if { [string length $x] } {
+		foreach path $x {
+			lappend versions [lindex [file split $path] end]
+		}
+	}
+
+	foreach version $versions {
+		set receipt_file [file join $receipt_path $version receipt]
+
+		if { [file exists $receipt_file.bz2] && [file exists /usr/bin/bzip2] } {
+			set receipt_file $receipt_file.bz2
+			set receipt_contents [exec /usr/bin/bzip2 -d -c $receipt_file]
+		} elseif { [file exists $receipt_file] } {
+			set receipt_handle [open $receipt_file r]
+			set receipt_contents [read $receipt_handle]
+			close $receipt_handle
+		} else {
+			return -code error "Registry erryr: receipt for ${name} ${version} seems to be compressed, but bzip2 couldn't be found."
+		}
+
+		if {![string match "# Version: 1.0*" $receipt_contents]} {
+			return -code error "Registry error: receipt $name $version is an unknown format."
+		}
+
+		# Remove any line starting with #
+		while {[regexp "(^|\n)#.*\n(.*)\$" $receipt_contents match foo receipt_contents]} {}
+		array set receipt $receipt_contents
+
+		if { [info exists receipt(active)] && $receipt(active) != 0 } {
+			puts "Parsing active receipt for $name $version"
+			# parse the contents list
+			set contents $receipt(contents)
+
+			foreach entry $contents {
+				set path [lindex $entry 0]
+				if { [string first $receipt(imagedir) $path] == 0 } {
+					set path [string range $path [string length $receipt(imagedir)] end]
+				} else {
+					return -code error "Receipt error: Referenced file does not live in image directory."
+				}
+				set map_entry {}
+				lappend map_entry $path
+				lappend map_entry $name
+				lappend file_map $map_entry
+			}
+		}
+	}
+	return $file_map
+}
+
+set names [glob -nocomplain [file join ${macports::registry.path} receipts *]]
+
+set file_map {}
+
+puts "Parsing receipts..."
+
+foreach name $names {
+	set file_map [concat $file_map [parse_receipt $name]]
+}
+
+set map_file [file join ${macports::registry.path} receipts file_map]
+set map_handle [open $map_file w]
+puts $map_handle $file_map
+close $map_handle
+puts "\n-- File map successfully built --"


Property changes on: contrib/repairfilemap/repairfilemap.tcl
___________________________________________________________________
Added: svn:executable
   + 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090328/96754f22/attachment.html>