build/unix/abs2rel.pl@129ffea94266
build/unix/abs2rel.pl
Sat, 03 Jan 2015 20:18:00 +0100
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Sat, 03 Jan 2015 20:18:00 +0100
- branch
- TOR_BUG_3246
- changeset 7
- 129ffea94266
- permissions
- -rw-r--r--
Conditionally enable double key logic according to:
private browsing mode or privacy.thirdparty.isolate preference and
implement in GetCookieStringCommon and FindCookie where it counts...
With some reservations of how to convince FindCookie users to test
condition and pass a nullptr when disabling double key logic.
1 #!env perl
3 # This Source Code Form is subject to the terms of the Mozilla Public
4 # License, v. 2.0. If a copy of the MPL was not distributed with this
5 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
7 use File::Spec::Unix;
8 use strict;
10 print "Usage: $0 dest_path start_path\n" if ($#ARGV+1 != 2);
11 my $finish = my_canonpath(shift);
12 my $start = my_canonpath(shift);
14 my $res = File::Spec::Unix->abs2rel($finish, $start);
16 #print STDERR "abs2rel($finish,$start) = $res\n";
17 print "$res\n";
19 sub my_canonpath($) {
20 my ($file) = @_;
21 my (@inlist, @outlist, $dir);
23 # Do what File::Spec::Unix->no_upwards should do
24 my @inlist = split(/\//, File::Spec::Unix->canonpath($file));
25 foreach $dir (@inlist) {
26 if ($dir eq '..') {
27 pop @outlist;
28 } else {
29 push @outlist, $dir;
30 }
31 }
32 $file = join '/',@outlist;
33 return $file;
34 }
