Linux vmi1507467.contaboserver.net 5.4.0-105-generic #119-Ubuntu SMP Mon Mar 7 18:49:24 UTC 2022 x86_64 SOFT :ApachePHP :8.0.30/scripts/84.21.171.84 UPLOAD fixmailinglistperms #! /usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/fixmailinglistperms Copyright 2022 cPanel, L.L.C. # All rights reserved. # copyright@cpanel.net http://cpanel.net # This code is subject to the cPanel license. Unauthorized copying is prohibited use strict; use Cpanel::Mailman::Filesys (); use Cpanel::Mailman::ListManager (); sub usage { my ($message) = @_; print STDERR "$message\n" if $message; print STDERR <<"END"; usage: $0 <list> Repair the permissions of all the files and directories comprising a mailing list. END exit 1; } usage('Not enough arguments') unless @ARGV; foreach my $list (@ARGV) { if ( !Cpanel::Mailman::Filesys::does_full_list_exist($list) ) { warn "This system does not have a mailing list named “$list”.$/"; next; } Cpanel::Mailman::ListManager::fix_mailman_list_permissions( { 'list' => $list } ); } BASE64 : NO YES