#!/usr/bin/perl -w

use strict;

# Directory containing list-specific directories
my $listdir = "/var/spool/mlmmj/";

opendir(DIR,$listdir) || suicide("Unable to read $listdir: $!",1);

while (my $entry = readdir(DIR)) {
 my $fullpath = $listdir.$entry;
 if ($entry =~ /\w+/ && -d $fullpath) {
  system("/usr/bin/mlmmj-maintd -F -L ".$fullpath);
 }
}

closedir(DIR);

sub suicide {
 print shift,"\n";
 exit shift;
}
