noffle-newgroups -- show new groups added in the last $1 days

Fellas, introducing
#!/bin/sh -e
# noffle-newgroups -- show new groups added in the last $1 days
# Copyright       : http://www.fsf.org/copyleft/gpl.html
# Author          : Dan Jacobson -- http://jidanni.org/
# Created On      : Mon Oct  6 11:21:02 2003
# Last Modified On: Mon Oct  6 11:42:40 2003
# Update Count    : 6
#Usage: noffle-newgroups number_of_days
echo Newsgroups added in the last ${1?} days:
noffle -g|perl -wlane '
use Date::Parse;
BEGIN{$now=str2time();}
my $then = str2time($F[6]);
if (($now-$then)/3600/24 <= '${1?}'){print $F[6], " ", $F[0]}
'|sort -k 2
#P.S. perhaps in anacrontab try e.g.
#11 22 noffnew /home/you/bin/noffle-newgroups 13

After someone tells me how to make this a non-embarrassing pure perl
script, I will put it on my website.


-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf