my $ret2 = &CCC::DDD::setCAlist($self->param(CA_list)); #### my $ret = &CCC::DDD::init($cfg_file,$repfp,0);