/[pliva-si]/.data/save_perm.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /.data/save_perm.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dpavlin, Tue Nov 20 15:01:59 2001 UTC revision 1.3 by dpavlin, Wed Nov 21 10:10:30 2001 UTC
# Line 22  while (@dirs) { Line 22  while (@dirs) {
22                  if (-l "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {                  if (-l "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {
23                          my $dest=readlink("$curr_dir/$file");                          my $dest=readlink("$curr_dir/$file");
24                          $dest="$curr_dir/$dest" if (substr($dest,0,1) ne "/");                          $dest="$curr_dir/$dest" if (substr($dest,0,1) ne "/");
25                          print "ln -s $dest $curr_dir/$file\n";                          print "ln -sf $dest $curr_dir/$file\n";
26                  } elsif (-f "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {                  } elsif (-f "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {
27                          my (undef,undef,$mode,undef,$uid,$gid) = stat("$curr_dir/$file");                          my (undef,undef,$mode,undef,$uid,$gid) = stat("$curr_dir/$file");
28                          if ($uid != $UID || $gid != $GID) {                          if ($uid != $UID || $gid != $GID) {
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26