new style DXUsers memory layout

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 6c0ff3d691490d4db977e2d03108ec6f31ca1071..b7f201bd483be32fb0d33d1a271b30b7d176b1a9 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -381,6 +381,7 @@ sub cease
        }
 
        DXUser::sync;
+       DXUser::writeoutjson;
 
        if (defined &Local::finish) {
                eval {
@@ -536,7 +537,7 @@ sub setup_start
 
        # initialise User file system
        dbg("loading user file system ...");
-       DXUser::init(1);
+       DXUser::init(4);                        # version 4 == json format
 
        # look for the sysop and the alias user and complain if they aren't there
        {