initial commit

scripts/prosody_compat/oracle.lua

@@ -0,0 +1,77 @@
+-- Runs the supplied Prosody's REAL bootstrap/module manager/storage/auth implementations.
+local source, root, phase = assert(arg[1]), assert(arg[2]), assert(arg[3]);
+package.path = source .. '/?.lua;' .. package.path;
+package.cpath = source .. '/?.so;' .. package.cpath;
+dofile(source .. '/loader.lua');
+CFG_SOURCEDIR, CFG_PLUGINDIR, CFG_DATADIR = source, source .. '/plugins', root;
+local startup = require 'prosody.util.startup';
+startup.init_global_state();
+local config = require 'prosody.core.configmanager';
+config.set('*', 'data_path', root);
+config.set('*', 'network_backend', 'select');
+config.set('example.org', 'authentication', 'internal_hashed');
+config.set('example.org', 'password_hash', arg[4] or 'SHA-256');
+startup.setup_datadir();
+startup.load_libraries();
+startup.make_dummy_hosts(); -- The original prosodyctl bootstrap, not a test replacement.
+local sm = require 'prosody.core.storagemanager';
+sm.initialize_host('example.org');
+local kv = assert(sm.open('example.org', 'oracle'));
+local archive = assert(sm.open('example.org', 'archive', 'archive'));
+local st = require 'prosody.util.stanza';
+local mm = require 'prosody.core.modulemanager';
+assert(mm.load('example.org', 'auth_internal_hashed'));
+local authmod = assert(mm.get_module('example.org', 'auth_internal_hashed'));
+local auth = assert(mm.get_items('auth-provider', 'example.org')[1]);
+if phase == 'probe' then
+  assert(kv:set('probe', {hello='actual Prosody'}));
+  assert(kv:get('probe').hello == 'actual Prosody');
+  print('PROSODY_NATIVE_PROBE_OK');
+elseif phase == 'roundtrip' then
+  local value = assert(kv:get('alice'));
+  assert(value[false] == 'roster');
+  assert(value[3] == 'sparse');
+  assert(value.binary == string.char(0, 1, 10, 255));
+  assert(value.text == 'Привет & <xml>');
+  value.native = {changed=true, number=1.25};
+  assert(kv:set('alice', value));
+  local prefs = assert(sm.open('example.org', 'archive_prefs'));
+  assert(prefs:get('alice')[false] == 'roster');
+  assert(prefs:set('alice', {[false]=false, ['bob@example.org']=true}));
+  assert(auth.test_password('alice', 'пароль-Original'));
+  assert(not auth.test_password('alice', 'wrong'));
+  assert(auth.set_password('alice', 'пароль-Native'));
+  assert(auth.create_user('bob', 'native-bob'));
+  local ok, stored, server = require('prosody.util.sasl.scram').hashers[arg[4] or 'SHA-256']('binary-password', string.char(0,255)..'salt', 10000);
+  assert(ok);
+  local hex = require 'prosody.util.hex';
+  assert(sm.open('example.org', 'accounts'):set('binary', {salt=string.char(0,255)..'salt', iteration_count=10000,stored_key=hex.encode(stored),server_key=hex.encode(server)}));
+  assert(auth.test_password('binary', 'binary-password'));
+  local found = {};
+  for id, stanza, when, peer in assert(archive:find('alice')) do
+    found[#found+1] = id;
+    assert(stanza.name == 'message');
+    assert(stanza.attr['xml:lang'] == 'ru');
+    assert(stanza.attr['urn:oracle'..string.char(1)..'flag'] == 'yes');
+    assert(stanza:get_child_text('body') == 'Rust body');
+    assert(when == 1767225600 + #found - 1);
+    assert(peer == 'bob@example.org');
+    assert(stanza.attr.stamp == nil);
+  end
+  assert(#found == 2 and found[1]=='rust-one' and found[2]=='rust-two');
+  local native = st.message({xmlns='jabber:client',from='bob@example.org',to='alice@example.org',['xml:lang']='ru', ['urn:oracle'..string.char(1)..'flag']='native'}, 'Native body');
+  assert(archive:append('alice', 'native-three', native, 1767225602, 'bob@example.org'));
+  assert(archive:append('alice', 'rust-two', st.message({xmlns='jabber:client'}, 'Replaced by native'), 1767225603, 'bob@example.org'));
+  local iter = assert(archive:find('alice', {after='rust-one', with='bob@example.org'}));
+  assert(iter() == 'native-three');assert(iter() == 'rust-two');assert(iter() == nil);
+  -- This exercises original binary .lidx creation, not just .list loading.
+  print('PROSODY_NATIVE_ROUNDTRIP_OK '..(arg[4] or 'SHA-256'));
+elseif phase == 'verify-final' then
+  assert(kv:get('alice').rust_final == true);
+  assert(auth.test_password('bob', 'rust-bob-new'));
+  local count=0;for id, stanza in assert(archive:find('alice')) do count=count+1;if count==4 then assert(id=='rust-final');assert(stanza:get_child_text('body')=='Final');end end
+  assert(count==4);
+  print('PROSODY_NATIVE_FINAL_OK '..(arg[4] or 'SHA-256'));
+else
+  error('unknown phase');
+end