#!/usr/bin/perl

if(!$includes_implemented){
	require 'includes/include_all.cgi';
}

&run;

sub run{
	$token=$query->param('token');
	$start_date=$query->param('start_date');
	$end_date=$query->param('end_date');
	
	if(!$start_date){
		$start_date = "1970-01-01";
	}
	if(!$end_date){
		$end_date = "3000-01-01";
	}

	my %log;
	my %service;

	$myquery{'get_service'} = "SELECT id FROM services WHERE api_key = ?";
	$query_handle{'get_service'} = $connect->prepare($myquery{'get_service'});
	$query_handle{'get_service'}->execute("$token");
	$query_handle{'get_service'}->bind_columns(undef, \$service{'id'});
	while($query_handle{'get_service'}->fetch()) {
	}
	
	my $tab = "\t";
	
	$myquery{'get_logs'} = "SELECT SUM(number_of_messages) 
	FROM messages_sent 
	WHERE service_id = ? AND date <= ? AND date >= ?
	ORDER BY id";
	$query_handle{'get_logs'} = $connect->prepare($myquery{'get_logs'});
	$query_handle{'get_logs'}->execute("$service{'id'}", "$end_date", "$start_date");
	$query_handle{'get_logs'}->bind_columns(undef, \$log{'total_messages'});
	while($query_handle{'get_logs'}->fetch()) {
	}
	print "Total Messages:$tab$log{'total_messages'}\n";
	
	$myquery{'get_logs'} = "SELECT phone, message, date, timestamp, date_time 
	FROM messages_sent 
	WHERE service_id = ? AND date <= ? AND date >= ?
	ORDER BY id";
	$query_handle{'get_logs'} = $connect->prepare($myquery{'get_logs'});
	$query_handle{'get_logs'}->execute("$service{'id'}", "$end_date", "$start_date");
	$query_handle{'get_logs'}->bind_columns(undef, \$log{'phone'}, \$log{'message'}, \$log{'date'}, \$log{'timestamp'}, \$log{'date_time'});
	while($query_handle{'get_logs'}->fetch()) {
		$log{'message'}=~s/\n/ /g;
		$log{'message'}=~s/\r/ /g;
		print "$log{'phone'}$tab$log{'date'}$tab$log{'date_time'}$tab$log{'timestamp'}$tab$log{'message'}\n";
	}
}