#!/usr/bin/perl -w

use strict;
use SuperObject;
use clients;


sub usage {
    print "usage:\n
$0 -h : ceci
$0 : met à jour les champs nocheque et typepaiement de la table salaire, en se basant sur le champ comment
";
} 



#===== mieux que getopts
sub getArgs {
    my @args=@_;
    my $oldKey="";
    my %opts=();
    for my $el (@args) {
		if ($el=~/^-/) {
			$el=~s/-+//g;
			$opts{$el}="";
			$oldKey=$el;
		}
		else {
			$opts{$oldKey}=$el;
		}
    }
    return %opts;
}


sub round{
	my($l_arg1,$l_scale)=@_;
	my $sign=1;
	if ($l_arg1<0) { $l_arg1=-$l_arg1; $sign=-1 ;}
	return 0 if ($l_arg1 == 0);
	my($l_num1,$l_num2) = 0;
	$l_num1 = 10**$l_scale * $l_arg1;
	$l_num2 = int($l_num1);
	$l_num2 = $l_num2 +1 if ($l_num1 - $l_num2 >= 0.5);
	$l_num1 =  $l_num2/10**$l_scale;
	return $l_num1*$sign; 
}


#------------------------
#   Gestion des entrées :
my %opts=();
my $debug=1;
my ($name,$output);
my $id;
my $typeDoc='html';
%opts=getArgs(@ARGV);

if((exists $opts{h}) || (exists $opts{help})) {
    &usage();
    exit 0;
}

if (exists $opts{o}) {
    $output=$opts{o};
} else {
    $output="";
}

#--- Gestion output ----
if ($output) {
    open(OUT,">$output");
    *STDOUT=*OUT;
}
if ($typeDoc eq 'cgi') {
	print "Content-type:text/html\n\n";
	$typeDoc='html';
}
#--------------------------|


my ($DBHOST,$DBNAME,$DBUSER,$DBPWD)=qw(localhost pimengest pimengest pimengest);
'SuperObject'->initConnect($DBHOST,$DBNAME,$DBUSER,$DBPWD) || die 'Can t connect !';;

my @liste;
my $salaire=new salaire;
my $tpaie=new typepaiement;
my $inter=new intervenant;

my $ref_sal = $salaire->map('uid','comment');
$tpaie->map('substr(nom,0,3)','uid');
#print $tpaie->printHash($ref_sal);
while (my ($uid,$comment) = each %$ref_sal) {
	my $nochq;
	($nochq) = ($comment =~ /^chq (\d+)/);
	if ($nochq) {
		print STDERR "-- Ok pour '$comment', avec no chq=$nochq\n";
		print "update salaire set typepaiement=".$tpaie->{map}->{'Ch'}." , nocheque='$nochq' where uid=$uid;\n";
	}
}