#!/usr/bin/perl

use strict;

my @links = ();
my $logspath="/var/log/httpd/";

foreach my $linea (<STDIN>){
	chomp $linea;
	warn "Symlink found: $linea\n";
	push @links,$linea;
}

parsedir ($logspath);

sub parsedir{
	my ($curdir)=@_;
	warn "Browsing $curdir\n";
	if (opendir DIR,$curdir) {
		my @indir=grep { $_!~/^\.(\.)*$/  } readdir DIR;
		closedir DIR;
		foreach my $fil (@indir){
			$fil = "$curdir/$fil";
			-f $fil && parsefil ($fil);
			-d $fil && parsedir ($fil);
		}
	}else{
		warn "No se pudo abrir $curdir\n";
	}
}

sub parsefil{
	my ($curfil)=@_;
	warn "Searching into $curfil\n";
	if (open FIL,$curfil){
		foreach my $linea (<FIL>){
			chomp $linea;
			foreach my $link (@links){
				($linea=~/$link/) && print ">>>> $curfil\t$linea\n";
			}
		}
		close FIL;
	}else{
		warn "No se pudo abrir $curfil [file]\n";
	}
}