/*
 * FCRON - periodic command scheduler 
 *
 *  Copyright 2000-2007 Thibault Godouet <fcron@free.fr>
 *
 *  This program 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 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program 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 this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 * 
 *  The GNU General Public License can also be found in the file
 *  `LICENSE' that comes with the fcron source distribution.
 */

 /* $Id: read_string.c,v 1.4 2007/04/14 18:04:12 thib Exp thib $ */


/* read a string (password, etc ...) securely from a tty */

#include "global.h"
#include "read_string.h"
#include "log.h"

extern char debug_opt;

/* Derived from Andrew Morgan <morgan@linux.kernel.org> work in Linux PAM misc lib. */

/* may be used in fcrondyn without pam : */
#ifndef HAVE_LIBPAM
#define PAM_MAX_MSG_SIZE LINE_LEN
#endif

char *read_string(int echo, const char *prompt)
    /* read a line of input string, giving prompt when appropriate */
{
    struct termios term_before, term_tmp;
    char line[PAM_MAX_MSG_SIZE];
    int nc, have_term=0;

    debug("called with echo='%s', prompt='%s'.", echo ? "ON":"OFF" , prompt);

    if (isatty(STDIN_FILENO)) {                      /* terminal state */

	/* is a terminal so record settings and flush it */
	if ( tcgetattr(STDIN_FILENO, &term_before) != 0 ) {
	    debug("error: failed to get terminal settings");
	    return NULL;
	}
	memcpy(&term_tmp, &term_before, sizeof(term_tmp));
	if (!echo) 
	    term_tmp.c_lflag &= ~(ECHO);
	have_term = 1;

    } 
    else if (!echo)
	debug("warning: cannot turn echo off");

    /* reading the line */
    while (1) {

	fprintf(stderr, "%s", prompt);
	/* this may, or may not set echo off -- drop pending input */
	if (have_term)
	    (void) tcsetattr(STDIN_FILENO, TCSAFLUSH, &term_tmp);

	nc = read(STDIN_FILENO, line, sizeof(line)-1);
	if (have_term) {
	    (void) tcsetattr(STDIN_FILENO, TCSADRAIN, &term_before);
	    if (!echo)             /* do we need a newline? */
		fprintf(stderr,"\n");
	}
	if (nc > 0) {                 /* we got some user input */
	    char *input;

	    if (nc > 0 && line[nc-1] == '\n') {     /* <NUL> terminate */
		line[--nc] = '\0';
	    } else {
		line[nc] = '\0';
	    }
	    input = ( (line) ? strdup(line):NULL );
	    Overwrite(line);

	    return input;                  /* return malloc()ed string */
	} else if (nc == 0) {                                /* Ctrl-D */
	    debug("user did not want to type anything");
	    fprintf(stderr, "\n");
	    break;
	}
    }

    if (have_term)
	(void) tcsetattr(STDIN_FILENO, TCSADRAIN, &term_before);

    memset(line, 0, PAM_MAX_MSG_SIZE);                      /* clean up */
    return NULL;
}