I needed a list's members to be private, so I added the code
to restrict the "who" command if there is a file called 'list.private'
in the list directory.
Seems like Brent had something in mind for 'private' as it is
treated similar to "closed".
Context diff follows:
*** majordomo Thu Sep 24 23:35:12 1992
--- majordomo.orig Thu Sep 24 23:23:13 1992
***************
*** 342,361 ****
# Check to see that the list is valid
local($clean_list) = &valid_list($list);
if ($clean_list ne "") {
! if (! -e "$listdir/$clean_list.private") {
! # The list is valid, so open it up and tell who's on it
! print REPLY "Members of list '$clean_list':\n\n";
! if (&lopen(LIST, "", "$listdir/$clean_list")) {
! while (<LIST>) {
! print REPLY $_;
! }
! &lclose(LIST);
! &log("who $clean_list");
! } else {
! &abort("Can't open $listdir/$clean_list: $!");
}
} else {
! &squawk("'who' command not allowed on private list: $clean_list");
}
} else {
print REPLY "**** who: no such list '$list'\n";
--- 342,357 ----
# Check to see that the list is valid
local($clean_list) = &valid_list($list);
if ($clean_list ne "") {
! # The list is valid, so open it up and tell who's on it
! print REPLY "Members of list '$clean_list':\n\n";
! if (&lopen(LIST, "", "$listdir/$clean_list")) {
! while (<LIST>) {
! print REPLY $_;
}
+ &lclose(LIST);
+ &log("who $clean_list");
} else {
! &abort("Can't open $listdir/$clean_list: $!");
}
} else {
print REPLY "**** who: no such list '$list'\n";
Tim Tessin - Cirrus Logic Inc.
tjt@cirrus.com
uunet!cirrus.com!tjt
|
|
