/*
 * checkosmd5 - simple program to check implanted md5sum
 * Copyright (C) 2001-2007 Red Hat, Inc.
 * Michael Fulbright <msf@redhat.com>
 *
 * 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.
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <popt.h>
#include <termios.h>

#include "md5.h"
#include "libcheckisomd5.h"

struct progressCBData {
    int verbose;
    int gauge;
    int gaugeat;
};

int user_bailing_out() {
  int retval = 0;
  struct timeval timev;
  fd_set rfds;
  char ch;

  FD_ZERO(&rfds);
  FD_SET(0,&rfds);

  timev.tv_sec = 0;
  timev.tv_usec = 0;

  if (select(1, &rfds, NULL, NULL, &timev))
    if ((ch = getchar()) == 27)
      retval = 1;

  return retval;
}

static int outputCB(void *co, long long offset, long long total) {
    struct progressCBData *data = co;
    int gaugeval = -1;

    if (data->verbose) {
        printf("\rChecking: %05.1f%%", (100.0*offset)/(total));
        fflush(stdout);
    }
    if (data->gauge) {
        gaugeval = (100.0*offset)/(total);
        if (gaugeval != data->gaugeat) {
            printf("%d\n", gaugeval);
            fflush(stdout);
            data->gaugeat = gaugeval;
        }
    }

    return user_bailing_out();
}

static void usage(void) {
    fprintf(stderr, "Usage: checkisomd5 [--md5sumonly] [--verbose] [--gauge] <isofilename>|<blockdevice>\n\n");
    exit(1);
}


/* Process the result code and return the proper exit status value
 */
int processExitStatus(int rc) {
    char * result;

    switch (rc) {
	case ISOMD5SUM_CHECK_FAILED:
		result = "FAIL.\n\nIt is not recommended to use this media.";
		break;
	case ISOMD5SUM_CHECK_ABORTED:
		result = "UNKNOWN.\n\nThe media check was aborted.";
		break;
	case ISOMD5SUM_CHECK_NOT_FOUND:
		result = "NA.\n\nNo checksum information available, unable to verify media.";
		break;
        case ISOMD5SUM_FILE_NOT_FOUND:
                result = "NA.\n\nFile not found.";
                break;
	case ISOMD5SUM_CHECK_PASSED:
		result = "PASS.\n\nIt is OK to use this media.";
		break;
	default:
		result = "checkisomd5 ERROR - bad return value";
		break;
    }

    fprintf(stderr, "\nThe media check is complete, the result is: %s\n", result);

    return(rc != ISOMD5SUM_CHECK_PASSED);
}


int main(int argc, char **argv) {
    int rc;
    const char **args;
    int md5only;
    int help;
    struct progressCBData data;
    poptContext optCon;

    memset(&data, 0, sizeof(struct progressCBData));

    md5only = 0;
    help = 0;
    data.verbose = 0;
    data.gauge = 0;

    struct poptOption options[] = {
	{ "md5sumonly", 'o', POPT_ARG_NONE, &md5only, 0 },
	{ "verbose", 'v', POPT_ARG_NONE, &data.verbose, 0 },
	{ "gauge", 'g', POPT_ARG_NONE, &data.gauge, 0},
	{ "help", 'h', POPT_ARG_NONE, &help, 0},
	{ 0, 0, 0, 0, 0}
    };

    static struct termios oldt, newt;

    optCon = poptGetContext("checkisomd5", argc, (const char **)argv, options, 0);

    if ((rc = poptGetNextOpt(optCon)) < -1) {
	fprintf(stderr, "bad option %s: %s\n",
		poptBadOption(optCon, POPT_BADOPTION_NOALIAS),
		poptStrerror(rc));
	exit(1);
    }

    if (help)
	usage();

    args = poptGetArgs(optCon);
    if (!args || !args[0] || !args[0][0])
	usage();

    if (md5only|data.verbose) {
	rc = printMD5SUM((char *)args[0]);
        if (rc < 0) {
            exit(processExitStatus(rc));
        }
    }

    if (md5only)
	exit(0);

    printf("Press [Esc] to abort check.\n");

    tcgetattr(0, &oldt);
    newt = oldt;
    newt.c_lflag &= ~(ICANON | ECHO | ECHONL | ISIG | IEXTEN);
    tcsetattr(0, TCSANOW, &newt);
    rc = mediaCheckFile((char *)args[0], outputCB, &data);
    tcsetattr(0, TCSANOW, &oldt);

    if (data.verbose)
	printf("\n");

    exit(processExitStatus(rc));
}