#!/usr/bin/perl -w
#
# Written by boll@debian.org

use strict;

my $listtexts = "/usr/share/mlmmj/text.skel/*";
my $listdir = "/etc/mlmmj/lists";
my $varlistdir = "/var/spool/mlmmj";

opendir(DIR,$listdir) || die("Unable to open list dir: $!");

while (my $entry = readdir(DIR)) {
 if ($entry =~ /^\./) {
  print "Skipping $entry\n";
  next;
 }
 my $targetdir = $listdir."/".$entry."/text/";
 my $mkdir1 = $varlistdir."/".$entry."/subcribers.d";
 my $mkdir2 = $varlistdir."/".$entry."/nomailsubs.d";

 print "Handling $entry: $listtexts --> $targetdir\n";
 system("cp $listtexts $targetdir");

 print "Handling $entry: mkdir $mkdir1\n";
 system("mkdir $mkdir1");
 system("chown nobody:nogroup $mkdir1");
 
 print "Handling $entry: mkdir $mkdir2\n";
 system("mkdir $mkdir2");
 system("chown nobody:nogroup $mkdir2");
}

closedir(DIR);

