NetNews Usenet Archive 1992 #19/NN_1992_19.iso/spool/comp/lang/perl/5526

Internet Message Format | 1992-08-26 | 1.3 KB

Path: sparky!uunet!sun-barr!ames!data.nas.nasa.gov!taligent!apple!autodesk!dansmith
From: [e-mail] (Daniel Smith)
Newsgroups: comp.lang.perl
Subject: got a symlink checker/chaser for crontab?
Summary: don't want dead links sitting around
Message-ID: <[e-mail]>
Date: 27 Aug 92 00:43:12 GMT
Organization: Autodesk Inc., Sausalito CA, USA
Lines: 19


    I often tie together filesystems with symlinks, so that
something like /usr/local/src will contain links which point all
over the place.  Every so often, I try to cd somewhere I haven't
been for weeks, only to find that the link has "dried up".

    Well... I basically want a script that will take
"find / -type l -print" and check the links to see if they resolve.  It's
something I'd run once a day out of crontab.  Rather than reinventing
what must be a somewhat common wheel, I thought I'd ask here first.
The script would produce a list of symlinks in need of updating/deletion,
which presumably would get piped into mail.

                Daniel
--
            [e-mail]            [e-mail]
        Daniel Smith, Autodesk, Sausalito, California, [phone] x 2580
              Disclaimer: written by a highly caffeinated mammal
 $|=1;for("..."," hacker"," perl"," a","just"){print $l=$_.$l,"\015";sleep 1;}