relative_me_babe: a new greatest hit.

1 files changed, 21 insertions, 0 deletions

diff --git a/relative_me_babe b/relative_me_babe
new file mode 100755
index 0000000..e390a18
--- /dev/null
+++ b/relative_me_babe
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+# -*- Mode: cperl -*-
+# Copyright (C) 2000 by Chmouel Boudjnah <chmouel@mandrakesoft.com>
+# Redistribution of this file is permitted under the terms of the GNU 
+# Public License (GPL)
+## description: Convert full link to relative links.
+
+my $r=$ENV{RPM_BUILD_ROOT};
+chdir($r) or "Can't cd to $ENV{RPM_BUILD_ROOT}: $!";
+
+push my @files, split(/\n/, `find -type l 2> /dev/null`);
+for (@files) {
+    my $file = $_;
+    my $link=readlink($file);
+    if ($link =~ /^\//) {
+	$link =~ s|^/||;
+	# Ugly ? no simply chmou.
+	(my $dirname = $file) =~ s|/[^/]*$||; $dirname =~ s|/[^/]+|../|g; $dirname =~ s|^\.||;
+      	system("ln -sf $dirname$link $file");
+    }
+}