| #! 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"); | |
| } |