initial commit of file from CVS for e-smith-qmail on Wed 12 Jul 09:06:46 BST 2023
This commit is contained in:
		| @@ -0,0 +1,13 @@ | ||||
| { | ||||
|     use esmith::AccountsDB; | ||||
|     my $a = esmith::AccountsDB->open_ro; | ||||
|  | ||||
|     $OUT = ''; | ||||
|  | ||||
|     for my $user ( $a->get('admin'), $a->users ) | ||||
|     { | ||||
|         next if ( ($user->prop('EveryoneEmail') || 'yes') eq 'no'); | ||||
|  | ||||
|         $OUT .= '&' . $user->key . "\n"; | ||||
|     } | ||||
| } | ||||
		Reference in New Issue
	
	Block a user
	 Brian Read
					Brian Read