-----BEGIN PGP SIGNED MESSAGE----- On Fri, 27 Aug 1999, Seth R Arnold wrote:
> Paul -- such a system sort of exists -- the popularity contest > package, which reports via email the most commonly used packages. I > haven't a clue how that thing works, I haven't looked into its source > code yet; however, I think you are absolutely right in one respect -- > those seldom used packages, I installed because I thought they would > be cool/useful/neat, whatever -- if I never use it, I must have > forgotten about it. Something to email me a weekly basis the packages > I *didn't* use, might be extremely helpful. Anyone care to hack apart > the populatirty contest package to add this? :) Didn't hack it apart, just wrote a perl prog to parse the input. Stick it in a cronjob if you want it run every X amount of time, i guess. - -- finger for PGP public key. -----BEGIN PGP SIGNATURE----- Version: 2.6.3ia Charset: noconv iQCVAwUBN8dAq77M/9WKZLW5AQHVugP9FtZqWGk9Mr3sV9WbZM7UZnTttBS3idQi WmHqH9Ho/TiO2wyMCPOUXnTy2dswEa2hSWlcKvJBFPFeoPTRduOHMaQFgoPgwk6L HBrVEedx2nr9P92M/gFzQjGxDRe+6znDJt9PxG2BVtCeFYGKDKN22aJrVoyCQb40 oeJ4kXMK5Ss= =LTIG -----END PGP SIGNATURE-----
#!/usr/bin/perl -w [EMAIL PROTECTED]; ($args{-h} or $args{'--help'}) and die <<"EOF" ; USAGE: $0 [options] Options: -l lines per page (default 25) -w width of "Most recent file" field (default 27) -h This help message EOF open X,"popularity-contest |" or die "$!\n"; print STDOUT <<"EOF"; Unused Packages Report Remember that libraries may be listed unused but be required for other packages! EOF format STDOUT_TOP = Package Installed Accessed Most recently accessed file -------------------- ---------- ---------- --------------------------- . $w=$args{-w} || 27; --$w<26 and $w=26; $x=' format STDOUT = @<<<<<<<<<<<<<<<<<<< @<<<<<<<<< @<<<<<<<<< @' . '<'x$w . ' $package, join("/",@c), join("/",@a), $file . '; eval $x; $^L="\n"; $= = $args{-l} || 25; @PATH=split /:/, $ENV{PATH}; while(<X>){ /<OLD>/ or next; ($atime,$ctime,$package,$file)=split; @a=reverse((localtime($atime))[3..5]); $a[0]+=1900; $a[1]++; @c=reverse((localtime($ctime))[3..5]); $c[0]+=1900; $c[1]++; for $dir (@PATH){ $file=~s!^$dir/!!; } write; }