EDIEREN im Browser: Eingabefeld

[[tuscript:loesungen:start|Zurück zum Inhaltsverzeichnis - Lösungen und Tipps]] ---- **Vorbemerkung:** Nichtlateinische Texte (Hebräisch, Griechisch, Cyrillisch, Arabisch etc.) können **statt in Umschrift im Editor** auf eine bequeme Art und Weise im "WYSIWYG-Verfahren" **in einem Browser eingegeben und direkt in den TUSTEP-Editor abgespeichert** und so weiterverarbeitet werden.\\ - {{files_open:benutzericons:kollatz-lg.jpg?nolink&16x16|kollatz}} kollatz \\ \\ {{files_open:bilder:Browsereingabe.jpg|Browsereingabe.jpg}}\\ \\ Es sind dazu **drei Schritte** nötig:\\ - Einrichten einer TUSTEP-Sitzung und Kopieren der unten beigegebenen TUSTEP-Initialisierungsdatei in das entsprechende Verzeichnis\\ **Hinweis:** Die Datei 'browser_tustep.ini' muss zuvor in 'tustep.ini' umbenannt werden! - Erstellen eines CGI-Skripts (''#*CGI'') - Starten des TUSTEP-Servers (''#*SERVER'') und Erstellen eines Icons. \\ Der **Film** 'ediereImBrowser' zeigt den ganzen Ablauf. \\ \\ {{files_open:daten:browser_tustep.ini|browser_tustep.ini}} [14 KB] \\ \\ {{files_open:daten:ediereImBrowser.mov|ediereImBrowser.mov}} [4 MB] \\ \\ \\ **Darstellung der INI-Datei mit den Segmenten INIT und EDIERE**\\

#=  INIT
#=  EDIERE         Eingabe auch nichtlateinischer Zeichen im Browser
#=: INIT                                                       #=- 04.12.13 15:37:37
$$ MODE TUSCRIPT
IF (batch) THEN
  EXECUTE/QUIET #definiere,code=iso8859
  EXECUTE/QUIET #fehlerhalt,ein
ELSE
  EXECUTE #pr,port
  EXECUTE #wischen, aus
  EXECUTE #de,co=-std-,farben=-std-
ENDIF
#=: EDIERE         Eingabe auch nichtlateinischer Zeichen im Browser #=- 04.12.13 13:50:40
$$ MODE TUSCRIPT,{}

SECTION checkvars
queryvars = DECODE (query, cgi)
nam=GET_VALUE (queryvars, "nam")
tag=GET_VALUE (queryvars, "tag")
ein=GET_VALUE (queryvars, "ein")

IF (nam.ne."") THEN
 IF (nam.ne.'file_name') THEN
 DATA hinweis
 DATA Der Dateiname {nam} ist ungültig
 STOP
 ENDIF
  STATUS = OPEN (nam, WRITE, TUSTEP_DSK)
  IF (STATUS.ne."OK") THEN
    DATA Hinweis
    IF (STATUS .ew."belegt") THEN
     DATA Die Datei {nam} ist vom TUSTEP-Editor belegt
     DATA Bitte erst schliessen
     STOP
    ELSE
      STATUS = CREATE (nam,seq-p,TUSTEP_DSK)
      DATA Die Datei {nam} wurde zur Texteingabe angelegt.
    ENDIF
    DATA 
  ELSE
    DATA Hinweis
    DATA Die Datei {nam} wurde geöffnet
  ENDIF
ELSE
 DATA Hinweis
 DATA Es wurde keine Zieldatei definiert 
 STOP
ENDIF
IF (ein.ne."") THEN
  zeilen = SPLIT (ein, ":#\[000D\]#\[000A\]:")
  z = SIZE (zeilen)
   IF (tag.ne."") THEN
     tag_a = START_TAG (tag)
     tag_e = END_TAG (tag)
     IF (z.eq.1) THEN
       zeilen = JOIN (zeilen)
       zeilen = CONCAT (tag_a,zeilen,tag_e)
     ELSE
       zeilen=JOIN (zeilen),zl=""
       LOOP e=zeilen
         IF (zl.eq."") THEN
           zl = CONCAT (tag_a,e)
         ELSE
           zl = REPLACE (zl,0,e)
         ENDIF
       ENDLOOP
       zl = CONCAT (zl,tag_e), zeilen = SPLIT (zl)
     ENDIF
   ENDIF
  DO write
ELSE
  DATA Hinweis
  DATA Es wurde noch kein Text eingebeben
ENDIF
ENDSECTION
SECTION write
FILE $nam = zeilen
DATA Hinweis
DATA Der {z}-zeilige Eingabetext
DATA wurde in die Datei {nam} geschrieben
DATA Hinweis
DATA Die Datei {nam} wurde geschlossen
ENDSECTION

FETCH SERVER = SERVER_NAME
FETCH SCRIPT = SCRIPT_NAME
FETCH PORT   = SERVER_PORT
SET CGISCRIPT= "http://{SERVER}:{Port}{SCRIPT}",datum = DATE_3 (), uhrzeit = TIME_3 ()
FETCH query  = -std-

MODE DATA
  EDIEREN im Browser: Eingabefeld 

 
Browsergesteuerte Texteingabe
 {datum} {uhrzeit} port: {port}

1. Zieldatei  
2. Rahmendes Tag  (fakultativ)
3. Texteingabe

4.  
 
$$ IF (query .NE. "") DO checkvars
 CC-BY Thomas Kollatz 2013-12-04
kol(at)steinheim-institut.org

\\ ---- [[tuscript:loesungen:start|Zurück zum Inhaltsverzeichnis - Lösungen und Tipps]]