#!/usr/bin/perl
#
# voir les signature 
#

print "Content-type: text/html\n\n";

require "cgi-lib.pl";
use DBI;


$DSN      = 'mysql:database=petitions;hostname=db.ras.eu.org';
$USER     = 'petition';
$PASSWORD = 'Dk;22LR_Z';

$dbh = DBI->connect("DBI:$DSN",$USER,$PASSWORD) || die "Impossible de se connect
er à la base ".$DBI::err.", ".$DBI::errstr."\n";

#load param...
&ReadParse();

$initiative = $in{config};
$nosign="1" if defined($in{nosign});
$level=$in{level} if defined($in{level});

($I_Ide,$signatures)=$dbh->selectrow_array("SELECT I_Ide,I_Signature FROM initiative WHERE I_Nom ='$initiative'");

print "initiative : $I_Ide,$initiative<br>" if $verbose;

if (! $I_Ide) {
  print "Pas d'initiative \xe0 ce nom ($initiative)<br>";
  exit 0;
}

$date=&date();

if ($nosign) {
  print "<p><center><b>Aujourd'hui $date, il y a " . &nbsig . " signatures individuelles...<\/b><\/center><\/p>";
}
else {
  if (defined($level)) {
    $cmd="SELECT * from $initiative WHERE S_Valid=1 AND S_Level=$level ORDER by S_NOM";
  } 
  else {
    $cmd="SELECT * from $initiative WHERE S_Valid=1 ORDER by S_NOM";
  }
  my $sth = $dbh->prepare($cmd) || print $dbh->errstr;
  $sth->execute || print $dbh->errstr;
  while (($d,$d,$dummy,$dummy,$nom,$prenom,$info)=$sth->fetchrow_array) {
    $lines .= uc($nom) . " " . &ic($prenom);
    $lines .= ($info) ? " ($info), ":", ";
    $nbsig++;
  }
  if (defined($level)) {
    print $lines;
  }
  else {
    $signatures =~ s/Xsignatures/$lines/;
    $signatures =~ s/Xdate/$date/g;
    $signatures =~ s/Xnombre/$nbsig/;
  
    print $signatures;
  }
}


exit 0;
#END

# subroutines
sub date {
  my(%Mois, $date);
  %Mois=('Jan'=>'janvier','Feb'=>'fevrier','Mar'=>'mars','Apr'=>'avril','May'=>'mai','Jun'=>'juin','Jul'=>'juillet','Aug'=>'août','Sep'=>'septembre','Oct'=>'octobre','Nov'=>'novembre','Dec'=>'décembre');
  $date=localtime();
  $date =~ /^(...) (...) (..) (..:..:..) (....)$/;
  $date = $3.' '. $Mois{$2} .' '.$5 . " à $4";
  return $date;
}

sub nbsig {
  $cmd="SELECT COUNT(*) as total FROM $initiative WHERE S_Valid=1";
  $total=$dbh->selectrow_array($cmd);
  return  $total;
}

sub ic {
  $s=shift;
  $t = substr ($s,0,1);
  $t =~ tr/a-z/A-Z/;
  substr ($s,0,1) = $t;
  return $s;
}