#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;
use Proc::Daemon;
use Log::Log4perl qw(get_logger :easy :levels);

Use MysqlUtils;

use vars qw($opt_daemon, $opt_mailid);

GetOptions(
    "daemon|d"    => \$opt_daemon,
    "mailid|a=s" => \$opt_mailid,
    "help|h"     => \&usage,
) || usage();


if(!$opt_mailid){
    $opt_mailid = shift || usage();
}
chomp($opt_mailid);

&usage if( (!defined($opt_mailid)) && (@ARGV==0) );
if(scalar(@ARGV) > 0){
    if ( (!defined ($opt_mailid)) || (@ARGV > 0) ) {
        usage();
        die("Invalid Argument passed");

    }
}


if($opt_daemon) {
##Inits
print STDOUT "Daemon mode \n";
Proc::Daemon::Init;
Log::Log4perl->init_once("$ENV{CONF}" . "/log4perl.conf");

my @mail_ids = qw(200909101 200909102 200909103);
while (1) {
	
	foreach my $opt_mailid (@mail_ids) {
		my ($log) = Log::Log4perl::get_logger('main');
		my $data = get_data('mail_id' => $opt_mailid, 'file_path' => "/spool/emails");

		##connect db
		MysqlUtils::connect();

		eval {
		MysqlUtils::insert_record($data);
		};

		if($@) {
			$log->error("unable to insert data");
		}
	}

 }
}

else {
	print STDOUT "Normal mode\n";
	my ($log) = Log::Log4perl::get_logger('main');
	my $data = get_data('mail_id' => $opt_mailid, 'file_path' => "/spool/emails");

	##connect db
	MysqlUtils::connect();

	eval {
	MysqlUtils::insert_record($data);
	};

	if($@) {
		$log->error("unable to insert data");
	}	
}