#!/usr/bin/perl

BEGIN{
  push(@INC, "/home/seb/src/bfrepo/lib");
}

use strict;
use warnings;
use DateTime;
use Template;
use wiki;
use members;
use misc;

my $tmpdir = "/tmp";
my $today = DateTime->today;
my $month = sprintf "%02d", $today->month;
my $year = $today->year;
my $members_file = find_page("Membres") || "/home/seb/members";
my $info = parse_members($members_file, 0);
my @members = @{$info->{'members'}};
my $days = 30;
foreach my $member (@members)
{
  $member->{'status'} = member_status($member,$days);
  my $phone = $member->{'phone'};
  $phone =~ s/; / \\newline /g;
  $member->{'phone2'} = $phone;  
}
my @tcheulings = @{$info->{'tcheulings'}};
foreach my $tcheuling (@tcheulings)
{
  my @tcheuling_members = grep { $_->{'tcheuling'} eq $tcheuling->{'name'} } @members;
  my $tcheuling_name = $tcheuling->{'name'};
  my $tcheuling_file = nameToFile($tcheuling_name);
  $tcheuling->{'filename'} = "bf-adhesions-$tcheuling_file-$month-$year";  
  my $vars = { 'tcheuling' => $tcheuling, 'members' => \@tcheuling_members };
  my $pdffile = processTemplate
  (
    '/home/seb/src/bfrepo/templates/membershipsummary.tmpl',
    $vars,
    $tmpdir,
    $tcheuling->{'filename'},
    'pdf'
  );
  my $mail =
  {
    'bodyfile' => "/home/seb/src/bfrepo/templates/membershipsummarymailtext",
    'subject' => "Récapitulatif des adhésions pour le tcheuling de $tcheuling->{'name'}",
    'attachments' => [$pdffile],
    'bcc' => ["Sebastien.Hinderer\@ens-lyon.org", "contact\@bodhicharya-france.org"],
    'to' => ["$tcheuling->{'contactname'} <$tcheuling->{'contactmail'}>"]
  };
  sendMail($mail);
  execute_command("rm -f $pdffile");
}