};
}
+
+sub set {
+ my $self = shift;
+ my $params = {@_};
+ my $uid = $params->{uid};
+ my $name = $params->{name};
+ my $value = $params->{value};
+
+ if (!defined $uid
+ || !defined $name
+ || !defined $value) {
+ $self->last_error("INVALID_PARAMETER");
+ return;
+ }
+
+ my $sql = <<"EOSQL";
+INSERT INTO users_param
+ (uid, name, value)
+ VALUES
+ (?, ?, ?)
+ ON DUPLICATE KEY UPDATE
+ name = ?, value = ?
+EOSQL
+
+ my $dbh = $self->connect_db;
+ my $rs = $dbh->do($sql, undef, $uid, $name, $value,
+ $name, $value);
+ if (!defined $rs) {
+ $self->last_error($dbh->errstr);
+ }
+ $self->disconnect_db;
+ return $rs;
+}
+
sub insert {
my $self = shift;
my $params = {@_};