#!/home/edi/perl/perl
use strict;
use warnings;
use Getopt::Std;
use Date::Calc qw/Today Add_Delta_Days/;
getopts('ior:s:d:b:');
our ($opt_i, $opt_o, $opt_r, $opt_s, $opt_d, $opt_b);
my ($mode, $search_regex, $days, $business_process);
die "Usage: search_si_archive.pl [-[io]] (-s searchstring | -r regex) [-d daysback] [-b bpname]\n" unless ($opt_s || $opt_r);

$mode = 'inbound';
$mode = 'outbound' if ($opt_o);

$search_regex = qr/$opt_r/ if ($opt_r);
$search_regex = qr/\Q$opt_s\E/ if ($opt_s);

$days = defined($opt_d) ? $opt_d : 7;

if ($opt_b) {
	$business_process = '*' . $opt_b . '*' 
} else {
	$business_process = '*'
}

my ($year, $month, $day) = Today();

# for each day from today back $days days
while ($days >= 0) {
	my ($y, $m, $d) = Add_Delta_Days($year, $month, $day, -$days--);
	my $datestring = sprintf("%d%02d%02d", $y, $m, $d);
	my $directory = sprintf("/edi_store/archive/%s/%s/%s",$mode,$datestring,$business_process);
	my @dirlist = grep { -d } glob($directory);
	foreach my $dir (@dirlist) {
		opendir DIR, $dir;
		search_file($dir, $_) for (grep { -f $dir . '/' . $_ } readdir DIR);
		closedir DIR;
	}
}

sub search_file {
	my $fname = sprintf("%s/%s",@_);
	open my $fh, '<', $fname;
	while (<$fh>) {
		if (m/$search_regex/) {
			print "$fname\n";
			last;
		}
	}
	close($fh);
}

__END__

=pod

=head1 Search SI Archive

Search through SI archive directories for a string or regex, restricted by age and/or BP. 

=head1 USAGE

search_si_archive.pl -[io] -[sr STRING] [-d DAYS|7] [-b BPNAME]  

=over

=item -i

INBOUND - search will start in /edi_store/archive/inbound/ directory tree.
If neither -i or -o is indicated, this will be the default.

=item -o

OUTBOUND - search will start in /edi_store/archive/outbound/ directory tree.

=item -s STRING

SEARCH - files will be searched for this literal string. 
Either this or -r must be specified.

=item -r STRING

REGEX - files will be searched for this regular expression. 
Either this or -s must be specified.

=item -d DAYS

DAYS BACK - search will start in today's tree. If this value is specified, the search 
will be repeated this number of times, moving backward in time one day with each iteration. 
If today is Monday, 3 would search today, Sunday, Saturday, and Friday. If no value is 
specified, it will search 7 days back.

=item -b NAME

BUSINESS PROCESS - only directories whose name contains this string will be searched. 
If no value is specified, all directories will be searched.

=back

=head1 Examples

=over

=item 1.

search_si_archive.pl -i -s DEPOT -d 0 -b AS2
Files in subdirectories of /edi_store/archive/inbound/YYYYMMDD whose name contains the string
AS2 will be searched for the string DEPOT. 


=back
  
=head1 Author

Howard Parks