#!/usr/bin/perl
use strict;
use warnings;

use Digest::MD5 qw(md5 md5_hex md5_base64);
use MIME::Parser;
use MIME::Entity;
use MIME::Body;
use Getopt::Long;

use lib qw(Core);
use lib qw(Classes);

use LocalConfiguration;

use StatusManager;
use Logger;

my $SCRIPTNAME = 'reconculate_prediction_status.pl';

#my $logger = new Logger();

my $status_manager = new StatusManager();

#DO NOT use this method it is too long 
#$status_manager->regenerate_predictions_status();

$status_manager->update_targets_and_groups_list();
$status_manager->recalculate_predictions_status_page();


my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);        
my $date = sprintf("%s_%s_%s-%s-%s",($mon+1), $mday, $hour, $min, $sec);

print $date."\n";

#0,5,10,15,20,25,30,35,40,45,50,55 * * * * /local/Projects/Perl/casprol/src/scripts/reconculate_prediction_status.pl
#1-59 * * * * /local/Projects/Perl/casprol/src/scripts/reconculate_prediction_status.pl > reconculate_prediction_status.log