rdd.c

/* rdd - redis database dumper
 * * 0.4
* https://github.com/r043v/rdd/
 * © 2012~2025 noferi mickaël - r043v/dph - noferov@gmail.com
* *
 * This work is licensed under an Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0) licence.
* * https://creativecommons.org/licenses/by-nc-sa/4.0/
 */

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <stddef.h>
#include <string.h>
#include <time.h>

#include <hiredis/hiredis.h>

#define u32 uint32_t
#define u16 uint16_t
#define u8 uint8_t

/*

.rdd file format

--- header ---

magic 0x42424242					4
u32 nbkey							4

--- each keys ---

magic 0x4242						2
u16 type							2
u32 full size						4
u32 ttl end in unix timestamp		4

key name, 0 filled to be aligned	?
u32 nbresult						4
data sizes, u32*(nbresult)			4*nb
each data, 0 filled to be aligned	?

*/

struct keynfo
{	u16 *type;
	char*name;
	u32 *nb;
	u32 *ttl;
	u32 *size;
	u32 *sizes;
	char**data;
};

char * rddnew(void);
u32 rddGetSize(char*);
void rddMerge(char**,char*);
u32 rddMatch(char**,char**,u32);
u32 rddFilter(char**,char**,u32);
u32 rddRedisInsert(redisContext*,char*);
void rddRedisDelete(redisContext*,char*);
char * rddRedis(redisContext*,char*);
char * rddGoToKey(char*,u32);
char ** rddGetAllKeys(char*,u32*);
char ** rddGetKeys(char*,char**,u32,u32,u32*);
u32 rddAddKeys(char**,u32,char**);
u32 rddHasKey(char*,char*);
void rddSave(char*,char*);
char * rddLoad(char*);
void rddPrint(char*,u32);

void rddRedisConnect(redisContext**,char*,u32,u32,char*);

u32 keyGetNfo(char*,struct keynfo*);
char * keyCreate(char*,u16,u32,u32,u32*,char**);
u32 keyGetSize(char*);
void keyPrint(char*);

u32 getType(char*);
const char * getTypeName(u16*);
u32 wildMatch(char*,char*);

static const ptrdiff_t kalign = 4;

u32 getType(char*t) // string, list, set, zset and hash
{	switch(*t)
	{	case 'l' : return 1; break;
		case 'z' : return 3; break;
		case 'h' : return 4; break;
		case 's' :
			if(t[1] == 't') return 0; return 2;
		break;
		default : printf("unknow key type %s\n",t); return 255; break;
	}; return 255;
}

const char * getTypeName(u16*type) // string, list, set, zset and hash
{	switch(*type)
	{	case 0: return "string"; break;
		case 1: return "list"; break;
		case 2: return "set"; break;
		case 3: return "zset"; break;
		case 4: return "hash"; break;
	};

	return "unknow";
}

//wilcard function come from here, http://xoomer.virgilio.it/acantato/dev/wildcard/wildmatch.html
u32 wildMatch(char* pat, char* str)
{	char *s, *p; u32 star = 0;
	loopStart:
	for(s=str,p=pat ; *s ; ++s,++p)
	{	switch(*p)
		{	case '?':
				if (*s == '.') goto starCheck;
			break;
			case '*':
				star = 1;
				str = s, pat = p;
				do { ++pat; } while (*pat == '*');
				if (!*pat) return 1;
				goto loopStart;
			default:
				if (*s != *p) goto starCheck;
			break;
		}
	}
	while (*p == '*') ++p;
	return (!*p);
	starCheck:
	if(!star) return 0;
	str++;
	goto loopStart;
}

u32 rddHasKey(char*rdd,char*name){
	//printf("enter haskey\n");
	u32 *p = (u32*)rdd; if(*p++ != 0x42424242) return 0; u32 nb = *p++;
	//printf("set get %u keys\n",nb);
	for(u32 c=0;c<nb;c++)
	{	char *k = (char*)p; k+=12;
		//printf("check has key %u\n",c);
		//printf("-%20s-\n",k);
		if(!strcmp(k,name)) return c;
		p++; p += ((*p)-4)>>2;
	}
	//printf("not found in set\n");
	return 0xffffffff;
}

char * keyCreate(char*name,u16 type, u32 nb, u32 ttl, u32*dsize, char**data)
{	//printf("** key create\n\t[%s]\n\ttype [%u]\n\tnb [%u]\n\tttl [%u]\n",name,type,nb,ttl);

	u32 size = 16+nb*4; // magic,type,size,ttl,nbres,data size
	u32*sizes = (u32*)malloc((nb+1)*4);
	if( !sizes ){
		printf("malloc error in keyCreate\n");
		return 0;
	}
	u32 tmp = strlen(name)+1; tmp = (tmp + (kalign - 1)) & -kalign;

	*sizes = tmp;
	size += tmp; // strlen, 4o aligned

	for(u32 c=0;c<nb;c++)
	{	tmp = dsize[c]; tmp = (tmp + (kalign - 1)) & -kalign;
		size += tmp;
		sizes[c+1] = tmp;
	}

	char *k = (char*)calloc(1,size);
	if( !k ){
		printf("malloc error in keyCreate\n");
		free(sizes);
		return 0;
	}
	char *p = k;
	*(u16*)p = 0x4242;
	*(u16*)(p+2) = type;
	*(u32*)(p+4) = size;
	*(u32*)(p+8) = ttl;
//	printf("hey\n");
	strcpy(p+12,name); // check me for binary string
//	printf("wut %u\n",strlen(name));
	p += 12+(*sizes);
	u32 *p32 = (u32*)p;
	*p32++ = nb;
	for(u32 c=0;c<nb;c++) *p32++ = dsize[c];
	p = (char*)p32;
	for(u32 c=0;c<nb;c++)
	{	memcpy(p,data[c],dsize[c]);
		p += sizes[c+1];
	}
	free(sizes);
	//printf("create done\n");
	return k;
}

u32 keyGetSize(char*k){
	if( !k ){ printf("bad key in keyGetSize\n"); return 0; }
	if(*(u16*)k != 0x4242) return 0;
	k+=4; return *(u32*)k;
}

u32 keyGetNfo(char*k,struct keynfo *nfo)
{	if(*(u16*)k != 0x4242) return 0;
	nfo->type = (u16*)(k+2);
	nfo->size = (u32*)(k+4);
	nfo->ttl  = (u32*)(k+8);
	nfo->name = k+12;
	nfo->nb = (u32*)k;
	u32 tmp = strlen(nfo->name)+1; tmp = (tmp + (kalign - 1)) & -kalign;
	nfo->nb = (u32*)(k+12+tmp);
	nfo->sizes = &(nfo->nb[1]);
	nfo->data = (char**)malloc((*nfo->nb)*sizeof(char*));
	if( !nfo->data ){
		printf("malloc error in keyGetNfo\n");
		return 0;
	}
	char*nfodata = (char*)(nfo->sizes); nfodata += 4*(*nfo->nb);
	for(u32 c=0;c < *nfo->nb;c++)
	{	(nfo->data)[c] = nfodata;
		u32 size = nfo->sizes[c];
		size = (size + (kalign - 1)) & -kalign;
		nfodata += size;
	}	return 1;
}

char * rddGoToKey(char*rdd, u32 id)
{	u32  *p = (u32*)rdd; if(*p++ != 0x42424242) return 0;
	if(id >= *p++) return 0;
	for(u32 c=0;c<id;c++){ p++; p += ((*p)-4)>>2; }
	return (char*)p;
}

char ** rddGetAllKeys(char*rdd, u32*nb)
{	u32  *p = (u32*)rdd; if(*p++ != 0x42424242) { *nb=0; return 0; } *nb=*p++;
	char**out = (char**)malloc((*nb)*sizeof(char*));
	if( !out ){
		printf("malloc error in rddGetAllKeys\n");
		return 0;
	}
	for(u32 c=0;c<*nb;c++){
		out[c] = (char*)p++; p += ((*p)-4)>>2;
	}
	return out;
}

char ** rddGetKeys(char*rdd, char**filter, u32 nbfilter, u32 method, u32*nb)
{	u32  *p = (u32*)rdd; if(*p++ != 0x42424242) { *nb=0; return 0; }
	u32 nbkey;
	char**allk = rddGetAllKeys(rdd,&nbkey);
	char**validk = (char**)malloc(nbkey*sizeof(char*));
	if( !validk ){
		printf("malloc error in rddGetKeys\n");
		return 0;
	}
	u32 match;
	*nb=0;

	for(u32 c=0;c<nbkey;c++)
	{	char *k = allk[c];
		char *n = k+12;
		match = 0;
		for(u32 f=0;f<nbfilter;f++) if(wildMatch(filter[f],n)) match++;
		if( ( (match == nbfilter) && method ) || ( !match && !method ) ) { validk[*nb] = k; *nb = (*nb)+1; }
	}

	free(allk);
	return validk;
}

u32 rddFilter(char**rdd, char**filters, u32 nbfilters)
{	if(*(u32*)*rdd != 0x42424242) return 0;
	u32 nbkey;
	char ** keys = rddGetKeys(*rdd,filters,nbfilters,0, &nbkey);
	char *out = rddnew();
	rddAddKeys(&out,nbkey,keys);
	free(*rdd); free(keys); *rdd=out;
	return 1;
}

u32 rddMatch(char**rdd, char**filters, u32 nbfilters)
{	if(*(u32*)*rdd != 0x42424242) return 0;
	u32 nbkey;
	char ** keys = rddGetKeys(*rdd,filters,nbfilters,1, &nbkey);
	char *out = rddnew();
	rddAddKeys(&out,nbkey,keys);
	free(*rdd); free(keys); *rdd=out;
	return 1;
}

u32 rddTtl(char**rdd)
{	if(*(u32*)*rdd != 0x42424242) return 0;
	u32 nbkey, nbvalid=0;
	char ** keys = rddGetAllKeys(*rdd,&nbkey);
	char *out = rddnew();
	char **validk = (char**)malloc(nbkey*sizeof(char*));
	if( !validk ){
		printf("malloc error in rddTtl\n");
		return 0;
	}
	time_t now = time(NULL);
	struct keynfo nfo;
	for(u32 c=0;c<nbkey;c++)
	{	keyGetNfo(keys[c],&nfo);
		if( (*nfo.ttl ==  0) || (*nfo.ttl > now) )
		{	validk[nbvalid++] = keys[c];
		}	free(nfo.data);
	}
	rddAddKeys(&out,nbvalid,validk); free(validk);
	free(*rdd); free(keys); *rdd=out;
	return 1;
}

void rddMerge(char**rdd,char*add) // merge add into rdd
{	u32 addnb = 0;
	char**k = rddGetAllKeys(add,&addnb);
	rddAddKeys(rdd,addnb,k); free(k);
}

char * rddRedis(redisContext*rd,char*filter)
{	const char * const redisGetCmd[5] = { "GET %s", "LRANGE %s 0 -1", "SMEMBERS %s", "ZRANGE %s 0 -1 WITHSCORES", "HGETALL %s" };

	redisReply *keys = redisCommand(rd,"KEYS %s",filter);
	if(keys->type != REDIS_REPLY_ARRAY) return 0;

	char * rdd = rddnew();
	u32 nbkey = keys->elements; if(!nbkey) { freeReplyObject(keys); return rdd; }

	//printf("%u keys on %s\n",nbkey,filter);

	u8 *ktype = (u8*)malloc(nbkey);
	if( !ktype ){
		printf("malloc error in rddRedis\n");
		return 0;
	}
	time_t *kttl = (time_t*)malloc(nbkey*sizeof(time_t));
	if( !kttl ){
		printf("malloc error in rddRedis\n");
		free(ktype);
		return 0;
	}
	char **rddkeys = (char**)malloc(sizeof(char*)*nbkey);
	if( !rddkeys ){
		printf("malloc error in rddRedis\n");
		free(ktype);
		free(kttl);
		return 0;
	}

	redisReply *reply;

	for(u32 n=0;n<nbkey;n++){
		char*name = keys->element[n]->str;
		redisAppendCommand(rd,"TYPE %s",name); // get key type
		redisAppendCommand(rd,"TTL %s",name); // get ttl
	}

	time_t now = time(NULL);

	for(u32 n=0;n<nbkey;n++)
	{	redisGetReply(rd,(void**)&reply); // type
		//printf("key %u\n",n);
		u8 t = getType(reply->str); ktype[n] = t;
		//printf("type %u\n",t);
		freeReplyObject(reply);
		redisGetReply(rd,(void**)&reply); // ttl
		int i = reply->integer;
		if(i != -1) kttl[n] = now + i; else kttl[n]=0;
		//printf("ttl %u\n",kttl[n]);
		freeReplyObject(reply);
	}

	for(u32 n=0;n<nbkey;n++) redisAppendCommand(rd,redisGetCmd[ktype[n]],keys->element[n]->str); // get data

	u32 outKey = 0 ;
	for(u32 n=0;n<nbkey;n++){
		//printf("load key %u\n",n);
		redisGetReply(rd,(void**)&reply);

		if( reply->type == REDIS_REPLY_ERROR ){
			printf("redis error, cannot get key %u [%s]\n",n,reply->str);
			//printf("[%s]",keys->element[n]->str);

			freeReplyObject(reply);
			continue; // skip key
		}

		if(reply->type == REDIS_REPLY_STRING)
		{	u32 datasize = reply->len;
			rddkeys[outKey++] = keyCreate(keys->element[n]->str,ktype[n],1,kttl[n],&datasize,&reply->str);
			//printf("key %u 0x%08X\n", n, rddkeys[n]);
		}
	       else
		if(reply->type == REDIS_REPLY_ARRAY)
		{	u32 nbres = reply->elements;
			char ** data = (char**)malloc(nbres*sizeof(char*));
			if( !data ){
				printf("malloc error in rddRedis, key %u\n",n);
				break ;
			}
		
			u32 *datasize = (u32*)malloc(nbres*4);
			if( !datasize ){
				printf("malloc error in rddRedis, key %u\n",n);
				free(data);
				break ;
			}

			for(u32 c=0;c<nbres;c++)
			{	datasize[c] = reply->element[c]->len;
				data[c] = reply->element[c]->str;
			}

			rddkeys[outKey++] = keyCreate(keys->element[n]->str,ktype[n],nbres,kttl[n],datasize,data);
			//printf("key %u %8X\n", n, rddkeys[n]);
			free(data); free(datasize);
		}
			else {
			printf("unknow redis reply type %u\n",reply->type);
		}
		freeReplyObject(reply);
	}

	freeReplyObject(keys);

	//printf("loaded.\n");

	rddAddKeys(&rdd, outKey, rddkeys);

	//printf("keys added.\n");

	for(u32 n=0;n<nbkey;n++) free(rddkeys[n]); free(rddkeys); free(ktype); free(kttl);
	return rdd;
}

void rddRedisDelete(redisContext*rd,char*rdd)
{	u32 nb=0; char **keys = rddGetAllKeys(rdd,&nb);
	int argnb = nb+1;

	const char ** cargv = (const char**) malloc( argnb*(sizeof(char*)) );
	if( !cargv ){
		printf("malloc error in rddRedisDelete\n");
		return;
	}

	size_t *cargl = (size_t*)malloc( argnb*(sizeof(size_t*)) );
	if( !cargl ){
		printf("malloc error in rddRedisDelete\n");
		free( cargv );
		return;
	}

	cargv[0] = "DEL";
	cargl[0] = 3;

	for(u32 c=0;c<nb;c++)
	{	char*n = (keys[c])+12;
		cargv[c+1] = n;
		cargl[c+1] = strlen(n);
	}
	redisReply * reply = redisCommandArgv(rd, argnb, cargv, cargl);

	//printf("%i keys where removed from redis.\n",reply->integer);

	free(cargv);
	free(cargl);
	free(keys);
}


u32 rddRedisInsert(redisContext*rd,char*rdd)
{	rddRedisDelete(rd,rdd);
	const char * const redisSetCmd[5] = { "SET", "RPUSH", "SADD", "ZADD", "HMSET" };
	u32 nb=0; char **keys = rddGetAllKeys(rdd,&nb);

	for(u32 c=0;c<nb;c++)
	{	struct keynfo k;
		keyGetNfo(keys[c],&k);

		int argnb = (*k.nb) + 2;

		const char ** cargv = (const char**) malloc( argnb*(sizeof(char*)) );
		if( !cargv ){
			printf("malloc error in rddRedisInsert\n");
			return 0;
		}

		size_t *cargl = (size_t*)malloc( argnb*(sizeof(size_t*)) );
		if( !cargl ){
			printf("malloc error in rddRedisInsert\n");
			free( cargv );
			return 0;
		}

		cargv[0] = redisSetCmd[*k.type];
		cargl[0] = strlen(cargv[0]);

		cargv[1] = (const char *)k.name;
		cargl[1] = strlen(cargv[1]);

		if(*k.type == 3)	// zset, need invert args...
		{	for(u32 n=0;n<(*(k.nb));n+=2)
			{	cargv[n+2] = (const char *)(k.data[n+1]); // score
				cargl[n+2] = k.sizes[n+1];
				cargv[n+3] = (const char *)(k.data[n]); // data
				cargl[n+3] = k.sizes[n];
			}
		} else {

			for(u32 n=0;n<(*(k.nb));n++)
			{	cargv[n+2] = (const char *)(k.data[n]);
				cargl[n+2] = k.sizes[n];
			}
		}

		redisAppendCommandArgv(rd, argnb, cargv, cargl);

		free(k.data);
		free(cargv);
		free(cargl);
	}

	for(u32 c=0;c<nb;c++)
	{	struct keynfo k;
		keyGetNfo(keys[c],&k);
		time_t now = time(NULL);
		if(*k.ttl != 0)
		{	u32 ttl = *k.ttl - now;
			redisCommand(rd,"EXPIRE %s %u",k.name,ttl);
		}	free(k.data);
	}

	free(keys);

	redisReply * reply;
	for(u32 c=0;c<nb;c++)
	{	redisGetReply(rd,(void**)&reply);
		freeReplyObject(reply);
	}
	return 1;
}

/*
char * rddLoad(char*fname)
{	FILE *f = fopen(fname,"r"); fseek(f,0,SEEK_END); u32 fsize = ftell(f); fseek(f,0,SEEK_SET);
	void *data = malloc(fsize);
	if(fread(data,fsize,1,f)!=1) return 0;
	fclose(f); return (char*)data;
}
*/

char * rddLoad(char*fname){
    FILE *f = fopen(fname,"r"); fseek(f,0,SEEK_END); u32 fsize = ftell(f); fseek(f,0,SEEK_SET);

    void *data = malloc( fsize );
    if( !data ){
        printf("malloc error in rddLoad\n");
        fclose(f);
        return 0;
    }

    if( fread( data, fsize, 1, f ) != 1 ){
        printf("read error in rddLoad\n");
        free(data);
        data = 0;
    }

    fclose(f); return (char*)data;
}

char * rddnew(void){
	u32 *rdd = (u32*)malloc(8);
	if( !rdd ){
		printf("malloc error in rddNew, wtf ?\n");
		return 0;
	}

	*rdd = 0x42424242; rdd[1]=0;
	return (char*)rdd;
}

u32 rddGetSize(char*rdd){
	u32  *p = (u32*)rdd; if(*p++ != 0x42424242) return 0;
	u32 size=8;
	u32 nbkey = *p++;
	char *cp = (char*)p;
	for(u32 c=0;c<nbkey;c++)
	{	u32 sz = *++p;
		cp+=sz; p = (u32*)cp;
		size+=sz;
	}
	return size;
}

void rddSave(char*rdd, char*fname)
{	FILE * f = fopen(fname,"wb");
	fwrite(rdd,1,rddGetSize(rdd),f);
	fclose(f);
}

u32 rddAddKeys(char**rdd, u32 nbk, char**kkeys)
{	if(*(u32*)*rdd != 0x42424242) return 0;
	u32 size = rddGetSize(*rdd);
	u32 nsize = size;
	
	u32*ksize = (u32*)malloc(nbk*4);
	if( !ksize ){
		printf("malloc error in rddAddKey\n");
		return 0;
	}

	char**keys = (char**)malloc(nbk*sizeof(char*));
	if( !keys ){
		printf("malloc error in rddAddKey\n");
		free( ksize );
		return 0;
	}

	u32 nb = 0;

	//printf("check key exist\n");

	for(u32 c=0;c<nbk;c++)
	{	if(0xffffffff == rddHasKey(*rdd,kkeys[c]+12)) keys[nb++] = kkeys[c];
	}

	//printf("get keys sizes\n");

	for(u32 c=0;c<nb;c++)
	{	u32 tmp = keyGetSize(keys[c]);
		ksize[c] = tmp; nsize += tmp;
		//printf("key %u, size %u\n",c,tmp);
	}

	*rdd = (char*)realloc((void*)*rdd,nsize);
	if( !rdd ){
		printf("realloc error in rddAddKey\n");
		free(ksize);
		free(keys);
		return 0;
	}

	*(u32*)((*rdd)+4) += nb; // write new rddkey nb
	char *p = *rdd; p += size;
	for(u32 c=0;c<nb;c++)
	{	memcpy(p,keys[c],ksize[c]);
		p+=ksize[c];
	}
	free(ksize);
	free(keys);
	return 1;
}

void keyPrint(char*key)
{	struct keynfo k;
	keyGetNfo(key,&k);
	char * header = "------------------";
	printf("%s\n%s, %u elements, ttl %d\n",header,getTypeName(k.type),*k.nb,*k.ttl);
	for(u32 c=0;c<*k.nb;c++)
	{	if(k.sizes[c])
		{	char *p = &(k.data[c][k.sizes[c]]); p--; char save = *p; *p = 0;
			printf("%2u %u\t[%*s%c]\n",c,k.sizes[c],k.sizes[c]-1,k.data[c],save); *p = save;
		} else printf("%2u %u\t[]\n",c,k.sizes[c]);
	}
	printf("%s\n",header);
	free(k.data);
}

void rddPrint(char*rdd,u32 verbose)
{	if(*(u32*)rdd != 0x42424242) { printf("error, not a rdd\n"); return; }
	u32 nbkey; char ** keys = rddGetAllKeys(rdd,&nbkey);

	u32 digit=1, limit=10; while(nbkey > limit){ limit*=10; digit++; }

	char * header = "----------------------------------------------------";
	printf("%s\n---- %u keys (%uo)\n%s\n",header,nbkey,rddGetSize(rdd),header);
	for(u32 c=0;c<nbkey;c++)
	{	printf("-%*u- %s\n",digit,c,keys[c]+12);
		if(verbose>1) keyPrint(keys[c]);
	}
	free(keys);
	printf("%s\n",header);
}

void rddRedisConnect(redisContext ** rd, char*server, u32 port, u32 db, char * pass)
{	struct timeval timeout = { 1, 500000 };

	if( !port )
		*rd = redisConnectUnix(server);
	else
		*rd = redisConnectWithTimeout(server,port,timeout);

	if ((*rd)->err) {
	    printf("\nredis connection error: %s\n", (*rd)->errstr);
	    exit(1);
	}

	if(pass)
	{	redisReply *reply = redisCommand(*rd,"AUTH %s",pass);
		if(strcmp(reply->str,"OK"))
		{	printf("\nredis password error\n");
			exit(1);
		}	free(reply);
	}

	if(db)
	{	redisReply *reply = redisCommand(*rd,"SELECT %u",db);
		if(strcmp(reply->str,"OK"))
		{	printf("\nredis select db (%u) error\n",db);
			exit(1);
		}	free(reply);
	}
}

u32 rddRename(char**rdd,char*match,char*replace)
{	if(*(u32*)*rdd != 0x42424242) return 0;
	u32 nbkey, nbmatch=0, matchlen = strlen(match), replacelen = strlen(replace);
	char ** keys = rddGetAllKeys(*rdd,&nbkey);
	char *out = rddnew();
	char **outk = (char**)malloc(nbkey*sizeof(char*));
	if( !outk ){
		printf("malloc error in rddRename\n");
		return 0;
	}
	char **matchk = (char**)malloc(nbkey*sizeof(char*));
	if( !matchk ){
		printf("malloc error in rddRename\n");
		free( outk );
		return 0;
	}
	struct keynfo nfo;

	for(u32 c=0;c<nbkey;c++)
	{	keyGetNfo(keys[c],&nfo);
		char * pos = strstr(nfo.name,match);
		if(!pos) // not match, simple copie
		{	outk[c] = keys[c];
		} else { // match, patch key name
			char * name = nfo.name;
			u32  len = strlen(name);
			u32 nlen = (len-matchlen)+replacelen;
			char * newName =  (char*)malloc(nlen+1);
			if( !newName ){
				printf("malloc error in rddRename, key %u %s\n",c,name);
				break;
			}
			char * nptr = newName;
			u32 startlen = pos-name;
			memcpy(nptr,name,startlen);
			nptr += startlen; *nptr = 0;
			startlen += matchlen;
			name += startlen;

			memcpy(nptr,replace,replacelen);
			nptr += replacelen; *nptr=0;

			u32 finalsize = len-startlen;

			memcpy(nptr,name,finalsize);
			nptr += finalsize; *nptr = 0;

			matchk[nbmatch] = keyCreate(newName,*nfo.type,*nfo.nb,*nfo.ttl,nfo.sizes,nfo.data);
			free(newName);
			outk[c] = matchk[nbmatch++];
		}

		free(nfo.data);
	}

//	if(nbmatch) printf("replace [%s] with [%s] in %u keys, %u match.\n",match,replace,nbkey,nbmatch);

	rddAddKeys(&out,nbkey,outk); free(outk);
	for(u32 cpt=0;cpt<nbmatch;cpt++) free(matchk[cpt]); free(matchk);
	free(keys); free(*rdd); *rdd=out;
	return 1;
}

int main(int argc,char **argv)
{	char redisserver[1024] = "127.0.0.1\0";
	u32  redisport = 6379;
	u32  redisdb = 0;
	char *redisauth = 0;
	char *input[255];	// rdd/redis inputs
	u32 inputnb = 0;
	char *filter[255];	// filter to trim from output
	u32 filternb = 0;
	char *match[255];	// filter to keep from output
	u32 matchnb = 0;
	char *find[255]; // string to find in key names
	char *replace[255];
	u32 mvkeynb = 0;
	char *out = 0;
	char verbose=0;

	redisContext *redis = 0;

	int i=1, filterflag=0; // 0:input, 1:filter, 2:match, 3:rename
	while(i < argc)
	{	if(!strcmp(argv[i],"-h"))
		{	printf("rdd\t-- redis database dumper 0.4 --\n\t-- © 2012~2025 noferi mickaël (r043v/dph) --\n\t-- noferov@gmail.com -- github.com/r043v/rdd --\n\nusage:\t-h\t\tshow this help screen\n\t-v\t\tincrease verbose (up to 2)\n\t[-i]\t\tfile.rdd &| redis patterns : inputs (will be merged)\n\t-m\t\twillcard match patterns to keep from input\n\t-f\t\twillcard filter patterns to trim from input\n\t-mv\t\trename keys => -mv find replace find2 replace2\n\t-o insert\tinsert output keys in redis\n\t-o delete\tremove output keys from redis\n\t-o file.rdd\tsave output keys into file.rdd\n\t-s host\t\tredis server host|socket\n\t-p port number\tredis server port, 0 for unix socket\n\t-a password\tset authentication password\n\t-d database\tselect redis database\n"); return 0;
		}

		if(!strcmp(argv[i],"-s"))
		{	if(argc < i+2) return 1;
			char*server=argv[++i]; if(strlen(redisserver) > 1024) return 1; strcpy(redisserver,server); i++; continue;
		}

		if(!strcmp(argv[i],"-p"))
		{	if(argc < i+2) return 1;
			redisport = (u32)atoi(argv[++i]);
			i++; continue;
		}

		if(!strcmp(argv[i],"-d"))
		{	if(argc < i+2) return 1;
			redisdb = (u32)atoi(argv[++i]);
			i++; continue;
		}

		if(!strcmp(argv[i],"-a"))
		{	if(argc < i+2) return 1;
			redisauth=argv[++i];
			i++; continue;
		}

		if(!strcmp(argv[i],"-o"))
		{	if(argc < i+2) return 1;
			out=argv[++i];
			i++; continue;
		}

		if(!strcmp(argv[i],"-v")){ i++; verbose++; continue; }

		if(!strcmp(argv[i],"-i")){filterflag=0; i++; continue;}
		if(!strcmp(argv[i],"-f")){filterflag=1; i++; continue;}
		if(!strcmp(argv[i],"-m")){filterflag=2; i++; continue;}
		if(!strcmp(argv[i],"-mv")){filterflag=3; i++; continue;}

		if(!filterflag)   { input[inputnb++] = argv[i++]; continue; }
		if(filterflag==1) { filter[filternb++] = argv[i++]; continue; }
		if(filterflag==2) { match[matchnb++] = argv[i++]; continue; }
		if(filterflag==3) { find[mvkeynb] = argv[i++];
				    replace[mvkeynb++] = argv[i++];
				    continue;
				  }
		i++;
	}

	if(inputnb == 0) // no input mean all redis keys
	{	input[inputnb++] = (char*)"*";
	}

	char *inputrdd = rddnew();

	//printf("load inputs ...\n");

	for(u32 cpt=0;cpt<inputnb;cpt++)
	{	char *rdd;
		if(NULL == strstr(input[cpt],".rdd")) // redis;
		{	if(!redis) rddRedisConnect(&redis,redisserver,redisport,redisdb,redisauth);
			rdd = rddRedis(redis,input[cpt]);
		}
		else
		{	rdd = rddLoad(input[cpt]);
			//if(!rdd) { printf("rdd load error on [%s]",input[cpt]); exit(1); }
		}
		if(!rdd) { printf("rdd load error on [%s]",input[cpt]); exit(1); }
		//printf("merge\n");
		rddMerge(&inputrdd,rdd); free(rdd);
		//printf("done\n");
	}

	//printf("loaded\n");

	if(filternb) rddFilter(&inputrdd,filter,filternb);
	if(matchnb)  rddMatch(&inputrdd,match,matchnb);

	for(u32 cpt=0;cpt<mvkeynb;cpt++)
		rddRename(&inputrdd,find[cpt],replace[cpt]);

	rddTtl(&inputrdd);

	if(out)
	{	if(!strcmp(out,"insert")) // insert keys in redis
		{	if(!redis) rddRedisConnect(&redis,redisserver,redisport,redisdb,redisauth);
			rddRedisInsert(redis,inputrdd);
		}
		else
		if(!strcmp(out,"delete")) // delete keys in redis
		{	if(!redis) rddRedisConnect(&redis,redisserver,redisport,redisdb,redisauth);
			rddRedisDelete(redis,inputrdd);
		}
		else
		{	if(NULL != strstr(out,".rdd")) rddSave(inputrdd,out); else verbose++;
		}
	} else verbose++;

	if(verbose) rddPrint(inputrdd,verbose);

	free(inputrdd); if(redis) redisFree(redis);
	return 0;
}