Parse FTP server log and send mail for every uploaded files
Introduction –
One of my friend was looking for script to parse FTP server log after every 10mins and send mail for every file uploaded by user
with Username, Uploaded File Name, Date and Size. Please prefer the follow perl script to this task….
Download ftp file from here – http://www.indiangnu.org/wp-content/uploads/2012/ftp_logparser-pl.txt
1] Script –
arunb@mylaptop:~$ cat perl-prog/ftp_logparser.pl
#!/usr/bin/perl
use strict;
use warnings;
no warnings 'uninitialized';
my $argument = $#ARGV + 1 ;
my $mylog_file = $ARGV[0];
if ( -f $mylog_file ) {
print "\nChecking FTP log file for Upload files ~ $mylog_file";
open(FILE, "<$mylog_file") or die("\nFile not found : $! ");
print "\nContent of file is....\n";
while() {
chomp($_);
## Fri Jul 6 14:15:25 2012 [pid 27841] [vivek] OK UPLOAD: Client "172.30.1.76"," /squid-2 7-Template-v23.docx", 594488 bytes
#print "\nLine=> $_";
if ($_ !~ /^\s*$/) {
#print "\nLine=> $_";
if ($_ =~ m/(.*)\s+\[pid.*\]\s+\[(.*)\]\s+OK\s+UPLOAD:\s+Client\s+"(\d+.\d+.\d+.\d+)","(.*)",\s+(\d+)\sbytes.*/) {
my ($mydate, $myser,$ipaddr, $file_upload, $file_size) = ($1,$2,$3,$4,$5);
print "\n'$mydate' - '$myser' - '$ipaddr' - '$file_upload' - '$file_size'";
## send mail
my $CONTACTEMAIL = "abc\@xyz.com";
open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "To: $CONTACTEMAIL\n";
print MAIL "From: ftp\@abc.com\n";
print MAIL "Subject: File Uploaded- $file_upload";
#print MAIL "\nContent-type: text/html\n\n";
print MAIL "\nContent-type: text/plain\n\n";
print MAIL "\nFile Name: $file_upload";
print MAIL "\nFile Size: $file_size bytes";
print MAIL "\nUser: $myser";
print MAIL "\nIPaddr: $ipaddr";
print MAIL "\nDate: $mydate";
close(MAIL);
}
}
}
close(FILE);
print "\nDone";
} else {
print "\n * Usage: $0 \n";
}
#end
print "\n";
arunb@mylaptop:~$
2] How to Use –
arunb@mylaptop:~$ ./perl-prog/ftp_logparser.pl
* Usage: ./perl-prog/ftp_logparser.pl
arunb@mylaptop:~$ ./perl-prog/ftp_logparser.pl /var/log/ftp.log
Thank you,
Arun Bagul
Watir is an open-source (BSD) family of Ruby libraries for automating web browsers. It supports your app no matter what technology it is developed in. Watir drives browsers the same way people do. It clicks links, fills in forms, presses buttons. Watir also checks results, such as whether expected text appears on the page. It allows you to write simple and flexible tests that are easy to read and maintain.
iMacros is an extension for the Mozilla Firefox, Google Chrome, and Internet Explorer web browsers which adds record and replay functionality similar to that found in web testing and form filler software.
Hello Guy’s,
This year was tough for openlsm and we will be launching Admin panel development version by end of Dec,2010. We are expecting a lot more from second milestone…