Category 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

Adding the Spamhaus drop list to MimeDefang on FreeBSD

Posted on January 4, 2013 by danmassey99

We have decided to use the Spamhaus drop list on our anti-spam system, which will help us block certain net blocks that have been hijacked by spammers. We wanted to use this list in line with the other features of … Continue reading →

Posted in MIMEDefang, Perl | 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

MAC Address Lookup Tool Database

Posted on March 27, 2012 by danmassey99

I decided that rather than use somebody elses lookup tool for checking MAC addresses against vendors, I’d put my own on line! The first task was to find the list, which was quite straightforward: http://standards.ieee.org/develop/regauth/oui/oui.txt When you look at the … Continue reading →

Posted in Cisco, 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

Fibonacci and C arrays- the perfect combo

Posted on January 4, 2012 by danmassey99

New year upon us and back to the C training. Tonights mission was to output Fibonacci numbers via an array. The Fibonacci sequence is a sequence of numbers where the next number is the sum of the previous 2 numbers. … Continue reading →

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

Testing SMTP-AUTH from the command line

Posted on January 4, 2012 by danmassey99

I’m building a new pair of ‘mail-relay’ servers for customers to mail out through. Customers can only use SMTP-AUTH to send mail, but i needed a method of testing the mechanism. Actually I’ll be using MySQL based usernames and passwords, … Continue reading →

Posted in FreeBSD Administration, 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