Tag Archives: Perl

Cisco periodic reboot using perl

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

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

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() )

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

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

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

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

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)

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)

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