#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use JSON;

use Opals::Context;
use Opals::User qw(
    user_login
    user_permission_1

);

use Time::localtime;
use Opals::UrlRegistry qw(
    ureg_getMenu
);
use Opals::Template qw(
    tmpl_preference
);
my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi = CGI->new;
my ($errCode, $ck, $currentUser) = user_login($dbh, $cgi,undef);
my $rs={errCode=>$errCode};
if($errCode ==0){
    my $pref = tmpl_preference($dbh);
    my $permission = user_permission_1($dbh, $currentUser->{'uid'});
    $rs->{'menuItemList'}=ureg_getMenu($permission,$pref);
    $rs->{'userInfo'}={ uid=>$currentUser->{'uid'},
                        lastname=>$currentUser->{'lastname'},
                        firstname=>$currentUser->{'firstname'},
                        status=>$currentUser->{'status'},
                        phone=>$currentUser->{'phone'},
                        email=>$currentUser->{'email'}
    };
}
  my $userJSON = to_json( $rs, {pretty => 1})  ;
    # print header(-cookie=>$ck);
    if(defined $ck){
        print "Set-Cookie: @$ck\n";
    }
    print "Content-type: text/plain\n\n";
    print   $userJSON;