I have a fix for who. For the others I share a common archive directory
and that solves the get files problem.
Here is my patch.
aix 10> diff majordomo.orig majordomo
535a536,538
> local($digest_suffix) = "-digest";
> local($list_digest);
> local($clean_list_digest);
542a546
> $clean_list_digest = &valid_list($listdir, "$clean_list$digest_suffix");
553c557,566
< return 0;
---
> if ($clean_list_digest ne "") {
> &get_config($listdir, $clean_list_digest)
> if !&cf_ck_bool($clean_list_digest, '', 1);
> if (!&privacy_check($clean_list_digest, 'who')) {
> return 0;
> }
>
> } else {
> return 0;
> }
563a577,586
> if ($clean_list_digest ne "") {
> print REPLY "\nMembers of list '$clean_list_digest':\n\n";
> if (&lopen(LIST, "", "$listdir/$clean_list_digest")) {
> while (<LIST>) {
> print REPLY $_;
> }
> &lclose(LIST);
> &log("who $clean_list_digest");
> }
> }
--
Steven Miller is miller@wingra.com
|
|
