/*======================================================================*
 *      Event scheduler program to print and delete the call log.       *
 *======================================================================*/
#version        $50
#reserve        6
#copyright      "Printlog.cmd    Copyright 1995 K-Products"
#address        $7000

#include        runtime.h
#include        bbs_pro.h

#define         DISK2   2
#define         DISK4   4

char    *filename;                      /* pointer to filename string   */
char    *printer;                       /* pointer to printer string    */
char    inline [100];                   /* we read lines into here      */


main()
{
    MIOsuspend();
    print_call_log();
    MIOresume();
}


print_call_log()
{
    rc = 128;

    filename = "Dx:>pro>log>call.log  ";
    printer  = "P:";

    printf ("%eCall log --> printer    v3.0%e%e");

    if (s_logdr = 0) {                          /* log is turned off */
	printf("Call log is turned off!%e");
	return;
    }
    filename [2] = s_logdr;                     /* put drive in filename */
 /* filename [18] = multi_bbs;                     put the slave # in*/
    if (open (DISK2, filename, 4, 0) != OK) {   /* open input file?     */
	printf("Call log does not exist%e");
	return;
    }
    if (open (DISK4, printer, 8, 0) != OK) {    /* open printer ok?     */
	printf("Unable to open printer!%e");
	close (DISK2);
	return;
    }
    while (inputsd (DISK2, inline) = OK) {
	if (fprintf (DISK4, "%s%e", inline) != OK) {
	    printf("PRINTER ERROR!%e");
	    close (DISK2);
	    close (DISK4);
	    return;
	}
    }
    close (DISK2);
    close (DISK4);
    if (fdelete (filename) = OK)                /* delete the file  */
	printf ("Call log deleted..%e");
    else
	printf ("Unable to delete call log!%e");
    rc = 0;
}