#!/usr/bin/perl
use strict;
use warnings;
use Data::Dump qw/ddx/;


my ($username,$cmd,$date,$option);
sub main(){

  system("clear");
  system ("cls");
  print "************************************************\n";
  print "Welcome to Log Grep Tool\n"; 
  print "*************************************************\n";
    print "PRESS 1 to grep or any other key to EXIT :";    
    chomp($option=<STDIN>);
    if ($option =="1") 
        {
           
            getParameters($username,$cmd,$date);
            viewResults();			   
        }
        
        else
        {
             print "Goodbye!\n";
			exit;
           
        }
   
} 

sub getParameters(){
	print "Enter the Username (Eg:auser):" ;
 	chomp($username=<STDIN>);
 	print "Enter the cmd (Eg:sync_cmd):" ;
 	chomp($cmd=<STDIN>);
 	print "Enter the date (Eg:2015/01/14):" ;
 	chomp($date=<STDIN>);
 	return ($username,$cmd,$date);
}

sub viewResults(){
	my @process_ids = (`cat /mnt/accurev_d1/site_slice/logs/acserver.log | grep $username | grep $date | grep $cmd | more`) ;
	        foreach (@pids) {
            print "$_\n";
        }
}

main();