Page MenuHomePhorge
Files F120825312

seen_local.c
No OneTemporary
Actions

Authored By
Unknown
Size
10 KB
Referenced Files
None
Subscribers
None

seen_local.c
View Options

/* seen_local.c -- Storage for /Recent and /Seen state on local filesystem
*
* (C) Copyright 1994 by Carnegie Mellon University
*
* All Rights Reserved
*
* Permission to use, copy, modify, and distribute this software and its
* documentation for any purpose and without fee is hereby granted,
* provided that the above copyright notice appear in all copies and that
* both that copyright notice and this permission notice appear in
* supporting documentation, and that the name of CMU not be
* used in advertising or publicity pertaining to distribution of the
* software without specific, written prior permission.
*
* CMU DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
* ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
* CMU BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
* ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
* WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
* ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
* SOFTWARE.
*
*/
#include <stdio.h>
#include <errno.h>
#include <ctype.h>
#include <strings.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <syslog.h>
#include "assert.h"
#include "mailbox.h"
#include "imap_err.h"
#include "xmalloc.h"
extern int errno;
#define FNAME_SEEN "/cyrus.seen"
struct seen {
FILE *file;
long offset;
long length;
long size;
struct mailbox *mailbox;
char *user;
};
/*
* Open the database for 'user's state in 'mailbox'.
* Returns pointer to abstract database type in buffer pointed to
* by 'seendbptr'.
*/
int seen_open(mailbox, user, seendbptr)
struct mailbox *mailbox;
char *user;
struct seen **seendbptr;
{
struct seen *seendb;
char fnamebuf[MAX_MAILBOX_PATH];
seendb = (struct seen *)xmalloc(sizeof(struct seen));
seendb->mailbox = mailbox;
seendb->user = strsave(user);
strcpy(fnamebuf, mailbox->path);
strcat(fnamebuf, FNAME_SEEN);
seendb->file = fopen(fnamebuf, "r+");
if (!seendb->file) {
syslog(LOG_ERR, "IOERROR: opening %s: %m", fnamebuf);
return IMAP_IOERROR;
}
seendb->offset = 0;
seendb->mailbox->seen_lock_count = 0;
*seendbptr = seendb;
return 0;
}
/*
* Lock the database (if it isn't locked already) and read the user's
* entry, returning it in the buffers pointed to by 'lastreadptr',
* 'lastuidptr', and 'seenuidsptr'. A malloc'ed string is placed in
* the latter and the caller is responsible for freeing it.
*/
#define BUFGROW 512
int seen_lockread(seendb, lastreadptr, lastuidptr, lastchangeptr, seenuidsptr)
struct seen *seendb;
time_t *lastreadptr;
unsigned *lastuidptr;
time_t *lastchangeptr;
char **seenuidsptr;
{
int r;
char fnamebuf[MAX_MAILBOX_PATH];
struct stat sbuf;
char *lockfailaction;
char *buf = 0, *p;
unsigned long left;
int length;
strcpy(fnamebuf, seendb->mailbox->path);
strcat(fnamebuf, FNAME_SEEN);
/* Lock the database */
if (!seendb->mailbox->seen_lock_count) {
r = lock_reopen(fileno(seendb->file), fnamebuf, &sbuf,
&lockfailaction);
if (r == -1) {
syslog(LOG_ERR, "IOERROR: %s %s: %m", lockfailaction, fnamebuf);
return IMAP_IOERROR;
}
seendb->mailbox->seen_lock_count = 1;
seendb->size = sbuf.st_size;
}
/* Find record for user */
seendb->offset = n_binarySearchFD(fileno(seendb->file), seendb->user,
0, &buf, &left,
seendb->offset, seendb->size);
if (seendb->offset == -1) {
syslog(LOG_ERR, "IOERROR: searching %s: %m", fnamebuf);
return IMAP_IOERROR;
}
*lastreadptr = 0;
*lastuidptr = 0;
*lastchangeptr = 0;
if (!left) {
/* No record for user */
seendb->length = 0;
*seenuidsptr = strsave("");
return 0;
}
/* Skip over username we know is there */
length = strlen(seendb->user)+1;
buf += length;
left -= length;
/* Parse last-read timestamp */
while (left && isdigit(*buf)) {
*lastreadptr = *lastreadptr * 10 + *buf++ - '0';
left--;
length++;
}
if (left && *buf != '\n') {
left--;
length++;
buf++;
}
/* Parse last-read uid */
while (left && isdigit(*buf)) {
*lastuidptr = *lastuidptr * 10 + *buf++ - '0';
left--;
length++;
}
if (left && *buf != '\n') {
left--;
length++;
buf++;
}
/* Scan for end of uids or last-change timestamp */
p = buf;
while (left && !isspace(*p)) {
p++;
left--;
length++;
}
if (left > 1 && p[0] == ' ' && isdigit(p[1])) {
/* Have a last-change timestamp */
while (buf < p) {
*lastchangeptr = *lastchangeptr * 10 + *buf++ - '0';
}
buf++;
p++;
left--;
length++;
/* Scan for end of uids */
while (left && !isspace(*p)) {
p++;
left--;
length++;
}
}
/* Copy what we have so far into malloc'ed space */
*seenuidsptr = xmalloc(p - buf + 1);
strncpy(*seenuidsptr, buf, p - buf);
(*seenuidsptr)[p - buf] = '\0';
while (!left) {
/* Grow the malloc'ed space and read more data into it */
*seenuidsptr = xrealloc(*seenuidsptr, strlen(*seenuidsptr)+BUFGROW+1);
p = *seenuidsptr + strlen(*seenuidsptr);
fseek(seendb->file, seendb->offset + length, 0);
left = fread(p, 1, BUFGROW, seendb->file);
/* Keep scanning for the end of uids */
while (left && !isspace(*p)) {
p++;
left--;
length++;
}
if (!left) *p = '\0';
}
/* Scan for terminating newline */
while (left && *p != '\n') {
*p++ = '\0'; /* In case we have to terminate *seenuidsptr */
left--;
length++;
}
if (!left) {
/* Read more data, keep scanning for terminating newline */
fseek(seendb->file, seendb->offset + length, 0);
left = fread(fnamebuf, 1, sizeof(fnamebuf), seendb->file);
p = fnamebuf;
while (left && *p != '\n') {
p++;
left--;
length++;
}
}
*p = '\0'; /* In case we have to terminate *seenuidsptr */
length++; /* Count the terminating newline */
seendb->length = length;
return 0;
}
/*
* Write out new data for the user
*/
#define PADSIZE 30
#define PRUNESIZE 100
int seen_write(seendb, lastread, lastuid, lastchange, seenuids)
struct seen *seendb;
time_t lastread;
unsigned lastuid;
time_t lastchange;
char *seenuids;
{
char timeuidbuf[80];
int length;
FILE *writefile;
int replace;
char fnamebuf[MAX_MAILBOX_PATH];
char newfnamebuf[MAX_MAILBOX_PATH];
int n, left;
char buf[4096];
assert(seendb->mailbox->seen_lock_count != 0);
sprintf(timeuidbuf, "%u %u %u", lastread, lastuid, lastchange);
length = strlen(seendb->user)+1+strlen(timeuidbuf)+1+strlen(seenuids);
/* Replace the entire file if existing record too short or too long */
replace = (length >= seendb->length || length+PRUNESIZE < seendb->length);
if (replace) {
strcpy(fnamebuf, seendb->mailbox->path);
strcat(fnamebuf, FNAME_SEEN);
strcpy(newfnamebuf, fnamebuf);
strcat(newfnamebuf, ".NEW");
writefile = fopen(newfnamebuf, "w+");
if (!writefile) {
syslog(LOG_ERR, "IOERROR: creating %s: %m", newfnamebuf);
return IMAP_IOERROR;
}
/* Copy the part of file before the user's entry */
fseek(seendb->file, 0, 0);
left = seendb->offset;
while (left) {
n = fread(buf, 1, left < sizeof(buf) ? left : sizeof(buf),
seendb->file);
if (n == 0) {
syslog(LOG_ERR, "IOERROR: reading %s: %m", fnamebuf);
fclose(writefile);
unlink(newfnamebuf);
return IMAP_IOERROR;
}
fwrite(buf, 1, n, writefile);
left -= n;
}
}
else {
/* Just seek to the user's old record */
writefile = seendb->file;
fseek(writefile, seendb->offset, 0);
}
fprintf(writefile, "%s\t%s %s", seendb->user, timeuidbuf, seenuids);
if (replace) {
/* Write out extra padding, newline, adjust length */
for (n = 0; n < PADSIZE; n++) {
buf[n] = ' ';
}
buf[n] = '\n';
fwrite(buf, 1, PADSIZE+1, writefile);
length += PADSIZE+1;
/* Skip over old record, Copy part of file after user's entry */
if (seendb->length) fseek(seendb->file, seendb->length, 1);
while (n = fread(buf, 1, sizeof(buf), seendb->file)) {
fwrite(buf, 1, n, writefile);
}
/* Flush and swap in the new file */
fflush(writefile);
if (ferror(writefile) || fsync(fileno(writefile)) ||
lock_blocking(fileno(writefile)) == -1 ||
rename(newfnamebuf, fnamebuf) == -1) {
syslog(LOG_ERR, "IOERROR: writing %s: %m", newfnamebuf);
fclose(writefile);
unlink(newfnamebuf);
return IMAP_IOERROR;
}
fclose(seendb->file);
seendb->file = writefile;
seendb->length = length;
}
else {
/* Write out extra padding */
while (++length < seendb->length) putc(' ', writefile);
fflush(writefile);
if (ferror(writefile) || fsync(fileno(writefile))) {
syslog(LOG_ERR, "IOERROR: creating %s: %m", newfnamebuf);
return IMAP_IOERROR;
}
}
return 0;
}
/*
* Unlock the database
*/
int seen_unlock(seendb)
struct seen *seendb;
{
int r;
if (seendb->mailbox->seen_lock_count == 0) return 0;
seendb->mailbox->seen_lock_count = 0;
r = lock_unlock(fileno(seendb->file));
if (r == -1) {
syslog(LOG_ERR, "IOERROR: unlocking seen db for %s: %m",
seendb->mailbox->name);
return IMAP_IOERROR;
}
return 0;
}
/*
* Close the database
*/
int seen_close(seendb)
struct seen *seendb;
{
fclose(seendb->file);
free(seendb->user);
free((char *)seendb);
return 0;
}
/*
* Make the \Seen database for the newly created mailbox 'mailbox'.
*/
int
seen_create(mailbox)
struct mailbox *mailbox;
{
char fnamebuf[MAX_MAILBOX_PATH];
FILE *f;
strcpy(fnamebuf, mailbox->path);
strcat(fnamebuf, FNAME_SEEN);
f = fopen(fnamebuf, "w");
if (!f) {
syslog(LOG_ERR, "IOERROR: creating %s: %m", fnamebuf);
return IMAP_IOERROR;
}
fclose(f);
return 0;
}
/*
* Remove the \Seen database for the mailbox 'mailbox'.
*/
int
seen_delete(mailbox)
struct mailbox *mailbox;
{
char fnamebuf[MAX_MAILBOX_PATH];
FILE *f;
int r;
char *lockfailaction;
strcpy(fnamebuf, mailbox->path);
strcat(fnamebuf, FNAME_SEEN);
f = fopen(fnamebuf, "r+");
if (!f) {
syslog(LOG_ERR, "IOERROR: opening %s: %m", fnamebuf);
return IMAP_IOERROR;
}
r = lock_reopen(fileno(f), fnamebuf, 0, &lockfailaction);
if (r == -1) {
syslog(LOG_ERR, "IOERROR: %s %s: %m", lockfailaction, fnamebuf);
fclose(f);
return IMAP_IOERROR;
}
unlink(fnamebuf);
fclose(f);
return 0;
}
int seen_copy(oldmailbox, newmailbox)
struct mailbox *oldmailbox;
struct mailbox *newmailbox;
{
char oldfname[MAX_MAILBOX_PATH];
char newfname[MAX_MAILBOX_PATH];
strcpy(oldfname, oldmailbox->path);
strcat(oldfname, FNAME_SEEN);
strcpy(newfname, newmailbox->path);
strcat(newfname, FNAME_SEEN);
return mailbox_copyfile(oldfname, newfname);
}
int seen_reconstruct(mailbox)
struct mailbox *mailbox;
{
char fnamebuf[MAX_MAILBOX_PATH];
FILE *file;
strcpy(fnamebuf, mailbox->path);
strcat(fnamebuf, FNAME_SEEN);
file = fopen(fnamebuf, "r+");
if (file) {
fclose(file);
return 0;
}
return seen_create(mailbox);
}

File Metadata

Mime Type
text/x-c
Expires
Fri, Apr 24, 10:36 AM (2 h, 27 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
18873357
Default Alt Text
seen_local.c (10 KB)

Event Timeline