#include <config.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/mman.h>
#include <fcntl.h>
#include <netinet/in.h>
#include <syslog.h>
#include <errno.h>
#include <ctype.h>
#include <limits.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include "exitcodes.h"
#include "index.h"
#include "global.h"
#include "mboxlist.h"
#include "mailbox.h"
#include "map.h"
#include "xmalloc.h"
const int config_need_data = CONFIG_NEED_PARTITION_DATA;
static const char *index_base;
static unsigned long index_len;
static unsigned long start_offset;
static unsigned long record_size;
void usage(void)
{
fprintf(stderr, "chk_cyrus [-C <altconfig>] partition\n");
exit(-1);
}
const char *check_part = NULL;
static int chkmbox(char *name,
int matchlen __attribute__((unused)),
int maycreate __attribute__((unused)),
void *rock __attribute__((unused)))
{
int r;
char *part, *path;
unsigned long real_len;
int fd=-1;
int i,exists;
struct stat sbuf;
index_base = NULL;
r = mboxlist_detail(name, NULL, &path, &part, NULL, NULL);
if(r) {
fprintf(stderr, "bad mailbox %s in chkmbox\n", name);
fatal("fatal error",EC_TEMPFAIL);
}
if(check_part && strcmp(part,check_part)) goto done;
fprintf(stderr, "checking: %s (%s)\n", name, path);
if(chdir(path) == -1) {
fprintf(stderr, "can't chdir to %s\n", path);
printf("%s\n",path);
goto done;
}
fd = open("cyrus.index", O_RDONLY, 0666);
if(fd == -1) {
fprintf(stderr, "can't open cyrus.index\n");
printf("%s\n",path);
goto done;
}
if(fstat(fd, &sbuf) == -1) {
fprintf(stderr, "can't stat cyrus.index\n");
printf("%s\n",path);
goto done;
}
index_len = sbuf.st_size;
real_len = 0;
map_refresh(fd, 1, &index_base, &real_len, index_len,
"cyrus.index", name);
if(!index_base) {
fprintf(stderr, "mmap failed\n");
exit(3);
}
exists = ntohl(*((bit32 *)(index_base + OFFSET_EXISTS)));
start_offset =
ntohl(*((bit32 *)(index_base+OFFSET_START_OFFSET)));
record_size =
ntohl(*((bit32 *)(index_base+OFFSET_RECORD_SIZE)));
fprintf(stderr, " -> %d records\n", exists);
if(real_len < (exists * record_size + start_offset)) {
fprintf(stderr, " -> Oversized Exists Value %d\n", exists);
printf("%s\n",path);
fflush(stdout);
} else {
for(i=1;i<=exists;i++) {
char filebuf[1024];
snprintf(filebuf, sizeof(filebuf), "%s/%d.", path, UID(i));
if(stat(filebuf, &sbuf) == -1) {
fprintf(stderr, " -> %s missing\n", filebuf);
printf("%s\n",filebuf);
fflush(stdout);
}
}
}
done:
if(index_base) map_free(&index_base, &real_len);
if(fd != -1) close(fd);
return 0;
}
int main(int argc, char **argv)
{
char *alt_config = NULL;
char pattern[2] = { '*', '\0' };
const char *mailbox = NULL;
extern char *optarg;
int opt;
while ((opt = getopt(argc, argv, "C:P:M:")) != EOF) {
switch (opt) {
case 'C':
alt_config = optarg;
break;
case 'P':
if(mailbox) {
usage();
exit(EC_USAGE);
}
check_part = optarg;
break;
case 'M':
if(check_part) {
usage();
exit(EC_USAGE);
}
mailbox = optarg;
break;
default:
usage();
}
}
cyrus_init(alt_config, "chk_cyrus", 0);
mboxlist_init(0);
mboxlist_open(NULL);
if(mailbox) {
fprintf(stderr, "Examining mailbox: %s\n", mailbox);
chkmbox((char *)mailbox,0,0,NULL);
} else {
fprintf(stderr, "Examining partition: %s\n",
(check_part ? check_part : "ALL PARTITIONS"));
mboxlist_findall(NULL, pattern, 1, NULL,
NULL, chkmbox, NULL);
}
mboxlist_close();
mboxlist_done();
cyrus_done();
return 0;
}