openwrt-xburst/scripts/abs2rel.pl

#!/usr/bin/env perl
# 
# Copyright (C) 2007 OpenWrt.org
#
# This is free software, licensed under the GNU General Public License v2.
# See /LICENSE for more information.
#

use strict;
require File::Spec;

my $source = shift @ARGV;
my $target = shift @ARGV;
my $result = File::Spec->abs2rel($source, $target);

print "$result\n";
use #!/usr/bin/env perl instead of #!/usr/bin/perl in openwrt scripts (fixes #2998) git-svn-id: svn://svn.openwrt.org/openwrt/trunk@12674 3c298f89-4303-0410-b956-a3cf2f4a3e73 2008-09-23 21:29:44 +03:00			`#!/usr/bin/env perl`
add an abs2rel.pl helper script (returns a path relative to another) git-svn-id: svn://svn.openwrt.org/openwrt/trunk@8570 3c298f89-4303-0410-b956-a3cf2f4a3e73 2007-09-01 18:20:33 +03:00			`#`
			`# Copyright (C) 2007 OpenWrt.org`
			`#`
			`# This is free software, licensed under the GNU General Public License v2.`
			`# See /LICENSE for more information.`
			`#`

			`use strict;`
			`require File::Spec;`

			`my $source = shift @ARGV;`
			`my $target = shift @ARGV;`
			`my $result = File::Spec->abs2rel($source, $target);`

			`print "$result\n";`