I've been working on this for quite a while and can't seem to get it, must
be missing something.
What I'd like to do is run the command:
"/bin/su -c /home/mailman/bin/newlist $list_name $owner $passwd1 | grep : |
grep -v file:"
I also need to send a \r (CR) after $passwd1 before the first grep and I
need to capture the output of it and append all that to a sendmail aliases
file. It would be nice to be able to remove the list as well it involves
running: "/bin/su -c /home/mailman/bin/rmlist -a $list_name" and then
removing the aliases (for that list) from the sendmail file. PERL snippits
that accomplish this are included below.
Thanks for your help! --Ben
The PERL code (for adding) is below:
sub createNewList {
if ($_[2] eq "") {
error($text{erArgs});
}
$listName = $_[0];
$adminEmail = $_[1];
$listPassword = $_[2];
#this command is a cludge, if they change the output it may
#mess the whole thing up
$commandLine = "su -c '".$config{newlist_exec}." $listName $adminEmail
$listPassword' ".$config{exec_as_user}."| grep : | grep -v file:|";
#this will only add the newlist to mailman, we still need to
#add the aliases
open(RESULT, $commandLine ) || return 0;
print $text{txtAlias}."<br>\n";
while (<RESULT>) {
$line = $_;
$line =~ s/\"/\"/;
$line =~ s/\"\n/\"/;
$line =~ s/\n//;
system("echo \'$line\' >> $config{aliases_file} ");
print "$line<br>";
}
close(RESULT);
system("su -c '$config{newaliases_command}' ");
# system("$config{newaliases_command}");
}
The PERL code (for removing) is below:
sub deleteList {
if ($_[0] eq "") {
error($text{erListName});
}
$listName = $_[0];
$delArchives = $_[1];
if ($delArchives) {
$cmdLine = "su -c '$config{rmlist_exec} -a $listName'
$config{exec_as_user}";
} else {
$cmdLine = "su -c '$config{rmlist_exec} $listName'
$config{exec_as_user}";
}
open(OUTPUT, "$cmdLine |" )||error($text{erExecution});
while (<OUTPUT>) {
print "$_<br>";
}
close(OUTPUT);
$cmdLine = "cat $config{aliases_file} |grep -v $listName:| grep -v
$listName-owner:|grep -v $listName-request:|grep -v $listName-admin:>
$config{aliases_file}";
#we need to backup our old alias file
system("cp $config{aliases_file} $config{aliases_file}.backup");
system($cmdLine);
system("su -c '$config{newaliases_command}' $config{exec_as_user}");
# system("$config{newaliases_command}");
print $text{txtBackup}."$config{aliases_file}.backup";
}
--
PHP General Mailing List (http://www.php.net/)
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
To contact the list administrators, e-mail: [EMAIL PROTECTED]
