get-j-email.pl to HTML.

index -|- end

Generated: Mon Aug 29 19:34:38 2016 from get-j-email.pl 2016/07/08 455. text copy

#!/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

index -|- top

checked by tidy  Valid HTML 4.01 Transitional