#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;
use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_redirect
    tmpl_preference

);
use Opals::User qw(
    user_logout
);
use Opals::Portal qw(
    portal_getLayout
   );

use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);

use Opals::Session qw(
    SessionHdl_clearVar    
);
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }
# test incremental backup

my $cgi = CGI->new;
my $input = $cgi->Vars();
my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'home.tmpl',
        }
);
if ($permission && $permission->{'pref_edit'}) {
     $template->param(permEditCal=>$permission->{'pref_edit'});
}


my $sessionID = $cgi->cookie('globalSessionID');
if($sessionID ne '') {SessionHdl_clearVar($dbh,$sessionID);}
if (defined $input->{'logout'}) {
    $cookie = user_logout($cgi, $template);
}
my $msgValMap={} ;
  my($layout, $portletList) = portal_getLayout($dbh);
    my $portletTmp;
    my $aboutUs=undef;
    foreach my $p (@$portletList){
        if($p->{'type'} eq 'aboutUs'){
            foreach my $item(@{$p->{'prop'}}){
                if($item->{'var'} eq 'content'){
                    $template->param(aboutUsContent =>$item->{'val'});
                    last;
                }
            }
        }
        elsif($p->{'type'} eq 'html'){
            foreach my $item(@{$p->{'prop'}}){
                if($item->{'var'} eq 'html'){
                    $item->{'val'}="";
                    last;
                }
            }
        }
    }

  $template->param( 
                    layout          =>$layout,
                    portletList     => $portletList,
                    bgcolor         =>'#2EB8E6',                   
                                      );    
    my $stdMsgMap  =loc_getMsgFile('search/standard.msg');
    loc_write($template,$stdMsgMap);
    my $wlMsgMap  =loc_getMsgFile('/util/weblink.msg',$msgValMap);
    loc_write($template,$wlMsgMap);
    my $pageMsgMap  =loc_getMsgFile('/homeTab.msg');
    loc_write($template,$pageMsgMap);

tmpl_write($dbh, $cgi, $cookie, $template);

##################################################################