// The contents of this file are subject to the Mozilla Public License
// Version 1.0 (the "License"); you may not use this file except in
// compliance with the License. You may obtain a copy of the License at
// http://www.mozilla.org/MPL/ 
// 
// Software distributed under the License is distributed on an "AS IS"
// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
// License for the specific language governing rights and limitations
// under the License. 
// 
// The Original Code is the Berkeley Open Infrastructure for Network Computing. 
// 
// The Initial Developer of the Original Code is the SETI@home project.
// Portions created by the SETI@home project are Copyright (C) 2002
// University of California at Berkeley. All Rights Reserved. 
// 
// Contributor(s):
//

// feeder [-asynch]
//
// Creates a shared memory segment containing DB info,
// including results/workunits to send.
// This means that the scheduler CGI program doesn't have to
// access the DB to get this info.
//
// -asynch      fork and run in a separate process

// TODO:
// - check for wu/results that don't get sent for a long time;
//   generate a warning message

// Trigger files:
// The feeder program periodically checks for two trigger files:
//
// stop_server:  destroy shmem and exit
//               leave trigger file there (for other daemons)
// reread_db:    update DB contents in existing shmem
//               delete trigger file

// If you get an "Invalid argument" error when trying to run the feeder,
// it is likely that you aren't able to allocate enough shared memory.
// Either increase the maximum shared memory segment size in the kernel
// configuration, or decrease the MAX_PLATFORMS, MAX_APPS
// MAX_APP_VERSIONS, and MAX_WU_RESULTS in sched_shmem.h

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#if HAVE_UNISTD_H
#include <unistd.h>
#endif

#include "boinc_db.h"
#include "shmem.h"
#include "util.h"
#include "config.h"
#include "sched_shmem.h"
#include "sched_util.h"

#define RESULTS_PER_ENUM    100
#define REREAD_DB_FILENAME      "reread_db"
#define LOCKFILE                "feeder.out"

CONFIG config;

int check_triggers(SCHED_SHMEM* ssp) {
    FILE* f;

    f = fopen(STOP_TRIGGER_FILENAME, "r");
    if (f) {
        fclose(f);
        detach_shmem((void*)ssp);
        destroy_shmem(config.shmem_key);
        exit(0);
    }
    f = fopen(REREAD_DB_FILENAME, "r");
    if (f) {
        fclose(f);
        ssp->init();
        ssp->scan_tables();
        unlink(REREAD_DB_FILENAME);
    }

    return 0;
}

// Try keep the wu_results array filled.
// This is actually a little tricky.
// We use an enumerator.
// The inner loop scans the wu_result table,
// looking for empty slots and trying to fill them in.
// When the enumerator reaches the end, it is restarted;
// hopefully there will be some new workunits.
// There are two complications:
//  - An enumeration may return results already in the array.
//    So, for each result, we scan the entire array to make sure
//    it's not there already.  Can this be streamlined?
//  - We must avoid excessive re-enumeration,
//    especially when the number of results is less than the array size.
//    Crude approach: if a "collision" (as above) occurred on
//    a pass through the array, wait a long time (5 sec)
//
void feeder_loop(SCHED_SHMEM* ssp) {
    int i, j, nadditions, ncollisions, retval;
    RESULT result;
    WORKUNIT wu;
    bool no_wus, collision, restarted_enum;
    char buf[256];

    while (1) {
        nadditions = 0;
        ncollisions = 0;
        no_wus = false;
        restarted_enum = false;
        for (i=0; i<ssp->nwu_results; i++) {
            if (!ssp->wu_results[i].present) {
try_again:
                result.server_state = RESULT_SERVER_STATE_UNSENT;
                retval = boinc_db_result_enum_server_state(result, RESULTS_PER_ENUM);
                if (retval) {

                    // if we already restarted the enum on this pass,
                    // there's no point in doing it again.
                    //
                    if (restarted_enum) {
                        write_log("already restarted enum on this pass\n");
                        break;
                    }

                    // restart the enumeration
                    //
                    restarted_enum = true;
                    result.server_state = RESULT_SERVER_STATE_UNSENT;
                    retval = boinc_db_result_enum_server_state(result, RESULTS_PER_ENUM);
                    write_log("restarting enumeration\n");
                    if (retval) {
                        write_log("enumeration restart returned nothing\n");
                        no_wus = true;
                        break;
                    }
                }
                if (result.server_state != RESULT_SERVER_STATE_UNSENT) {
                    sprintf(buf, "RESULT STATE CHANGED: %s\n", result.name);
                    write_log(buf);
                    goto try_again;
                }
                collision = false;
                for (j=0; j<ssp->nwu_results; j++) {
                    if (ssp->wu_results[j].present
                        && ssp->wu_results[j].result.id == result.id
                    ) {
                        ncollisions++;
                        collision = true;
                        break;
                    }
                }
                if (!collision) {
                    sprintf(buf, "adding result %d in slot %d\n", result.id, i);
                    write_log(buf);
                    retval = boinc_db_workunit(result.workunitid, wu);
                    if (retval) {
                        sprintf(buf, "can't read workunit %d: %d\n", result.workunitid, retval);
                        write_log(buf);
                        continue;
                    }
                    ssp->wu_results[i].result = result;
                    ssp->wu_results[i].workunit = wu;
                    ssp->wu_results[i].present = true;
                    nadditions++;
                }
            }
        }
        ssp->ready = true;
        if (nadditions == 0) {
            write_log("no results added\n");
            sleep(1);
        } else {
            sprintf(buf, "added %d results to array\n", nadditions);
            write_log(buf);
        }
        if (no_wus) {
            write_log("feeder: no results available\n");
            sleep(5);
        }
        if (ncollisions) {
            write_log("feeder: some results already in array - sleeping\n");
            sleep(5);
        }
        fflush(stdout);
        check_triggers(ssp);
    }
}

int main(int argc, char** argv) {
    SCHED_SHMEM* ssp;
    int i, retval;
    bool asynch = false;
    void* p;
    char buf[256];

    unlink(REREAD_DB_FILENAME);

    retval = config.parse_file();
    if (retval) {
        write_log("can't parse config file\n");
        exit(1);
    }

    for (i=1; i<argc; i++) {
        if (!strcmp(argv[i], "-asynch")) {
            asynch = true;
        }
    }

    if (asynch) {
        if (fork()!=0) {
            exit(0);
        }
    }

    // Call lock_file after fork(), because file locks are not always inherited
    if (lock_file(LOCKFILE)) {
        fprintf(stderr, "Another copy of feeder is already running\n");
        exit(1);
    }

    retval = destroy_shmem(config.shmem_key);
    if (retval) {
        write_log("can't destroy shmem\n");
        exit(1);
    }
    retval = create_shmem(config.shmem_key, sizeof(SCHED_SHMEM), &p);
    if (retval) {
        write_log("can't create shmem\n");
        exit(1);
    }
    ssp = (SCHED_SHMEM*)p;
    ssp->init();
    retval = boinc_db_open(config.db_name, config.db_passwd);
    if (retval) {
        sprintf(buf, "boinc_db_open: %d\n", retval);
        write_log(buf);
        exit(1);
    }
    ssp->scan_tables();

    printf(
        "feeder: read\n"
        "%d platforms\n"
        "%d apps\n"
        "%d app_versions\n",
        ssp->nplatforms,
        ssp->napps,
        ssp->napp_versions
    );

    feeder_loop(ssp);
}