<?php
header('Content-Type: text/plain');
header('Access-Control-Allow-Origin: *');

// Fail.
function croak($str) {
    http_response_code(500);
    echo "$str";
    exit();
}

// Open it.
$wordlist = '/usr/local/share/php/hangwords.txt';
$fp = fopen($wordlist, "r");
if($fp === false) croak("Unable to open word list");

// Find out how big it is.
$stat = fstat($fp);
if($stat === false) croak("Unable to measure word list");
$size = $stat['size'];

// Choose a starting place.
$loc = rand(0,$size-1);  // PHP's range is inclusive.

// Go there.
$sr = fseek($fp, $loc);
if($sr < 0) croak("Cannot seek word list");

// Since we are probably not at the start of a word, read one and pitch.
if(fgets($fp) === false) croak("Pre-read failed");

// Now, read words until we get one that meets our qualifications
define('SCANLIMIT', 100);
$minlen = 7;
$maxlen = 999999;
if(isset($_REQUEST['min'])) $minlen = $_REQUEST['min'];
if(isset($_REQUEST['max'])) $maxlen = $_REQUEST['max'];
for($i = 1; $i <= SCANLIMIT; $i++) {
    $word = fgets($fp);
    if($word === false) {
        if(feof($fp)) {
            if(fseek($fp,0) < 0) croak("Rewind failed.");
            continue;
        } else {
            croak("Scan read failed");
        }
    }
    $word = substr($word,0,-1);
    if(strlen($word) >= $minlen && strlen($word) <= $maxlen &&
       preg_match('/^[a-z]+$/',$word)) {
        echo $word;
        exit();
    }
}
croak("Unable to find suitable word");
?>