From 66fdcee26a2734e9e19dd20ce20e69a2d3c19eb0 Mon Sep 17 00:00:00 2001 From: Chmouel Boudjnah Date: Sun, 23 Apr 2000 01:45:35 +0000 Subject: relative_me_babe: a new greatest hit. --- relative_me_babe | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100755 relative_me_babe (limited to 'relative_me_babe') 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 +# 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"); + } +} -- cgit v1.2.1