Script

BAR$SCRIPT (RPGLE)



  X * JAVASCRIPTS1 BEGSR BAR$SCRIPT 22  
  X * JS1SMILY BEGSR BAR$SCRIPT 12  
  X * JS1FOCUS BEGSR BAR$SCRIPT 42  
  X * JS1WER BEGSR BAR$SCRIPT 26  
  X * JS1NAME BEGSR BAR$SCRIPT 120  
  X * JS1COLOR BEGSR BAR$SCRIPT 29  
  X * JS1SRC BEGSR BAR$SCRIPT 36  
  X * JS1IFRAME BEGSR BAR$SCRIPT 25  
  X * JAVASCRIPTS2 BEGSR BAR$SCRIPT 24  
  X * JS2SRC BEGSR BAR$SCRIPT 142  
  X * JS2CLOSE BEGSR BAR$SCRIPT 13  
  X * JS2FOCUS BEGSR BAR$SCRIPT 28  
  X * JS2RELOAD BEGSR BAR$SCRIPT 124  
  X * JS2KAMERA BEGSR BAR$SCRIPT 809  
  X * JS2SIZE BEGSR BAR$SCRIPT 93  
  X * JS2FRAME BEGSR BAR$SCRIPT 139  
  X * JS2CHAT BEGSR BAR$SCRIPT 470  
  X * JS2COLOR BEGSR BAR$SCRIPT 60  
  X * JAVASCRIPT$ BEGSR BAR$SCRIPT 24  
  X * JAVASCRIPT# BEGSR BAR$SCRIPT 39  
  X * JAVASCRIPT#2 BEGSR BAR$SCRIPT 29  
  X * JAVASCRIPTALL BEGSR BAR$SCRIPT 17  
  X * JAVASCRIPTSEC BEGSR BAR$SCRIPT 20  
  X  
  X * RUKEY1ART4 KLIST BAR$SCRIPT 3  
  X  
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * SRCEXIST EXSR BAR$EXIST    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * LISTEPFNEU EXSR BAR$LISTE    
  X * LISTEAKTNEU EXSR BAR$LISTE    
  X * LISTEFRWNEU EXSR BAR$LISTE    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * MYTITELXQUERY EXSR BAR$TEXT    
  X * MYTITELXUTF8 EXSR BAR$TEXT    
  X * MYTITELXJS EXSR BAR$TEXT    
  X * STRNUM EXSR BAR$NUM    
  X * MYTITELXJS EXSR BAR$TEXT    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     JAVASCRIPTS1 BEGSR                
C *     --------------------------------------
C *     JavaScript ermitteln
C *     --------------------------------------
C       EVAL JAVASCRIPTS = ''
C          
C *     --------------------------------------
C *     JavaScript ermitteln
C *     --------------------------------------
C       EXSR JS1SMILY              
C       EXSR JS1FOCUS              
C       EXSR JS1WER              
C       EXSR JS1NAME              
C       EXSR JS1COLOR              
C       EXSR JS1SRC              
C       EXSR JS1IFRAME              
C          
C *     --------------------------------------
C *     JavaScript &#nnn; umsetzen
C *     --------------------------------------
C       EXSR JAVASCRIPT#              
C       ENDSR                
C          
  X * JAVASCRIPTS1 EXSR BAR$SCRIPT    
  X  
C     JS1SMILY BEGSR                
C *     --------------------------------------
C *     Smily-Aktion
C *     --------------------------------------
C **   WWTYP IFEQ TYPSMILYS              
C **     EVAL JAVASCRIPTS =
C **     JAVASCRIPTS + '§-
C **        
C **       function smily(text) { +
C **                alert(text); }§'
C **     ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS1 EXSR BAR$SCRIPT    
  X  
C     JS1FOCUS BEGSR                
C *     --------------------------------------
C *     Fokus für Eingabefeld
C *     --------------------------------------
C     WWTYP IFEQ TYPFRP              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C             parent.setfocus =§-
C         !(document.createElement &&§-
C          (document.createElement(+
C          "audio")).canPlayType);§§-
C          
C             window.setTimeout(+
C            "parent.setfocus = false", 5000);§'
C       ENDIF                
C *     --------------------------------------
C *     Fokus für Eingabefeld
C *     --------------------------------------
C     WWTYP IFEQ TYPFRE              
C   62   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function clear() { +
C         document.forms[0].text.value = ""; }§-
C          
C         function focus() {}§-
C         function focus2() {}§'
C          
C   N62   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function clear() { +
C         document.forms[0].text.value = ""; }§-
C          
C         function focus() { +
C         document.forms[0].text.focus(); }§-
C          
C         function focus2() { +
C       if (parent.setfocus) focus(); }§'
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS1 EXSR BAR$SCRIPT    
  X  
C     JS1WER BEGSR                
C *     --------------------------------------
C *     Fensterhöhe auf Smartphone anpassen
C *     --------------------------------------
C     WWTYP IFEQ TYPFRE              
C     WWTYP OREQ TYPFRI              
C   66   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function wer(i) {§§-
C          
C           if (parent.wer1) {§-
C               parent.wer1 =§-
C              !parent.wer1; resize(); }§§-
C          
C           window.setTimeout("scroll()", 200);§-
C         }'
C   N66   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function wer(i) {§§-
C          
C           window.setTimeout("scroll()", 200);§-
C         }'
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS1 EXSR BAR$SCRIPT    
  X  
C     JS1NAME BEGSR                
C *     --------------------------------------
C *     Benutzername ermitteln
C *     --------------------------------------
C     WWTYP IFEQ TYPNEUMIT              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function setname(i) {§§-
C          
C           if ('+ID+'§-
C           &&  '+ID+'("mitglied"))§-
C               '+ID+'("mitglied").value = +
C                setname2(i.value).substring(0,§-
C               '+ID+'("mitglied").maxLength);§-
C         }§-
C         function setname2(v) { var i,n,char;§§-
C          
C           n = "";§'+'-
C           v = v.split(" ").join("");§-
C           v = v.split("\u00a7").join("s");§-
C           v = v.split("\u00c6").join("AE");§-
C           v = v.split("\u00df").join("ss");§-
C           v = v.split("\u00e6").join("ae");§-
C           v = v.split("\u0132").join("IJ");§-
C           v = v.split("\u0133").join("ij");§-
C           v = v.split("\u0152").join("OE");§-
C           v = v.split("\u0153").join("oe");§-
C           v = v.split("\u0195").join("hv");§-
C           v = v.split("\u01a2").join("OI");§-
C           v = v.split("\u01a3").join("oi");§-
C           v = v.split("\u01c4").join("DZ");§-
C           v = v.split("\u01c5").join("Dz");§-
C           v = v.split("\u01c6").join("dz");§-
C           v = v.split("\u01c7").join("LJ");§-
C           v = v.split("\u01c8").join("Lj");§-
C           v = v.split("\u01c9").join("lj");§-
C           v = v.split("\u01ca").join("NJ");§-
C           v = v.split("\u01cb").join("Nj");§-
C           v = v.split("\u01cc").join("nj");'
C          
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C           v = v.split("\u01e2").join("AE");§-
C           v = v.split("\u01e3").join("ae");§-
C           v = v.split("\u01f1").join("DZ");§-
C           v = v.split("\u01f2").join("Dz");§-
C           v = v.split("\u01f3").join("dz");§-
C           v = v.split("\u01f6").join("Hv");§-
C           v = v.split("\u01fc").join("AE");§-
C           v = v.split("\u01fd").join("ae");§-
C           v = v.split("\u0222").join("OU");§-
C           v = v.split("\u0223").join("ou");§-
C           v = v.split("\u0238").join("db");§-
C           v = v.split("\u0239").join("qp");§-
C           v = v.split("\u026e").join("lz");§-
C           v = v.split("\u0276").join("oe");§-
C           v = v.split("\u0278").join("phi");§-
C           v = v.split("\u02a3").join("dz");§-
C           v = v.split("\u02a4").join("dz");§-
C           v = v.split("\u02a5").join("dz");§-
C           v = v.split("\u02a6").join("ts");§-
C           v = v.split("\u02a7").join("ts");§-
C           v = v.split("\u02a8").join("tc");§-
C           v = v.split("\u02a9").join("fn");§-
C           v = v.split("\u02aa").join("ls");§-
C           v = v.split("\u02ab").join("lz");§-
C           v = v.split("\u02ac").join("ww");§§-
C          
C           char ='
C          
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C          "                                " +§-
C          "    $ +    + -. 0123456789      " +§-
C          " ABCDEFGHIJKLMNOPQRSTUVWXYZ    -" +§-
C          " abcdefghijklmnopqrstuvwxyz   - " +§-
C          "                                " +§-
C          "       s  a               o     " +§-
C          "AAAAAAACEEEEIIIIDNOOOOO OUUUUYTs" +§-
C          "aaaaaaaceeeeiiiidnooooo ouuuuyty" +'
C          
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C          "AaAaAaCcCcCcCcDdDdEeEeEeEeEeGgGg" +§-
C          "GgGgHhHhIiIiIiIiIiIiJjKkkLlLlLlL" +§-
C          "lLlNnNnNnnNnOoOoOoOoRrRrRrSsSsSs" +§-
C          "SsTtTtTtUuUuUuUuUuUuWwYyYZzZzZzs" +§-
C          "bBBbBbCCcDDDddEEEFfGGhIIKkllMNnO" +§-
C          "OoOoPpRSsSstTtTUuUVYyZzZZzzZZz w" +§-
C          "    DDdLLlNNnAaIiOoUuUuUuUuUueAa" +§-
C          "AaAaGgGgKkOoOoZzjDDdGgHWNnAaAaOo" +'
C          
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C          "AaAaEeEeIiIiOoOoRrRrUuUuSsTtZzHh" +§-
C          "NdOoZzAaEeOoOoOoOoYylntjdqACcLTs" +§-
C          "z  BUVEeJjQqRrYyaaabccddeeeeeeej" +§-
C          "ggggghhhiiillllmmmnnnoooprrrrrrr" +§-
C          "rrsssssttuuvvwyyzzzz   cobeghjkl" +§-
C          "q  dddtttfllwnhhhhjrrrrwy       " +§-
C          "                                " +§-
C          "glsx                            ";§'
C          
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C           for (i=0; i<v.length; i++) {§§-
C             n = n + char.charAt(+
C                    v.charCodeAt(i));§-
C           }§-
C           n = n.split(" ").join("");§-
C           return n.toLowerCase();§-
C         }'
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS1 EXSR BAR$SCRIPT    
  X  
C     JS1COLOR BEGSR                
C *     --------------------------------------
C *     Farbe für Profil auswählen
C *     --------------------------------------
C     WWTYP IFEQ TYPEDTMIT              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function setcolor(i) {§§-
C          
C           if ('+ID+'§-
C           &&  '+ID+'("color"))§-
C               '+ID+'("color").value = +
C                 i.bgColor;§§-
C          
C           if ('+ID+'§-
C           &&  '+ID+'("chatcolor"))§-
C               '+ID+'("chatcolor").bgColor = +
C                     i.bgColor;§-
C         }§-
C         function setcolor2(i) {§§-
C          
C           if ('+ID+'§-
C           &&  '+ID+'("chatcolor"))§-
C               '+ID+'("chatcolor").bgColor = +
C                     i.value;§-
C         }'
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS1 EXSR BAR$SCRIPT    
  X  
C     JS1SRC BEGSR                
C *     --------------------------------------
C *     Quellenzeile anzeigen
C *     --------------------------------------
C     '2' IFEQ DEBUG              
C     WWTYP IFEQ TYPSRC              
C     WWTYP OREQ TYPHTTPX              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function select(r) {§§-
C          
C           var s,d,dd;§-
C           var nbsp,span,text;§§-
C          
C              s = "";§-
C           nbsp = String.fromCharCode(160);§§-
C          
C           if (r.'+TAGNAME2+'§-
C           &&  r.'+TAGNAME2+'("td")) {§-
C           d = r.'+TAGNAME2+'("td"); +
C          
C           for (dd=0; dd<d.length; dd++) {§§-
C          
C           span = d[dd].colSpan;§-
C           text = d[dd].textContent§-
C               || d[dd].innerText;§§-
C          
C             s += ("|"+   (1!=span?span:"")+§-
C                   "|"+(nbsp!=text?text:""));§-
C           }}§-
C           if (s) alert(s);§-
C         }'
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS1 EXSR BAR$SCRIPT    
  X  
C     JS1IFRAME BEGSR                
C *     --------------------------------------
C *     Mini-Bar
C *     --------------------------------------
C     *IN34 IFEQ *ON              
C       MOVEL(P) TYPBAR NATYP            
C       EXSR NATYPNAV              
C     *BLANKS COMP QUERYJS       — — 78  
C   78   EVAL BUF         = '?'
C   N78   EVAL BUF         = '&'
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function chatload() { +
C          
C                  chat("'+%TRIM(PFADREL) +
C              %TRIM(NANAV)   +
C              %TRIM(HTML)    +
C              %TRIM(QUERYJS) + BUF +
C                 SCHMALNAME  + '1"); +
C         }§§-
C         if (document.cookie.indexOf("chatx=1") +
C           >= 0) chatload();§'
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     JAVASCRIPTS2 BEGSR                
C *     --------------------------------------
C *     JavaScript ermitteln
C *     --------------------------------------
C       EVAL JAVASCRIPTS = ''
C          
C *     --------------------------------------
C *     JavaScript ermitteln
C *     --------------------------------------
C       EXSR JS2SRC              
C       EXSR JS2CLOSE              
C       EXSR JS2FOCUS              
C       EXSR JS2RELOAD              
C       EXSR JS2KAMERA              
C       EXSR JS2SIZE              
C       EXSR JS2FRAME              
C       EXSR JS2CHAT              
C       EXSR JS2COLOR              
C          
C *     --------------------------------------
C *     JavaScript &#nnn; umsetzen
C *     --------------------------------------
C       EXSR JAVASCRIPT#              
C       ENDSR                
C          
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X  
C     JS2SRC BEGSR                
C *     --------------------------------------
C *     Quellenzeilen sammeln
C *     --------------------------------------
C     '2' IFEQ DEBUG              
C     WWTYP IFEQ TYPSRC              
C     WWTYP OREQ TYPHTTPX              
C       MOVEL(P) SRCTEXT MYTITEL            
C     *BLANKS COMP SRCTEXT       — — 77  
C   77   MOVEL(P) SRCMBR MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL DLTITEL            
C       MOVEL(P) SRCMBR MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL RCTITEL            
C       MOVEL(P) SRCTYPE MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL EDTITEL            
C       MOVEL(P) SPMS MYTITEL            
C       EXSR MYTITELXJS              
C          
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function source() {§§-
C          
C           var s,t,tt,r,rr,d,dd;§-
C           var time,diff,nbsp,span,text;§§-
C          
C              s = "";§-
C           time = (new Date()).getTime();§-
C           nbsp = String.fromCharCode(160);§§-
C          
C           if ('+NAME+'§-
C           &&  '+NAME+'("source")) {§-
C           t = '+NAME+'("source"); +
C          
C              for (tt=0; tt<t.length; tt++) {§§-
C          
C              if (t[tt].'+TAGNAME2+'§-
C              &&  t[tt].'+TAGNAME2+'("tr"))  {§-
C              r = t[tt].'+TAGNAME2+'("tr");  +
C          
C              for (rr=0; rr<r.length; rr++) {§§-
C          
C              if (r[rr].'+TAGNAME2+'§-
C              &&  r[rr].'+TAGNAME2+'("td"))  {§-
C              d = r[rr].'+TAGNAME2+'("td");  +
C          
C              for (dd=0; dd<d.length; dd++) {§§-
C          
C              span = d[dd].colSpan;§-
C              text = d[dd].textContent§-
C                  || d[dd].innerText;§§-
C          
C                s += ("|"+   (1!=span?span:"")+§-
C          "|"+(nbsp!=text?text:""));§§-
C          
C              } s += "\n"; }}}}§-
C           }§-
C           diff = (new Date()).getTime() - time;§§-
C          
C           if (s) alert("'+
C                 %TRIM(DLTITEL)+'\n'+
C                 %TRIM(RCTITEL)+' ('+
C                 %TRIM(EDTITEL)+ ') "++
C                s.length+" | "+diff++
C             " '+%TRIM(MYTITEL)+'\n"+s);§§-
C          
C         } window.setTimeout("source()", 10);§'
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Quellenteildatei geladen
C *     --------------------------------------
C     WWTYP IFEQ TYPSRC              
C     UPPER:LOWER XLATE(P) ELEMENT MYTITEL            
C       EXSR MYTITELX              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         if (parent.image)§-
C             parent.image("'+%TRIM(MYTITEL)+'");§'
C       ENDIF                
C *     --------------------------------------
C *     Eingebettete Rahmen laden
C *     --------------------------------------
C     WWTYP IFEQ TYPSRCS              
C       EVAL SRC = %TRIM(OBJEKTNAV)+'/neu3.gif'
C       EXSR SRCEXIST              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function image(i) {§§-
C          
C           if ('+ID+'§-
C           &&  '+ID+'(i)§-
C           &&  '+ID+'(i).style)§-
C               '+ID+'(i).style.display = "none";§§-
C          
C           if ('+ID+'§-
C           &&  '+ID+'(i)) {§-
C           d = '+ID+'(i);§-
C               '+ID+'(i).src = "'+SRC+'";§§-
C          
C               while (d§-
C                  &&  d.nodeName§-
C                  &&  d.nodeName.toLowerCase§-
C                  &&  d.nodeName.toLowerCase() +
C                          != "td") {§-
C                  d = d.parentNode; }§-
C                  p = d.previousSibling;§§-
C          
C               while (p§-
C                  &&  p.nodeName§-
C                  &&  p.nodeName.toLowerCase§-
C                  &&  p.nodeName.toLowerCase() +
C                          != "td") {§-
C                  p = p.previousSibling; }§§-
C          
C                  if (d && p§-
C                  &&  d.parentNode§-
C                  &&  d.parentNode.removeChild) {§-
C          d.parentNode.removeChild(d); +
C          p.colSpan += 1; }§-
C           }§-
C         }§-
C         function iframes() {§§-
C          
C           if ('+TAGNAME+'§-
C           &&  '+TAGNAME+'("iframe")) {§-
C           f = '+TAGNAME+'("iframe");§§-
C          
C               for (i=0; i<f.length; i++) {§§-
C          
C                if (f[i].longDesc) {§-
C                    f[i].src =§-
C                    f[i].longDesc;§-
C                    f[i].longDesc = ""; }}}§-
C         }'
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X  
C     JS2CLOSE BEGSR                
C *     --------------------------------------
C *     Fenster nach bestimmter Zeit schließen
C *     --------------------------------------
C **   WWTYP IFEQ TYPEXTERN              
C **     EVAL JAVASCRIPTS =
C **     JAVASCRIPTS + '§-
C **        
C **       window.setTimeout(+
C **      "window.open ( '''',''_self'').+
C **              close()", 30000);§'
C **     ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X  
C     JS2FOCUS BEGSR                
C *     --------------------------------------
C *     Fokus für Eingabefeld
C *     --------------------------------------
C   N62   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function focus1() { var i,element;§§-
C          
C           for (i=0; i<document.forms[0].length; +
C                               i++) {§-
C             element = document.forms[0].+
C                 elements[i];§§-
C          
C             if (element.type == "text"§-
C             ||  element.type == "textarea"§-
C             ||  element.type == "password"§-
C             ||  element.type == "search"§-
C             ||  element.type == "email"§-
C             ||  element.type == "url"§-
C             ||  element.type == "tel")§§-
C          
C                 if ( element.value == ""§-
C                 &&  element.name != "suche") {§-
C         element.focus(); break; }§-
C           }§-
C         } window.setTimeout("focus1()", 10);§'
C       ENDSR                
C          
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X  
C     JS2RELOAD BEGSR                
C *     --------------------------------------
C *     Seite per JavaScript neuladen
C *     --------------------------------------
C     WWTYP IFEQ TYPMNT              
C     WWTYP OREQ TYPERR              
C     WWTYP OREQ TYPLOGIN              
C     WWTYP OREQ TYPLOGIN2              
C     WWTYP OREQ TYPLOGIN3              
C     WWTYP OREQ TYPLOGOUT              
C     WWTYP OREQ TYPNEUMIT              
C     WWTYP OREQ TYPNEUPWD              
C     WWTYP OREQ TYPCHGPWD              
C     WWTYP OREQ TYPCHGMAIL              
C          
C       SELECT    
C *     --------------------------------------
C *     Aktuelle Seite
C *     --------------------------------------
C     WWTYP WHENEQ TYPMNT              
C     TARGET ANDNE TARGETPARENT              
C     *BLANKS IFEQ ELEMENT              
C       EVAL BUF = ''
C       ELSE                
C       EVAL BUF = %TRIM(ELEMENT) +
C             %TRIM(HTML)
C       ENDIF                
C *     --------------------------------------
C *     Fehler
C *     --------------------------------------
C     WWTYP WHENEQ TYPERR              
C     TARGET ANDNE TARGETPARENT              
C       EVAL BUF = %TRIM(PFADREL)
C          
C *     --------------------------------------
C *     Mitglied oder Rubrik
C *     --------------------------------------
C     *BLANKS WHENNE WWARTPN              
C     NOPN IFNE ARPN              
C     NORUB OREQ ARRUB              
C       EVAL BUF = %TRIM(PFADREL)
C       ELSE                
C *     --------------------------------------
C *     Rubrik des Artikels lesen
C *     --------------------------------------
C       OPEN RUBRIKL1       — 77 —  
C     RUKEY1ART4 CHAIN RUBRIKL1       77 77 —  
C          
C   77   EVAL BUF = %TRIM(PFADREL)
C   N77   EVAL BUF = %TRIM(PFADREL) +
C             %TRIM(RUNAV)   +
C             %TRIM(HTML)
C       ENDIF                
C *     --------------------------------------
C *     Eine Ebene höher
C *     --------------------------------------
C     *BLANKS WHENNE PFADREL1              
C       EVAL BUF = %TRIM(PFADREL1) +
C             %TRIM(ELEMENT2) +
C             %TRIM(HTML)
C          
C *     --------------------------------------
C *     Portal
C *     --------------------------------------
C       OTHER                
C       EVAL BUF = ''
C       ENDSL                
C *     --------------------------------------
C *     Seite per JavaScript neuladen
C *     --------------------------------------
C     *BLANKS IFEQ BUF              
C       EVAL BUF = './'
C       ENDIF                
C       EVAL BUF =
C       BUF + %TRIM(QUERYSUCHEJS)
C          
C *     --------------------------------------
C *     Seite per JavaScript neuladen
C *     --------------------------------------
C     'UCBrowser' SCAN AGENT       — 77 78  
C     *IN78 IFEQ *ON              
C          
C     *BLANKS COMP QUERYSUCHEJS       — — 78  
C   78   EVAL BUF = BUF + '?'
C   N78   EVAL BUF = BUF + '&'
C       EVAL BUF =
C       BUF + 'time='+ %CHAR(DATETIME:*ISO0)
C       ENDIF                
C *     --------------------------------------
C *     Seite per JavaScript neuladen
C *     --------------------------------------
C     TARGET IFEQ TARGETPARENT              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function replace() {§§-
C          
C           if (parent.scrollTo)§-
C               parent.scrollTo(0,0);§§-
C          
C           if (parent.location§-
C           &&  parent.location.replace)§-
C               parent.location.replace("'+BUF+
C                            '");§§-
C         } t = window.setTimeout("replace()", +
C                            0);§'
C       ELSE                
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function replace() {§§-
C          
C           if (window.scrollTo)§-
C               window.scrollTo(0,0);§§-
C          
C           if (window.location§-
C           &&  window.location.replace)§-
C               window.location.replace("'+BUF+
C                            '");§§-
C         } t = window.setTimeout("replace()", +
C                        60000);§'
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * JS2RELOAD CHAIN BAR$SCRIPT    
  X  
C     RUKEY1ART4 KLIST                
C       KFLD   ARMAN            
C       KFLD   ARRUB            
C          
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X  
C     JS2KAMERA BEGSR                
C *     --------------------------------------
C *     Aktuelles Kamerabild anzeigen
C *     --------------------------------------
C     *BLANKS IFEQ SIDQUERY              
C     *BLANKS ANDNE MYKAMERA              
C     XLATE2:XLATE1 XLATE(P) ARKAMERA MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL EDTITEL            
C       MOVEL(P) ARPTZ MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL DLTITEL            
C       MOVEL(P) ARFLIP MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL RCTITEL            
C       MOVEL(P) DEBUG MYTITEL            
C       EXSR MYTITELXJS              
C          
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C       /*-----------§-
C         Fehlersuche§-
C         -----------*/§§-
C          
C         debug = "'+%TRIM(MYTITEL)+'";§§-
C          
C       /*-------------------§-
C         Pfad zum Kamerabild§-
C         -------------------*/§§-
C          
C         source = "'+%TRIM(EDTITEL)+'";§§-
C          
C       /*------------------------§-
C         Kamerabild aktualisieren    +
C         Copyright Jürgen Reule 2014-2020§-
C         ------------------------*/§§-
C          
C         function webcam() {§§-
C          
C           if ('+ID+'§-
C           &&  '+ID+'("image")) {§-
C       var i = '+ID+'("image");§§-
C          
C               image  = new Image();§-
C               imagex = new Image();§-
C               imagex.src = i.src;§-
C               imagex.alt = i.alt;§§-
C          
C               naturalWidth =§-
C             i.naturalWidth;§§-
C          
C               up   = 0;§-
C               mode = 0;§-
C               restart(); +
C           }§-
C         }§-
C         function restart() {§§-
C          
C               pause = 0;§-
C               pausemin = 100;§§-
C          
C          if (!window.image) return;§§-
C          
C               window.clearTimeout(u);§-
C           u = window.setTimeout(+
C              "update()", up);§§-
C          
C               window.clearTimeout(t);§-
C           t = window.setTimeout("actionx = auto; +
C               pausemin = 5000", 300000);§-
C         }§'+'-
C         function update() {§§-
C          
C           if (up != 0) {§-
C               up  = 0; image.src = "";§-
C             if (debug) document.title = +
C           "snapshot";§-
C           }§-
C           resize = false;§§-
C          
C           image.onload  = imageload;§-
C           image.onerror = imageerror;§§-
C          
C           time = (new Date()).getTime();§§-
C          
C           image.src = source + +
C         (source.indexOf("?")<0?"?":"&") + +
C         "dummy="+time;§§-
C          
C           if (image.style) +
C               image.style.display = "block";§§-
C          
C           if (window.image2     && +
C               window.image1   //// resize.js§-
C           &&  window.image2.src != +
C               window.image1.src) { resize = true;§-
C               window.image2.src  = +
C               window.image1.src; }§-
C         }§-
C         function imageload() {§§-
C          
C           wait(1,image);§-
C         }§-
C         function imageerror() {§§-
C          
C           wait(0,imagex);§§-
C          
C           image.onload  = null;§-
C           image.onerror = null;§§-
C          
C           if (image.src != imagex.src)§-
C               image.src  = imagex.src;§-
C           if (image.alt != imagex.alt)§-
C               image.alt  = imagex.alt;§§-
C          
C           image = new Image();§-
C         }§'+'-
C         function wait(m,i) {§§-
C          
C           image = '+ID+'("image");§§-
C          
C           if (i.naturalWidth &&§-
C                 naturalWidth !=§-
C               i.naturalWidth) {§-
C                 naturalWidth  =§-
C               i.naturalWidth; mode = 1 - m;§-
C           }§-
C           if (image.style) +
C               image.style.display = (mode!=m?+
C                 "none":"block");§§-
C          
C           if (mode != m) image.offsetHeight; +
C         //// redraw§§-
C          
C           if (resize) maxWidth2 = 0; +
C                  //// resize.js§§-
C          
C           var diff  = (new Date()).getTime() +
C                         - time;§§-
C           if (pause < pausemin)§-
C               pause = pausemin;§§-
C          
C           if (mode != m) {§-
C               mode  = m; diff = pause; } else§-
C           if (mode == 0) diff = pause  + diff +
C                            - 5000;§§-
C               window.clearTimeout(u);§-
C           u = window.setTimeout("update()",§-
C                 Math.max(pause - diff, 0));§§-
C          
C         } u = window.setTimeout("", 0);§-
C           t = window.setTimeout("", 0);§-
C               window.setTimeout("webcam()", +
C                      1000);§§'+'-
C       /*---------------------------§-
C         Kamera abrufen oder steuern    +
C         Copyright Jürgen Reule 2014-2020§-
C         ---------------------------*/§§-
C          
C         function stream(s) {§§-
C          
C           window.location =§-
C             rtsp(source,s);§-
C                  return s;§-
C         }§-
C         function display(s) {§§-
C          
C           window.location =§-
C             http(source,s);§-
C                  return s;§-
C         }§-
C         function control(s) {§§-
C          
C             (new Image()).src =§-
C             http(source,s);§-
C                  actionx = auto;§-
C                  restart();§-
C                  return s;§-
C         }§-
C         function dummy(s) {§§-
C          
C             http(source,s);§-
C                  actionx = auto;§-
C                  restart();§-
C                  return s;§-
C         }§'+'-
C       /*-------------------------------§-
C         Basis der Web-Adresse ermitteln§-
C         -------------------------------*/§§-
C          
C         function rtsp(s,t) {§§-
C          
C           var username1 = username(s);§-
C           var password1 = password(s);§§-
C          
C           var userinfo1 =§-
C               userinfo(s, username1,§-
C               password1);§-
C           s = base(s);§§-
C          
C           if (debug) document.title = t;§§-
C          
C           var i = s.indexOf("//");§-
C           if (i<0) return "";§§-
C          
C           var j = s.indexOf("@",i+2);§-
C           if (j>=0) userinfo1 = "";§§-
C          
C           return "rtsp://"+§-
C                   userinfo1+§-
C               s.substring(i+2)+§-
C               t.split(usernamex).§-
C                  join(username1).§-
C                 split(passwordx).§-
C                  join(password1);§-
C         }§-
C         function http(s,t) {§§-
C          
C           if (debug) document.title = t;§§-
C          
C           return base(s)+§-
C               t.split(usernamex).§-
C                  join(username(s)).§-
C                 split(passwordx).§-
C                  join(password(s));§-
C         }§'+'-
C       /*-------------------------------§-
C         Basis der Web-Adresse ermitteln§-
C         -------------------------------*/§§-
C          
C         function base(s) { var i;§§-
C          
C           i = s.indexOf("#"); if (i>=0)§-
C           s = s.substring(0,i);§§-
C          
C           i = s.indexOf("?"); if (i>=0)§-
C           s = s.substring(0,i);§§-
C          
C           i = s.indexOf("//");§-
C           if (i<0) return "";§§-
C          
C           i = s.indexOf("/",i+2);§-
C           if (i<0) return s+"/";§§-
C          
C           return s.substring(0,i+1);§-
C         }§'+'-
C       /*-----------------------§-
C         Parameterwert ermitteln§-
C         -----------------------*/§§-
C          
C         function search(s) { var i;§§-
C          
C           i = s.indexOf("#"); if (i>=0)§-
C           s = s.substring(0,i);§§-
C          
C           i = s.indexOf("?"); if (i>=0)§-
C           s = s.substring(i); else return "";§§-
C          
C           return "&"+s.substring(1);§-
C         }§-
C         function value(s) { var i;§§-
C          
C           i = s.indexOf("="); if (i>=0)§-
C           s = s.substring(i+1);§§-
C          
C           i = s.indexOf("&"); if (i>=0)§-
C           s = s.substring(0,i);§§-
C          
C           return s;§-
C         }§-
C         function param(s,t) { var i;§§-
C          
C           i = s.indexOf("&"+t+"="); if (i>=0)§-
C           return value(s.substring(i));§-
C           return "";§-
C         }§'+'-
C       /*-----------------------------------§-
C         Benutzername und Kennwort ermitteln§-
C         -----------------------------------*/§§-
C          
C         function username(s) {§§-
C          
C                   s = search(s);§-
C               var p = param(s,"-usr");§-
C           if (!p) p = param(s, "usr");§-
C           if (!p) p = param(s, "user");§-
C           if (!p) p = param(s, "username");§-
C           if (!p) p = param(s, "loginuse");§-
C                     return p;§-
C         }§-
C         function password(s) {§§-
C          
C                   s = search(s);§-
C               var p = param(s,"-pwd")§-
C           if (!p) p = param(s, "pwd");§-
C           if (!p) p = param(s, "userpwd");§-
C           if (!p) p = param(s, "password");§-
C           if (!p) p = param(s, "loginpas");§-
C                     return p;§-
C         }§-
C         function userinfo(s,user,pwd) {§§-
C          
C           if (!user) return "";§-
C           if (!pwd)  return user+"@";§-
C          return user+":"+pwd+"@";§-
C         }§-
C         usernamex = "(username)";§-
C         passwordx = "(password)";§§'+'-
C          
C       /*-----------------------§-
C         Über Kamerabild steuern    +
C         Copyright Jürgen Reule 2014-2020§-
C         -----------------------*/§§-
C          
C         ptz     = Number("'+%TRIM(DLTITEL)+'");§-
C         flip    = Number("'+%TRIM(RCTITEL)+'");§-
C         auto    = 0;§-
C         stop    = 5;§-
C         widthx  = 0;§-
C         heightx = 0;§-
C         actionx = stop;§§-
C          
C         document.write(''<map name="map">''); +
C                         var i;§§-
C         for (i=0; i<=11; i++) {§§-
C          
C           document.write(''<area +
C               shape="rect" coords="0,0,0,0"''+§-
C            '' style="-webkit-tap-highlight-color:+
C                   rgba(0,0,0,0); +
C                outline:0px"''+§-
C             '' href="javascript:void(0)" +
C             onclick="this.blur()" alt="">'');§-
C         }§-
C         document.write(''<\/map>'');§§-
C          
C         if ('+ID+'§-
C         &&  '+ID+'("image"))§-
C             '+ID+'("image").useMap="#map";§§'+'-
C          
C         function coords() {§§-
C          
C           if ('+ID+'§-
C           &&  '+ID+'("image")) {§-
C       var w = '+ID+'("image").width;§-
C       var h = '+ID+'("image").height;§§-
C          
C             if (widthx != w || heightx != h) {§-
C                 widthx  = w;   heightx  = h;§§-
C          
C                 if ( '+TAGNAME+'§-
C                 &&  '+TAGNAME+'("map")§-
C                 &&  '+TAGNAME+'("map")[0]) {§-
C             var m = '+TAGNAME+'("map")[0];§§-
C          
C                   var w0 = 0; var w3 = w;§-
C                   var w1 = Math.round(w/3);§-
C                   var w2 = Math.round(w/3*2);§-
C                   var ws = Math.round(w/9);§-
C                   var wm = w3-ws;§§-
C          
C                   var h0 = 0; var h3 = h;§-
C                   var h1 = Math.round(h/3);§-
C                   var h2 = Math.round(h/3*2);§-
C                   var hs = Math.round(h/9);§-
C                   var hm = h3-hs;§§-
C          
C                   var i;§-
C                   var s = '','';§-
C                   var a = m.areas;§§'+'-
C          
C                   if (a.length > 11) {§§-
C          
C         var rect = new Array(§§-
C          
C             w0+s+h0+s+ws+s+hs,§-
C             w0+s+hm+s+ws+s+h3,§-
C             wm+s+hm+s+w3+s+h3,§§-
C          
C             w0+s+h0+s+w1+s+h1,§-
C             w1+s+h0+s+w2+s+h1,§-
C             w2+s+h0+s+w3+s+h1,§§-
C          
C             w0+s+h1+s+w1+s+h2,§-
C             w1+s+h1+s+w2+s+h2,§-
C             w2+s+h1+s+w3+s+h2,§§-
C          
C             w0+s+h2+s+w1+s+h3,§-
C             w1+s+h2+s+w2+s+h3,§-
C             w2+s+h2+s+w3+s+h3);§§-
C          
C         for (i=0; i<=11; i++) {§§-
C          
C            a[i].shape  = "rect";§-
C            a[i].coords =  rect[i];§-
C            a[i].href   = "javascript:+
C            void(area("+(i-2)+"))";§-
C          
C         }  a[0].href   = +
C           "javascript:+
C                   void(setup())";§-
C          
C            a[1].href   = +
C           "javascript:+
C                   void(snapshot())";§-
C          
C            a[2].href   = +
C           "javascript:+
C                   void(videostream())"; }}}}§§-
C          
C           window.setTimeout("coords()", 1000);§-
C         } window.setTimeout("coords()", 0);§§'+'-
C          
C         function setup() {§-
C                  display('''');§-
C         }§-
C         function snapshot() {§§-
C          
C           if (window.location)§-
C               window.location.href = source +§-
C              (source.indexOf("?")<0?"?":"&") + +
C              "dummy="+(new Date()).getTime();§-
C         }§-
C         function videostream() { var s = source;§§-
C          
C           if (ptz ==  1§-
C           ||  ptz == 11§-
C           ||  ptz ==  2§-
C           ||  ptz == 22§-
C           ||  ptz == 31) s = +
C               s.split("/snapshot.jpg").+
C               join("/videostream.cgi"); else§-
C          
C           if (ptz == 37) s = +
C               s.split("/snapshot.jpg").+
C                    join("/stream.jpg"); else§§-
C          
C           if (ptz ==  7§-
C           ||  ptz == 77§-
C           ||  ptz ==  8§-
C           ||  ptz == 88) s = +
C               s.split("/snapshot.jpg").+
C                  join("/snapshot.cgi"); else§-
C          
C           if (ptz ==  3) s = +
C               s.split("/snapshot.jpg").+
C                  join("/pushpic");§§-
C          
C           '+'+
C           if (s == source) s =§§-
C          
C               s.split("/snapshot.cgi").+
C               join("/videostream.cgi").§-
C          
C                 split("/snapshot.jpg").+
C                    join("/stream.jpg").§-
C          
C                 split("/snapshot.").+
C                  join("/snap|").§-
C          
C                 split("/snapshot").+
C                  join("/pushpic").§-
C          
C                 split("/snap|").+
C                  join("/snapshot.").§§-
C          
C                 split("/CGIProxy.fcgi").+
C                  join("/CGIStream.cgi").§-
C          
C                 split("cmd=snapPicture2").+
C                  join("cmd=getMJStream").§§-
C          
C                 split("/tmpfs/snap.jpg").+
C                  join("/cgi-bin/hi3510/+
C            mjpegstream.cgi").§-
C          
C                 split("/tmpfs/auto.jpg").+
C                  join("/cgi-bin/hi3510/+
C            mjpegstream.cgi").§§-
C          
C                 split("/image/jpeg.cgi").+
C                  join("/video/mjpg.cgi").§-
C          
C                 split("/jpg/image.jpg").+
C                 join("/mjpg/video.mjpg").§-
C          
C                 split("/cgi-bin/viewer+
C            /video.jpg").+
C                  join("/video.mjpg").§-
C          
C                 split("/video.jpg").+
C                  join("/video.mjpg").§-
C          
C                 split("/jpeg.jpg").+
C                 join("/mjpeg.jpg").§§-
C          
C                 split("/shot.jpg").+
C                  join("/video");§§-
C          
C           '+'+
C           if (s != source) {§§-
C          
C               if (debug) document.title = +
C             "videostream";§§-
C          
C               image.onload  = null;§-
C               image.onerror = null;§§-
C          
C               if (image.src != s)§-
C                   image.src  = s;§§-
C          
C               up = 30000;§-
C               restart();§-
C           }§-
C         }'
C       ENDIF                
C     *BLANKS IFNE DEBUG              
C     *BLANKS ORNE ARKAMERA              
C     *BLANKS IFNE MYKAMERA              
C     *BLANKS ANDEQ SIDQUERY              
C     WWTYP OREQ TYPNEUPN2              
C     WWTYP OREQ TYPEDTPN2              
C     WWTYP OREQ TYPNEUART2              
C     WWTYP OREQ TYPEDTART2              
C       MOVEL(P) SPHOCH MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL DLTITEL            
C       MOVEL(P) SPQUER MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL RCTITEL            
C       MOVEL(P) SPBEIDES MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL EDTITEL            
C          
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function ptzs() {§§-
C          
C           return "1/11=decoder1 "+§-
C         "3=ptzctrl "+§-
C         "6=proxy "+§-
C                  "2/22=decoder2 "+§-
C                  "4/44=351x "+§-
C         "5=ptdc \n"+§-
C                  "7/77=camera "+§-
C                  "8/88=axis "+§-
C         "9=camctrl "+§-
C                    "31=decoder3 "+§-
C                    "35=focus "+§-
C                    "36=prompt ";§-
C         }§-
C         function flips() {§§-
C          
C           return    "1='+%TRIM(DLTITEL)+' / "+§-
C         "2='+%TRIM(RCTITEL)+' / "+§-
C         "3='+%TRIM(EDTITEL)+' ";§-
C         }'
C       ENDIF                
C       ENDIF                
C     *BLANKS IFNE MYKAMERA              
C     *BLANKS ANDEQ SIDQUERY              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function flipx(action,flip) {§§-
C          
C           if (action < 1§-
C           ||  action > 9) return action;§§-
C          
C           if (flip  == 2§-
C           ||  flip  == 3) action = 10 - action;§§-
C          
C           if (flip  == 0§-
C           ||  flip  == 3) return action;§§-
C          
C           if (action > 6) return action - 6;§-
C           if (action > 3) return action;§-
C               return action + 6;§-
C         }§'+'-
C         function area(action) {§§-
C          
C           onestep = false;§-
C           action  = flipx(action,flip);§§-
C          
C           if (action == actionx)§-
C               action  = stop;§§-
C          
C           if (action == actionx§-
C           &&  action == stop)§-
C               action  = auto;§§-
C          
C           if (ptz == 36) { var§-
C               ptzp = Number(window.§-
C          prompt(ptzs(),""));§-
C             if (ptzp) ptz = ptzp;§-
C           }§'+'-
C           if (ptz ==  1)  decoder1(action); else§-
C           if (ptz == 11) decoder11(action); else§-
C           if (ptz ==  2)  decoder2(action); else§-
C           if (ptz == 22) decoder22(action); else§-
C           if (ptz == 31)  decoder3(action); else§-
C           if (ptz ==  3)   ptzctrl(action); else§-
C           if (ptz ==  4)    hi3510(action); else§-
C           if (ptz == 44)   hi3510n(action); else§-
C           if (ptz ==  5)      ptdc(action); else§-
C           if (ptz ==  6)     proxy(action); else§-
C           if (ptz ==  9)   camctrl(action); else§-
C           if (ptz ==  7)   camera1(action); else§-
C           if (ptz == 77)   camera2(action); else§-
C           if (ptz ==  8)     axis1(action); else§-
C           if (ptz == 88)     axis2(action); else§-
C           if (ptz == 35)     focus(action); else§-
C                   none(action);§§-
C          
C           if (onestep) action  = stop;§-
C           if (debug && action == stop)§-
C               document.title  += " | stop";§§-
C          
C           actionx = action;§-
C         }§'+'-
C         function decoder1(action) {§-
C              if (decoder1x[action]!=26§-
C              &&  decoder1x[action]!=28)§-
C                  onestep = true;§-
C           return decoder11(action);§-
C         }§-
C         function decoder11(action) {§-
C           return control("decoder_control.cgi?"+§-
C                "command="+decoder1x[action]+§-
C              "&loginuse="+usernamex+§-
C              "&loginpas="+passwordx+§-
C               "&onestep="+(onestep?"1":"0"));§-
C         }§-
C         function decoder2(action) {§-
C              if (decoder2x[action]!=26§-
C              &&  decoder2x[action]!=28)§-
C                  onestep = true;§-
C           return decoder22(action);§-
C         }§-
C         function decoder22(action) {§-
C           return control("decoder_control.cgi?"+§-
C                "command="+decoder2x[action]+§-
C                  "&user="+usernamex+§-
C                   "&pwd="+passwordx+§-
C                (onestep?"&onestep=1":""));§-
C         }§-
C         function decoder3(action) {§-
C           return control("decoder_control.cgi?"+§-
C                "command="+decoder3x[action]+§-
C                  "&user="+usernamex+§-
C                   "&pwd="+passwordx);§-
C         }§'+'-
C         function ptzctrl(action) {§-
C           return control("ptzctrl?act="+§-
C               ptzctrlx[action]+§-
C              "&username="+usernamex+§-
C              "&password="+passwordx);§-
C *               userpwd= (alternativ) ...
C         }§-
C         function hi3510(action) {§-
C              if (hi3510x[action]!="vscan"§-
C              &&  hi3510x[action]!="hscan")§-
C                  onestep = true;§-
C           return hi3510n(action);§-
C         }§-
C         function hi3510n(action) {§-
C           return control("cgi-bin/hi3510/"+§-
C                    "param.cgi?cmd=ptzctrl"+§-
C                  "&-act="+hi3510x[action]+§-
C                  "&-usr="+usernamex+§-
C                  "&-pwd="+passwordx+§-
C                 "&-step="+(onestep?"1":"0"));§-
C         }§'+'-
C         function proxy(action) {§-
C           return control("cgi-bin/"+§-
C                "CGIProxy.fcgi?cmd="+§-
C             "ptz"+(proxyx[action]!="Stop"?§-
C            "Move"+ proxyx[action]: "StopRun")+§-
C           "&usr="+ usernamex+§-
C           "&pwd="+ passwordx);§-
C         }§-
C         function camctrl(action) {§-
C              if (camctrlx[action]!="pan"§-
C              &&  camctrlx[action]!="patrol"§-
C              &&  camctrlx[action]!="stop")§-
C                  onestep = true;§-
C           return control("cgi-bin/camctrl.cgi?"+§-
C                 (camctrlx[action]!="pan"§-
C              &&  camctrlx[action]!="patrol"§-
C              &&  camctrlx[action]!="stop"?§-
C          "move="+camctrlx[action]:§-
C          "auto="+camctrlx[action]));§-
C         }§'+'-
C         function camera1(action) {§-
C                  onestep = true;§-
C           return control("camera-cgi/com/"+§-
C             "ptz.cgi?move="+ptzx[action]);§-
C         }§-
C         function camera2(action) {§-
C           return control("camera-cgi/com/"+§-
C             "ptz.cgi?continuouspantiltmove="+§-
C                  ptzpanx [action]+","+§-
C                  ptztiltx[action]);§-
C         }§-
C         function axis1(action) {§-
C                  onestep = true;§-
C           return control("axis-cgi/com/"+§-
C             "ptz.cgi?move="+ptzx[action]);§-
C         }§-
C         function axis2(action) {§-
C           return control("axis-cgi/com/"+§-
C             "ptz.cgi?continuouspantiltmove="+§-
C                  ptzpanx [action]+","+§-
C                  ptztiltx[action]);§-
C         }§'+'-
C         function ptdc(action) {§-
C              if (ptdcpanx [action]!=999§-
C              &&  ptdctiltx[action]!=999)§-
C                  onestep = true;§-
C           return control("cgi/ptdc.cgi?command="+§-
C                 (ptdcpanx [action]!=999§-
C              &&  ptdctiltx[action]!=999?§-
C                 "set_relative_pos"+§-
C         "&posX="+ptdcpanx [action]+§-
C         "&posY="+ptdctiltx[action]:§-
C                 "pan_patrol"));§-
C         }§'+'-
C         function focus(action) {§-
C                  onestep = true;§-
C           return control("focus");§-
C         }§-
C         function none(action) {§-
C           return dummy(action.toString());§-
C         }§'+'-
C         decoder1x  = new Array(28,§-
C                 4,  0,  6,§-
C                 4,  1,  6,§-
C                 4,  2,  6);§§-
C          
C         decoder2x  = new Array(28,§-
C                 4,  0,  6,§-
C                 4,  1,  6,§-
C                 4,  2,  6);§§-
C          
C         decoder3x  = new Array(28,§-
C                 4,  1,  5,§-
C                 4,  0,  5,§-
C                 4,  2,  5);§§-
C         '+'+
C         ptzctrlx   = new Array("auto",§-
C            "left",  "up",  "right",§-
C            "left", "stop", "right",§-
C            "left", "down", "right");§§-
C          
C         hi3510x    = new Array("hscan",§-
C            "left",  "up",  "right",§-
C            "left", "stop", "right",§-
C            "left", "down", "right");§§-
C         '+'+
C         proxyx     = new Array("Stop",§-
C            "Left",  "Up",  "Right",§-
C            "Left", "Stop", "Right",§-
C            "Left", "Down", "Right");§§-
C          
C         camctrlx   = new Array("pan",§-
C            "left",  "up",  "right",§-
C            "left", "stop", "right",§-
C            "left", "down", "right");§§-
C         '+'+
C         ptzx       = new Array("stop",§-
C            "left",  "up",  "right",§-
C            "left", "stop", "right",§-
C            "left", "down", "right");§-
C         ptzpan     = 10;§-
C         ptzpanx    = new Array(   0,§-
C            -ptzpan,   0,   ptzpan,§-
C            -ptzpan,   0,   ptzpan,§-
C            -ptzpan,   0,   ptzpan);§-
C         ptztilt    = 10;§-
C         ptztiltx   = new Array(   0,§-
C               0,   ptztilt,  0,§-
C               0,      0,     0,§-
C               0,  -ptztilt,  0);§-
C         ptdcpan    = 10;§-
C         ptdcpanx   = new Array(  999,§-
C           -ptdcpan,   0,   ptdcpan,§-
C           -ptdcpan,   0,   ptdcpan,§-
C           -ptdcpan,   0,   ptdcpan);§-
C         ptdctilt   = 10;§-
C         ptdctiltx  = new Array(  999,§-
C               0,  ptdctilt,  0,§-
C               0,      0,     0,§-
C               0, -ptdctilt,  0);§-
C         '
C       SETOFF         — — 26  
C       ENDIF                
C *     --------------------------------------
C *     Kamera nicht ansprechen
C *     --------------------------------------
C   26   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function stream(s)  { return s; }§-
C         function control(s) { return s; }§-
C         function display(s) { return s; }§'
C          
C       ENDSR                
C          
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X  
C     JS2SIZE BEGSR                
C *     --------------------------------------
C *     Eingabefeld-Höhe
C *     --------------------------------------
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function sizetextarea() {§§-
C          
C           while (ta.offsetHeight +
C                > ta.scrollHeight +
C               && ta.rows > 10)   ta.rows--;§-
C          
C           while (ta.offsetHeight +
C                < ta.scrollHeight +
C               && ta.rows < 1000) ta.rows++;§-
C          
C              if (ta.offsetHeight +
C                > ta.scrollHeight +
C               && ta.rows < 1000) ta.rows++;§-
C         }§-
C         if ('+TAGNAME+'§-
C         &&  '+TAGNAME+'("textarea")§-
C         &&  '+TAGNAME+'("textarea")[0]) {§-
C         ta= '+TAGNAME+'("textarea")[0];§§-
C          
C             if (ta.style)§-
C                 ta.style.overflowY = "hidden";§§-
C          
C             ta.onkeyup    = sizetextarea;§-
C             ta.onkeydown  = sizetextarea;§-
C             ta.onkeypress = sizetextarea;§-
C             ta.onchange   = sizetextarea;§-
C                 sizetextarea();§-
C         }'
C *     --------------------------------------
C *     Eingabefeld-Größe anpassen
C *     --------------------------------------
C     WWTYP IFEQ TYPFRE              
C   64   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C                if ('+ID+'§-
C                &&  '+TAGNAME+') {§-
C         maxsize  = '+TAGNAME+'("input")[0].size;§-
C         maxwidth = '+TAGNAME+'("table")[0].+
C                    offsetWidth§-
C                  - '+ID+'      ("dauer").+
C                    offsetWidth; }§§-
C         function size() { var i,newsize;§§-
C          
C           if ('+ID+'§-
C           &&  '+TAGNAME+') {§-
C           i = '+TAGNAME+'("input")[0];§§-
C          
C               if ('+ID+'("dauer").offsetWidth§-
C                + maxwidth + 36 +
C                > width1())§-
C                    newsize = maxsize  * 2/3;§-
C               else newsize = maxsize;§§-
C          
C               if (i.size  != newsize)§-
C                   i.size   = newsize;§-
C           }§-
C           window.setTimeout("size()", 1000);§-
C         } window.setTimeout("size()", 0);§'
C       ENDIF                
C *     --------------------------------------
C *     Fensterbreite ermitteln
C *     --------------------------------------
C     WWTYP IFEQ TYPFRE              
C     WWTYP OREQ TYPFRI              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function width1() {§§-
C          
C              if (window.innerWidth)§-
C           return window.innerWidth;§§-
C          
C              if (document.body§-
C              &&  document.body.clientWidth)§-
C           return document.body.clientWidth;§§-
C          
C              if (document.documentElement§-
C              &&  document.documentElement.+
C                 clientWidth)§-
C           return document.documentElement.+
C                 clientWidth;§§-
C           return 0;§-
C         }'
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X  
C     JS2FRAME BEGSR                
C *     --------------------------------------
C *     Breite der Rahmen anpassen
C *     --------------------------------------
C     WWTYP IFEQ TYPFRW              
C   62   EVAL BUF         = ' + 24'
C   N62   EVAL BUF         = ' + 36'
C       EVAL BUF2        = ' + 16'
C          
C     *ZERO ADD ROWHEIGHT1 ROWHEIGHT            
C   N61 *ZERO ADD ROWHEIGHT2 ROWHEIGHT            
C   N66 *ZERO ADD ROWHEIGHT2 ROWHEIGHT            
C          
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function scroll() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[0]§-
C           &&  parent.frames[0].scroll)§-
C               parent.frames[0].scroll();§-
C *          FRNAV0
C         }§-
C         function resize() {§§-
C          
C           width      = 200;§-
C           height     = 200;§-
C           navigation = '+%CHAR(ROWHEIGHT4)+';§§-
C          
C                if ('+ID+'§-
C                &&  '+ID+'("wer")) {§-
C           width  = '+ID+'("wer").+
C              offsetWidth '+BUF +';§-
C           height = '+ID+'("wer").+
C              offsetHeight'+BUF2+';§-
C           }§-
C                if ('+ID+'§-
C                &&  '+ID+'("inhalt")) {§-
C           height = '+ID+'("inhalt").+
C              offsetHeight'+BUF2+';§-
C           }§-
C           if (width  > 480) +
C               width  = 480;§-
C          
C           if (height > 480) +
C               height = 480;§§-
C          
C           if(!parent.wer1) width      = 0;§-
C           if(!parent.wer1) height     = 0;§-
C           if(!parent.nav1) navigation = 0;§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[0]) {§-
C           f = parent.frames[0];§§-
C *          FRNAV0
C                if (f.'+ID+'§-
C                &&  f.'+ID+'("navigationx"))§-
C                    f.'+ID+'("navigationx").+
C             style.display = (navigation?+
C                 "none":"");§-
C                if (f.'+ID+'§-
C                &&  f.'+ID+'("hinweisx"))§-
C                    f.'+ID+'("hinweisx").+
C             style.display = (width?+
C              "":"none");§-
C                if (f.'+ID+'§-
C                &&  f.'+ID+'("inhalt"))§-
C                    f.'+ID+'("inhalt").+
C             style.display = (width?+
C                 "none":"");§-
C           }'
C   66   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C           if (parent.'+TAGNAME+'§-
C           &&  parent.'+TAGNAME+'("frameset")§-
C           &&  parent.'+TAGNAME+'("frameset")[0])§-
C               parent.'+TAGNAME+'("frameset")[0].+
C            cols = "";§§-
C          
C           if (parent.'+TAGNAME+'§-
C           &&  parent.'+TAGNAME+'("frameset")§-
C           &&  parent.'+TAGNAME+'("frameset")[0])§-
C               parent.'+TAGNAME+'("frameset")[0].+
C            rows = "*,"+height;§'
C   N66   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C           if (parent.'+TAGNAME+'§-
C           &&  parent.'+TAGNAME+'("frameset")§-
C           &&  parent.'+TAGNAME+'("frameset")[0])§-
C               parent.'+TAGNAME+'("frameset")[0].+
C            cols = "*,"+width;§'
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C           if (parent.'+TAGNAME+'§-
C           &&  parent.'+TAGNAME+'("frameset")§-
C           &&  parent.'+TAGNAME+'("frameset")[1])§-
C               parent.'+TAGNAME+'("frameset")[1].+
C            rows = "*,0,0,"++
C                       (navigation?'+
C            %CHAR(ROWHEIGHT3)+':'+
C            %CHAR(ROWHEIGHT)+')+","+navigation;§'
C          
C   66   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C           if (parent.'+TAGNAME+'§-
C           &&  parent.'+TAGNAME+'("frameset")§-
C           &&  parent.'+TAGNAME+'("frameset")[2])§-
C               parent.'+TAGNAME+'("frameset")[2].+
C            rows = "*,0,0";§'
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C           if (parent.wer2   != parent.wer1) {§-
C               parent.wer2    = parent.wer1;§-
C               parent.scrollx = true;§-
C           }§-
C           if (parent.nav2   != parent.nav1) {§-
C               parent.nav2    = parent.nav1;§-
C               parent.scrollx = true;§-
C           }§-
C           if (parent.scrollx) {§-
C               parent.scrollx = false;§-
C               window.setTimeout("scroll()", 200); +
C           }§-
C         }§-
C         window.setTimeout("resize()", 0);§'
C          
C   N66   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         parent.wer1 = false;§-
C         parent.nav1 = true;§'
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X  
C     JS2CHAT BEGSR                
C *     --------------------------------------
C *     Chat anstoßen
C *     --------------------------------------
C     WWTYP IFEQ TYPFRE              
C     WWTYP OREQ TYPFRI              
C       MOVEL(P) TYPFRR NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) BILDWER MYTITEL            
C       EXSR MYTITELXJS              
C     *BLANKS COMP QUERYJS       — — 78  
C   78   EVAL BUF         = '?'
C   N78   EVAL BUF         = '&'
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function scroll() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[0]§-
C           &&  parent.frames[0].scroll)§-
C               parent.frames[0].scroll();§-
C *          FRNAV0
C         }§-
C         function resize() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[5]§-
C           &&  parent.frames[5].resize)§-
C               parent.frames[5].resize();§-
C *          FRNAV5
C         }§-
C         function replace() {§§-
C          
C           if ('+ID+'§-
C           &&  '+ID+'("dauer"))§-
C               '+ID+'("dauer").innerHTML = "'+
C             %TRIM(MYTITEL)+'";§§-
C          
C           if ('+NAME+'§-
C           &&  '+NAME+'("submit")§-
C           &&  '+NAME+'("submit")[0])§-
C               '+NAME+'("submit")[0].disabled = +
C                         true;§§-
C           if (parent.frames§-
C           &&  parent.frames[1]§-
C           &&  parent.frames[1].location§-
C           &&  parent.frames[1].location.replace)§-
C               parent.frames[1].location.replace("'+
C *          FRNAV1
C                  %TRIM(NANAV)  +
C                  %TRIM(PFADX)  +
C                  %TRIM(QUERYJS)+BUF+'time="++
C         ( new Date()).getTime());§§-
C          
C           t = window.setTimeout("replace()", '+
C                   %CHAR(TIMEOUT5)+'000);§-
C         }§-
C         function timeout(p) {§§-
C          
C           if ('+NAME+'§-
C           &&  '+NAME+'("submit")§-
C           &&  '+NAME+'("submit")[0])§-
C               '+NAME+'("submit")[0].disabled = +
C                         false;§§-
C               window.clearTimeout(t);§-
C           t = window.setTimeout("replace()", p);§-
C         } t = window.setTimeout("replace()", '+
C                   %CHAR(TIMEOUT4+
C             TIMEOUT)+'000);§'
C       ENDIF                
C *     --------------------------------------
C *     Chat schieben
C *     --------------------------------------
C     WWTYP IFEQ TYPFRA              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function scroll() {§§-
C          
C           if (window.scrollBy)§-
C               window.scrollBy(0,32767);§-
C           if (parent.scrollBy)§-
C               parent.scrollBy(0,32767);§-
C         }§-
C         function resize() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[5]§-
C           &&  parent.frames[5].resize)§-
C               parent.frames[5].resize();§-
C *          FRNAV5
C         }§-
C         window.setTimeout("resize()", 0);§'
C       ENDIF                
C *     --------------------------------------
C *     Chat aktualisieren
C *     --------------------------------------
C     WWTYP IFEQ TYPFRR              
C       MOVEL(P) TYPFRR NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV1            
C       MOVEL(P) TYPFRE NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV3            
C       MOVEL(P) TYPFRT NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV FRNAV7            
C     *BLANKS COMP QUERYJS       — — 78  
C   78   EVAL BUF         = '?'
C   N78   EVAL BUF         = '&'
C     NOMIT COMP BEMIT       — — 78  
C   78   EVAL BUF2        = 'benutzer'
C   N78   EVAL BUF2        = 'text'
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function replace(w,p,l) {§§-
C          
C           if (p.innerHTML != l.innerHTML) {§-
C               p.innerHTML  = l.innerHTML; +
C               parent.scrollx = true; +
C           }§-
C         }§-
C         function replaceX(w,p,l) {§§-
C          
C           if (p.innerHTML != l.innerHTML) {§§-
C          
C               if (w.document.importNode)§-
C               n = w.document.importNode(l,true); +
C                      else n=l;§§-
C               if (p.parentNode§-
C               &&  p.parentNode.replaceChild)§-
C                   p.parentNode.replaceChild(n,p); +
C                           else§§-
C               if (p.replaceNode)§-
C                   p.replaceNode(n);§§-
C          
C               parent.scrollx = true;§-
C           }§-
C         }§-
C         function replace1x() {§§-
C          
C           window.setTimeout("replace1()", 10);§-
C         }§-
C         function replace1() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[1]§-
C           &&  parent.frames[1].location§-
C           &&  parent.frames[1].location.replace)§-
C               parent.frames[1].location.replace("'+
C *          FRNAV1
C                  %TRIM(FRNAV1) +
C                  %TRIM(PFADX)  +
C                  %TRIM(QUERYJS)+BUF+'time="++
C         ( new Date()).getTime());§-
C         }§-
C         function replace3() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[3]§-
C           &&  parent.frames[3].location§-
C           &&  parent.frames[3].location.replace)§-
C               parent.frames[3].location.replace("'+
C *          FRNAV3
C                  %TRIM(FRNAV3) +
C                  %TRIM(PFADX)  +
C                  %TRIM(QUERYJS)+'");§-
C         }§-
C         function replace7() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[7]§-
C           &&  parent.frames[7].location§-
C           &&  parent.frames[7].location.replace)§-
C               parent.frames[7].location.replace("'+
C *          FRNAV7
C                  %TRIM(FRNAV7) +
C                  %TRIM(PFADX)  +
C                  %TRIM(QUERYJS)+'");§-
C         }§-
C         function scroll() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[0]§-
C           &&  parent.frames[0].scroll)§-
C               parent.frames[0].scroll();§-
C *          FRNAV0
C         }§-
C         function resize() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[5]§-
C           &&  parent.frames[5].resize)§-
C               parent.frames[5].resize();§-
C *          FRNAV5
C         }§-
C         function timeout() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[3]§-
C           &&  parent.frames[3].timeout)§-
C               parent.frames[3].timeout('+
C *          FRNAV3
C                  %CHAR(TIMEOUT4+
C            TIMEOUT)+'000);§-
C         }§-
C         function refresh(f,id) {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[f]) {§-
C           w = parent.frames[f];§§-
C *          FRNAVf
C          
C               if (w.'+ID+'§-
C               &&  w.'+ID+'(id)) {§-
C               p = w.'+ID+'(id);§-
C          
C                 if ( '+ID+'§-
C                 &&  '+ID+'(id)) {§-
C                 l = '+ID+'(id); +
C          
C                    replace(w,p,l); +
C                 }+
C               }§-
C           }§-
C         }§-
C         function refresh37() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[3]) {§-
C           w = parent.frames[3];§§-
C *          FRNAV3
C          
C               if (w.'+NAME+'§-
C               &&  w.'+NAME+'("'+BUF2+'")§-
C               && !w.'+NAME+'("'+BUF2+'")[0]) { +
C                   replace3(); +
C                   replace7(); +
C               }§-
C           }§-
C         }§-
C         refresh(0,"debug");§-
C         refresh(3,"dauer");§-
C         parent.scrollx = false;§§-
C          
C         refresh(0,"wer");§-
C         refresh(5,"wer");§-
C         refresh(0,"main");§-
C         refresh(0,"titel");§-
C         refresh(0,"information");§-
C         refresh(0,"navigation");§-
C         refresh(4,"navigation");§-
C         refresh(0,"antworten");§-
C         refresh(0,"hinweis");§-
C         refresh(5,"hinweis");§-
C         refresh(7,"hinweis");§§-
C          
C *       FRNAV0 FRNAV3 FRNAV4 FRNAV5 FRNAV7
C          
C         if (parent.scrollx) {§-
C             parent.scrollx = false;§-
C             window.setTimeout("resize()", 200);§-
C             window.setTimeout("scroll()", 200);§-
C         }§-
C         window.setTimeout("timeout()", 0);§-
C         window.setTimeout("refresh37()", 0);§-
C         window.setTimeout("replace1()", '+
C             %CHAR(TIMEOUT)+'000);§'
C       ENDIF                
C *     --------------------------------------
C *     Chat aktualisieren
C *     --------------------------------------
C     WWTYP IFEQ TYPFRD              
C     *BLANKS IFEQ LOCABS              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         if (parent.frames§-
C         &&  parent.frames[1]§-
C         &&  parent.frames[1].replace1x)§-
C             parent.frames[1].replace1x();§§-
C *        FRNAV1
C         if (parent.frames§-
C         &&  parent.frames[3]§-
C         &&  parent.frames[3].clear)§-
C             parent.frames[3].clear();§'
C *        FRNAV3
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Neue Antwort im Chat melden
C *     --------------------------------------
C     WWTYP IFEQ TYPFRR              
C     *BLANKS IFNE BESOUND              
C     *BLANKS IFNE LINKADDSAVE              
C       MOVEL(P) TYPFRP NATYP            
C       EXSR NATYPNAV              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         if (parent.frames§-
C         &&  parent.frames[6]§-
C         &&  parent.frames[6].location§-
C         &&  parent.frames[6].location.replace)§-
C             parent.frames[6].location.replace("'+
C *        FRNAV6
C                %TRIM(NANAV)  +
C                %TRIM(PFADX)  +
C                %TRIM(QUERYJS)+'");§'
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Ton abspielen
C *     --------------------------------------
C     WWTYP IFEQ TYPFRP              
C   N62   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function play() {§§-
C          
C              if ('+TAGNAME+'§-
C              &&  '+TAGNAME+'("audio")§-
C              &&  '+TAGNAME+'("audio")[0]) {§-
C          audio = '+TAGNAME+'("audio")[0];§-
C             -
C               if (audio.play) +
C                   audio.play(); }§-
C         } play();§'
C          
C   62   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function play() {§§-
C          
C              if ('+TAGNAME+'§-
C              &&  '+TAGNAME+'("audio")§-
C              &&  '+TAGNAME+'("audio")[0]) {§-
C          audio = '+TAGNAME+'("audio")[0];§§-
C          
C                if (parent.frames§-
C                &&  parent.frames[3]§-
C                &&  parent.frames[3].play)§-
C                    parent.frames[3].play(); +
C *               FRNAV3
C                         else {§§-
C               if (audio.play)§-
C                   audio.play(); }}§-
C         } play();§'
C       ENDIF                
C *     --------------------------------------
C *     Ton freigeben oder abspielen
C *     --------------------------------------
C     WWTYP IFEQ TYPFRE              
C     WWTYP OREQ TYPFRI              
C   62   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function play() {§§-
C          
C              if ('+TAGNAME+'§-
C              &&  '+TAGNAME+'("audio")§-
C              &&  '+TAGNAME+'("audio")[0]) {§-
C          audio = '+TAGNAME+'("audio")[0];§-
C             -
C               if (audio.play) +
C                   audio.play(); }§-
C         }§-
C         function load() {§§-
C          
C              if ('+TAGNAME+'§-
C              &&  '+TAGNAME+'("audio")§-
C              &&  '+TAGNAME+'("audio")[0]) {§-
C          audio = '+TAGNAME+'("audio")[0];§-
C             -
C               if (audio.load) +
C                   audio.load(); +
C                         loaded(); }§-
C         }§-
C         function loaded() {§§-
C          
C           window.onclick = null;§-
C         } window.onclick = load;§'
C       ENDIF                
C *     --------------------------------------
C *     Ton freigeben
C *     --------------------------------------
C     WWTYP IFEQ TYPFRT              
C   62   EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function load() {§§-
C          
C           if (parent.frames§-
C           &&  parent.frames[3]§-
C           &&  parent.frames[3].load) {§-
C               parent.frames[3].load(); +
C *          FRNAV3
C                    loaded(); }§-
C         }§-
C         function loaded() {§§-
C          
C           window.onclick = null;§-
C         } window.onclick = load;§'
C       ENDIF                
C *     --------------------------------------
C *     Vibrieren
C *     --------------------------------------
C     WWTYP IFEQ TYPFRP              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         function vibrate(p) {§§-
C          
C              if (navigator.vibrate)§-
C           return navigator.vibrate(p);§§-
C          
C              if (navigator.mozVibrate)§-
C           return navigator.mozVibrate(p);§§-
C          
C              if (navigator.webkitVibrate)§-
C           return navigator.webkitVibrate(p);§§-
C          
C           return true;§-
C         }§-
C         vibrate([500]);§'
C       ENDIF                
C *     --------------------------------------
C *     Hinweis falls jemand anderes im Chat
C *     --------------------------------------
C     WWTYP IFEQ TYPFRR              
C       EVAL BUF  = ''
C       EVAL BUF2 = ''
C     'Win' SCAN AGENT       — 77 78  
C     *IN78 IFEQ *ON              
C       MOVEL(P) SPPFNEU MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL DLTITEL            
C       MOVEL(P) SPAKTNEU MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL RCTITEL            
C       MOVEL(P) SPFRWNEU MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL EDTITEL            
C          
C       EXSR LISTEPFNEU              
C     *BLANKS COMP LINKADD       — — 77  
C   N77   EVAL BUF2 = BUF2 + %TRIM(DLTITEL)
C       EXSR LISTEAKTNEU              
C     *BLANKS COMP LINKADD       — — 77  
C   N77   EVAL BUF2 = BUF2 + %TRIM(RCTITEL)
C       EXSR LISTEFRWNEU              
C     *BLANKS COMP LINKADD       — — 77  
C   N77   EVAL BUF  = BUF  + %TRIM(EDTITEL)
C     *BLANKS COMP BUF       — — 77  
C   N77   EVAL BUF  =       '"'+BUF+' " + '
C     *BLANKS COMP BUF2       — — 77  
C   N77   EVAL BUF2 = ' + " - '+BUF2+'"'
C       ENDIF                
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         if (parent.document.title != '+BUF+'+
C                    document.title'    +BUF2+')§-
C             parent.document.title  = '+BUF+'+
C                    document.title'    +BUF2+';§'
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X  
C     JS2COLOR BEGSR                
C *     --------------------------------------
C *     Farben und Hintergrundbild anpassen
C *     --------------------------------------
C     WWTYP IFEQ TYPFRA              
C     WWTYP OREQ TYPFRR              
C     WWTYP OREQ TYPFRD              
C     WWTYP OREQ TYPFRE              
C     WWTYP OREQ TYPFRI              
C     WWTYP OREQ TYPFRN              
C     WWTYP OREQ TYPFRW              
C     WWTYP OREQ TYPFRS              
C     WWTYP OREQ TYPFRP              
C     WWTYP OREQ TYPFRT              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPTS + '§-
C          
C         if (parent.frames) {§-
C         f = parent.frames;§§-
C          
C             for (i=0; i<f.length; i++) {§§-
C          
C                  if (f[i].document.body) {§-
C                  p = f[i].document.body;§-
C          l =  document.body;§§-
C         if (p.text       != +
C             l.text)§-
C             p.text        = +
C             l.text;§-
C         if (p.link       != +
C             l.link)§-
C             p.link        = +
C             l.link;§-
C         if (p.vLink      != +
C             l.vLink)§-
C             p.vLink       = +
C             l.vLink;§-
C         if (p.aLink      != +
C             l.aLink)§-
C             p.aLink       = +
C             l.aLink;§-
C         if (p.bgColor    != +
C             l.bgColor)§-
C             p.bgColor     = +
C             l.bgColor;§-
C         if (p.background != +
C             l.background)§-
C             p.background  = +
C             l.background;§-
C         if (p.style§-
C         &&  l.style§-
C         && (p.style.'+HIGHLIGHT+' !=§-
C             l.style.'+HIGHLIGHT+'))§-
C             p.style.'+HIGHLIGHT+'  =§-
C             l.style.'+HIGHLIGHT+';§-
C                  }§-
C             }§-
C         }'
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTALL EXSR BAR$SCRIPT    
  X  
C     JAVASCRIPT$ BEGSR                
C *     --------------------------------------
C *     Parameter kodieren
C *     --------------------------------------
C       MOVEL(P) QUERY$ MYTITEL            
C       EXSR MYTITELXJS              
C       MOVEL(P) MYTITEL QUERYJS            
C          
C       MOVEL(P) QUERYJS QUERYSUCHEJS            
C *     --------------------------------------
C *     Parameter kodieren
C *     --------------------------------------
C     *BLANKS IFNE SUCHE              
C       MOVEL(P) SUCHE MYTITEL            
C       EXSR MYTITELXQUERY              
C       EXSR MYTITELXUTF8              
C       EXSR MYTITELXJS              
C     *BLANKS COMP QUERYSUCHEJS       — — 78  
C   78   CAT '?' :0 QUERYSUCHEJS            
C   N78   CAT '&' :0 QUERYSUCHEJS            
C       CAT SUCHENAME :0 QUERYSUCHEJS            
C       CAT MYTITEL :0 QUERYSUCHEJS            
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPTS1 EXSR BAR$SCRIPT    
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X  
C     JAVASCRIPT# BEGSR                
C     *BLANKS IFNE JAVASCRIPTS              
C *     --------------------------------------
C *     JavaScript &#nnn; umsetzen
C *     --------------------------------------
C       EVAL BUFV = JAVASCRIPTS
C          
C *     --------------------------------------
C *     JavaScript &#nnn; umsetzen
C *     --------------------------------------
C     '&#' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C     POS ADD 2 POS2            
C *     --------------------------------------
C *     JavaScript &#nnn; umsetzen
C *     --------------------------------------
C       EXSR JAVASCRIPT#2              
C          
C *     --------------------------------------
C *     JavaScript &#nnn; umsetzen
C *     --------------------------------------
C       EVAL BUFV = %REPLACE(BUF2:BUFV:POS:POS2-POS)
C       ADD 1 POS            
C     '&#' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     JavaScript in UTF-8 umsetzen
C *     --------------------------------------
C     *ZERO ADD BUFVLEN RCVLEN            
C       CALLP(E) UTF8X ( BUFVTEXT:
C         BUFVTEXTLEN:RCVLEN:'>':'%')
C     *ZERO ADD RCVLEN BUFVLEN            
C          
C *     --------------------------------------
C *     JavaScript &#nnn; umsetzen
C *     --------------------------------------
C       EVAL JAVASCRIPTS = BUFV
C       ENDIF                
C       ENDSR                
C          
  X * JAVASCRIPT# EXSR BAR$SCRIPT    
  X  
C     JAVASCRIPT#2 BEGSR                
C       EVAL BUF2 =     '%26%23'
C *     --------------------------------------
C *     JavaScript &#nnn; in \uHHHH umsetzen
C *     --------------------------------------
C     *OFF IFNE *OFF              
C     *ZERO ADD POS2 POS3            
C     '0123456789' CHECK BUFV:POS3 POS2     — 77 78  
C   N78 1 ADD BUFVTEXTLEN POS2            
C     *IN78 IFEQ *ON              
C       SUBST(P) BUFV:POS2 CHAR     — 77 —  
C     ';' IFEQ CHAR              
C     POS2 SUB POS3 LEN2            
C       ADD 1 POS2            
C     LEN2 IFGE 1              
C     LEN2 ANDLE 10              
C     LEN2 SUBST(P) BUFV:POS3 STR            
C       EXSR STRNUM              
C     65535 IFGE NUM              
C     *ZERO ADD NUM NUM5U            
C       CALLP(E) CVTHC ( CHAR4:STR2A:4)
C     LOWER:UPPER XLATE CHAR4 CHAR4            
C       EVAL BUF2 = '\u' + CHAR4
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     JAVASCRIPTALL BEGSR                
C *     --------------------------------------
C *     Parameter kodieren
C *     --------------------------------------
C       EXSR JAVASCRIPT$              
C          
C *     --------------------------------------
C *     Fehlerbehandlung
C *     --------------------------------------
C       EVAL JAVASCRIPTERROR = '§-
C          
C         function error() {§-
C           return true;§-
C         }§-
C         window.onerror = error;§'
C          
C       ENDSR                
C          
  X * TABLECOPY EXSR BAR$SEND    
  X  
C     JAVASCRIPTSEC BEGSR                
C       MOVEL(P) SPCOOKIE MYTITEL            
C       EXSR MYTITELXJS              
C *     --------------------------------------
C *     Werte per JavaScript auslesbar?
C *     --------------------------------------
C       EVAL JAVASCRIPTS = '§-
C          
C *       function error() {§-
C *         return true;§-
C *       }§-
C *       window.onerror = error;§§-
C          
C         if (document.cookie§-
C         &&  document.cookie.indexOf('''+
C                 SIDNAME+''') >= 0)§-
C             document.write(''<a'+
C               %TRIMR(NAVSTYLE)+'>'+
C                %TRIM(MYTITEL) +'<\/a> | '');§'
C       ENDSR                

1809 ms | Kontakt | Information | Aibo-Bar © 2005-2024