main.elm: auch unverschlüsselte Buchstaben auf beiden Zeilen zeigen

satz.php: erste funktionsfähige Version

main.elm

@@ -181,7 +181,7 @@ holeEchtenSatzVomServer : String -> Cmd Msg
 holeEchtenSatzVomServer topic =
     let
         url =
-            "http://localhost/satz.php"
+            "http://blaeul.de/Der-Wunschpunsch-in-Geheimschrift/satz.php"
     in
         Task.perform FetchFail SatzHolenWarErfolgreich (Http.get decodeWunschpunschJson url)
 
@@ -259,7 +259,9 @@ buchstabenInput model aktuellerBuchstabenIndex echterBuchstabe =
     in
         case verschlüsselungsergebnis of
             NichtVerschlüsselt ->
-                [ text echterBuchstabe ]
+                [ text echterBuchstabe
+                , Html.br [] []
+                , text echterBuchstabe ]
 
             Verschlüsselt zufälligerBuchstabe ->
                 [ text zufälligerBuchstabe

satz.php

@@ -1,3 +1,15 @@
 <?php
+$sText = join(' ', array_map(function($input) {
+    return preg_replace("/([a-z])- +/", "$1", $input);
+}, file('Michael Ende - Der Wunschpunsch.txt')));
+
+$sText = str_replace(array("\n", "\r"), "", $sText);
+
+$aSaetze = explode(".", $sText);
+$iSatz = rand(0, count($aSaetze) - 1);
+
+$sSatz = '';
+while(strlen($sSatz) < 150) $sSatz .= $aSaetze[$iSatz++] . ".";
+
 header('Access-Control-Allow-Origin: *');
-echo json_encode(array('echterSatz' => 'Zufall'));
+echo json_encode(array('anzahlSaetze' => count($aSaetze), 'aktuellerSatzIndex'=> $iSatz, 'echterSatz' => trim(str_replace("  ", " ", $sSatz))));