Sorry it took so long to get back. I wanted to add one more feature before
you compiled it.
I added the ability to change the $notify_window = .10 variable on the
command line. If nothing is specified it defaults to .10. For example the
command "PERL LIMIT.PL .05" would begin cautioning users when their mailbox
had 5% or less free space. Warnings would begin when they had 2.5% or less
free space.
I also rounded the percentage number mailed to the user, so it won't be so
long.
Attached is the final copy ready for compiling if it passes scrutiny. Would
any of our beta testers :) be willing to give it a try so we can get it
right before compiling it?
<<LIMIT.PL>>
> -----Original Message-----
> From: David Gregg [SMTP:[EMAIL PROTECTED]]
> Sent: Tuesday, May 16, 2000 6:19 PM
> To: Joel Morgan
> Subject: Re: [IMail Forum] *Working* - issue warnings to users
> approaching the mailboxsize limit
>
> Joel,
>
> Have you made any changes to the script? My offer to compile still
> stands.
>
> -----Original Message-----
> From: Joel Morgan <[EMAIL PROTECTED]>
> To: '[EMAIL PROTECTED]' <[EMAIL PROTECTED]>
> Date: Monday, May 01, 2000 7:16 AM
> Subject: RE: [IMail Forum] *Working* - issue warnings to users approaching
> the mailboxsize limit
>
>
> >Using portions of David Greg's dir_size routine, I eliminated the old
> >routine that used the DIR command. If anyone has any issues with the
> script,
> >let me know. I've attached a copy of the latest version.
> >
> > <<LIMIT.PL>>
> >
> >> -----Original Message-----
> >> From: Joel Morgan [SMTP:[EMAIL PROTECTED]]
> >> Sent: Thursday, April 27, 2000 11:28 PM
> >> To: '[EMAIL PROTECTED] '
> >> Subject: RE: [IMail Forum] *Working* - issue warnings to users
> >> approaching the mailboxsize limit
> >>
> >>
> >> I added in the dir_list. It works great! I also added the dir_size
> >> routine,
> >> but had some trouble. Everything reported 0 as the size until I
> commented
> >> out:
> >>
> >> chdir("$l_physicaldirectory");
> >>
> >> And changed the next line to:
> >> opendir(THISDIR, "$l_physicaldirectory");
> >>
> >> Even then I had some trouble. Even though it printed out correctly, the
> >> numbers didn't trigger the warnings. I left the routine in, but
> commented
> >> it
> >> all out until it works better. Can you fix it? The old one though
> crude,
> >> seems to work for now.
> >>
> >> Can you change it to report only mailbox size (*.MBX), not the entire
> >> directory. It gets called by "$mbx_size = dir_size($dir . "\\*.mbx");"
> >>
> >> One thing I discovered is that the Imail administrator program reports
> the
> >> mailbox size as the entire directory size, while the web interface
> reports
> >> the total of all MBX files as the mailbox size.
> >>
> >> I've attached a copy of the script that has been updated to include the
> >> new
> >> dir_list routine and a two level warning system. Caution at 90%
> capacity
> >> and
> >> warning at 95% capacity. This is adjustable in the "$notify_window =
> .10
> >> line". Higher numbers mean users start getting warned earlier. Maybe we
> >> could pass this as a command line parameter.
> >>
> >> I agree, once we get the script working good it would be great if you
> >> compiled it. Thanks for the help everyone.
> >>
> >>
> >> -----Original Message-----
> >> From: David Gregg
> >> To: [EMAIL PROTECTED]
> >> Sent: 4/27/00 7:14 PM
> >> Subject: Re: [IMail Forum] *Working* - issue warnings to users
> >> approaching
> >> the mailboxsize limit
> >>
> >> Bear with me here folks. One more post of perl code that you can
> >> implement
> >> to remove the last reference to the 'DIR' command used in the latest
> >> version
> >> of limit.pl
> >>
> >> Joel, once this script has made it's rounds and everybody is happy with
> >> it,
> >> let me know and I'd be glad to compile it into an exe so the non-perl
> >> folks
> >> can benefit too.
> >>
> >> # replace the dir_size subroutine with this one and you will no longer
> >> have
> >> any dependance on the DIR command
> >>
> >> sub dir_size {
> >> local($l_physicaldirectory) = @_;
> >> local(@l_allfiles, $l_dirsize, $l_filename);
> >> local($l_fdev, $l_fino, $l_fmode, $l_fnlink, $l_fuid, $l_fgid,
> >> $l_frdev,
> >> $l_fsize, $l_fatime, $l_fmtime, $l_fctime, $l_fblksize, $l_fblocks);
> >>
> >> chdir("$l_physicaldirectory");
> >> opendir(THISDIR, ".");
> >> @l_allfiles = grep(!-d, readdir(THISDIR));
> >> closedir(THISDIR);
> >>
> >> $l_totsize = 0;
> >> foreach $l_filename (@l_allfiles) {
> >> ($l_fdev, $l_fino, $l_fmode, $l_fnlink, $l_fuid, $l_fgid, $l_frdev,
> >> $l_fsize, $l_fatime, $l_fmtime, $l_fctime, $l_fblksize, $l_fblocks) =
> >> stat("$l_physicaldirectory/$l_filename");
> >> $l_dirsize += $l_fsize;
> >> }
> >> return $l_dirsize;
> >> }
> >>
> >> << File: limit.pl >>
> >
LIMIT.PL
