diff options
Diffstat (limited to 'nsprpub/config/nfspwd.pl')
-rw-r--r-- | nsprpub/config/nfspwd.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/nsprpub/config/nfspwd.pl b/nsprpub/config/nfspwd.pl new file mode 100644 index 000000000..1e66be356 --- /dev/null +++ b/nsprpub/config/nfspwd.pl @@ -0,0 +1,18 @@ +#! perl +# +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. + +require "fastcwd.pl"; + +$_ = &fastcwd; +if (m@^/[uh]/@o || s@^/tmp_mnt/@/@o) { + print("$_\n"); +} elsif ((($user, $rest) = m@^/usr/people/(\w+)/(.*)@o) + && readlink("/u/$user") eq "/usr/people/$user") { + print("/u/$user/$rest\n"); +} else { + chop($host = `hostname`); + print("/h/$host$_\n"); +} |