Stuff

#!/usr/bin/perl

require 'tools.pl';
$spool = "/tmp/sympa";

    if (!opendir(DIR, $spool)) {
                print "huh";
                }

    @qfile = grep (!/^\./,readdir(DIR));
    print @qfile;
    print "\n\n";
    sort tools::by_date (@qfile);
    print @qfile;
    print "\n\n";
    closedir(DIR);


parrot:/home/sympa/bin% perl test.pl 
uni.pop.com@lists.riseup.net.1194907428.10761sympa@lists.riseup.net.1194907467.10948pdx-video@lists.riseup.net.1194907476.10999iraqmoratorium-sfbayarea@lists.riseup.net.1194907430.10775freesdefensenetwork@lists.riseup.net.1194907471.10966camensdiscuss@lists.riseup.net.1194907452.10878

uni.pop.com@lists.riseup.net.1194907428.10761sympa@lists.riseup.net.1194907467.10948pdx-video@lists.riseup.net.1194907476.10999iraqmoratorium-sfbayarea@lists.riseup.net.1194907430.10775freesdefensenetwork@lists.riseup.net.1194907471.10966camensdiscuss@lists.riseup.net.1194907452.10878