lib/pwd.pl

   1 ;# pwd.pl - keeps track of current working directory in PWD environment var
   2 ;#
   3 ;# $RCSfile: pwd.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:11 $
   4 ;#
   5 ;# $Log:        pwd.pl,v $
   6 ;# Revision 4.1  92/08/07  18:24:11  lwall
   7 ;#
   8 ;# Revision 4.0.1.1  92/06/08  13:45:22  lwall
   9 ;# patch20: support added to pwd.pl to strip automounter crud
  10 ;#
  11 ;# Revision 4.0  91/03/20  01:26:03  lwall
  12 ;# 4.0 baseline.
  13 ;#
  14 ;# Revision 3.0.1.2  91/01/11  18:09:24  lwall
  15 ;# patch42: some .pl files were missing their trailing 1;
  16 ;#
  17 ;# Revision 3.0.1.1  90/08/09  04:01:24  lwall
  18 ;# patch19: Initial revision
  19 ;#
  20 ;#
  21 ;# Usage:
  22 ;#      require "pwd.pl";
  23 ;#      &initpwd;
  24 ;#      ...
  25 ;#      &chdir($newdir);
  26
  27 package pwd;
  28
  29 sub main'initpwd {
  30     if ($ENV{'PWD'}) {
  31         local($dd,$di) = stat('.');
  32         local($pd,$pi) = stat($ENV{'PWD'});
  33         if ($di != $pi || $dd != $pd) {
  34             chop($ENV{'PWD'} = `pwd`);
  35         }
  36     }
  37     else {
  38         chop($ENV{'PWD'} = `pwd`);
  39     }
  40     if ($ENV{'PWD'} =~ m|(/[^/]+(/[^/]+/[^/]+))(.*)|) {
  41         local($pd,$pi) = stat($2);
  42         local($dd,$di) = stat($1);
  43         if ($di == $pi && $dd == $pd) {
  44             $ENV{'PWD'}="$2$3";
  45         }
  46     }
  47 }
  48
  49 sub main'chdir {
  50     local($newdir) = shift;
  51     if (chdir $newdir) {
  52         if ($newdir =~ m#^/#) {
  53             $ENV{'PWD'} = $newdir;
  54         }
  55         else {
  56             local(@curdir) = split(m#/#,$ENV{'PWD'});
  57             @curdir = '' unless @curdir;
  58             foreach $component (split(m#/#, $newdir)) {
  59                 next if $component eq '.';
  60                 pop(@curdir),next if $component eq '..';
  61                 push(@curdir,$component);
  62             }
  63             $ENV{'PWD'} = join('/',@curdir) || '/';
  64         }
  65     }
  66     else {
  67         0;
  68     }
  69 }
  70
  71 1;