TEXT****RAN+translate **** ****&7@Ed####d# j ####04.12.1315:40:51 ############ #### ####kd#= INITdD#= EDIERE Eingabe auch nichtlateinischer Zeichen im Browser````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````kf#=: INIT #=- 04.12.13 15:37:37 ``d$$ MODE TUSCRIPTIF (batch) THEN`,' EXECUTE/QUIET #definiere,code=iso8859` EXECUTE/QUIET #fehlerhalt,ein`ELSEX EXECUTE #pr,port``* EXECUTE #wischen, aus`8 # EXECUTE #de,co=-std-,farben=-std-`?*ENDIF```_8l#=: EDIERE Eingabe auch nichtlateinischer Zeichen im Browser #=- 04.12.13 13:50:40 i?d$$ MODE TUSCRIPT,{}`n_xi,SECTION checkvars```nqueryvars = DECODE (query, cgi)`x nam=GET_VALUE (queryvars, "nam")X tag=GET_VALUE (queryvars, "tag") ein=GET_VALUE (queryvars, "ein") IF (nam.ne."") THEN` IF (nam.ne.'file_name') THEN```L( DATA
hinweisB DATA Der Dateiname {nam} ist ungltig
`` STOP```x ENDIF`` ( STATUS = OPEN (nam, WRITE, TUSTEP_DSK)@ IF (STATUS.ne."OK") THEN``& + DATA
Hinweis`4! IF (STATUS .ew."belegt") THEN```K&lG DATA Die Datei {nam} ist vom TUSTEP-Editor belegt`[4* DATA Bitte erst schliessen
``cK4 STOP```j[ ELSEzc, STATUS = CREATE (nam,seq-p,TUSTEP_DSK)j` K DATA Die Datei {nam} wurde zur Texteingabe angelegt.`z ENDIF```(  DATA   ELSE`` + DATA
Hinweis`T C DATA Die Datei {nam} wurde geffnet
`  ENDIF` ELSE ( DATA
Hinweis 4 DATA Es wurde keine Zieldatei definiert
H  STOP```  ENDIF```IF (ein.ne."") THEN`( t. zeilen = SPLIT (ein, ":#\[000D\]#\[000A\]:")``2 z = SIZE (zeilen)`=(< IF (tag.ne."") THEN``I2 tag_a = START_TAG (tag)U= tag_e = END_TAG (tag)```Ih IF (z.eq.1) THEN```mU zeilen = JOIN (zeilen)```}`0+ zeilen = CONCAT (tag_a,zeilen,tag_e)`m ELSE```}! zeilen=JOIN (zeilen),zl=""```\ LOOP e=zeilen IF (zl.eq."") THEN`$ zl = CONCAT (tag_a,e) ELSE``` zl = REPLACE (zl,0,e)P ENDIF`` ENDLOOP``2 zl = CONCAT (zl,tag_e), zeilen = SPLIT (zl)``| ENDIF`` ENDIFD DO write`` ELSE ) DATA
Hinweis```/ p4 DATA Es wurde noch kein Text eingebeben
6ENDIF```>/8 ENDSECTION``G6 SECTION write```Q>FILE $nam = zeilen```Gd'DATA
Hinweis`rQ1DATA Der {z}-zeilige Eingabetext````,EDATA wurde in die Datei {nam} geschrieben
```r'DATA
Hinweis`BDATA Die Datei {nam} wurde geschlossen
``X ENDSECTION`` FETCH SERVER = SERVER_NAME``FETCH SCRIPT = SCRIPT_NAME``LFETCH PORT = SERVER_PORT``VSET CGISCRIPT= "http://{SERVER}:{Port}{SCRIPT}",datum = DATE_3 (), uhrzeit = TIME_3 ()`` FETCH query = -std-x  MODE DATA```+@= EDIEREN im Browser: Eingabefeld ```:(C+  ``R:l &

Browsergesteuerte Texteingabe

``iC H

{datum} {uhrzeit} port: {port}

yR4!)
```i!A

1. Zieldatei

```y!Y

2. Rahmendes Tag (fakultativ)

````"

3. Texteingabe

`"V

``(#M

4.

```#"$$ IF (query .NE. "") DO checkvars``#s

CC-BY Thomas Kollatz 2013-12-04
kol(at)steinheim-institut.org

`T$ `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````}?