#!/usr/bin/perl -w

use strict;
use File::Find;
use Cwd 'abs_path';
BEGIN { ##Discover and use required modules automatically at compile time
	my $ABS_PATH = abs_path($0);
	find(\&wanted, $ABS_PATH);
	sub wanted {
		if ( $_ eq "eod_templates_V2.pm" or $_ eq "eod_functions_V2.pm"){unshift(@INC,$File::Find::dir);}
	}	
}
use IO::Handle;
use Expect;
use Net::Telnet;
use Data::Dumper;
use Parallel::ForkManager;
use Fcntl;
use MIME::Lite;
use Fcntl qw(:DEFAULT :flock);
use Getopt::Long;
Getopt::Long::Configure ("bundling");
use eod_templates_V2 qw(:ALL); 
use eod_functions_V2 qw(:ALL);



my $path = Cwd::getcwd();
my $name = $0;
$name =~ s/\.pl//;
$name =~ s/\.\///;
my $exitstate = 0;

unless( ! @ARGV ){
	$exitstate = Main();
}else{
	print_help_and_exit($name);
}	
exit($exitstate);



sub process_command_line_args {
	#set default values for dynamic config settings
	my ($prompt,$configf,$quiet,$outf,$debug,$batchsize,$proto,$tacacs,$verbose,$header,@maildst) = (1,"$name.cfg",1,"$name.csv",0,0,"none",0,0);
	
	GetOptions ( 
		'file-based-auth|f' => sub { $prompt = 0;},
		'prompt-based-auth|p' => \$prompt,
  		'readfile|r=s' => \$configf, 
		'outfile|o=s' => \$outf,
		'no-quiet|n' => sub { $quiet = 0; },
		'debug|d' => \$debug,
		'Version|V' => \$header,
		'max-connections|m=s' => \$batchsize,
		'sendmail|s=s' => \@maildst,
		'connection-proto|c=s' => \$proto,
		'tacacs|t' => \$tacacs,
		'verbose|v' => \$verbose,
		'help|h'   => sub { print_help_and_exit($name);}
 	) or print_help_and_exit($name);

	@maildst=split(/,/,join(',',@maildst)); #in case -s was invoked with a comma separated list instead of multiple times
	my $mailref = \@maildst;
	my @args = ($name,$prompt,$configf,$quiet,$outf,$debug,$batchsize,$proto,$tacacs,$verbose,$header,$mailref,$path);
	return \@args;	
}


sub Main {
	#get user defined dynamic config settings and perform various sanity checks
	my $argref = process_command_line_args();
	validate_command_line_args($argref);
	
	#all args check out now create and populate static hashes
	my (%STATIC,%REPORT);
	populate_static_hashes(\%STATIC,\%REPORT);
	
	#fill dynamic hash
	my %CONFIG;
	populate_config_hash(\%CONFIG,$argref);
	
	#retrieve config settings from file
	my %DATA;
	get_config_from_file(\%DATA,\%CONFIG,\%STATIC);
	

	return $exitstate; #will be set depending on outcome of actual device operations	
}