Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

shockme (2685)

  reversethis-{gro.dnuowtixe} {ta} {kcohs}
AOL IM: stephenhargrove (Add Buddy, Send Message)

If you really must have more information about me, see my home node [] at PerlMonks [] or my journal [] at

Journal of shockme (2685)

Saturday March 02, 2002
03:22 PM

VMS, Exchange, Sendmail and Perl

[ #3251 ]
What a busy fu*king week.

Friday, March 1, 2002, at 07:00, we're scheduled to shut off the VMS email system. This is in anticipation of throwing the power on the entire VMS set up on Sept. 1.

Naturally, our customers have known of this for 2 years, and they've been reminded of it on an almost monthly basis. "VMS is going away. You need to request an Exchange account, and you need to request that your VMS email be forwarded to your new Exchange account." It's been preached to them for years now.

So, naturally, the majority of customers ignored these directives.

Last week, we killed the VMS alias file, which forwarded VMS email to the exchange accounts. Email was still received by the VMS system and was forwarded to Exchange. Several people called and complained, and that was fairly easy to fix. However, as the week wore on, the frequency of phone calls steadily increased. By the end of last week, it was apparent that our 2 year - monthly reminder program had failed.

Monday morning, boss-man calls a meeting. People are in a panic. We need to address it - immediately. How do we correlate VMS accounts with Exchange accounts? How do we ensure no mail is lost? Everyone sits and stares.

So I speak up. I need a list of all VMS accounts. Done. I need a list of all Exchange accounts. Done. I need a separate list of all Exchange email addresses. Done.

And thus began my one week period of silent and determined effort. Long hours, continual work, ignoring the telephone.

Perl to the rescue.

Thursday, February 28, 2001. 15 hours of sleep and 13 Perl scripts later....the new virtusertable went online. We're ready for Friday. I'm ready for bed. Of course, this task didn't alleviate or replace my ongoing support tasks, and to complicate my life just a little more, I'm the on-call support person this week, too.

The scripts are rushed. The time constraints are huge. I wouldn't post this code for nothing. If only I'd have had another week...the code could've been beautiful. The schedule dictates function over's dirty. It's ugly. But it looks like it's working....

Friday morning starts early. 07:00 the switch is thrown and the VMS email system is no more. All forwards are now handled through the virtusertable in Sendmail.

Throughout the day, a few telephone calls come in. Not near the flood I feared. By the end of the day, only a handful of accounts were missing. I don't know what happened to them, how they were dropped (if they were dropped), etc. They're in there now, and everything seems to working well.

A victory for Perl? Hell yes. Everyone in the department is now accutely aware of the fact that Perl can make seemingly impossible tasks possible.

A victory for me? Hell yes. My teammates now know that I won't back down from challenges and that I'll work until it's done. Until it's right. As I'm leaving the office Friday evening, boss-man shakes my hand. Tells me I've earned my money. Not for the week. For the month.

I love this job.

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.