Joey Hess wrote: > 'lastlog' will get you part way there. You just have to somehow sort the > output by date. Sorry, I'm feeling lazy or I'd write it.
Not lazy anymore. :-)
lastlog | perl -MDate::Parse -ne 'm/((\s+\S+){4})$/ && time - str2time($1) > 60
* 60 * 24 * 30 * 4 && print $_'
--
see shy jo
