var db = require('ep_etherpad-lite/node/db/DB').db

db.get("record_key", function(err, record_value){
    // do something
});

// Replace data value if the record already exists or create a new record with this key
db.set("record_key", data);
// Add a subvalue to an existing record data
db.setSub("record_key", ["sub_key"], value);

{"colorId":"#79d9d9","name":"tutti","timestamp":1364832712430,"padIDs":{"mypad":1}}
db.setSub("record_key", ["email"], "tutti@frutti.org");
{"colorId":"#79d9d9","name":"tutti","timestamp":1364832712430,"padIDs":{"mypad":1},"email":"tutti@frutti.org"}

db['dbSettings'].cache = 0;

#!/usr/bin/perl
use strict;
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=etherpad;host=localhost", "yourMysqlId", "yourMysqlPasswd",) or die;
$dbh->prepare("TRUNCATE TABLE store")->execute();
$dbh->prepare("SET CHARACTER SET utf8")->execute();
open(F,"var/dirty.db") or die;
while (<F>) {
    if (m|\{\"key\":\"(.*)\",\"val\":(.*)\}|) {
	my ($k,$v) = ($1,$2);
	my $sth = $dbh->prepare("SELECT `key` FROM store WHERE `key` = ?") or die;
	$sth->execute($k) or die;
	my @a = $sth->fetchrow();
	if ($a[0]) {
	    $sth = $dbh->prepare("UPDATE store set `value` = ? WHERE `key` = ?") or die;
	    $sth->execute($v,$k) or die;
	} else {
	    $sth = $dbh->prepare("INSERT INTO store (`key`,`value`) VALUES (?,?)") or die;
	    $sth->execute($k,$v) or die;
	}
    } else {
	die "Err!\n";
    }
}
close F;