#!/usr/local/bin/perl

$requete_sql="
SELECT		Service.Service_c as NomCampagne
FROM		AODCallDetail JOIN Service ON AODCallDetail.Service_Id=Service.Service_Id
WHERE		Service.Available_f = 1 AND Service.Deleted = 0 AND Service.Application_Id IN (11)
GROUP BY	Service.Service_c
ORDER BY	Service.Service_c
";

#obtention des noms de champs
undef %MotCle;
$NbMotCle=0;
$reqtemp=$requete_sql;
$reqtemp =~ s/\n//gis;
@tableau = split(/,|(from)/si, $reqtemp);
foreach $match(@tableau) {
	if($match =~ /as /i) {
		@phrase = split(/ /s,$match);
		$MotCle[$NbMotCle++]=$phrase[scalar(@phrase)-1];
	}
}

GetDate();
print "$heure:$min:$sec - débuté.\n";

StartDb();

GetDate();
print "$heure:$min:$sec - Terminée.\n";

	
##  SUBS  #####################################################################
sub GetDate() {
	($sec,$min,$heure,$jour,$mois,$annee,$jour_se,$jour_an,$ete) = localtime( time ); 
	$annee+=1900;
	@mot=("Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Décembre");
	$moismot=$mot[$mois];
	$mois+=1;
	
	if($mois<10) {$mois="0".$mois;}
	if($jour<10) {$jour="0".$jour;}
	if($heure<10) {$heure="0".$heure;}
	if($min<10) {$min="0".$min;}
	if($sec<10) {$sec="0".$sec;}
}

sub StartDb {
	use Win32::ODBC;
	undef %DetData;
	undef $NoRec;
	
	# Le nom de la source de donnée ODBC
	$DSN = "sorry, I don't think you need this info...";
	# Ovrir la connection avec la BD
	if (!($db = new Win32::ODBC("dsn=$DSN"))){
		# Sur erreur
	    print "\nError connecting to $DSN -- Error: " . Win32::ODBC::Error() . "\n";
	    exit;
	} else {
		# Si la connection marche, on passe à la requête
		
		GetDate();
		print "$heure:$min:$sec - SQL lancée.\n";
		
		# Lancement de la requête
		if ($db->Sql($requete_sql)){
			# Sur erreur de requête
			print "SQL failed. Error: " . $db->Error() . "\n";
			$db->Close();
			exit;
		} else {
			# Sur résultat
		
			GetDate();
			print "$heure:$min:$sec - SQL reçu.\n";
		
			# Écriture des données	
			$NoRec=0;
			while($db->FetchRow()){
				undef %Data;
				%Data = $db->DataHash();
				for($i=0;$i<scalar(@MotCle);$i++) {
					$DetData[$NoRec][$i]=$Data{$MotCle[$i]};
				}
				$NoRec++;
			}
			$db->Close();
		}
	}
}