| 1 | #! perl
|
|---|
| 2 | #
|
|---|
| 3 | # ***** BEGIN LICENSE BLOCK *****
|
|---|
| 4 | # Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
|---|
| 5 | #
|
|---|
| 6 | # The contents of this file are subject to the Mozilla Public License Version
|
|---|
| 7 | # 1.1 (the "License"); you may not use this file except in compliance with
|
|---|
| 8 | # the License. You may obtain a copy of the License at
|
|---|
| 9 | # http://www.mozilla.org/MPL/
|
|---|
| 10 | #
|
|---|
| 11 | # Software distributed under the License is distributed on an "AS IS" basis,
|
|---|
| 12 | # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
|---|
| 13 | # for the specific language governing rights and limitations under the
|
|---|
| 14 | # License.
|
|---|
| 15 | #
|
|---|
| 16 | # The Original Code is the Netscape Portable Runtime (NSPR).
|
|---|
| 17 | #
|
|---|
| 18 | # The Initial Developer of the Original Code is
|
|---|
| 19 | # Netscape Communications Corporation.
|
|---|
| 20 | # Portions created by the Initial Developer are Copyright (C) 1998-2000
|
|---|
| 21 | # the Initial Developer. All Rights Reserved.
|
|---|
| 22 | #
|
|---|
| 23 | # Contributor(s):
|
|---|
| 24 | #
|
|---|
| 25 | # Alternatively, the contents of this file may be used under the terms of
|
|---|
| 26 | # either the GNU General Public License Version 2 or later (the "GPL"), or
|
|---|
| 27 | # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
|---|
| 28 | # in which case the provisions of the GPL or the LGPL are applicable instead
|
|---|
| 29 | # of those above. If you wish to allow use of your version of this file only
|
|---|
| 30 | # under the terms of either the GPL or the LGPL, and not to allow others to
|
|---|
| 31 | # use your version of this file under the terms of the MPL, indicate your
|
|---|
| 32 | # decision by deleting the provisions above and replace them with the notice
|
|---|
| 33 | # and other provisions required by the GPL or the LGPL. If you do not delete
|
|---|
| 34 | # the provisions above, a recipient may use your version of this file under
|
|---|
| 35 | # the terms of any one of the MPL, the GPL or the LGPL.
|
|---|
| 36 | #
|
|---|
| 37 | # ***** END LICENSE BLOCK *****
|
|---|
| 38 |
|
|---|
| 39 | require "fastcwd.pl";
|
|---|
| 40 |
|
|---|
| 41 | $_ = &fastcwd;
|
|---|
| 42 | if (m@^/[uh]/@o || s@^/tmp_mnt/@/@o) {
|
|---|
| 43 | print("$_\n");
|
|---|
| 44 | } elsif ((($user, $rest) = m@^/usr/people/(\w+)/(.*)@o)
|
|---|
| 45 | && readlink("/u/$user") eq "/usr/people/$user") {
|
|---|
| 46 | print("/u/$user/$rest\n");
|
|---|
| 47 | } else {
|
|---|
| 48 | chop($host = `hostname`);
|
|---|
| 49 | print("/h/$host$_\n");
|
|---|
| 50 | }
|
|---|
