#! /usr/bin/perl
#
# Magically expand a given pathname
#

$_ = shift;

s#^aem/.*#users/a/andrewm/redhat# ||
s#^dwp/.*#users/d/douglasp/redhat# ||
s#^rebel/.*#pub/rebel# ||
s#^rfs/.*#users/r/ralphs/redhat# ||
s#^rms/.*#users/s/stewart/redhat# ||
s#^sdb/.*#users/s/scottb/redhat# ||
do { $_ = '.' };

print "$_\n";