#!/usr/bin/perl
use MongoDB;
use MongoDB::OID;
use Spreadsheet::ParseExcel;
use Spreadsheet::XLSX;
use Spreadsheet::Read;

$date=$ARGV[0];
$date or $date=`date --date='1 day ago'  +%d-%m-%Y`;
chomp $date;

my $file_path="/root/prac/packages/SDP_VAS_NQI-17-06-2015.xlsx";
my $workbook = ReadData($file_path,cells => 0 );

if(defined $workbook->[0]{'error'})
{
	print "Error occurred while processing $file_path:".$workbook->[0]{'error'}."\n";
	exit(-1);
}

my $worksheet = $workbook->[1];
my $max_rows = $worksheet->{'maxrow'};
my $max_cols = $worksheet->{'maxcol'};

for my $row_num (15..($max_rows))
{
	my $cell  = $worksheet->{cell}[2][$row_num]; # same, unformatted
	if($date eq $cell)
	{
		my $sqi  = $worksheet->{cell}[36][$row_num]; # same, unformatted
		print "$sqi\n";
		print "$cell\n";
		print "$row_num\n";
		break;
	}
}
chomp $sqi;
$db_host="172.16.15.115";
$db_name="ravi";
$client     = MongoDB::MongoClient->new(host => $db_host, port => 27017);
$database   = $client->get_database( $db_name );
$data = $database->get_collection("SDP_SQI");
%insert_data_hourly=();
$insert_data_hourly{'date'}=$date;
$insert_data_hourly{'SQI'}=$sqi;
$id=$data->insert(\%insert_data_hourly);