view release on metacpan or  search on metacpan

lib/BBS/DiscuzX2.pm  view on Meta::CPAN

=head1 FUNCTION

=head2 init_db_handler

    #初始化

    my $bbs = BBS::DiscuzX2->new();

    #初始化后台数据库连接

    #dp_port / db_charset 也可不填

    $bbs->init_db_handler(

        db_host => 'xxx.xxx.xxx.xxx',

        db_port => 3306, 

        db_user => 'xxx',

        db_passwd => 'xxx',

        db_name => 'xxx',

        db_charset => 'utf8', 
    );

=over

=back

=head2 create_user

    #后台新建论坛用户

lib/BBS/DiscuzX2.pm  view on Meta::CPAN

sub init_db_handler {
    my ($self, %db_opt) = @_;
    $db_opt{db_port} ||= 3306;

    my $dsn      = "DBI:mysql:host=$db_opt{db_host};port=$db_opt{db_port};database=$db_opt{db_name}";
    $self->{db_handler} = BBS::DiscuzX2::DB->new(
        connect_info => [ $dsn, $db_opt{db_user}, $db_opt{db_passwd} ]
    );

    if($db_opt{db_charset}){
        $self->{db_handler}->do("SET character_set_client='$db_opt{db_charset}'");
        $self->{db_handler}->do("SET character_set_connection='$db_opt{db_charset}'");
        $self->{db_handler}->do("SET character_set_results='$db_opt{db_charset}'");
    }

    for my $k (qw/default_passwd default_group_id/){
        next unless(exists $db_opt{$k});
        $self->{db_handler}{$k} = $db_opt{$k};
    }

    $self;
}