#!/usr/bin/php
<?

require_once('config.php');
require_once('dom.php');

function fatal($msg) {
	die($msg."\n");
}

if (count($argv) == 1) {
	$command = 'list';
} else {
	$command = $argv[1];
}

// from: http://php.net/manual/en/function.is-int.php#82857
function isInteger($input){
    return(ctype_digit(strval($input)));
}

if ($command == 'upload') {
	if (count($argv) < 5) fatal('command upload requires three arguments');
	$filename = $argv[2];
	if (!is_readable($filename)) fatal($filename.' is not readable');
	if (is_dir($filename)) fatal($filename.' is a directory');
	$mime = mime_content_type($filename);
	if ($mime != 'application/pdf') fatal($mime.' unsupprted file format, only application/pdf supported');
	//echo("mime=$mime\n");
	$sha64 = substr(hash_file('sha256', $filename), 0, 16);
	//echo("sha256=$sha128...\n");
	if ($argv[3] != 'SINGLE' && $argv[3] != 'DUPLEX_LONG' && $argv[3] != 'DUPLEX_SHORT') {
		fatal("third argument must be SINGLE|DUPLEX_LONG|DUPLEX_SHORT");
	}
	$duplex = $argv[3];
	if (!isInteger($argv[4])) {
		fatal("fourth argument must be integer");
	}
	$copies = $argv[4];
}

// call a curl function, if an error occurs: show it and kill the program
function curl_safe($curl_function) {
	global $ch;
	$args = func_get_args();
	array_shift($args);
	array_unshift($args, $ch);

	if (!($ret = call_user_func_array('curl_'.$curl_function, $args))) {
		array_shift($args);
		echo('$ch='.$ch."\n");
		$msg = $curl_function.'($ch';
		foreach ($args as $arg) $msg .= ', '.$arg;
		$msg .= '): '.curl_error($ch);
		fatal($msg);
	}

	return $ret;
}

if (!isset($username) || !isset($password) ||
	!isset($url) || !isset($state_dir)) fatal('not all of $username, $password, $url en $state_dir not defined');


if (!is_dir($state_dir)) fatal($state_dir.' is not a directory'."\n");

$cookie_file = $state_dir.'/cookies.txt';

if (!touch($cookie_file)) fatal('unable to touch cookie file ('.$cookie_file.')');

if (!is_writable($cookie_file)) fatal('no write access to cookie file ('.$cookie_file.')');

if (!($ch = curl_init($url))) fatal('error initializing cURL');

curl_safe('setopt', CURLOPT_FOLLOWLOCATION, true);
curl_safe('setopt', CURLOPT_FAILONERROR, true);
curl_safe('setopt', CURLOPT_AUTOREFERER, true);
curl_safe('setopt', CURLOPT_RETURNTRANSFER, true);
curl_safe('setopt', CURLOPT_COOKIEFILE, $cookie_file);
curl_safe('setopt', CURLOPT_COOKIEJAR, $cookie_file);

// don't whine about errors in the HTML on stderr
libxml_use_internal_errors(true);

function curl_everyoneprint_req($suburl = '', $postfields = '') {
	global $url;

	if ($postfields) {
		curl_safe('setopt', CURLOPT_POST, true);
		curl_safe('setopt', CURLOPT_POSTFIELDS, $postfields);
	}
	else curl_safe('setopt', CURLOPT_HTTPGET, true);

	curl_safe('setopt', CURLOPT_URL,  $url.$suburl);

	$doc = new DOMDocument();
	$html = curl_safe('exec');
	echo('------START------'."\n".$html."\n".'------END-----'."\n");
	$doc->loadHTML($html);
	$xpath = new DOMXPath($doc);

	// see: https://dzone.com/articles/php-don%E2%80%99t-call-destructor
	$doc = NULL; // destroy doc

	return $xpath;
}

$xpath = curl_everyoneprint_req();

// everyoneprint geeft twee verschillende resultaten bij
// het aanroepen van de hoofdurl:
// - een loginpagina, herkenbaar aan form met method login.cfm
// - een overzichtspagine, herkenbaar aan form method webprint.cfm
$form = $xpath->query('//form')->item(0);
if ($form->getAttribute('action') == 'login.cfm') {
	$action = $form->getAttribute('action');
	$method = $form->getAttribute('method');

	dom_form_set_input($form, $xpath, 'Username', $username);
	dom_form_set_input($form, $xpath, 'Password', $password);

	$postfields = dom_form($form, $xpath);
	//curl_safe('setopt', CURLOPT_POST, true);
	//curl_safe('setopt', CURLOPT_URL,  $url.$action);
	//curl_safe('setopt', CURLOPT_POSTFIELDS, dom_form($form, $xpath));

	$xpath = NULL; //destruct object
	$xpath = curl_everyoneprint_req($action, $postfields);

	$form = $xpath->query('//form')->item(0);
	if ($form->getAttribute('action') == 'login.cfm')
		fatal('inloggen mislukt, gebruikersnaam/wachtwoord onjuist? website veranderd?');
}

if ($form->getAttribute('action') != 'webprint.cfm')
	fatal('website gevonden met eerste form != webprint.cfm ('.$form->getAttribute('action').'), API veranderd');

function read_table($xpath) {
	$table = $xpath->query('//table[@class="tablelist"]/tr');

	$legend = array();
	$info = array();
	$ignore = 0;
	foreach ($table as $row) {
		if (count($legend) == 0) {
			$ths = $xpath->query('th', $row);
			foreach ($ths as $idx => $th) 
				if ($th->textContent != '&nbsp;') $legend[$idx] = $th->textContent;
		} else {
			if ($ignore) {
				//echo("info_idx=$info_idx ignore=$ignore\n");
				if ($ignore == 2) {
					$tds = $xpath->query('td', $row);
					$info[$info_idx]['forms'] = $tds->item(2);
				}
				$ignore--;
				continue;
			}
			$tds = $xpath->query('td', $row);
			$info_row = array();
			foreach ($tds as $idx => $td) {
				if (isset($legend[$idx])) $info_row[$legend[$idx]] = $td->textContent;
			}
			if ($info_row['Status'] == 'Wachten op vrijgeven') {
				$ignore = 2;
				$info_idx = count($info);
			}
			$info[] = $info_row;
		}
	}
	return $info;
}

switch ($command) {
case 'list':
	$info = read_table($xpath);
	foreach ($info as $row) {
		echo($row['Bestandsnaam'].' '.$row['Status']."\n");
	}
	break;
case 'upload':
	$uploadname = $sha64.'.'.microtime(true).'.pdf';
	$postfields = dom_form($form, $xpath);
	$file_upload = $xpath->query('.//input[@name="FileToPrint" and @type="file" and not(@disabled)]', $form)->item(0);
	if (!$file_upload) fatal("file upload form element not found");
        $postfields['FileToPrint'] = new CurlFile($filename, $mime, $uploadname);
	$xpath = curl_everyoneprint_req('webprint.cfm', $postfields);
	$counter = 0;
	do {
		$info = read_table($xpath);
		$status = '';
		foreach ($info as $row) {
			if ($row['Bestandsnaam'] == $uploadname) {
				$status = $row['Status'];
				break;
			}
		}
		if ($status == '') fatal("uploaded file not to be found on website");
		//echo($status."\n");
		if ($status == 'Wachten op vrijgeven') break;
		if ($counter++ > 10) fatal('timeout waiting on processing');
		sleep(3);
		$xpath = curl_everyoneprint_req();
	} while (true);
	//print_r($row);
	$forms = $xpath->query('.//form', $row['forms']);
	$button = NULL;
	foreach ($forms as $idx => $form) {
		$button = $xpath->query('.//input[@type="button" and @value="'.$default_printer.'"]', $form)->item(0);
		if ($button) break;
		//print_r($button);
		//if ($button)
		//echo("idx=$idx ".$button->item(0)->getAttribute('value')."\n");
	}
	if (!$button) fatal("print button for default printer not found");
	// don't send button, it seems to confuse the website
	$button->setAttribute('name', '');
	dom_form_set_input($form, $xpath, 'NumberOfCopies', $copies);
	switch ($duplex) {
	case 'SINGLE':
		dom_form_check_radio($form, $xpath, 'Duplex', "1");
		break;
	case 'DUPLEX_LONG':
		dom_form_check_radio($form, $xpath, 'Duplex', "2");
		break;
	case 'DUPLEX_SHORT':
		dom_form_check_radio($form, $xpath, 'Duplex', "3");
		break;
	default;
		fatal("impossible");
	}
	$postfields = dom_form($form, $xpath);
	$postfields['method'] = 'printjob';
	print_r($postfields);
	$xpath = curl_everyoneprint_req('afunctions.cfm', $postfields);
	break;
default:
	fatal("command $command not implemented");
}

?>