home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / NETSCAP.50 / WIN1998.ZIP / ns / config / revdepth.pl < prev    next >
Encoding:
Perl Script  |  1998-04-08  |  999 b   |  32 lines
  1. #! perl
  2. #
  3. # The contents of this file are subject to the Netscape Public License
  4. # Version 1.0 (the "NPL"); you may not use this file except in
  5. # compliance with the NPL.  You may obtain a copy of the NPL at
  6. # http://www.mozilla.org/NPL/
  7. #
  8. # Software distributed under the NPL is distributed on an "AS IS" basis,
  9. # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
  10. # for the specific language governing rights and limitations under the
  11. # NPL.
  12. #
  13. # The Initial Developer of this code under the NPL is Netscape
  14. # Communications Corporation.  Portions created by Netscape are
  15. # Copyright (C) 1998 Netscape Communications Corporation.  All Rights
  16. # Reserved.
  17. #
  18.  
  19. unshift(@INC, '/usr/lib/perl');
  20. unshift(@INC, '/usr/local/lib/perl');
  21.  
  22. require "fastcwd.pl";
  23.  
  24. $cur = &fastcwd;
  25. chdir($ARGV[0]);
  26. $newcur = &fastcwd;
  27. $newcurlen = length($newcur);
  28.  
  29. # Skip common separating / unless $newcur is "/"
  30. $cur = substr($cur, $newcurlen + ($newcurlen > 1));
  31. print $cur;
  32.