simple-cache.c 62.8 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
2
 * $Id: simple-cache.c,v 0.90 2000/04/28 20:49:31 ceder Exp $
3
 * Copyright (C) 1991-1999  Lysator Academic Computer Association.
Linus Tolke Y's avatar
Linus Tolke Y committed
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
 *
 * This file is part of the LysKOM server.
 * 
 * LysKOM is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by 
 * the Free Software Foundation; either version 1, or (at your option) 
 * any later version.
 * 
 * LysKOM is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 * for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with LysKOM; see the file COPYING.  If not, write to
 * Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
 * or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, 
 * MA 02139, USA.
 *
 * Please mail bug reports to bug-lyskom@lysator.liu.se. 
 */
Per Cederqvist's avatar
Per Cederqvist committed
25 26 27 28 29 30 31 32 33
/*
 * This module contains some simple simulations of the routines in
 * cache.c.
 *
 * Extracted from ram-cache.c and rewritten by ceder.
 *
 * New database format with texts in their own file by Inge Wallin.
 *
 * New save algorithm by ceder.
David Byers's avatar
David Byers committed
34
 * Attempt at newer algorithm by byers (FASTSAVE)
Per Cederqvist's avatar
Per Cederqvist committed
35 36
 */

David Byers's avatar
David Byers committed
37 38 39 40 41

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif

42
static const char *
43
rcsid = "$Id: simple-cache.c,v 0.90 2000/04/28 20:49:31 ceder Exp $";
44 45
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
46

Per Cederqvist's avatar
Per Cederqvist committed
47 48
#include <errno.h>
#include <stdio.h>
David Byers's avatar
Server:  
David Byers committed
49 50 51
#ifdef HAVE_STDLIB_H
#   include <stdlib.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
52
#include <sys/types.h>
53 54 55
#ifdef HAVE_UNISTD_H
#   include <unistd.h>
#endif
56 57 58
#ifdef HAVE_STRING_H
#  include <string.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
59 60 61 62
#ifndef SEEK_END
#  include <fcntl.h>
#endif
#ifndef SEEK_END
Per Cederqvist's avatar
Per Cederqvist committed
63 64 65
#  define SEEK_SET 0
#  define SEEK_END 2
#endif
Per Cederqvist's avatar
Per Cederqvist committed
66 67 68
#include <time.h>
#include <setjmp.h>

69
#include "ldifftime.h"
Per Cederqvist's avatar
Per Cederqvist committed
70 71
#include "exp.h"
#include "misc-types.h"
72
#include "s-string.h"
Per Cederqvist's avatar
Per Cederqvist committed
73 74 75 76 77 78 79 80 81 82 83 84 85
#include "kom-types.h"
#include "cache-node.h"
#include "cache.h"
#include "parser.h"
#include "ram-parse.h"
#include "ram-output.h"
#include "server/smalloc.h"
#include "kom-memory.h"
#include "lyskomd.h"
#include "debug.h"
#include "kom-errno.h"
#include "log.h"
#include "com.h"
86
#include "async.h"
Per Cederqvist's avatar
Per Cederqvist committed
87 88
#include "connections.h"
#include "send-async.h"
89
#include "param.h"
David Byers's avatar
David Byers committed
90
#include "kom-config.h"
David Byers's avatar
David Byers committed
91
#include "admin.h"
92
#include "unused.h"
93
#include "local-to-global.h"
94
#include "server-time.h"
Per Cederqvist's avatar
Per Cederqvist committed
95 96 97 98 99 100 101 102 103 104 105 106 107 108

/*
 * Possible improvements: +++
 *  When there are consecutive items in file A that shall be copied
 *  to file B, copy them in one transfer (up to a certain limit).
 *
 *  In pre_sync: compute size of, and allocate disk space for file B.
 */

/*
 * All functions that can fail sets kom_errno to a suitable value
 * if they fail.
 */

David Byers's avatar
David Byers committed
109
static Small_conf      ** small_conf_arr;
110 111
static Cache_node_mcb	* pers_mcb;
static Cache_node_mcb 	* conf_mcb;
112
static Conf_no		  next_free_num = 1;
Per Cederqvist's avatar
Per Cederqvist committed
113

114
static Cache_node_mcb 	* text_mcb;
115
static Text_no		  next_text_num = 1;
Per Cederqvist's avatar
Per Cederqvist committed
116 117 118 119 120 121 122 123 124 125 126

/*
 * The elements in the following lists with same index refers to the same
 * conference.
 */
static int    no_of_match_info;
EXPORT Matching_info *match_table = NULL;

static FILE	*text_file= NULL;
static FILE	*file_a = NULL;	/* Current file. */
static FILE	*file_b = NULL;	/* File under construction. */
David Byers's avatar
David Byers committed
127 128 129
#ifdef FASTSAVE
static FILE     *file_b_r = NULL; /* Read from file under construction */
#endif
Per Cederqvist's avatar
Per Cederqvist committed
130 131 132 133 134

/*
 * Four state variables for the background save.
 */
static enum {
135
    sync_idle,
Per Cederqvist's avatar
Per Cederqvist committed
136 137 138 139 140 141 142 143
    sync_save_conf,
    sync_save_pers,
    sync_save_text,
    sync_error,
    sync_wait,
    sync_ready
} sync_state;

144 145 146 147 148 149 150 151 152 153 154 155 156 157 158
/* The state machine sync_state works like this:
 *
 *  Old state              action           new state
 *  none               sync_part called     sync_idle
 *                     for the first time
 *  sync_idle	       SYNC_INTERVAL        sync_save_conf
 *  sync_save_conf     all confs saved      sync_save_pers
 *  sync_save_pers     all persons saved    sync_save_text
 *  sync_save_text     all texts saved      sync_ready
 *  sync_ready         sync_part called     sync_idle
 *  any                error occurs         sync_error
 *  sync_error         sync_part called     sync_wait
 *  sync_wait          SYNC_RETRY_INTERVAL  sync_save_conf
 */

David Byers's avatar
David Byers committed
159
#ifndef FASTSAVE
160 161 162 163 164
/* sync_next should be split in next_text_to_sync and
   next_conf_to_sync to avoid warnings about the different sizes of
   Conf_no and Text_no.  Since that is indeed done if FASTSAVE is set,
   don't bother doing it in the old code that will anyhow soon be
   replaced. */
165
static unsigned long sync_next;
David Byers's avatar
David Byers committed
166
#endif
Per Cederqvist's avatar
Per Cederqvist committed
167 168 169 170 171 172

static Conf_no highest_conf_no;
static Text_no highest_text_no;

BUGDECL;

173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212
/* Define LOGACCESSES if you want to be able to log all accesses to
   the data base. */

#ifdef LOGACCESSES
typedef enum {
    lt_restart,
    lt_text_stat,
    lt_text_mass,
    lt_conf_stat,
    lt_pers_stat,
    
    lt_text_def,
    lt_conf_def,
    lt_pers_def,

    lt_create_text,
    lt_garb_text,
    lt_delete_text,
    lt_create_conf,
    lt_delete_conf,
    lt_create_pers,
    lt_delete_pers,

    lt_lock_conf,
    lt_unlock_conf,
    lt_lock_pers,
    lt_unlock_pers,

    lt_get_highest,		/* Get highest Local_text_no for a conf. */
    lt_get_conf_type
    /* Note: mark_*_as_changed is not logged. */
} Log_type;

static FILE *logfile = NULL;
static int syncing_or_saving = 0;
static int garb_running = 0;

static void log_access(Log_type t,
		       int id)
{
213 214
    extern int putw(int, FILE *);

215 216 217 218 219 220 221 222 223 224 225
    if (garb_running + syncing_or_saving == 0)
    {
	putc(t, logfile);
	putw(id, logfile);
    }
}
#define LOGACC(a,b) {if (logfile) log_access(a, b);}
#else
#define LOGACC(a,b)
#endif

David Byers's avatar
Server:  
David Byers committed
226 227 228 229 230 231 232 233 234

/* Local functions */

static Success build_matching_info(void);
static Success rebuild_matching_info_entry(Conf_no conf_no);
static Matching_info *find_matching_info(Conf_no conf_no);



Per Cederqvist's avatar
Per Cederqvist committed
235 236 237 238 239 240 241 242 243 244 245

/* Macros */

#define TRACE2(format, arg) if ( buglevel > 2 ) printf(format, arg)
#define TRACE1(format) if ( buglevel > 2 ) printf(format)
#define TRACESTR(str)  if ( buglevel > 2 ) s_puts(str)


static Person *
read_person(FILE *fp,
	    long pos,
246
	    long UNUSED(size))	/* FIXME: should sanity-check the size */
Per Cederqvist's avatar
Per Cederqvist committed
247 248
{
    Person *p;
David Byers's avatar
David Byers committed
249
    long dummy;
Per Cederqvist's avatar
Per Cederqvist committed
250 251

    p = alloc_person();
252
    fseek(fp, pos+1, SEEK_SET);	/* Skip 'P' */
David Byers's avatar
David Byers committed
253
    dummy = fparse_long(fp);
Per Cederqvist's avatar
Per Cederqvist committed
254 255 256 257 258 259 260 261 262 263 264 265 266 267
    if ( fparse_person(fp, p) != OK )
    {
	free_person(p);
	return NULL;
    }
    else
	return p;
}



static Conference *
read_conference(FILE *fp,
		long pos,
268
		long UNUSED(size)) /* FIXME: should sanity-check the size */
Per Cederqvist's avatar
Per Cederqvist committed
269 270
{
    Conference *c;
David Byers's avatar
David Byers committed
271
    long dummy;
Per Cederqvist's avatar
Per Cederqvist committed
272 273

    c = alloc_conference();
274
    fseek(fp, pos+1, SEEK_SET);	/* Skip 'C' */
David Byers's avatar
David Byers committed
275
    dummy = fparse_long(fp);
Per Cederqvist's avatar
Per Cederqvist committed
276 277 278 279 280 281 282 283 284 285 286 287 288
    if ( fparse_conference(fp, c) != OK )
    {
	free_conference(c);
	return NULL;
    }
    else
	return c;
}
	

static Text_stat *
read_text_stat(FILE *fp,
	       long pos,
289
	       long UNUSED(size)) /* FIXME: should sanity-check the size */
Per Cederqvist's avatar
Per Cederqvist committed
290 291
{
    Text_stat *t;
David Byers's avatar
David Byers committed
292
    long dummy;
Per Cederqvist's avatar
Per Cederqvist committed
293 294

    t = alloc_text_stat();
295
    fseek(fp, pos+1, SEEK_SET);	/* Skip 'T' */
David Byers's avatar
David Byers committed
296
    dummy = fparse_long(fp);
Per Cederqvist's avatar
Per Cederqvist committed
297 298 299 300 301 302 303 304 305 306
    if ( fparse_text_stat(fp, t) != OK )
    {
	free_text_stat(t);
	return NULL;
    }
    else
	return t;
}

static void
307
pers_set_mru(Pers_no pers_no)
Per Cederqvist's avatar
Per Cederqvist committed
308
{
309
    set_mru(pers_mcb, pers_no);
Per Cederqvist's avatar
Per Cederqvist committed
310 311 312
}

static void
313
text_set_mru(Text_no text_no)
Per Cederqvist's avatar
Per Cederqvist committed
314
{
315
    set_mru(text_mcb, text_no);
Per Cederqvist's avatar
Per Cederqvist committed
316 317 318
}

static void
319
conf_set_mru(Conf_no conf_no)
Per Cederqvist's avatar
Per Cederqvist committed
320
{
321 322
    set_mru(conf_mcb, conf_no);
}
Per Cederqvist's avatar
Per Cederqvist committed
323

324 325 326
static Cache_node *
get_pers_node(Pers_no pers_no)
{
327
    if (pers_no >= next_free_num || pers_no < 1)
328 329
	return NULL;

330
    return get_cache_node(pers_mcb, pers_no);
Per Cederqvist's avatar
Per Cederqvist committed
331 332 333
}

static void
334
unlink_text_lru (Cache_node *node)
Per Cederqvist's avatar
Per Cederqvist committed
335
{
336
    unlink_lru (node, &text_mcb->lru, &text_mcb->mru);
Per Cederqvist's avatar
Per Cederqvist committed
337 338
}

339 340 341 342 343
static void
unlink_conf_lru (Cache_node *node)
{
    unlink_lru (node, &conf_mcb->lru, &conf_mcb->mru);
}
Per Cederqvist's avatar
Per Cederqvist committed
344 345

static void
346
unlink_pers_lru (Cache_node *node)
Per Cederqvist's avatar
Per Cederqvist committed
347
{
348 349
    unlink_lru (node, &pers_mcb->lru, &pers_mcb->mru);
}
Per Cederqvist's avatar
Per Cederqvist committed
350

351 352 353
static Cache_node *
get_conf_node(Conf_no conf_no)
{
354
    if (conf_no >= next_free_num || conf_no < 1)
355 356
	return NULL;

357 358
    return get_cache_node(conf_mcb, conf_no);
}
Per Cederqvist's avatar
Per Cederqvist committed
359

360 361 362
static Cache_node *
get_text_node(Text_no text_no)
{
363
    if (text_no >= next_text_num || text_no < 1)
364 365
	return NULL;

366
    return get_cache_node(text_mcb, text_no);
Per Cederqvist's avatar
Per Cederqvist committed
367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382
}

	
/*
 * Name caching routines
 */

/*
 * change_name changes the cached conference name. It is only called when
 * a conference name is changed or a conference is deleted.
 */
void
cached_change_name( Conf_no name_num,
		    String new_name )
{
    if ( name_num < 1 || name_num >= next_free_num )
383
	restart_kom("cached_change_name(%d, ----): next_free_num==%d\n",
Per Cederqvist's avatar
Per Cederqvist committed
384 385 386 387
		    name_num, next_free_num);

    s_clear( &small_conf_arr[name_num]->name );
    s_strcpy( &small_conf_arr[name_num]->name, new_name);
David Byers's avatar
Server:  
David Byers committed
388
    rebuild_matching_info_entry(name_num);
Per Cederqvist's avatar
Per Cederqvist committed
389 390 391 392 393 394 395 396 397
}


extern Conf_type
cached_get_conf_type (Conf_no conf_no)
{
    if ( conf_no < 1 || conf_no >= next_free_num )
	restart_kom("cached_get_conf_type(%d): next_free_num==%d",
		    conf_no, next_free_num);
398 399 400 401 402

    if ( small_conf_arr [ conf_no ] == NULL )
	restart_kom("cached_get_conf_type(%d): conference does not exist.\n",
		    conf_no);

403 404
    LOGACC(lt_get_conf_type, conf_no);

Per Cederqvist's avatar
Per Cederqvist committed
405 406 407
    return small_conf_arr [ conf_no ]->type;
}

408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423
extern Conf_no
cached_get_conf_supervisor(Conf_no conf_no)
{
    if (conf_no < 1 || conf_no >= next_free_num)
	restart_kom("cached_get_conf_supervisor(%d): next_free_num==%d\n",
		    conf_no, next_free_num);

    if (small_conf_arr[conf_no] == NULL)
	restart_kom("cached_get_conf_supervisor(%d):"
		    " conference does not exist.\n", conf_no);

    LOGACC(lt_get_conf_supervisor, conf_no);

    return small_conf_arr[conf_no]->supervisor;
}

424 425 426 427 428 429 430 431
/*
 * Return number of conferences present.  (Actually, return a number
 * at least as large as the number of conferences present).
 */
extern Conf_no
cached_no_of_existing_conferences(void)
{
    return next_free_num;	/* This is too large, but who cares? */
432 433 434 435
    /* Actually, this is used in lookup_regexp (and maybe other
       places) to allocate an array this large, and that is pretty
       stupid if many conferences have been deleted.  But it is no big
       deal.  Not yet, anyhow...  */
436
}
Per Cederqvist's avatar
Per Cederqvist committed
437 438 439 440 441 442 443 444

/*
 * Various function calls to tell the cache that something is changed.
 */

void
mark_person_as_changed(Pers_no	pers_no)
{
445 446 447 448
    Cache_node *node;

    node = get_pers_node(pers_no);
    
Per Cederqvist's avatar
Per Cederqvist committed
449
    TRACE2("Person %d is changed\n", pers_no);
450
    if ( node == NULL || node->s.exists == 0)
Per Cederqvist's avatar
Per Cederqvist committed
451 452
	restart_kom("mark_person_as_changed(%d): nonexistent.\n", pers_no);

453
    node->s.dirty = 1;
Per Cederqvist's avatar
Per Cederqvist committed
454 455 456
    pers_set_mru( pers_no );
}

457 458 459 460 461 462 463 464 465 466 467
/*
 * Mark the conference as dirty, so that it will be written to
 * the disk.
 *
 * Also update all fields in the Small_conf except then name, so that
 * they are always current.
 *
 * NOTE: You must call cached_change_name when the name changes.
 *       It is not necessary to call cached_change_name after
 *       cached_create_conf.
 */
Per Cederqvist's avatar
Per Cederqvist committed
468 469 470 471

void
mark_conference_as_changed(Conf_no	conf_no)
{
472
    Cache_node *node;
473
    Conference *conf_c;
474 475 476

    node = get_conf_node (conf_no);

Per Cederqvist's avatar
Per Cederqvist committed
477
    TRACE2("Conf.  %d is changed\n", conf_no);
478
    if ( node == NULL || node->s.exists == 0)
Per Cederqvist's avatar
Per Cederqvist committed
479 480
	restart_kom("mark_conference_as_changed(%d): nonexistent.\n", conf_no);

481
    node->s.dirty = 1;
Per Cederqvist's avatar
Per Cederqvist committed
482
    conf_set_mru( conf_no );
483 484 485

    conf_c = (Conference *) node->ptr;

486
    small_conf_arr[conf_no]->highest_local_no
487
	= l2g_first_appendable_key(&conf_c->texts) - 1;
488

489 490 491
    small_conf_arr[conf_no]->nice = conf_c->nice;
    small_conf_arr[conf_no]->type = conf_c->type;
    small_conf_arr[conf_no]->supervisor = conf_c->supervisor;
Per Cederqvist's avatar
Per Cederqvist committed
492 493 494 495 496
}

void
mark_text_as_changed( Text_no text_no )
{
497 498 499 500
    Cache_node *node;

    node = get_text_node (text_no);

501
    TRACE2("Text %lu is changed.\n", text_no);
Per Cederqvist's avatar
Per Cederqvist committed
502
    if ( text_no < 1 || text_no >= next_text_num
503
	|| node == NULL || node->s.exists == 0)
Per Cederqvist's avatar
Per Cederqvist committed
504
    {
505
	restart_kom("mark_text_as_changed(%lu): nonexistent.\n", text_no);
Per Cederqvist's avatar
Per Cederqvist committed
506 507
    }

508 509
    node->s.dirty = 1;
    text_set_mru (text_no);
Per Cederqvist's avatar
Per Cederqvist committed
510 511 512 513 514 515 516 517 518 519 520 521
}    



/*
 * Person-related calls
 */


extern Success
cached_create_person( Pers_no person )
{
522 523
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
524 525 526 527 528 529 530 531
    TRACE2("Person %d is being created.\n", person);

    if ( person < 1 || person >= next_free_num )
    {
	restart_kom("cached_create_person(%d): next_free_num == %d.\n",
		    person, next_free_num);
    }

532
    if ( get_pers_node(person) != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
533 534 535 536 537
    {
	restart_kom("cached_create_person(%d): Person existed.\n",
		    person);
    }

538 539 540 541 542
    create_cache_node (pers_mcb, person);
    node = get_pers_node (person);

    if ( node == NULL )
	restart_kom("cached_create_person(): couldn't get cache_node.\n");
543

544 545 546
    node->ptr = alloc_person();
    node->s.dirty = 1;
    node->s.exists = 1;
Per Cederqvist's avatar
Per Cederqvist committed
547
    pers_set_mru( person );
548 549 550

    LOGACC(lt_create_pers, person);

Per Cederqvist's avatar
Per Cederqvist committed
551 552 553 554 555 556 557
    return OK;
}


extern Person *
cached_get_person_stat( Pers_no	person )
{
558 559
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
560 561 562 563
    TRACE2("cached_get_person_stat %d\n", person);

    if ( person == 0 )
    {
564
        err_stat = 0;
Per Cederqvist's avatar
Per Cederqvist committed
565 566 567
	kom_errno = KOM_CONF_ZERO;
	return NULL;
    }
568

569 570
    if ( person >= next_free_num )
    {
571
        err_stat = person;
572 573 574 575
	kom_errno = KOM_UNDEF_PERS;
	return NULL;
    }

576 577
    node = get_pers_node (person);

578
    if ( node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
579
    {
580
        err_stat = person;
Per Cederqvist's avatar
Per Cederqvist committed
581 582 583 584
	kom_errno = KOM_UNDEF_PERS;
	return NULL;
    }

585 586
    LOGACC(lt_pers_stat, person);

587
    if ( node->ptr != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
588 589
    {
	pers_set_mru( person );
590
	++pers_mcb->hits;
591
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
592 593
    }

594
    if ( node->snap_shot != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
595
    {
596
	node->ptr = copy_person (node->snap_shot);
Per Cederqvist's avatar
Per Cederqvist committed
597
	pers_set_mru (person);
598
	++pers_mcb->hits;
599
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
600 601
    }

602
    node->ptr = read_person(file_a, node->pos, node->size);
Per Cederqvist's avatar
Per Cederqvist committed
603

604
    ++pers_mcb->misses;
Per Cederqvist's avatar
Per Cederqvist committed
605
    pers_set_mru (person);
606
    return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
607 608 609 610 611 612
}


/*
 * Conference-related calls
 */
613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628


static int no_of_allocated_small_confs = 0;

static void
free_small_conf (Small_conf *sc)
{
    if ( sc != NULL )
    {
	--no_of_allocated_small_confs;
	s_clear ( &sc->name );
	sfree (sc);
    }
}


629 630 631 632 633
static void
init_small_conf(Small_conf *sc)
{
    sc->name = EMPTY_STRING;
    init_conf_type(&sc->type);
634
    sc->supervisor = 0;
635 636 637 638
    sc->highest_local_no = 0;
    sc->nice = param.default_nice;
}

639 640 641 642 643
static Small_conf *
alloc_small_conf(void)
{
    Small_conf *s;
    s = smalloc(sizeof(Small_conf));
644
    init_small_conf(s);
645 646 647 648 649 650
    ++no_of_allocated_small_confs;

    return s;
}


651 652 653 654 655 656
/*
 * Create a conference.
 *
 * Set up a Conference and cache the name in the small_conf_array.
 */
extern Conf_no
Per Cederqvist's avatar
Per Cederqvist committed
657 658 659 660
cached_create_conf (String  name)
{
    Conference * conf_c;
    Conf_no	 conf_no;
661
    Cache_node  *node;
Per Cederqvist's avatar
Per Cederqvist committed
662 663 664 665 666

    TRACE1("cached_create_conf( ");
    TRACESTR(name);
    TRACE1(" )\n");

David Byers's avatar
David Byers committed
667
    if ( next_free_num >= param.max_conf )
Per Cederqvist's avatar
Per Cederqvist committed
668
    {
669
        err_stat = next_free_num;
Per Cederqvist's avatar
Per Cederqvist committed
670 671 672 673 674 675
	kom_errno = KOM_INDEX_OUT_OF_RANGE;
	return 0;
    }
    
    conf_no = next_free_num++;

676 677 678 679 680 681 682 683 684
    create_cache_node (conf_mcb, conf_no);
    node = get_conf_node (conf_no);

    if ( node == NULL )
	restart_kom("cached_create_conf(): failed to allocate cache_node.\n");
    
    node->s.exists = 1;
    node->s.dirty = 1;
    node->ptr = conf_c = alloc_conference();
Per Cederqvist's avatar
Per Cederqvist committed
685 686
    conf_set_mru(conf_no);    

687
    zero_init_cache_node (pers_mcb, conf_no);
Per Cederqvist's avatar
Per Cederqvist committed
688 689 690 691 692 693
    small_conf_arr[ conf_no ] = alloc_small_conf();

    conf_c->name = EMPTY_STRING;
    s_strcpy(&conf_c->name, name);
    cached_change_name( conf_no, name);

694
    TRACE2("Created conference number %d\n", conf_no);
695 696 697

    LOGACC(lt_create_conf, conf_no);

Per Cederqvist's avatar
Per Cederqvist committed
698 699 700 701 702 703 704
    return conf_no;
}


extern Success
cached_delete_conf( Conf_no	conf )
{
705 706
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
707 708
    if ( conf == 0 )
    {
709
        err_stat = conf;
Per Cederqvist's avatar
Per Cederqvist committed
710 711 712
	kom_errno = KOM_CONF_ZERO;
	return FAILURE;
    }
713

714 715
    if ( conf >= next_free_num )
    {
716
        err_stat = conf;
717 718 719 720
	kom_errno = KOM_UNDEF_CONF;
	return FAILURE;
    }

721 722
    node = get_conf_node (conf);

723
    if ( node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
724
    {
725
        err_stat = conf;
Per Cederqvist's avatar
Per Cederqvist committed
726 727 728 729
	kom_errno = KOM_UNDEF_CONF;
	return FAILURE;
    }

730
    if ( node->lock_cnt > 0 )
David Byers's avatar
David Byers committed
731
	kom_log("WNG: cached_delete_conf(%d): lock_cnt === %d\n",
732
	    conf, node->lock_cnt);
Per Cederqvist's avatar
Per Cederqvist committed
733

David Byers's avatar
David Byers committed
734 735 736
    free_small_conf(small_conf_arr[conf]);
    small_conf_arr[conf] = NULL;

737 738 739
    free_conference(node->ptr);
    node->ptr = NULL;
    node->s.exists = 0;
Per Cederqvist's avatar
Per Cederqvist committed
740

741 742
    LOGACC(lt_delete_conf, conf);

David Byers's avatar
Server:  
David Byers committed
743
    rebuild_matching_info_entry(conf);
Per Cederqvist's avatar
Per Cederqvist committed
744 745 746 747 748 749
    return OK;
}

Success
cached_delete_person(Pers_no pers)
{
750 751
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
752 753
    if ( pers == 0 )
    {
754
        err_stat = pers;
Per Cederqvist's avatar
Per Cederqvist committed
755 756 757
	kom_errno = KOM_CONF_ZERO;
	return FAILURE;
    }
758

759 760
    if ( pers >= next_free_num )
    {
David Byers's avatar
David Byers committed
761
	kom_log("cached_delete_person(%lu): next_free_num == %lu\n",
Per Cederqvist's avatar
Per Cederqvist committed
762
	    (unsigned long)pers, (unsigned long)next_free_num);
763
        err_stat = pers;
764 765 766 767
	kom_errno = KOM_UNDEF_PERS;
	return FAILURE;
    }

768 769 770
    node = get_pers_node (pers);

    if ( pers >= next_free_num || node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
771
    {
David Byers's avatar
David Byers committed
772
	kom_log("cached_delete_person(): attempt to delete void person.\n");
773
        err_stat = pers;
Per Cederqvist's avatar
Per Cederqvist committed
774 775 776 777
	kom_errno = KOM_UNDEF_PERS;
	return FAILURE;
    }

778
    if ( node->lock_cnt > 0 )
David Byers's avatar
David Byers committed
779
	kom_log("cached_delete_pers(%lu): lock_cnt === %lu\n",
Per Cederqvist's avatar
Per Cederqvist committed
780
	    (unsigned long)pers, (unsigned long)node->lock_cnt);
Per Cederqvist's avatar
Per Cederqvist committed
781

782 783
    LOGACC(lt_delete_pers, pers);

784 785 786
    free_person (node->ptr);
    node->ptr = NULL;
    node->s.exists = 0;
Per Cederqvist's avatar
Per Cederqvist committed
787 788 789 790 791 792
    return OK;
}

Success
cached_delete_text(Text_no text)
{
793 794
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
795 796
    if ( text == 0 )
    {
797
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
798 799 800
	kom_errno = KOM_TEXT_ZERO;
	return FAILURE;
    }
801 802 803 804 805

    node = get_text_node (text);

    if ( text >= next_text_num || node == NULL
	|| node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
806
    {
David Byers's avatar
David Byers committed
807
	kom_log("cached_delete_text(): attempt to delete void text %lu.\n", text);
808
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
809 810 811 812
	kom_errno = KOM_NO_SUCH_TEXT;
	return FAILURE;
    }

813
    if ( node->lock_cnt > 0 )
David Byers's avatar
David Byers committed
814
	kom_log("cached_delete_text(%lu): lock_cnt === %d\n",
815
	    text, node->lock_cnt);
Per Cederqvist's avatar
Per Cederqvist committed
816 817


818 819 820
    free_text_stat(node->ptr);
    node->ptr = NULL;
    node->s.exists = 0;
Per Cederqvist's avatar
Per Cederqvist committed
821

822 823 824
#ifdef LOGACCESSES
    if (garb_running)
    {
825
	LOGACC(lt_garb_text, text);
826 827
    }
    else
828
	LOGACC(lt_delete_text, text);
829
#endif
Per Cederqvist's avatar
Per Cederqvist committed
830 831 832 833 834
    return OK;
}


extern Conference *
835
cached_get_conf_stat (Conf_no   conf_no)
Per Cederqvist's avatar
Per Cederqvist committed
836
{
837 838
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
839 840 841 842
    TRACE2("cached_get_conf_stat %d\n", conf_no);

    if ( conf_no == 0 )
    {
843
        err_stat = conf_no;
Per Cederqvist's avatar
Per Cederqvist committed
844 845 846
	kom_errno = KOM_CONF_ZERO;
	return NULL;
    }
847 848 849 850

    node = get_conf_node (conf_no);

    if ( conf_no >= next_free_num || node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
851
    {
852
        err_stat = conf_no;
Per Cederqvist's avatar
Per Cederqvist committed
853 854 855 856
	kom_errno = KOM_UNDEF_CONF;
	return NULL;
    }

857 858
    LOGACC(lt_conf_stat, conf_no);

859
    if ( node->ptr != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
860
    {
861
	conf_set_mru (conf_no);
862
	++conf_mcb->hits;
863
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
864 865
    }

866
    if ( node->snap_shot != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
867
    {
868
	node->ptr = copy_conference (node->snap_shot);
Per Cederqvist's avatar
Per Cederqvist committed
869
	conf_set_mru (conf_no);
870
	++conf_mcb->hits;
871
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
872 873
    }

874
    node->ptr = read_conference(file_a, node->pos, node->size);
875
    ++conf_mcb->misses;
Per Cederqvist's avatar
Per Cederqvist committed
876 877

    conf_set_mru (conf_no);
878
    return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
879 880 881 882 883 884 885 886
}

/*
 * Return TRUE if conf_no exists.
 */
Bool
cached_conf_exists(Conf_no conf_no)
{
887 888 889
    if (conf_no == 0 || conf_no >= next_free_num )
	return FALSE;

David Byers's avatar
David Byers committed
890
    return small_conf_arr[conf_no] != NULL ? TRUE : FALSE;
Per Cederqvist's avatar
Per Cederqvist committed
891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906
}

    
/*
 * Calls to handle texts
 */

/*
 * +++ Should return Success.
 */
extern String
cached_get_text( Text_no text )
{
    String  the_string;
    Text_stat *t_stat;

907
    TRACE2("cached_get_text %lu\n", text);
Per Cederqvist's avatar
Per Cederqvist committed
908 909 910 911 912

    if ( (t_stat = cached_get_text_stat (text)) == NULL )
	return EMPTY_STRING;
    else
    {
913
	LOGACC(lt_text_mass, text);
Per Cederqvist's avatar
Per Cederqvist committed
914 915 916 917 918
	the_string.string = tmp_alloc( t_stat->no_of_chars );
	the_string.len = t_stat->no_of_chars;
	fseek(text_file, t_stat->file_pos, SEEK_SET);

	if ( fread(the_string.string, sizeof(char), the_string.len, text_file)
David Byers's avatar
David Byers committed
919
	    != (size_t)the_string.len )
Per Cederqvist's avatar
Per Cederqvist committed
920
	{
David Byers's avatar
David Byers committed
921
	    kom_log("WARNING: cached_get_text: premature end on text %lu\n",
Per Cederqvist's avatar
Per Cederqvist committed
922 923 924 925 926 927 928 929 930 931 932 933
		text);
	    return EMPTY_STRING;
	}
		    
	return the_string;
    }
}


extern Text_stat *	/* NULL on error */
cached_get_text_stat(	Text_no		text )
{
934 935
    Cache_node *node;

936
    TRACE2("cached_get_text_stat(%lu);  next_text_num == ", text);
937
    TRACE2("%lu\n", (unsigned long)next_text_num);
Per Cederqvist's avatar
Per Cederqvist committed
938 939 940

    if ( text == 0 )
    {
941
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
942 943 944
	kom_errno = KOM_TEXT_ZERO;
	return NULL;
    }
945 946 947 948

    node = get_text_node (text);

    if ( text >= next_text_num || node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
949 950
    {
	TRACE1("cached_get_text_stat: no such text.\n");
951
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
952 953 954 955
	kom_errno = KOM_NO_SUCH_TEXT;
	return NULL;
    }

956 957
    LOGACC(lt_text_stat, text);

958
    if ( node->ptr != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
959 960 961
    {
	TRACE1("Found in ptr.\n");
	text_set_mru( text );
962
	++text_mcb->hits;
963
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
964 965
    }

966
    if ( node->snap_shot != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
967 968
    {
	TRACE1("Found in snap_shot\n");
969
	node->ptr = copy_text_stat(node->snap_shot);
Per Cederqvist's avatar
Per Cederqvist committed
970
	text_set_mru (text);
971
	++text_mcb->hits;
972
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
973 974 975
    }

    TRACE1("Found in file A.\n");
976
    node->ptr = read_text_stat(file_a, node->pos, node->size);
Per Cederqvist's avatar
Per Cederqvist committed
977 978

    text_set_mru (text);
979
    ++text_mcb->misses;
980
    return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
981 982 983 984 985 986
}



/*
 * The text is set up with an empty misc-field. The misc field is
987
 * then initialized by create_text.
Per Cederqvist's avatar
Per Cederqvist committed
988 989 990
 */

extern Text_no
991
cached_create_text(const String message)
Per Cederqvist's avatar
Per Cederqvist committed
992 993
{
    Text_no tno;
994
    Cache_node *node;
995
    long file_pos;
Per Cederqvist's avatar
Per Cederqvist committed
996 997 998

    tno = next_text_num++;

999
    TRACE2("cached_create_text (len=%lu)\n", message.len);
Per Cederqvist's avatar
Per Cederqvist committed
1000

David Byers's avatar
David Byers committed
1001
    if ( tno >= param.max_text )
Per Cederqvist's avatar
Per Cederqvist committed
1002
    {
1003
        err_stat = tno;
Per Cederqvist's avatar
Per Cederqvist committed
1004
	kom_errno = KOM_INDEX_OUT_OF_RANGE;
David Byers's avatar
David Byers committed
1005
	next_text_num = param.max_text;
Per Cederqvist's avatar
Per Cederqvist committed
1006 1007 1008 1009
	
	return 0;
    }

1010 1011
    if (fseek(text_file, 0, SEEK_END) != 0) 
    {
David Byers's avatar
David Byers committed
1012
	kom_log("ERROR: cannot seek to end of text_file: %s\n", strerror(errno));
1013 1014 1015 1016 1017 1018
	clearerr(text_file);
	return 0;
    }

    file_pos = ftell(text_file);

David Byers's avatar
David Byers committed
1019 1020
    if (fwrite(message.string, 1, message.len, text_file)
        != (size_t)message.len)
1021 1022
    {
	if (errno != ENOSPC)
David Byers's avatar
David Byers committed
1023
	    kom_log("WARNING: cached_create_text: Couldn't write text %lu: %s\n",
1024
		tno, strerror(errno));
1025
        err_stat = 0;
1026 1027 1028 1029 1030 1031 1032 1033
	kom_errno = KOM_TEMPFAIL;
	clearerr(text_file);
	return 0;
    }

    if (fflush(text_file) != 0)
    {
	if (errno != ENOSPC)
David Byers's avatar
David Byers committed
1034
	    kom_log("WARNING: cached_create_text: Couldn't fflush text %lu: %s\n",
1035
		tno, strerror(errno));
1036
        err_stat = 0;
1037 1038 1039 1040 1041 1042 1043 1044
	kom_errno = KOM_TEMPFAIL;
	clearerr(text_file);
	return 0;
    }

    if (fsync(fileno(text_file)) != 0)
    {
	if (errno != ENOSPC)