sub logmining'start
{
my ($xtract);
my ($userEmail, $head, $foot, $myFile);
my (@range);
$head = &logmining'PrintHeader ();
$foot = &logmining'PrintFooter ();
# FLASH MESSAGE:
print "$head
| The data is now being processed. Once it is done, you will get an email with all the results that will be sent to $userEmail. |
$foot";
print STDERR "\n\n===== START =====\n";
# Get range of dates
@range = &logmining'getDateRange ();
foreach $myFile (@range)
{
# TIME CONSUMING PROCESS:
print STDERR "gunzip -c $myFile | grep \"01225322|2199592\"\n\n";
$xtract = `gunzip -c $myFile | egrep "01225322|2199592"`;
last; # JUST RUN ONE FOR NOW PLEASE!
}
print STDERR "XTRACT:\n$xtract\n\n";
exit (1);