Category 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

Adding the Spamhaus drop list to MimeDefang on FreeBSD

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

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

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

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

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

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

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