nsprpub/config/nfspwd.pl

changeset 0
6474c204b198
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/nsprpub/config/nfspwd.pl	Wed Dec 31 06:09:35 2014 +0100
     1.3 @@ -0,0 +1,18 @@
     1.4 +#! perl
     1.5 +# 
     1.6 +# This Source Code Form is subject to the terms of the Mozilla Public
     1.7 +# License, v. 2.0. If a copy of the MPL was not distributed with this
     1.8 +# file, You can obtain one at http://mozilla.org/MPL/2.0/.
     1.9 +
    1.10 +require "fastcwd.pl";
    1.11 +
    1.12 +$_ = &fastcwd;
    1.13 +if (m@^/[uh]/@o || s@^/tmp_mnt/@/@o) {
    1.14 +    print("$_\n");
    1.15 +} elsif ((($user, $rest) = m@^/usr/people/(\w+)/(.*)@o)
    1.16 +      && readlink("/u/$user") eq "/usr/people/$user") {
    1.17 +    print("/u/$user/$rest\n");
    1.18 +} else {
    1.19 +    chop($host = `hostname`);
    1.20 +    print("/h/$host$_\n");
    1.21 +}

mercurial