Re: Permission fixup (was RE: [Mimedefang] Quarantine management - anyone else working on this?)
--- "David F. Skoll" <[EMAIL PROTECTED]> wrote:
> On Fri, 2 Apr 2004, Paul Murphy wrote:
> system("chmod -R g+rwX $dir");
Perl has its own embeded
chmod
function.
The "system" call to the shell should be avoided if at all possible,
since it does slow things down.
You'd have to write more code since perl's chmod function doesn't give you the
option to recursivley descend through the directory structure.
But I'll bet the "Perl Cookbook" by Christianson and Torkington has
some code you could appropriate.
=== Al
___
Visit http://www.mimedefang.org and http://www.canit.ca
MIMEDefang mailing list
[EMAIL PROTECTED]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
RE: Permission fixup (was RE: [Mimedefang] Quarantine management - anyone else working on this?)
> There's another option, (D): Add this to filter_end:
>
> if ($QuarantineCount > 0 || $EntireMessageQuarantined) {
> my $dir = get_quarantine_dir();
> system("chmod -R g+rwX $dir");
> }
Excellent, thanks David!
Best Wishes,
Paul.
__
Paul Murphy
Head of Informatics
Ionix Pharmaceuticals Ltd
418 Science Park, Cambridge, CB4 0PA
Tel. 01223 433741
Fax. 01223 433788
___
DISCLAIMER:
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to which they
are addressed. If you have received this email in error please contact
the sender or the Ionix IT Helpdesk on +44 (0) 1223 433741
___
___
Visit http://www.mimedefang.org and http://www.canit.ca
MIMEDefang mailing list
[EMAIL PROTECTED]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
