/*****************************************************************************/
/* This source code is `/usr/local/wiro/lib/log.c'.  It allows observers to  */
/*   record comments into a file.  By default their comments are appended to */
/*   /data/log; however, the observer is invited to specify any path and     */
/*   filename.  If the file is opened sucessfully, a date and time stamp is  */
/*   appended to the file and sent to the screen.  The prompt `> ' appears   */
/*   on this line and each suceeding line until the end of the comment is    */
/*   indicated by responding to the prompt with `.<CR>'.  If the file cannot */
/*   be opened, then an error message is printed and the observer is invited */
/*   to specify a different file or quit.  The file is closed and this       */
/*   routine relinquishes flow of control after the comment is terminated.   */
/*                                                              JSW 23Sept93 */
/*****************************************************************************/

/* Port to Linux. JSW 18Jan00 */

#include <stdio.h>
#include <time.h>

FILE      *fp;
char      s1[ 100 ];
char      s[ 100 ];


GetLine( t, lim )
char t[];
int  lim;
{
     int  c, i;

     for( i=0; i<lim-1 && (c=getchar()) != EOF && c != '\n'; ++i )
          t[ i ] = c;
     if( c == '\n' ) {
          t[ i ] = c;
          ++i;
     }
     t[ i ] = '\0';
     return( i );
}


OpenFile()
{
     char      filename[ 100 ];
     int       done = 0;
     int       again = 1;

     while( again == 1 ) {
          strcpy(filename, "/home/observer/wiro/logging/log" );
          printf( "\nSpecify a log file (default: /home/observer/wiro/logging/log) :");
          gets( s );
          if( strcmp( s, "" ) != 0 ) {
               strcpy( filename, s );
          }
          fp = fopen( filename, "a" );
          if( fp == NULL ) {
               printf( "\nUnable to open `%s'.\n", filename );
               printf( "  Please verify that `%s'\n", filename );
               printf( "  exists and is owned by observer.\n" );
               printf( "Would you like to try a)gain or q)uit?  (a or q):  ");
               while( done == 0 ) {
                    gets( s );
                    if( strcmp( s, "a" ) == 0 ) {
                         done = 1;
                         again = 1;
                    }
                    if( strcmp( s, "q" ) == 0 ) {
                         exit( 0 );
                    }
               }
          }
          else
               again = 0;
     }
}


main()
{
     time_t     now;
     
     OpenFile();
     printf( "\nEnter a comment into the log.  The first line is a date\n" );
     printf( "and time stamp.  The termination sequence is '<CR>.<CR>'.\n\n" );
     time( &now );
     strcpy( s, ctime( &now ) );
     printf( "> %s", s );
     while( strcmp( s, " .\n" ) != 0 ) {
          fprintf( fp, "%s", s );
          printf( ">  " );
          GetLine( s1, 98 );
          strcpy( s, " " );
          strcat( s, s1 );
     }
     fclose( fp );
}