#!/usr/bin/perl 
use lib("/www/opals/module");
#for i in `ls /etc/opals/conf/`; do cp -p /www/opals/script/update/update20110704/updateSchoolYear /tmp/urt; perl -pi -e "s/_MY_SITE_/$i/" /tmp/urt; sudo /tmp/urt; done
use Opals::Context('/etc/opals/conf/_MY_SITE_');
use strict;

use POSIX qw(
    ceil
    floor
);

use DBI;
my $dbh = Opals::Context->dbh();
END {
    if ($dbh) {
        $dbh->disconnect();
    }
}

$| = 1;

my $sth=$dbh->prepare("select val from opl_preference where var='dateLast' && val <'2011-09-10'");

$sth->execute();

if(my ($d) =$sth->fetchrow_array){
    print "$d\n";
    $dbh->do("insert into opl_preference(var,val,hidden) select 'dateLast_bk', val, 1 from opl_preference where var='dateLast'");
    $dbh->do("insert into opl_preference(var,val,hidden) select 'dateFirst_bk', val, 1 from opl_preference where var='dateFirst'" );
    $dbh->do("update opl_preference set val='2012-06-22', valShow='2012-06-22' where var='dateLast'");
    $dbh->do("update opl_preference set val='2011-09-06', valShow='2012-06-22' where var='dateFirst'");
}