20 lines
755 B
Perl
Executable File
20 lines
755 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
open OUT, ">>/mnt/syslog/scripts/accessed_url.txt";
|
|
while (<STDIN>) {
|
|
$line = $_;
|
|
if ($line =~ /Accessed URL/) {
|
|
foreach $arg (@ARGV) {
|
|
if ($line =~ /$arg/) {
|
|
# Jun 8 03:28:23 10.99.0.250 %ASA-5-304001: 192.168.64.240 Accessed
|
|
($TIME, $IP, $URL) = $line =~ /(.*) 10.99.0.250 %ASA-5-304001: ([^ ]*) Accessed URL [^ ]*:(http:\/\/[^\/]*)/;
|
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
|
#printf OUT "%4d.%02d.%02d %02d:%02d:%02d %-15s %s\n", $year+1900, $mon+1, $mday, $hour, $min, $sec, $IP, $URL;
|
|
#printf "%4d.%02d.%02d %02d:%02d:%02d %-15s %s\n", $year+1900, $mon+1, $mday, $hour, $min, $sec, $IP, $URL;
|
|
printf OUT "%s %-15s %s\n", $TIME, $IP, $URL;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
close OUT;
|