#!/usr/bin/perl
# Compress Log Files In Current Directory and Erase Log file upon successful completion.

$lgreen = "\033[1;32m";
$white = "\033[0m";

$search_value = "*.com *.net *.org *.cc *.tv *.info";
$log_path = "/var/log/httpd/logs/";
$application = "/ibin/logcompress.pl";


@log_file_array = glob $search_value;
#print @log_file_array;

  foreach $array_record (@log_file_array) {


print $lgreen . "-----[ Working On: " .$array_record . " ]----------------------------------------------------------$white\n";
#system( "cd " . $log_path . $array_record . "&&" . $application . "\n");
print "cd " . $log_path . $array_record . "&&" . $application . "\n";

  }

exit;