home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / perl / 5538 < prev    next >
Encoding:
Internet Message Format  |  1992-08-26  |  3.6 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: got a symlink checker/chaser for crontab?
  5. Message-ID: <1992Aug27.063417.5136@netlabs.com>
  6. Date: 27 Aug 92 06:34:17 GMT
  7. References: <17544@autodesk.COM>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 129
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <17544@autodesk.COM> dansmith@Autodesk.COM (Daniel Smith) writes:
  14. : 
  15. :     I often tie together filesystems with symlinks, so that
  16. : something like /usr/local/src will contain links which point all
  17. : over the place.  Every so often, I try to cd somewhere I haven't
  18. : been for weeks, only to find that the link has "dried up".
  19. : 
  20. :     Well... I basically want a script that will take
  21. : "find / -type l -print" and check the links to see if they resolve.  It's
  22. : something I'd run once a day out of crontab.  Rather than reinventing
  23. : what must be a somewhat common wheel, I thought I'd ask here first.
  24. : The script would produce a list of symlinks in need of updating/deletion,
  25. : which presumably would get piped into mail.
  26.  
  27. Well, this isn't exactly it, but you might be able to hack it into what
  28. you want.
  29.  
  30. Larry
  31.  
  32. #!/usr/bin/perl
  33. 'di';
  34. 'ig00';
  35. #
  36. # $Header: sl,v 1.1 90/08/11 13:51:00 lwall Locked $
  37. #
  38. # $Log:    sl,v $
  39. # Revision 1.1  90/08/11  13:51:00  lwall
  40. # Initial revision
  41. # 
  42.  
  43. die "Usage: sl [filenames]\n" unless @ARGV;
  44.  
  45. $| = 1;
  46. chop($cwd = `pwd`) || die "Can't find current directory: $!\n" if $#ARGV > 0;
  47.  
  48. print "\n";
  49. foreach $name (@ARGV) {
  50.     @indent = ();
  51.     print "$name:\n";
  52.     @path = split(m;/;, $name);
  53.     if (@path && $path[0] eq '') {
  54.     chdir '/';
  55.     shift @path;
  56.     print '/';
  57.     $indent = 1;
  58.     }
  59.     while (@path) {
  60.     $elem = shift @path;
  61.     $new = readlink($elem);
  62.     if (defined $new) {
  63.         print "$elem -> $new\n";
  64.         $new =~ s!^\./!!;
  65.         unshift(@path,split(m;/;, $new));
  66.         if (@path && $path[0] eq '') {
  67.         chdir '/';
  68.         shift @path;
  69.         print '/';
  70.         $indent = 1;
  71.         @indents = ();
  72.         }
  73.         elsif (@path && @indents && $path[0] eq '..') {
  74.         $indent = pop(@indents);
  75.         chdir '..' || die "\n\nCan't chdir to ..: $!\n";;
  76.         shift @path;
  77.         print "\t" x ($indent / 8), ' ' x ($indent % 8);
  78.         }
  79.         else {
  80.         print "\t" x ($indent / 8), ' ' x ($indent % 8);
  81.         }
  82.     }
  83.     else {
  84.         print $elem;
  85.         push(@indents,$indent);
  86.         $indent += length($elem) + 1;
  87.         if (@path) {
  88.         print '/';
  89.         chdir $elem || die "\n\nCan't chdir to $elem: $!\n";;
  90.         }
  91.     }
  92.     }
  93.     print "\n\n";
  94.     $indent = 0;
  95.     chdir $cwd || die "Can't cd back: $!\n" if $cwd ne '';
  96. }
  97. ##############################################################################
  98.  
  99.     # These next few lines are legal in both Perl and nroff.
  100.  
  101. .00;            # finish .ig
  102.  
  103. 'di            \" finish diversion--previous line must be blank
  104. .nr nl 0-1        \" fake up transition to first page again
  105. .nr % 0            \" start at page 1
  106. '; __END__ ############# From here on it's a standard manual page ############
  107. .TH SL 1 "July 30, 1990"
  108. .AT 3
  109. .SH NAME
  110. sl \- show translation of symbolic link to actual filename
  111. .SH SYNOPSIS
  112. .B sl [filenames]
  113. .SH DESCRIPTION
  114. .I Sl
  115. traverses the pathnames supplied on the command line, and for each one,
  116. tells you if it had to follow any symbolic links to find the actual filename.
  117. Example:
  118. .nf
  119.  
  120.     $ sl /usr/lib/libXw.a
  121.  
  122.     /usr/lib/libXw.a:
  123.     /usr/lib/libXw.a -> /usr/lib/X11/libXw.a
  124.     /usr/lib/X11 -> /X11/lib
  125.     /X11 -> /usr/local/X11R4
  126.     /usr/local/X11R4/lib/libXw.a
  127.  
  128. .fi
  129. .SH ENVIRONMENT
  130. No environment variables are used by
  131. .I sl.
  132. .SH FILES
  133. None.
  134. .SH AUTHOR
  135. Larry Wall
  136. .SH "SEE ALSO"
  137. ls -l
  138. .SH DIAGNOSTICS
  139. Complains if it can't chdir to the directories it's trying to traverse.
  140. .SH BUGS
  141. .ex
  142.