From 30967775b2fdd979297f68738976712d93e8b0a8 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sat, 13 Jan 2007 14:52:18 +0000
Subject: * added support for --man and --verbose * fixed incorrect handling of
 relative paths * in verbose mode, libs that are skipped because of wrong
 platform are listed

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@624 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/slxldd | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'config-db/slxldd')

diff --git a/config-db/slxldd b/config-db/slxldd
index 289bf860..534752e6 100755
--- a/config-db/slxldd
+++ b/config-db/slxldd
@@ -34,6 +34,9 @@ use OpenSLX::Basics;
 
 my (
 	$helpReq,
+	$manReq,
+	$verbose,
+
 	$rootPath,
 	$versionReq,
 
@@ -47,10 +50,13 @@ my (
 $rootPath = '/';
 GetOptions(
 	'help|?' => \$helpReq,
+	'man' => \$manReq,
 	'root-path=s' => \$rootPath,
+	'verbose' => \$verbose,
 	'version' => \$versionReq,
 ) or pod2usage(2);
 pod2usage(-msg => $abstract, -verbose => 0, -exitval => 1) if $helpReq;
+pod2usage(-verbose => 2) if $manReq;
 if ($versionReq) {
 	system('slxversion');
 	exit 1;
@@ -77,9 +83,6 @@ foreach my $file (@ARGV) {
 	if ($file =~ m[^/]) {
 		# force absolute path relative to $rootPath:
 		$file = "$rootPath$file";
-	} else {
-		# relative paths are relative to $rootPath:
-		$file = "$rootPath/$file";
 	}
 	if (!-e $file) {
 		die _tr("slxldd: unable to find file '%s'\n", $file);
@@ -145,7 +148,11 @@ sub addLib
 					die _tr("unable to fetch file info for $folder/$lib, giving up!\n");
 				}
 				my $libBitwidth = ($libFileInfo =~ m[64-bit]i) ? 64 : 32;
-				next unless $bitwidth == $libBitwidth;
+				if ($bitwidth != $libBitwidth) {
+					vlog 0, _tr('%s has wrong bitwidth (%s instead of %s)',
+						      "$folder/$lib", $libBitwidth, $bitwidth) if $verbose;
+					next;
+				}
 				$libPath = "$folder/$lib";
 				last;
 			}
-- 
cgit v1.2.3-55-g7522