#!/usr/bin/perl -w
# get-j-email.pl
use strict;

use Net::SCP;

my $hostname = "coleburt.com";
my $username = "jasin";
my $filename = ("/var/log/maillog\.");

scrape_maillogs();

sub scrape_maillogs {
   print "Getting mail logs...\n";
   my $scp = Net::SCP->new( {"host"=>$hostname, "user"=>$username} );
   my $i = 0;
   for ($i .. 6) {
       $scp->get($filename . $i . "\.bz2") or die $scp->{errstr};
       $i++;
   }
}

# eof