The squid access.log file is useful for determing where your users are going when using http/80. These log files are generally rotated daily and each contain a LOT of data. In my organization, this is in the realm of 2 GB per day. So how do you find what you are looking for? I use [...]

A script used to backup a site or other FTP contents to a folder and then archive it. Deletes files that are more than 60 days old.

#!/usr/bin/perl
#
# Download all contents via FTP using ncftpget
# Version 0.1 RDG 20080421
 
my $configdir = "/usr/local/scripts/ftpscript";
 
my $year = (localtime)[5] + 1900;
my $month = (localtime)[4] + 1;
my $day = (localtime)[3];
if ($month [...]

I use SecureCRT for most of my remote session work. The program allows you to write scripts to automate tasks such as routine procedures (i.e. changing passwords, running commands, etc). In this case, I wrote a script to backup Cisco firewalls using TFTP.

# $language = "PerlScript"
# $interface = "1.0"
 
# SecureCRT script used to backup multiple [...]

Simple process checker for linux.

#!/usr/bin/perl
# Checks to see if service is still running, just throw into cron
 
my $service = "/var/run/daemon.pid";
my $restart = "/etc/init.d/daemon restart";
 
open (PROCESS, "$service") or die "PID file not valid or can’t open!\n";
while (< PROCESS >) {
($pid = $_) =~ /(\d+)/;
}
close (PROCESS);
 
chomp($pid);
$checkit = "ps -p [...]

I created a quick script to go through the syslogs of a firewall (or 2,3,4,5) and create a deny report. As you can imagine, its uses are almost endless. I might work on it to make it better at some point.

#!/usr/bin/perl
#
# Version 0.1
# Parse PIX syslog for denies and create report
# Last Modified 2007-10-17 RDG
 
use [...]