Trying copy/paste usually fails for me, in an attempt to be quick about things. My apologies.
Code:
Usage: UpdateStatus($client->AccountName(), "50"); Where the number in quotes is the new desired account status (level).
Code:
sub UpdateStatus { ## Usage: UpdateStats(accountname, xx) where xx is new status level
my $dbh = plugin::MySQL_Connect();
$dbh->do("UPDATE `account` SET `status` = '$_[1]' WHERE `name` = '$_[0]' ");
$dbh->disconnect();
$client->UpdateAdmin();
}
As mentioned in PM, you'll need the DBI Perl and make sure your
plugins/MySQL_Connect.pl
has the proper credentials. If you dont have MySQL_Connect.pl then look for LoadMysql.pl (I believe it is) and ensure the credentials are correct there.
It took that PM to me to look at this thread to see what was up, sorry about that.