It seems to have compiled ok. Try a newer version of Activestate's Perl
http://www.activestate.com/. If others have the same problem, I'll try to
figure it out. The script may use some newer functions only available in the
latest release of Activestate perl. Let me know.
If the new version of Perl doesn't fix it, add the following line to the
dir_size subroutine.
print $test_dir . " testing\n";
For example:
###########################################################################
# Subroutine to get the size of directory tree under Windows
# Take the dir of directory with the wide (/w) option to get a shorter list
# and /s option to get all sub dirs
###########################################################################
sub dir_size {
my $test_dir = $_[0];
print $test_dir . " testing\n";
@res = `dir /s/w "$test_dir"`;
# The second to last line has the number of files and
# total size of the the directory
my $LastLine = $res[-2];
# Isolate directory size number
@res = split(/ /,$LastLine);
#remove commas;
$_ = $res[-2];
tr/0-9//cd;
$res[-2] = $_;
return $res[-2];
}
I'm interesting in seeing what value prints out for $test_dir.
Also does the line (print "User mailboxes located in " . $users_dir_path .
"\n";) print out a value. It should print the path to the user directories
for each domain. I'm interested if the path is correct.
You could also uncomment:
print "Processing user " . $dir . "\n";
This will list each user as it processes him. Does it process any users
before it errors?
> -----Original Message-----
> From: Will Hall [SMTP:[EMAIL PROTECTED]]
> Sent: Wednesday, April 26, 2000 10:10 PM
> To: [EMAIL PROTECTED]
> Subject: Re: [IMail Forum] issue warnings to users approaching the
> mailbox size limit
>
> hmm I tried it but get an error..
>
> The system cannot find the file specified.
> Modification of non-creatable array value attempted, subscript -2 at
> c:\bin\limit.pl line 33
>
> This is the last thing that happens it seems like it checks the dirs but
> just wont write the report.
>
> any thoughts???
> Will Hall
> C. W. networks
> 219.583.6860
> [EMAIL PROTECTED]
>
>
>
> The judge asked, "What do you plead?" I said, "Insanity, your honor, who
> in
> their right mind would park in the passing lane?" -- Steven Wright
>
> ----- Original Message -----
> From: "Joel Morgan" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, April 26, 2000 3:35 PM
> Subject: [IMail Forum] issue warnings to users approaching the mailbox
> size
> limit
>
>
> > Imail version 6.X lacks the ability to issue warnings to users
> approaching
> > the mailbox size limit. This perl script scans the registry for each
> domain
> > and checks each user's mailbox size against MaxSize entered for the user
> in
> > the registry. If the user has 0 entered as MaxSize then the domains
> MaxSize
> > entry is used. If the mailbox is within 10% of the limit it emails a
> caution
> > to the user and logs it. If the user's mailbox exceeds the limit it only
> > logs it. The resulting log file is then emailed to the postmaster
> account.
> > Sizes are reported in bytes.
> >
> > To run the script every 24 hours, schedule with the command "AT 2:00
> > /interactive /every:Su,M,T,W,Th,F,S C:\BIN\LIMIT.PL"
> >
> > I would appreciate any comments or suggestions. For example should the
> user
> > continue to be warned once the mailbox limit has been passed. Maybe even
> > warn until the user is 10% over the limit. It currently starts warning
> the
> > user at 10% of the limit and continues until the limit is reached. I
> don't
> > want the number of warnings mailed to a user to be infinite.
> >
> > It should work without any configuration settings other than to either
> > manually run it or schedule it. Would someone give it a shot and help me
> > test it?
> >
> > It seems to work fine, but use at your own risk!
> >
> > Works with Activestate's Perl available at http://www.activestate.com/
> >
> > <<LIMIT.PL>>
> >
>
> Please visit http://www.ipswitch.com/support/mailing-lists.html
> to be removed from this list.
Please visit http://www.ipswitch.com/support/mailing-lists.html
to be removed from this list.
