Cool Solutions: DFMail.pl
A few comments about my Cool Solutions solution.
First, it’s best to run this as “perl –noscreen dfmail.pl”. Of course, this assumes that you copied this to your sys:perl\scripts directory first. I’ve gotten several e-mail (already!) about “errors”. Those shouldn’t show up with the –noscreen option. In fact, I think they’re just informational messages because I used the “-w” option in the first line of the script. That means “show warnings” to the PERL interpreter. If you remove that, just the “-w”, the script should run without those problems.
Second, you have to have the settings right on your mail server or it won’t send mail! If you’re getting a message that says “failed to connect”, or something similar, that’s what’s happening.
To be honest, I was somewhat suprised to see that this old thing had gone up on Novell’s Cool Solutions website. I actually wrote this stinker last year and posted an entry about it in February. I sent this to them about two months ago and just heard back. I had totally forgotten that I’d even sent it!
Anyway, it’s a pretty “quick and dirty” solution to an ugly problem at my old job. I ended up not even using it because we were so strapped for disk space that I had to actually delete PERL from those servers. Anyway, it’s a free monitoring tool that uses the “duct tape of the Internet”, PERL. You can see the actual entry here. If you like it, vote for it!
UPDATE: J�rgen Schmitz from Germany discovered that PERL version 5.06, which is native on netware 6 if you haven’t done any upgrades, etc., needs UCSExt changed to Perl2UCS
So, replace the first couple of lines with:
use Socket;
use strict;
use Perl2UCS;
my $server = Perl2UCS->new(“UCX:Server”) or die “Can’t get UCX:Server object”;
my $sname = $server->{“NAME”} or die “Can’t get NAME from ucx:server
object”;
my $volume_mgr = Perl2UCS->new(“ucx:volumemgr”) or die “Can’t get
ucx:volumemgr”;
That should do it!