[prev in list] [next in list] [prev in thread] [next in thread] 

List:       ipcop-svn
Subject:    [Ipcop-svn] SF.net SVN: ipcop:[4201] ipcop/trunk/tools/comp_md5.pl
From:       owes () users ! sourceforge ! net
Date:       2010-01-31 14:07:19
Message-ID: E1NbaSN-0004xh-NK () d5vjzd1 ! ch3 ! sourceforge ! com
[Download RAW message or body]

Revision: 4201
          http://ipcop.svn.sourceforge.net/ipcop/?rev=4201&view=rev
Author:   owes
Date:     2010-01-31 14:07:19 +0000 (Sun, 31 Jan 2010)

Log Message:
-----------
Add some grep foo to find the rootfile/package that provides the modified file.

Modified Paths:
--------------
    ipcop/trunk/tools/comp_md5.pl

Modified: ipcop/trunk/tools/comp_md5.pl
===================================================================
--- ipcop/trunk/tools/comp_md5.pl	2010-01-31 12:01:51 UTC (rev 4200)
+++ ipcop/trunk/tools/comp_md5.pl	2010-01-31 14:07:19 UTC (rev 4201)
@@ -106,14 +106,22 @@
         print OUTLIST "UPDATE  $file\n";
         next;
     }
-    
+
     if (defined($known{$file})) {
         # This one is different and we know about
         print OUTLIST "KNOWN   $file\n";
         next;
     }
-    
-    print OUTLIST "DIFF    $file\n";
+
+    # Hello, major hack. Find the package that causes the difference.
+    my $file_in_rootfile = substr($file, 1);
+    my $rootfile = `grep -l "^${file_in_rootfile}" \
$ARGV[0]/config/rootfiles/{common,arch_$ARGV[3]}/*`; +    chomp($rootfile);
+    if (-e "$rootfile") {
+        $rootfile = `basename $rootfile`;
+        chomp($rootfile);
+    }
+    printf OUTLIST "DIFF    %-40s %s\n", $file, $rootfile;
 }
 close (OUTLIST);
 


This was sent by the SourceForge.net collaborative development platform, the world's \
largest Open Source development site.

------------------------------------------------------------------------------
The Planet: dedicated and managed hosting, cloud storage, colocation
Stay online with enterprise data centers and the best network in the business
Choose flexible plans and management services without long-term contracts
Personal 24x7 support from experience hosting pros just a phone call away.
http://p.sf.net/sfu/theplanet-com
_______________________________________________
Ipcop-svn mailing list
Ipcop-svn@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ipcop-svn


[prev in list] [next in list] [prev in thread] [next in thread]