my $rs = $dbh->do($sql, undef);
$self->disconnect_db;
if ($rs) {
- return 1;
+ $self->warn("create table: $table_name");
+ }
+ else {
+ $self->warn("cannot create table: $table_name");
}
- $self->warn("cannot create table: $table_name");
}
$table_name = CONFIG_TABLE_NAME;
my $rs = $dbh->do($sql, undef);
$self->disconnect_db;
if ($rs) {
- return 1;
+ $self->warn("create table: $table_name");
+ }
+ else {
+ $self->warn("cannot create table: $table_name");
}
- $self->warn("cannot create table: $table_name");
}
# check anonymous user exists
$self->update_info(uid => 1,
realname => "名無しのゴンベエ",
karma => -25);
+ $self->warn("create anonymous_user");
}
# convert AC (uid==1) user's data