Diary of a Network Geek

The trials and tribulations of a Certified Novell Engineer who's been stranded in Houston, Texas.


Cool Solutions: DFMail.pl

Filed under: Fun Work,Geek Work,News and Current Events,Novell,PERL,Personal — Posted by the Network Geek during the Hour of the Snake which is just before lunchtime or 11:29 am for you boring, normal people.
The moon is Waning Crescent

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
my $volume_mgr = Perl2UCS->new(“ucx:volumemgr”) or die “Can’t get

That should do it!

Powered by WordPress
Any links to sites selling any reviewed item, including but not limited to Amazon, may be affiliate links which will pay me some tiny bit of money if used to purchase the item, but this site does no paid reviews and all opinions are my own.