Tag Archives: Perl

Cisco periodic reboot using perl

Posted on April 16, 2014 by danmassey99

A request to reboot a Cisco ASA every week came in today. Under Cisco IOS there is a kron which would accommodate us here, however there appears to be no such thing under the ASA OS (is it still called … Continue reading →

Posted in Cisco, Perl | Tagged , | Leave a comment

Nagios jitter testing

Posted on March 1, 2013 by danmassey99

As part of our new SLA we are required to test and repost on jitter across the core of our network on a per MPLS VPN basis. That seemed ok to start with, but a Nagios does not have an … Continue reading →

Posted in Cisco, FreeBSD Administration, Perl, test_cat | Tagged , , | Leave a comment

A bit more Perl and eval – this time with WWW::Mechanize

Posted on June 4, 2012 by danmassey99

So while all of the patriotic Brits were flag waving for the Queens Diamond Jubilee, I was asked to write a Nagios test to monitor whether our email archiving system was working. The test specified that if a user could … Continue reading →

Posted in Perl | Tagged , , , , | Leave a comment

MIMEDefang – processing the valid users list ( filter_recipient() )

Posted on February 5, 2012 by danmassey99

I’m rebuilding our spam scanning platform at the moment and making some changes/improvements along the way. One of our issues was that we want to show customers ‘just how bad it is’ without spam scanning and so would like to … Continue reading →

Posted in FreeBSD Administration, MIMEDefang, MySQL, Perl | Tagged , , , , | Leave a comment

Sloppy File Handling – Perl

Posted on December 15, 2011 by danmassey99

When reading around the subject of file handling in Perl its easy to get sloppy, phrases like ‘automatic cleanup’ and the like lull us into believing that the close statement is just a ‘nice to have’. Well this burnt me … Continue reading →

Posted in FreeBSD Administration, MySQL, Perl | Tagged , , , | Leave a comment

Synchronising Nameservers (Bind + FreeBSD) with Perl

Posted on December 11, 2011 by danmassey99

A funny thing happened to a colleague’s name servers the other day. Whilst very diligent in almost every respect when it comes to failover, redundancy, etc, etc he was bitten by a simple yet overlooked  issue. We all synchronise name … Continue reading →

Posted in FreeBSD Administration, Perl | Tagged , , | Leave a comment

Objective-C decisions vs Perl descisions

Posted on November 13, 2011 by danmassey99

I’m comparing Objective-C decision making with our beloved Perl decision making. Objective-C supports the if, else, else if & switch. Lets write some Objective-C code and write the Perl in parallel. #import <Foundation/Foundation.h> int main (int argc, const char * … Continue reading →

Posted in C, Perl | Tagged , , , , | Leave a comment

Perl FTP Recursive Binary Issue

Posted on October 26, 2011 by danmassey99

Another day….. Today’s kick in the nether regions was using Net::FTP::Recursive  which was defaulting to ascii transfer mode when doing a bulk website transfer. The issue was not with the text (html type) files but with the images. I believe … Continue reading →

Posted in FreeBSD Administration, Perl | Tagged , , | Leave a comment

FreeBSD Quotas – bulk updates (using Perl)

Posted on October 14, 2011 by danmassey99

Another day, another 63 pence (according to xe.com), and another potentially mind numbing repetitive FreeBSD admin operation. Todays request was to increase all of the web quotas to 1GB on a web server which has variable quotas set on a … Continue reading →

Posted in FreeBSD Administration, Perl | Tagged , , , , , | Leave a comment

Perl match in scalar and list context (regex)

Posted on October 13, 2011 by danmassey99

Sometimes it takes a throw-away comment in a book for a whole stack of jumbled info to just slot into place. The ‘Sixth Sense’ is on the telly and my wife is asking why she ‘didn’t notice it’ (the fact … Continue reading →

Posted in Perl | Tagged , , , | Leave a comment