Check Disk Quota Usage By Parsing Maildirsize
In the previous article, I have explained how to check the quota usage by using perl scripts. maildir quota checking is done by using File::Find function which seems a bit slow and too much consuming I/O process. same as the find function on bash script. find function in perl perform disk usage by determining the size of all files and directories recursively. all sizes of files and directories then accumulated.
find(sub{ -f and ( $size += -s ) }, $diruser );
actually, examination of maildir quota usage is also done by imap server which is written into a file called maildirsize. So, rather than wasting resources on the server. we can directly read the specified quota and usage on maildirsize file.
Maildir quota usage using File::Find
sub checksize { my $diruser = $_[0]; trim($diruser); my $size; find(sub{ -f and ( $size += -s ) }, $diruser ); if (defined $size) { $size = sprintf("%u",$size); return $size; } return undef; }