Senden

BAR$SEND (RPGLE)



  X * SENDEN BEGSR BAR$SEND 79  
  X * SENDSECURE BEGSR BAR$SEND 33  
  X * SENDFONT BEGSR BAR$SEND 44  
  X * SENDTITEL BEGSR BAR$SEND 29  
  X * SENDTITELIDX BEGSR BAR$SEND 20  
  X * SENDTITEL2 BEGSR BAR$SEND 11  
  X * SENDTITELBODY BEGSR BAR$SEND 84  
  X * SENDTITELMIT BEGSR BAR$SEND 13  
  X * SENDTITELRUB BEGSR BAR$SEND 13  
  X * SENDTITELFILES BEGSR BAR$SEND 19  
  X * SENDCSS BEGSR BAR$SEND 101  
  X * SENDXML BEGSR BAR$SEND 70  
  X * SENDRSS BEGSR BAR$SEND 134  
  X * SENDATOM BEGSR BAR$SEND 150  
  X * SENDFEEDLOC BEGSR BAR$SEND 43  
  X * SENDFEEDINF BEGSR BAR$SEND 64  
  X * SENDOSDX BEGSR BAR$SEND 110  
  X * SENDOSDXINF BEGSR BAR$SEND 10  
  X * SENDPLIST BEGSR BAR$SEND 71  
  X * SENDSTMF BEGSR BAR$SEND 363  
  X * SENDSTMF2 BEGSR BAR$SEND 22  
  X * SENDRANGE BEGSR BAR$SEND 69  
  X * SENDRANGE2 BEGSR BAR$SEND 15  
  X * SENDSTAT BEGSR BAR$SEND 28  
  X * SENDHTML BEGSR BAR$SEND 1062  
  X * SENDHTML3 BEGSR BAR$SEND 12  
  X * IFRAME$ BEGSR BAR$SEND 22  
  X * KAMERAS BEGSR BAR$SEND 96  
  X * ENVVARS BEGSR BAR$SEND 71  
  X * TONAB1 BEGSR BAR$SEND 24  
  X * TONAB2 BEGSR BAR$SEND 36  
  X * TABLECOPY BEGSR BAR$SEND 229  
  X * FARBEN BEGSR BAR$SEND 65  
  X * BILDER BEGSR BAR$SEND 31  
  X  
  X * IFS$STATPARM PLIST BAR$SEND 6  
  X * IFS$SENDPARM PLIST BAR$SEND 4  
  X * KAMERASPARM PLIST BAR$SEND 3  
  X * ENVVARSPARM PLIST BAR$SEND 3  
  X * FAKEYWW KLIST BAR$SEND 3  
  X  
  X * MYTYPTITEL EXSR BAR$NAV    
  X * NATYPTITEL EXSR BAR$NAV    
  X * ROBOTSINF EXSR BAR$ROBOTS    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKMIT EXSR BAR$LINK    
  X * LINKNAVSTYLE EXSR BAR$LINK    
  X * LINKRUB EXSR BAR$LINK    
  X * LINKNAVSTYLE EXSR BAR$LINK    
  X * LINKFILES EXSR BAR$LINK    
  X * LINKNAVSTYLE EXSR BAR$LINK    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELXBR66 EXSR BAR$TEXT    
  X * MYTYPNONE EXSR BAR$NAV    
  X * MYTYPNONE EXSR BAR$NAV    
  X * MYTYPNONE EXSR BAR$NAV    
  X * SEITENAVSR EXSR BAR$SEITE    
  X * WRSTOUTHEAD EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTHEAD EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * ARTMAIN EXSR BAR$ART    
  X * LISTE EXSR BAR$LISTE    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTHEAD EXSR BAR$STOUT    
  X * LINKMITRSS EXSR BAR$LINK    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * ARTMAIN EXSR BAR$ART    
  X * ARTFILEMIN EXSR BAR$ART    
  X * NATYPNAV EXSR BAR$NAV    
  X * WRSTOUT EXSR BAR$STOUT    
  X * LISTE EXSR BAR$LISTE    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTHEAD EXSR BAR$STOUT    
  X * LINKMITATOM EXSR BAR$LINK    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * ARTMAIN EXSR BAR$ART    
  X * NATYPNAV EXSR BAR$NAV    
  X * ARTFILEMIN EXSR BAR$ART    
  X * NATYPNAV EXSR BAR$NAV    
  X * WRSTOUT EXSR BAR$STOUT    
  X * LISTE EXSR BAR$LISTE    
  X * WRSTOUT EXSR BAR$STOUT    
  X * SEITE EXSR BAR$SEITE    
  X * SECURITY EXSR BAR$SEC    
  X * TEXTSMILYSDESC EXSR BAR$TEXT    
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * MYBUFV2FORM EXSR BAR$TEXT    
  X * WRSTOUTHEAD EXSR BAR$STOUT    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TEXTSMILYSDESC EXSR BAR$TEXT    
  X * MYBUFV2FORM EXSR BAR$TEXT    
  X * WRSTOUTHEAD EXSR BAR$STOUT    
  X * MYWWW EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * SEITEERR EXSR BAR$SEITE    
  X * SECURITY EXSR BAR$SEC    
  X * ROBOTSINF EXSR BAR$ROBOTS    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * WRSTOUTHEAD EXSR BAR$STOUT    
  X * NUMSTR EXSR BAR$NUM    
  X * STRNUM EXSR BAR$NUM    
  X * WRSTOUTHEAD EXSR BAR$STOUT    
  X * MYBUFV2 EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * GELESEN EXSR BAR$NEUED    
  X * JAVASCRIPTALL EXSR BAR$SCRIPT    
  X * TEXTSMILYSDESC EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYWWW EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * FRAME EXSR BAR$FRAME    
  X * WRSTOUT EXSR BAR$STOUT    
  X * SRCEXISTJS EXSR BAR$EXIST    
  X * SRCEXISTJS EXSR BAR$EXIST    
  X * SRCEXISTJS EXSR BAR$EXIST    
  X * WRSTOUT EXSR BAR$STOUT    
  X * JAVASCRIPTS1 EXSR BAR$SCRIPT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TEXTSMILYSAG EXSR BAR$TEXT    
  X * TEXTSMILYS85 EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * ARTMAIN EXSR BAR$ART    
  X * ARTINFO EXSR BAR$ART    
  X * HINWEIS1 EXSR BAR$ART    
  X * NAVIGATION EXSR BAR$NAV    
  X * IDXMAIN EXSR BAR$ART    
  X * MNTMAIN EXSR BAR$ART    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * FORMSUCHE EXSR BAR$FORM    
  X * LISTE EXSR BAR$LISTE    
  X * MYWWW EXSR BAR$TEXT    
  X * TABLE EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * COLCENTERB EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * DAUERINF EXSR BAR$MAIN    
  X * HINWEIS1 EXSR BAR$ART    
  X * HINWEIS1 EXSR BAR$ART    
  X * WRSTOUT EXSR BAR$STOUT    
  X * JAVASCRIPTS2 EXSR BAR$SCRIPT    
  X * FRAMEX EXSR BAR$FRAME    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * TEXTSMILYSKAM EXSR BAR$TEXT    
  X * BUFDEBUG EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * TEXTSMILYSENV EXSR BAR$TEXT    
  X * BUFDEBUG EXSR BAR$TEXT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WRSTOUTV EXSR BAR$STOUT    
  X * WRSTOUT EXSR BAR$STOUT    
  X * SRCEXISTSOUND EXSR BAR$EXIST    
  X * WRSTOUT EXSR BAR$STOUT    
  X * SRCEXISTSOUND EXSR BAR$EXIST    
  X * WRSTOUT EXSR BAR$STOUT    
  X * WWWHREF EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKXML EXSR BAR$LINK    
  X * LINKRSS EXSR BAR$LINK    
  X * LINKATOM EXSR BAR$LINK    
  X * NUMSTR EXSR BAR$NUM    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * JAVASCRIPTSEC EXSR BAR$SCRIPT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKCNT EXSR BAR$LINK    
  X * LINKINF EXSR BAR$LINK    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * LINKNEUAW EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKCLOSE EXSR BAR$LINK    
  X * LINKADDB EXSR BAR$LINK    
  X * LINKCNT EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2024
C          
  X * *MAIN* EXSR BAR$MAIN    
  X  
C     SENDEN BEGSR                
C       MOVEL(P) WWTYP WWTYPSAVE            
C *     --------------------------------------
C *     Titel setzen
C *     --------------------------------------
C     WWTYP IFEQ TYPIDX              
C     WWTYP OREQ TYPMNT              
C *     --------------------------------------
C *     Titel nach Typ auffinden
C *     --------------------------------------
C **     MOVEL(P) SPNAME MYTITEL            
C       MOVEL(P) 'SPNAME' MYTYP            
C       EXSR MYTYPTITEL              
C       MOVEL(P) MYTITEL WWTITEL            
C          
C *     --------------------------------------
C *     Titel nach Typ auffinden
C *     --------------------------------------
C       MOVEL(P) WWTYP NATYP            
C       EXSR NATYPTITEL              
C       MOVEL(P) TITITEL2 WWTITEL2            
C       ENDIF                
C *     --------------------------------------
C *     Historie
C *     --------------------------------------
C     PFADXX IFEQ HTMLX              
C       MOVEL(P) HTML PFADXX            
C       MOVEL(P) TYPHISTORY WWTYP            
C       ENDIF                
C *     --------------------------------------
C *     Auf sichere Seite weiterleiten?
C *     --------------------------------------
C     *IN23 IFEQ *OFF              
C     *BLANKS ANDNE MASECURE              
C     'v22.' SCAN AGENT       — 77 78  
C   N78 'rv:1.' SCAN AGENT       — 77 78  
C   N78 'Terminal' SCAN AGENT       — 77 78  
C   N78 'Anonymouse' SCAN AGENT       — 77 78  
C     *IN78 IFEQ *OFF              
C       MOVEL(P) HTML PFADXX            
C       MOVEL(P) TYPSECURE WWTYP            
C       EXSR SENDSECURE              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Titel ermitteln
C *     --------------------------------------
C       EXSR SENDTITEL              
C          
C *     --------------------------------------
C *     Robots
C *     --------------------------------------
C       EXSR ROBOTSINF              
C          
C *     --------------------------------------
C *     Organisation und Copyright ermitteln
C *     --------------------------------------
C **     MOVEL(P) SPNAME MYTITEL            
C       MOVEL(P) 'SPNAME' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL ORGANIZATION            
C       MOVEL(P) MYTITEL COPYRIGHT            
C       CAT COPY :1 COPYRIGHT            
C       CAT COPYRIGHTX :1 COPYRIGHT            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     PFADXX CASEQ CSS SENDCSS            
C     PFADXX CASEQ XML SENDXML            
C     PFADXX CASEQ RSS SENDRSS            
C     PFADXX CASEQ ATOM SENDATOM            
C     PFADXX CASEQ OSDX SENDOSDX            
C     PFADXX CASEQ HTML SENDHTML            
C     PFADXX CASEQ PLIST SENDPLIST            
C       CAS   SENDSTMF            
C       ENDCS                
C       ENDSR                
C          
  X * SENDEN EXSR BAR$SEND    
  X  
C     SENDSECURE BEGSR                
C *     --------------------------------------
C *     Auf sichere Seite weiterleiten
C *     --------------------------------------
C       CALLP(E) GETENV ( ENVRCV:
C         ENVRCVLEN:ENVLEN:
C         REQUESTURI:
C         REQUESTURILEN:QUSEC)
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C       SUBST(P) ENVRCV CHAR            
C          
C     '/' IFNE CHAR              
C *     --------------------------------------
C *     Daten in EBCDIC umsetzen
C *     --------------------------------------
C       CALLP(E) QTQCVRT ( ASCII:0:
C         ENVRCV:ENVLEN:
C         EBCDIC:0:0:ENVLEN:
C         ENVRCV:RCVLEN:
C         DUMMY:FB)
C       ENDIF                
C *     --------------------------------------
C *     Auf sichere Seite weiterleiten
C *     --------------------------------------
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C       EVAL LOCABS     = 'https://'+HOST+
C                    %SUBST(ENVRCV:1:ENVLEN)
C       SETON         — 31 —  
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDCSS EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X  
C     SENDFONT BEGSR                
C       CLEAR   BUF            
C *     --------------------------------------
C *     Schrift der Seite setzen
C *     --------------------------------------
C     *IN61 IFEQ *OFF              
C       MOVEL(P) TYPFONT NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C     UPPER:LOWER XLATE(P) NAFILEX MYFILEXX            
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C          
C *     --------------------------------------
C *     Schrift der Seite setzen
C *     --------------------------------------
C       SUBST(P) MYFILEXX:2 LINK            
C       OPEN MIMEL3       — 77 —  
C     MYFILEXX SETLL MIMEL3       — 77 —  
C   N77 MYFILEXX READE MIMEL3       — 77 77  
C     *IN77 IFEQ *OFF              
C     '/' SCAN MIMIME POS     — 77 78  
C   78   ADD 1 POS            
C   78   SUBST(P) MIMIME:POS LINK            
C       ENDIF                
C *     --------------------------------------
C *     Schrift der Seite setzen
C *     --------------------------------------
C       EVAL BUF    =    '@font-face { +
C         font-family:'+
C                    %TRIM(MYTITEL)+'; +
C         font-style:normal; +
C         font-weight:normal; +
C          src:local('''+
C                    %TRIM(MYTITEL)+'''), +
C              url('+%TRIM(PFADREL) +
C                    %TRIM(NANAV)   +
C                    %TRIM(NAFILEX) +') +
C         format('''+%TRIM(LINK)+'''); +
C            unicode-range:U+0000-1FFF; }'
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDEN EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X  
C     SENDTITEL BEGSR                
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C       MOVEL(P) WWTITEL MYTITEL            
C     *BLANKS IFNE WWTITEL              
C     *BLANKS ANDNE WWTITELMIT              
C     *BLANKS ORNE WWTITEL              
C     *BLANKS ANDNE WWTITELRUB              
C     *BLANKS ORNE WWTITEL              
C     *BLANKS ANDNE WWTITELFILES              
C       CAT WWTITELADD :1 MYTITEL            
C       ENDIF                
C       EXSR SENDTITELMIT              
C       EXSR SENDTITELRUB              
C       EXSR SENDTITELFILES              
C          
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C     ' ' CHECK MYTITEL POS     — — 77  
C   77   SUBST(P) MYTITEL:POS MYTITEL            
C          
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C       MOVEL(P) MYTITEL TITLE            
C          
C       ENDSR                
C          
  X * SENDOSDX EXSR BAR$SEND    
  X  
C     SENDTITELIDX BEGSR                
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C **     MOVEL(P) SPNAME MYTITEL            
C       MOVEL(P) 'SPNAME' MYTYP            
C       EXSR MYTYPTITEL              
C          
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C     ' ' CHECK MYTITEL POS     — — 77  
C   77   SUBST(P) MYTITEL:POS MYTITEL            
C          
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C       MOVEL(P) MYTITEL TITLE            
C          
C       ENDSR                
C          
  X * ARTFILEHTML EXSR BAR$ART    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDOSDX EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X  
C     SENDTITEL2 BEGSR                
C       MOVEL(P) TITLE MYTITEL            
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C     *BLANKS IFNE WWTITELAG              
C       EXSR MYTITELXFORM              
C       ELSE                
C       EXSR MYTITELX              
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     SENDTITELBODY BEGSR                
C       CLEAR   EDTITEL            
C       CLEAR   DLTITEL            
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C     *BLANKS IFNE WWTITEL              
C     *BLANKS ANDNE WWTITELMIT              
C       EXSR LINKMIT              
C   66   EXSR LINKNAVSTYLE              
C       MOVEL(P) LINK EDTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C     *BLANKS IFNE WWTITEL              
C     *BLANKS ANDNE WWTITELRUB              
C       EXSR LINKRUB              
C   66   EXSR LINKNAVSTYLE              
C       MOVEL(P) LINK DLTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C     *BLANKS IFNE WWTITEL              
C     *BLANKS ANDNE WWTITELFILES              
C       EXSR LINKFILES              
C   66   EXSR LINKNAVSTYLE              
C       MOVEL(P) LINK RCTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C       MOVEL(P) WWTITEL MYTITEL            
C     *BLANKS IFNE WWTITEL              
C     *BLANKS ANDNE WWTITELMIT              
C     *BLANKS ORNE WWTITEL              
C     *BLANKS ANDNE WWTITELRUB              
C     *BLANKS ORNE WWTITEL              
C     *BLANKS ANDNE WWTITELFILES              
C       CAT WWTITELADD :1 MYTITEL            
C       ELSE                
C       EXSR SENDTITELMIT              
C       EXSR SENDTITELRUB              
C       EXSR SENDTITELFILES              
C       ENDIF                
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C     *IN66 IFEQ *ON              
C     MYTITEL ANDEQ BRUMMBRUMM              
C       MOVEL(P) BRUMMBRUMM2 MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C     ' ' CHECK MYTITEL POS     — — 77  
C   77   SUBST(P) MYTITEL:POS MYTITEL            
C          
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C     *BLANKS IFNE WWTITELAG              
C       EXSR MYTITELXFORM              
C       ELSE                
C       EXSR MYTITELXBR66              
C       ENDIF                
C       MOVEL(P) MYTITEL LINK            
C *     --------------------------------------
C *     Mini-Bar
C *     --------------------------------------
C   34   EVAL LINK = '<a'+POINTER+
C           ' onmousedown="return false" +
C                 onclick="chatload()"'+TAP+'>'+
C             %TRIM(LINK)+'</a>'
C          
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C       CAT EDTITEL :1 LINK            
C       CAT DLTITEL :1 LINK            
C       CAT RCTITEL :1 LINK            
C          
C       ENDSR                
C          
  X * SENDTITEL EXSR BAR$SEND    
  X * SENDTITELBODY EXSR BAR$SEND    
  X  
C     SENDTITELMIT BEGSR                
C *     --------------------------------------
C *     Mitglied in Titel aufnehmen
C *     --------------------------------------
C     *BLANKS IFNE WWTITELMIT              
C **     MOVEL(P) SPNONE MYNONE            
C       MOVEL(P) 'SPNONE' MYTYP            
C       EXSR MYTYPNONE              
C     *BLANKS COMP MITITEL       — — 77  
C   N77   CAT MITITEL :1 MYTITEL            
C   77   CAT MYNONE :1 MYTITEL            
C       ENDIF                
C       ENDSR                
C          
  X * SENDTITEL EXSR BAR$SEND    
  X * SENDTITELBODY EXSR BAR$SEND    
  X  
C     SENDTITELRUB BEGSR                
C *     --------------------------------------
C *     Rubrik in Titel aufnehmen
C *     --------------------------------------
C     *BLANKS IFNE WWTITELRUB              
C **     MOVEL(P) SPNONE MYNONE            
C       MOVEL(P) 'SPNONE' MYTYP            
C       EXSR MYTYPNONE              
C     *BLANKS COMP RUTITEL       — — 77  
C   N77   CAT RUTITEL :1 MYTITEL            
C   77   CAT MYNONE :1 MYTITEL            
C       ENDIF                
C       ENDSR                
C          
  X * SENDTITEL EXSR BAR$SEND    
  X * SENDTITELBODY EXSR BAR$SEND    
  X  
C     SENDTITELFILES BEGSR                
C *     --------------------------------------
C *     Dateien in Titel aufnehmen
C *     --------------------------------------
C     *BLANKS IFNE WWTITELFILES              
C **     MOVEL(P) SPNONE MYNONE            
C       MOVEL(P) 'SPNONE' MYTYP            
C       EXSR MYTYPNONE              
C     *BLANKS IFEQ ELEMENT3              
C       MOVEL(P) ELEMENT2 ELEMENTNAV            
C       EXSR SEITENAVSR              
C       CAT TITITEL :1 MYTITEL            
C       ELSE                
C     *BLANKS COMP ELEMENT2       — — 77  
C   N77   CAT ELEMENT2 :1 MYTITEL            
C   77   CAT MYNONE :1 MYTITEL            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDEN CASEQ BAR$SEND    
  X  
C     SENDCSS BEGSR                
C     *ZERO ADD STATUS200 STATUS            
C *     --------------------------------------
C *     CSS ausgeben
C *     --------------------------------------
C       EVAL BUF = %TRIM(CACHE)+
C             %TRIM(RANGE)+
C             %TRIM(TITLE#)+' '+
C             %TRIM(TITLE) +'§'+
C             %TRIM(STATUS#)+' '+
C             %CHAR(STATUS) +'§'+
C             %TRIM(ROBOTS#)+' '+
C             %TRIM(ROBOTS) +'§'+
C             %TRIM(COOKIE) +
C             %TRIM(COOKIE2)+
C             %TRIM(COOKIE3)+
C             %TRIM(LOCATION)+
C             %TRIM(CONTENT#)+' '+
C             %TRIM(MIMECSS)+'§§'
C          
C       EXSR WRSTOUTHEAD              
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     METHOD IFEQ GET              
C     METHOD OREQ POST              
C          
C *     --------------------------------------
C *     Farben ermitteln
C *     --------------------------------------
C       EXSR FARBEN              
C          
C *     --------------------------------------
C *     Webkit Tap Highlight Color
C *     --------------------------------------
C     *BLANKS IFNE FAALINK              
C       SUBST(P) FAALINK:2 RGB6            
C     LOWER:UPPER XLATE RGB6 RGB6            
C       CALLP(E) CVTCH ( RGB3:RGB6:6)
C       EVAL EDTITEL   =  'rgba('+%CHAR(R)+','+
C                %CHAR(G)+','+
C                %CHAR(B)+','+
C                 ALPHA4 +')'
C       ENDIF                
C *     --------------------------------------
C *     Schrift setzen
C *     --------------------------------------
C       MOVEL(P) FONTS MYTITEL            
C          
C     WWTYP IFEQ TYPSRC              
C     WWTYP OREQ TYPHTTPX              
C     SRCFONTSADD CAT(P) MYTITEL:0 MYTITEL            
C       ENDIF                
C       EVAL FONT      =  'font-family:'+%TRIM(MYTITEL)
C          
C *     --------------------------------------
C *     Stil der Seite setzen
C *     --------------------------------------
C       EXSR SENDFONT              
C          
C *     --------------------------------------
C *     Stil ausgeben
C *     --------------------------------------
C       EVAL BUF = '-
C          
C                 .blink,§-
C                  blink {§§-
C          
C            -webkit-'+ANIMATIONBLINK+';§-
C               -moz-'+ANIMATIONBLINK+';§-
C                    '+ANIMATIONBLINK+'; }§§-
C          
C           @-webkit-'+KEYFRAMESBLINK+'§-
C              @-moz-'+KEYFRAMESBLINK+'§-
C                   @'+KEYFRAMESBLINK+'§§-
C          
C          ::-webkit-file-upload-button { +
C                    color:'+%TRIM(FATEXT)+'; +
C         background-color:'+%TRIM(FABGCOLOR)+'; +
C                    font:inherit; }§-
C          
C                ::file-selector-button { +
C                    color:'+%TRIM(FATEXT)+'; +
C         background-color:'+%TRIM(FABGCOLOR)+'; +
C                    font:inherit; }§§-
C          
C       a:link     { color:'+%TRIM(FALINK)   +' }§-
C       a:visited  { color:'+%TRIM(FAVLINK)  +' }§-
C       a:active   { color:'+%TRIM(FAALINK)  + '; +
C         background-color:'+%TRIM(EDTITEL)  +' }§-
C       body       { color:'+%TRIM(FATEXT)   + '; +
C         background-color:'+%TRIM(FABGCOLOR)+ ';§-
C            -webkit-tap-highlight-+
C                    color:'+%TRIM(EDTITEL)+' }§-
C                             §-
C       body,th,td { '      +%TRIM(FONT)   +' }§'+BUF
C          
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * SENDEN CASEQ BAR$SEND    
  X  
C     SENDXML BEGSR                
C *     --------------------------------------
C *     Automatisches Weiterleiten einstellen
C *     --------------------------------------
C       EXSR SENDFEEDLOC              
C          
C *     --------------------------------------
C *     Feed ausgeben
C *     --------------------------------------
C       EVAL BUF = %TRIM(CACHE)+
C             %TRIM(RANGE)+
C             %TRIM(TITLE#)+' '+
C             %TRIM(TITLE) +'§'+
C             %TRIM(STATUS#)+' '+
C             %CHAR(STATUS) +'§'+
C             %TRIM(ROBOTS#)+' '+
C             %TRIM(ROBOTS) +'§'+
C             %TRIM(COOKIE) +
C             %TRIM(COOKIE2)+
C             %TRIM(COOKIE3)+
C             %TRIM(LOCATION)+
C             %TRIM(CONTENT#)+' '+
C             %TRIM(MIMEXML)+'§§'
C          
C       EXSR WRSTOUTHEAD              
C       SETON         38 — —  
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     METHOD IFEQ GET              
C     METHOD OREQ POST              
C          
C     *ZERO ADD DATETYPEXML DATETYPE            
C       MOVE MITGLIEDDS MITGLIEDSAVE            
C *     --------------------------------------
C *     Feed öffnen
C *     --------------------------------------
C       EVAL BUF = %TRIM(XML10)+%TRIM(LATIN1)+
C             %TRIM(XML10X)+'§<urlset xmlns=+
C             "http://www.sitemaps.org/+
C                 schemas/sitemap/0.9">'
C          
C *     --------------------------------------
C *     Feed-Informationen ermitteln
C *     --------------------------------------
C       EXSR SENDFEEDINF              
C          
C *     --------------------------------------
C *     Feed-Informationen ausgeben
C *     --------------------------------------
C       EXSR WRSTOUT              
C          
C *     --------------------------------------
C *     Bild/Film/Anlage/Text ausgeben
C *     --------------------------------------
C       EXSR ARTMAIN              
C          
C       MOVE MITGLIEDSAVE MITGLIEDDS            
C *     --------------------------------------
C *     Feed-Einträge ausgeben
C *     --------------------------------------
C       EXSR LISTE              
C          
C *     --------------------------------------
C *     Feed schließen
C *     --------------------------------------
C       EVAL BUF = '</urlset>§'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * SENDEN CASEQ BAR$SEND    
  X  
C     SENDRSS BEGSR                
C *     --------------------------------------
C *     Automatisches Weiterleiten einstellen
C *     --------------------------------------
C       EXSR SENDFEEDLOC              
C          
C *     --------------------------------------
C *     Feed ausgeben
C *     --------------------------------------
C       EVAL BUF = %TRIM(CACHE)+
C             %TRIM(RANGE)+
C             %TRIM(TITLE#)+' '+
C             %TRIM(TITLE) +'§'+
C             %TRIM(STATUS#)+' '+
C             %CHAR(STATUS) +'§'+
C             %TRIM(ROBOTS#)+' '+
C             %TRIM(ROBOTS) +'§'+
C             %TRIM(COOKIE) +
C             %TRIM(COOKIE2)+
C             %TRIM(COOKIE3)+
C             %TRIM(LOCATION)+
C             %TRIM(CONTENT#)+' '+
C             %TRIM(MIMERSS)+'§§'
C          
C       EXSR WRSTOUTHEAD              
C       SETON         38 — —  
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     METHOD IFEQ GET              
C     METHOD OREQ POST              
C          
C     *ZERO ADD DATETYPERSS DATETYPE            
C       MOVE MITGLIEDDS MITGLIEDSAVE            
C *     --------------------------------------
C *     Feed öffnen
C *     --------------------------------------
C       EVAL BUF = %TRIM(XML10)+%TRIM(LATIN1)+
C             %TRIM(XML10X)+'§+
C             <rss version="2.0">'
C          
C *     --------------------------------------
C *     Feed-Informationen ermitteln
C *     --------------------------------------
C       EXSR SENDFEEDINF              
C       EXSR LINKMITRSS              
C          
C *     --------------------------------------
C *     Feed-Informationen ausgeben
C *     --------------------------------------
C       EXSR SENDTITEL2              
C       EVAL BUF =
C       BUF +'§+
C             §<channel>+
C             §<title>'         +%TRIM(MYTITEL)  +
C            '</title>+
C             §<description>'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'</description>+
C             §<link>'          +%TRIM(LINK)+
C            '</link>'
C          
C       EXSR WRSTOUT              
C *     --------------------------------------
C *     Bild/Film/Anlage/Text ausgeben
C *     --------------------------------------
C       EXSR ARTMAIN              
C          
C *     --------------------------------------
C *     Feed-Informationen ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<lastBuildDate>' +%TRIM(HTTPDATE)+
C            '</lastBuildDate>+
C             §<managingEditor>'+%TRIM(LINK2)+
C            '</managingEditor>+
C             §<generator>'     +%TRIM(GENERATOR)+
C            '</generator>+
C             §<copyright>'     +%TRIM(COPYRIGHT)+
C            '</copyright>+
C             §<language>'      +%TRIM(LANGUAGE)+
C            '</language>'
C          
C *     --------------------------------------
C *     Bild der Webseite ermitteln
C *     --------------------------------------
C       EXSR ARTFILEMIN              
C          
C *     --------------------------------------
C *     Bild der Webseite ermitteln
C *     --------------------------------------
C       MOVEL(P) SRC LINK3            
C     *BLANKS IFEQ SRC              
C       MOVEL(P) TYPTOUCHICON NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       MOVEL(P) HTTP LINK3            
C       CAT NANAV :0 LINK3            
C       CAT NAFILEX :0 LINK3            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Feed-Symbol ausgeben
C *     --------------------------------------
C     *BLANKS IFNE LINK3              
C       EXSR SENDTITEL2              
C       EVAL BUF =
C       BUF +'§+
C             §<image>+
C             §<title>'         +%TRIM(MYTITEL)+
C            '</title>+
C             §<link>'          +%TRIM(LINK)+
C            '</link>+
C             §<url>'           +%TRIM(LINK3)+
C            '</url>+
C             </image>'
C       ENDIF                
C       EXSR WRSTOUT              
C       MOVE MITGLIEDSAVE MITGLIEDDS            
C *     --------------------------------------
C *     Feed-Einträge ausgeben
C *     --------------------------------------
C       EXSR LISTE              
C          
C *     --------------------------------------
C *     Feed schließen
C *     --------------------------------------
C       EVAL BUF = '§§</channel>§</rss>§'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * SENDEN CASEQ BAR$SEND    
  X  
C     SENDATOM BEGSR                
C *     --------------------------------------
C *     Automatisches Weiterleiten einstellen
C *     --------------------------------------
C       EXSR SENDFEEDLOC              
C          
C *     --------------------------------------
C *     Feed ausgeben
C *     --------------------------------------
C       EVAL BUF = %TRIM(CACHE)+
C             %TRIM(RANGE)+
C             %TRIM(TITLE#)+' '+
C             %TRIM(TITLE) +'§'+
C             %TRIM(STATUS#)+' '+
C             %CHAR(STATUS) +'§'+
C             %TRIM(ROBOTS#)+' '+
C             %TRIM(ROBOTS) +'§'+
C             %TRIM(COOKIE) +
C             %TRIM(COOKIE2)+
C             %TRIM(COOKIE3)+
C             %TRIM(LOCATION)+
C             %TRIM(CONTENT#)+' '+
C             %TRIM(MIMEATOM)+'§§'
C          
C       EXSR WRSTOUTHEAD              
C       SETON         38 — —  
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     METHOD IFEQ GET              
C     METHOD OREQ POST              
C          
C     *ZERO ADD DATETYPEATOM DATETYPE            
C       MOVE MITGLIEDDS MITGLIEDSAVE            
C *     --------------------------------------
C *     Feed öffnen
C *     --------------------------------------
C       EVAL BUF = %TRIM(XML10)+%TRIM(LATIN1)+
C             %TRIM(XML10X)+'§<feed xmlns=+
C             "http://www.w3.org/2005/Atom">'
C          
C *     --------------------------------------
C *     Feed-Informationen ermitteln
C *     --------------------------------------
C       EXSR SENDFEEDINF              
C       EXSR LINKMITATOM              
C          
C *     --------------------------------------
C *     Feed-Informationen ausgeben
C *     --------------------------------------
C       EXSR SENDTITEL2              
C       EVAL BUF =
C       BUF +'§+
C             §<title>'     +%TRIM(MYTITEL)+
C            '</title>+
C             §<subtitle type="html">'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'</subtitle>+
C             §<id>'        +%TRIM(LINK)+
C            '</id>+
C             §<link href="'+%TRIM(LINK)+'" />'
C          
C *     --------------------------------------
C *     Feed-Adressen ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<link href="'+%TRIM(LINK9)+'" +
C         rel="self" />+
C          
C             §<link href="'+%TRIM(LINK9)+'" +
C         rel="edit" />+
C          
C             §<link href="'+%TRIM(LINK9)+'" +
C         rel="edit-media" />'
C          
C       EXSR WRSTOUT              
C *     --------------------------------------
C *     Bild/Film/Anlage/Text ausgeben
C *     --------------------------------------
C       EXSR ARTMAIN              
C          
C *     --------------------------------------
C *     Feed-Informationen ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<updated>'   +%TRIM(HTTPDATE)+
C            '</updated>+
C             §<author>'    +%TRIM(LINK2)+
C            '</author>+
C             §<generator>' +%TRIM(GENERATOR)+
C            '</generator>+
C             §<rights>'    +%TRIM(COPYRIGHT)+
C            '</rights>'
C          
C *     --------------------------------------
C *     Feed-Symbol ausgeben
C *     --------------------------------------
C       MOVEL(P) TYPFAVICON NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       EVAL BUF =
C       BUF +'§<icon>'      +%TRIM(HTTP)+
C                %TRIM(NANAV)+
C                %TRIM(NAFILEX)+
C            '</icon>'
C       ENDIF                
C *     --------------------------------------
C *     Bild der Webseite ermitteln
C *     --------------------------------------
C       EXSR ARTFILEMIN              
C          
C *     --------------------------------------
C *     Bild der Webseite ermitteln
C *     --------------------------------------
C       MOVEL(P) SRC LINK3            
C     *BLANKS IFEQ SRC              
C       MOVEL(P) TYPTOUCHICON NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       MOVEL(P) HTTP LINK3            
C       CAT NANAV :0 LINK3            
C       CAT NAFILEX :0 LINK3            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Feed-Symbol ausgeben
C *     --------------------------------------
C     *BLANKS IFNE LINK3              
C       EVAL BUF =
C       BUF +'§<logo>'      +%TRIM(LINK3)+
C            '</logo>'
C       ENDIF                
C       EXSR WRSTOUT              
C       MOVE MITGLIEDSAVE MITGLIEDDS            
C *     --------------------------------------
C *     Feed-Einträge ausgeben
C *     --------------------------------------
C       EXSR LISTE              
C          
C *     --------------------------------------
C *     Feed schließen
C *     --------------------------------------
C       EVAL BUF = '§§</feed>§'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * SENDXML EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X  
C     SENDFEEDLOC BEGSR                
C *     --------------------------------------
C *     Automatisches Weiterleiten einstellen
C *     --------------------------------------
C     METHOD IFEQ POST              
C     WWTYP IFEQ TYPPN              
C     WWTYP OREQ TYPART              
C     WWTYP OREQ TYPBAR              
C     WWTYP OREQ TYPMIT              
C     WWTYP OREQ TYPRUB              
C     WWTYP OREQ TYPICNS              
C     WWTYP OREQ TYPOBJS              
C     WWTYP OREQ TYPFILES              
C     WWTYP OREQ TYPSAVES              
C     WWTYP OREQ TYPBLASEN              
C     WWTYP OREQ TYPKNOWNS              
C     WWTYP OREQ TYPSMILYS              
C     WWTYP OREQ TYPNEU              
C     WWTYP OREQ TYPNEUPN              
C     WWTYP OREQ TYPNEUPN2              
C     WWTYP OREQ TYPNEUART              
C     WWTYP OREQ TYPNEUART2              
C     WWTYP OREQ TYPNEUMIT              
C     WWTYP OREQ TYPNEURUB              
C     WWTYP OREQ TYPNEUSMILY              
C     WWTYP OREQ TYPNEUFILE              
C     WWTYP OREQ TYPNEUFILE2              
C     WWTYP OREQ TYPNEUAW              
C     *BLANKS IFNE LOCABS              
C     LOCPOS IFGE 1              
C     LOCLEN ANDGE 1              
C     LOCLEN ANDLE LOCABSLEN              
C     LOCLEN SUBST(P) LOCABS:LOCPOS PFAD            
C     LOCATION# CAT(P) LOCABS :1 LOCATION            
C       CAT '§' :0 LOCATION            
C     *ZERO ADD STATUS201 STATUS            
C       EXSR SEITE              
C       EXSR SECURITY              
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDXML EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X  
C     SENDFEEDINF BEGSR                
C *     --------------------------------------
C *     Beschreibung ermitteln
C *     --------------------------------------
C       EVAL BUFV  = %TRIM ( WWTITEL2)
C     *BLANKS IFNE BUFV              
C     PFADXX COMP RSS       — — 75  
C   75 'Firefox' SCAN AGENT       — 77 75  
C   75   EXSR TEXTSMILYSDESC              
C   N75   EXSR TEXTSMILYS              
C       EXSR MYBUFV2FORM              
C       ENDIF                
C *     --------------------------------------
C *     Datum ermitteln
C *     --------------------------------------
C       SELECT    
C     WWTYP WHENEQ TYPPN              
C     WWTYP OREQ TYPART              
C     WWTYP OREQ TYPFRA              
C     WWTYP OREQ TYPFRR              
C       MOVE ARDATAW DATETIME2            
C          
C     WWTYP WHENEQ TYPAW              
C       MOVE AWDAT DATETIME2            
C          
C       OTHER                
C       MOVE DATETIME DATETIME2            
C       ENDSL                
C *     --------------------------------------
C *     Datum ermitteln
C *     --------------------------------------
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:DATETIME2:DATETYPE)
C          
C *     --------------------------------------
C *     Adresse der Webseite ermitteln
C *     --------------------------------------
C       MOVEL(P) HTTP LINK            
C       CAT PFAD :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C          
C *     --------------------------------------
C *     Adresse des Feeds ermitteln
C *     --------------------------------------
C       MOVEL(P) HTTP LINK9            
C       CAT PFAD :0 LINK9            
C       CAT PFADX :0 LINK9            
C       CAT QUERY :0 LINK9            
C          
C *     --------------------------------------
C *     Autor des Feeds ermitteln
C *     --------------------------------------
C       SELECT    
C     WWTYP WHENEQ TYPPN              
C     WWTYP OREQ TYPART              
C     WWTYP OREQ TYPBAR              
C     *ZERO ADD ARMIT MIMIT            
C     WWTYP WHENEQ TYPAW              
C     *ZERO ADD AWAUT MIMIT            
C       OTHER                
C     *ZERO ADD WEBMASTER MIMIT            
C       ENDSL                
C       ENDSR                
C          
  X * SENDEN CASEQ BAR$SEND    
  X  
C     SENDOSDX BEGSR                
C *     --------------------------------------
C *     Titel ermitteln
C *     --------------------------------------
C       EXSR SENDTITELIDX              
C          
C *     --------------------------------------
C *     Suche ausgeben
C *     --------------------------------------
C       EVAL BUF = %TRIM(CACHE)+
C             %TRIM(RANGE)+
C             %TRIM(TITLE#)+' '+
C             %TRIM(TITLE) +'§'+
C             %TRIM(STATUS#)+' '+
C             %CHAR(STATUS) +'§'+
C             %TRIM(ROBOTS#)+' '+
C             %TRIM(ROBOTS) +'§'+
C             %TRIM(COOKIE) +
C             %TRIM(COOKIE2)+
C             %TRIM(COOKIE3)+
C             %TRIM(LOCATION)+
C             %TRIM(CONTENT#)+' '+
C             %TRIM(MIMEOSDX)+'§§'
C          
C       EXSR WRSTOUTHEAD              
C       SETON         38 — —  
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     METHOD IFEQ GET              
C     METHOD OREQ POST              
C          
C *     --------------------------------------
C *     Suche öffnen
C *     --------------------------------------
C       EVAL BUF = %TRIM(XML10)+%TRIM(LATIN1)+
C             %TRIM(XML10X)+'§+
C            <OpenSearchDescription xmlns=+
C            "http://a9.com/-/spec/opensearch/1.1/">'
C          
C *     --------------------------------------
C *     Suche-Informationen ermitteln
C *     --------------------------------------
C       EXSR SENDOSDXINF              
C          
C *     --------------------------------------
C *     Suche-Informationen ausgeben
C *     --------------------------------------
C       EXSR SENDTITEL2              
C       EVAL BUF =
C       BUF +'§+
C             §<ShortName>'+%TRIM(MYTITEL)+
C            '</ShortName>'+
C          
C            '§<InputEncoding>'+%TRIM(UTF8)+
C            '</InputEncoding>'
C          
C *     --------------------------------------
C *     Suche-Symbol ausgeben
C *     --------------------------------------
C       MOVEL(P) TYPFAVICON NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       EVAL BUF =
C       BUF +'§<Image>'+%TRIM(HTTP)+
C           %TRIM(NANAV)+
C           %TRIM(NAFILEX)+
C            '</Image>'
C       ENDIF                
C *     --------------------------------------
C *     Suche-Symbol ausgeben
C *     --------------------------------------
C       MOVEL(P) TYPTOUCHICON NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       EVAL BUF =
C       BUF +'§<Image>'+%TRIM(HTTP)+
C           %TRIM(NANAV)+
C           %TRIM(NAFILEX)+
C            '</Image>'
C       ENDIF                
C *     --------------------------------------
C *     Suche-Informationen ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<Url template="'+
C            %TRIMR(HTTP)+'?'+SUCHENAME +
C               '{searchTerms}" +
C           type="text/html" />'
C          
C *     --------------------------------------
C *     Suche-Informationen ermitteln
C *     --------------------------------------
C       EVAL BUF =
C       BUF +'§<Description>'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'</Description>'
C          
C       EXSR WRSTOUT              
C *     --------------------------------------
C *     Suche schließen
C *     --------------------------------------
C       EVAL BUF = '§§</OpenSearchDescription>§'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * SENDOSDX EXSR BAR$SEND    
  X  
C     SENDOSDXINF BEGSR                
C *     --------------------------------------
C *     Beschreibung ermitteln
C *     --------------------------------------
C       EVAL BUFV  = %TRIM ( WWTITEL2)
C     *BLANKS IFNE BUFV              
C       EXSR TEXTSMILYSDESC              
C       EXSR MYBUFV2FORM              
C       ENDIF                
C       ENDSR                
C          
  X * SENDEN CASEQ BAR$SEND    
  X  
C     SENDPLIST BEGSR                
C *     --------------------------------------
C *     Rückmeldung ausgeben
C *     --------------------------------------
C       EVAL BUF = %TRIM(CACHE)+
C             %TRIM(RANGE)+
C             %TRIM(TITLE#)+' '+
C             %TRIM(TITLE) +'§'+
C             %TRIM(STATUS#)+' '+
C             %CHAR(STATUS) +'§'+
C             %TRIM(ROBOTS#)+' '+
C             %TRIM(ROBOTS) +'§'+
C             %TRIM(COOKIE) +
C             %TRIM(COOKIE2)+
C             %TRIM(COOKIE3)+
C             %TRIM(LOCATION)+
C             %TRIM(CONTENT#)+' '+
C             %TRIM(MIMEPLIST)+'§§'
C          
C       EXSR WRSTOUTHEAD              
C       SETON         38 — —  
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     METHOD IFEQ GET              
C     METHOD OREQ POST              
C          
C *     --------------------------------------
C *     Rückmeldung nach Datei hochladen
C *     --------------------------------------
C       EVAL DOCTYPE = PLIST10
C          
C *     --------------------------------------
C *     Hochladen erfolgreich
C *     --------------------------------------
C     *BLANKS IFNE LOCABS              
C       MOVEL(P) LOCABS WWW            
C       EXSR MYWWW              
C       EVAL BUF = KEY+'success'+KEYX+
C                 '<true/>§'+
C             KEY+'continue'+KEYX+
C                  STRING+
C                  %TRIM(WWW)+
C                  STRINGX
C *     --------------------------------------
C *     Hochladen nicht erfolgreich
C *     --------------------------------------
C       ELSE                
C       EVAL BUF = KEY+'success'+KEYX+
C                 '<false/>§'+
C             KEY+'errormsg'+KEYX+
C                  STRING+
C                 'Fehlermeldung'+
C                  STRINGX+
C             KEY+'error_details'+KEYX+
C                  STRING+
C                 'Details'+
C                  STRINGX
C       ENDIF                
C *     --------------------------------------
C *     Rückmeldung nach Datei hochladen
C *     --------------------------------------
C       EVAL BUF = %TRIM(XML10)+%TRIM(LATIN1)+
C             %TRIM(XML10X)+'§'+
C             %TRIM(DOCTYPE)+'§§'+
C             %TRIM(PLISTDICT) +'§'+
C       BUF + %TRIM(PLISTDICTX)+'§'
C          
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * SENDEN CAS BAR$SEND    
  X  
C     SENDSTMF BEGSR                
C       CLEAR   SRC            
C       MOVEL(P) PFADX MYFILEX            
C     *ZERO ADD STATUS200 STATUS            
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C     *BLANKS IFNE TITEL              
C     *BLANKS ANDNE DEBUG              
C     *ZERO ADD SIZE6 SIZE6SAVE            
C     *ZERO ADD STATUS STATUSSAVE            
C       MOVEL(P) CACHE CACHESAVE            
C       MOVEL(P) RANGE RANGESAVE            
C       MOVEL(P) MODIFIED MODIFIEDSAVE            
C       MOVEL(P) LENGTH LENGTHSAVE            
C       ENDIF                
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C     PFADXX IFEQ WWFILEXX              
C          
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C       SELECT    
C     *BLANKS WHENNE WWNAV              
C       EVAL SRC  =  %TRIM ( WWNAV) +
C               %TRIM ( ELEMENTMIN) +
C               %TRIM ( MYFILEX)
C     TARGETPARENT WHENEQ TARGET              
C       EVAL SRC  =  %TRIM ( %SUBST(PFAD:1:PFADLEN3)) +
C               %TRIM ( ELEMENTMIN) +
C               %TRIM ( MYFILEX)
C       OTHER                
C       EVAL SRC  =  %TRIM ( PFAD) +
C               %TRIM ( MYFILEX)
C       ENDSL                
C       ENDIF                
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C       EVAL STMF = SRC
C          
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C     *BLANKS IFNE SRC              
C          
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C       EVAL FILEIFS     = %TRIM(MAPFAD)+'/'+
C         %TRIM(SRC)
C          
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C       EXSR SENDSTAT              
C       ENDIF                
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C     *BLANKS IFEQ SRC              
C     *BLANKS IFEQ PFADXX              
C       MOVEL(P) HTML PFADXX            
C     ELEMENT CAT(P) HTML :0 LOCABS            
C       CAT QUERY :0 LOCABS            
C   31   MOVEL(P) WWW LOCABS            
C       ELSE                
C       MOVEL(P) HTML PFADXX            
C       EXSR SEITEERR              
C       ENDIF                
C       EXSR SECURITY              
C       EXSR SENDTITEL              
C       EXSR ROBOTSINF              
C       EXSR SENDHTML              
C       ELSE                
C *     --------------------------------------
C *     Cache-Zeiten einstellen
C *     --------------------------------------
C     DATETIME ADDDUR CACHESEC:*S DATETIME2            
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:DATETIME2:1)
C          
C *     --------------------------------------
C *     Cache-Zeiten einstellen
C *     --------------------------------------
C     CACHE# CAT(P) CACHEMAX#N :1 CACHE            
C     *ZERO ADD CACHESEC NUM            
C       EXSR NUMSTR              
C       CAT STR :0 CACHE            
C       CAT '§' :0 CACHE            
C          
C       CAT EXPIRES# :0 CACHE            
C       CAT HTTPDATE :1 CACHE            
C       CAT '§' :0 CACHE            
C          
C *     --------------------------------------
C *     Änderungszeitpunkt einstellen
C *     --------------------------------------
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:DATETIME3:1)
C          
C *     --------------------------------------
C *     Änderungszeitpunkt einstellen
C *     --------------------------------------
C       MOVEL(P) MODIFIED# MODIFIED            
C       CAT HTTPDATE :1 MODIFIED            
C       CAT '§' :0 MODIFIED            
C          
C *     --------------------------------------
C *     Größe einstellen
C *     --------------------------------------
C       MOVEL(P) LENGTH# LENGTH            
C     *ZERO ADD SIZE6 NUM            
C       EXSR NUMSTR              
C       CAT STR :1 LENGTH            
C       CAT '§' :0 LENGTH            
C          
C *     --------------------------------------
C *     Bereich einstellen
C *     --------------------------------------
C       CLEAR   RANGE            
C          
C *     --------------------------------------
C *     MIME-Typ ermitteln
C *     --------------------------------------
C       OPEN MIMEL3       — 77 —  
C     PFADXX SETLL MIMEL3       — 77 —  
C   N77 PFADXX READE MIMEL3       — 77 77  
C   77   MOVEL(P) MIMEOCTET MIMIME            
C          
C *     --------------------------------------
C *     If-Modified-Since nur bei GET/HEAD
C *     --------------------------------------
C     METHOD IFEQ GET              
C     METHOD OREQ HEAD              
C          
C *     --------------------------------------
C *     If-Modified-Since ermitteln
C *     --------------------------------------
C       CALLP(E) GETENV ( ENVRCV:
C         ENVRCVLEN:ENVLEN:
C         HTTPMODSINCE:
C         HTTPMODSINCELEN:QUSEC)
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C       CLEAR   DATETIME4            
C       EVAL HTTPDATE   = %SUBST(ENVRCV:1:ENVLEN)
C       CALLP(E) HTTPDATEX ( HTTPDATE:DATETIME4:7)
C     DATETIME4 IFGE DATETIME3              
C     *ZERO ADD STATUS304 STATUS            
C       ENDIF                
C *     --------------------------------------
C *     If-Modified-Since ausgeben
C *     --------------------------------------
C     *OFF IFNE *OFF              
C     *ZERO ADD STATUS NUM            
C       EXSR NUMSTR              
C     STR CAT(P) AGENT:1 MSG            
C     MSG DSPLY                
C       MOVEL(P) DATETIME3 MSG            
C     MSG DSPLY                
C       MOVEL(P) DATETIME4 MSG            
C     MSG DSPLY                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     If-Range und Range
C *     --------------------------------------
C     STATUS IFNE STATUS304              
C          
C *     --------------------------------------
C *     If-Range ermitteln
C *     --------------------------------------
C       CALLP(E) GETENV ( ENVRCV:
C         ENVRCVLEN:ENVLEN:
C         HTTPIFRANGE:
C         HTTPIFRANGELEN:QUSEC)
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C       CLEAR   DATETIME4            
C       EVAL HTTPDATE   = %SUBST(ENVRCV:1:ENVLEN)
C       CALLP(E) HTTPDATEX ( HTTPDATE:DATETIME4:7)
C     DATETIME4 COMP DATETIME3       — — 78  
C       ELSE                
C       SETON         — — 78  
C       ENDIF                
C *     --------------------------------------
C *     Falls If-Range erfüllt oder fehlt
C *     --------------------------------------
C     *IN78 IFEQ *ON              
C          
C *     --------------------------------------
C *     Range ermitteln
C *     --------------------------------------
C       CALLP(E) GETENV ( ENVRCV:
C         ENVRCVLEN:ENVLEN:
C         HTTPRANGE:
C         HTTPRANGELEN:QUSEC)
C *     --------------------------------------
C *     Testen
C *     --------------------------------------
C     *BLANKS IFNE TITEL              
C     *BLANKS ANDNE DEBUG              
C       MOVEL TITEL ENVRCV            
C     ' ' CHECKR TITEL ENVLEN            
C       ENDIF                
C          
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C       EVAL BUF        = %SUBST(ENVRCV:1:ENVLEN)
C          
C *     --------------------------------------
C *     Bereich in Bytes
C *     --------------------------------------
C     BUFLEN IFGT 6              
C       MOVEL(P) BUF CHAR6            
C     BYTES CAT(P) '=' CHARS6            
C     CHARS6 IFEQ CHAR6              
C          
C *     --------------------------------------
C *     Nur 1 Bereich
C *     --------------------------------------
C     ',' SCAN BUF:6       — 77 78  
C     *IN78 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Bereich ermitteln
C *     --------------------------------------
C       EXSR SENDRANGE              
C          
C       SELECT    
C *     --------------------------------------
C *     Bereich erfüllbar
C *     --------------------------------------
C     STATUS WHENEQ STATUS206              
C     OFFSETX SUB OFFSET SIZE6            
C       ADD 1 SIZE6            
C          
C *     --------------------------------------
C *     Größe einstellen
C *     --------------------------------------
C       MOVEL(P) LENGTH# LENGTH            
C     *ZERO ADD SIZE6 NUM            
C       EXSR NUMSTR              
C       CAT STR :1 LENGTH            
C       CAT '§' :0 LENGTH            
C          
C *     --------------------------------------
C *     Bereich einstellen
C *     --------------------------------------
C       MOVEL(P) RANGE# RANGE            
C       CAT BYTES :1 RANGE            
C     *ZERO ADD OFFSET NUM            
C       EXSR NUMSTR              
C       CAT STR :1 RANGE            
C       CAT '-' :0 RANGE            
C     *ZERO ADD OFFSETX NUM            
C       EXSR NUMSTR              
C       CAT STR :0 RANGE            
C       CAT '/' :0 RANGE            
C     *ZERO ADD SIZE3 NUM            
C       EXSR NUMSTR              
C       CAT STR :0 RANGE            
C       CAT '§' :0 RANGE            
C          
C *     --------------------------------------
C *     Bereich nicht erfüllbar
C *     --------------------------------------
C     STATUS WHENEQ STATUS416              
C       CLEAR   SIZE6            
C          
C *     --------------------------------------
C *     Größe einstellen
C *     --------------------------------------
C       CLEAR   LENGTH            
C          
C *     --------------------------------------
C *     Bereich einstellen
C *     --------------------------------------
C       MOVEL(P) RANGE# RANGE            
C       CAT BYTES :1 RANGE            
C       CAT '*' :1 RANGE            
C       CAT '/' :0 RANGE            
C     *ZERO ADD SIZE3 NUM            
C       EXSR NUMSTR              
C       CAT STR :0 RANGE            
C       CAT '§' :0 RANGE            
C          
C       ENDSL                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Werte ausgeben
C *     --------------------------------------
C     *BLANKS IFNE TITEL              
C     *BLANKS ANDNE DEBUG              
C     *OFF ANDNE *OFF              
C       EXSR SENDSTMF2              
C     *ZERO ADD SIZE6SAVE SIZE6            
C     *ZERO ADD STATUSSAVE STATUS            
C       MOVEL(P) CACHESAVE CACHE            
C       MOVEL(P) RANGESAVE RANGE            
C       MOVEL(P) MODIFIEDSAVE MODIFIED            
C       MOVEL(P) LENGTHSAVE LENGTH            
C       MOVEL(P) HTML PFADXX            
C       EXSR SENDHTML              
C       ELSE                
C *     --------------------------------------
C *     Bereich einstellen
C *     --------------------------------------
C     RANGES# CAT(P) BYTES# :1 RANGESAVE            
C     RANGESAVE CAT(P) RANGE :0 RANGE            
C          
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C       EVAL BUF = %TRIM(CACHE)+
C             %TRIM(RANGE)+
C             %TRIM(TITLE#)+' '+
C             %TRIM(TITLE) +'§'+
C             %TRIM(STATUS#)+' '+
C             %CHAR(STATUS) +'§'+
C             %TRIM(ROBOTS#)+' '+
C             %TRIM(ROBOTS) +'§'+
C             %TRIM(COOKIE) +
C             %TRIM(COOKIE2)+
C             %TRIM(COOKIE3)+
C             %TRIM(LOCATION)+
C             %TRIM(MODIFIED)+
C             %TRIM(LENGTH)+
C             %TRIM(CONTENT#)+' '+
C             %TRIM(MIMIME)+'§§'
C          
C       EXSR WRSTOUTHEAD              
C          
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C     METHOD IFEQ GET              
C     METHOD OREQ POST              
C          
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C     STATUS IFNE STATUS304              
C     STATUS ANDNE STATUS416              
C          
C *     --------------------------------------
C *     Datenstromdatei ausgeben
C *     --------------------------------------
C       CALL 'IFS$SEND' IFS$SENDPARM     — 77 —  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDSTMF EXSR BAR$SEND    
  X  
C     SENDSTMF2 BEGSR                
C *     --------------------------------------
C *     Werte ausgeben
C *     --------------------------------------
C       MOVEL(P) TITEL WWTITEL            
C       MOVEL(P) STATUS# WWTITEL2            
C     *ZERO ADD STATUS NUM            
C       EXSR NUMSTR              
C       CAT STR :1 WWTITEL2            
C     *BLANKS IFNE LENGTH              
C   66   CAT BR66 :0 WWTITEL2            
C   N66   CAT '|' :1 WWTITEL2            
C       CAT LENGTH :1 WWTITEL2            
C     '§':' ' XLATE WWTITEL2 WWTITEL2            
C       ENDIF                
C     *BLANKS IFNE RANGE              
C   66   CAT BR66 :0 WWTITEL2            
C   N66   CAT '|' :1 WWTITEL2            
C       CAT RANGE :1 WWTITEL2            
C     '§':' ' XLATE WWTITEL2 WWTITEL2            
C       ENDIF                
C       ENDSR                
C          
  X * SENDSTMF EXSR BAR$SEND    
  X  
C     SENDRANGE BEGSR                
C *     --------------------------------------
C *     Bereich ermitteln
C *     --------------------------------------
C     *ZERO ADD *ZERO OFFSET            
C     *ZERO ADD SIZE3 OFFSETX            
C     *ZERO ADD OFFSET OFFSETMIN            
C     *ZERO ADD OFFSETX OFFSETMAX            
C     6 ADD 1 POS            
C          
C *     --------------------------------------
C *     Bereich ermitteln
C *     --------------------------------------
C     POS IFLE BUFLEN              
C       EXSR SENDRANGE2              
C     *ZERO ADD LEN2 LEN            
C     *ZERO ADD NUM OFFSET            
C     *ZERO ADD NUM OFFSETX            
C       ADD LEN2 POS            
C          
C *     --------------------------------------
C *     Bereich ermitteln
C *     --------------------------------------
C     POS IFLE BUFLEN              
C       SUBST(P) BUF:POS CHAR            
C     '-' IFEQ CHAR              
C     *ZERO ADD OFFSETMAX OFFSETX            
C       ADD 1 POS            
C          
C *     --------------------------------------
C *     Bereich ermitteln
C *     --------------------------------------
C     POS IFLE BUFLEN              
C       EXSR SENDRANGE2              
C     *ZERO COMP LEN       — — 78  
C   78 OFFSETMAX SUB NUM OFFSET            
C   N78 *ZERO ADD NUM OFFSETX            
C       ADD LEN2 POS            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Bereich ermitteln
C *     --------------------------------------
C     POS IFLE BUFLEN              
C     *ZERO ADD OFFSETMAX OFFSET            
C     *ZERO ADD OFFSETMIN OFFSETX            
C       ENDIF                
C *     --------------------------------------
C *     Bereich ermitteln
C *     --------------------------------------
C     OFFSETMIN IFGT OFFSET              
C     OFFSETMIN ADD *ZERO OFFSET            
C       ENDIF                
C     OFFSETMAX IFLE OFFSETX              
C     OFFSETMAX SUB 1 OFFSETX            
C       ENDIF                
C *     --------------------------------------
C *     Bereich erfüllbar?
C *     --------------------------------------
C     OFFSET IFLE OFFSETX              
C     OFFSET ANDLT OFFSETMAX              
C     OFFSETX ANDGE OFFSETMIN              
C     *ZERO ADD STATUS206 STATUS            
C       ELSE                
C     *ZERO ADD STATUS416 STATUS            
C       ENDIF                
C       ENDSR                
C          
  X * SENDRANGE EXSR BAR$SEND    
  X * SENDRANGE EXSR BAR$SEND    
  X  
C     SENDRANGE2 BEGSR                
C *     --------------------------------------
C *     Bereich ermitteln
C *     --------------------------------------
C     '0123456789' CHECK BUF:POS POS2     — 77 78  
C   N78 1 ADD BUFLEN POS2            
C     POS2 SUB POS LEN2            
C     LEN2 IFGE 1              
C     LEN2 ANDLE 10              
C     LEN2 SUBST(P) BUF:POS STR            
C       EXSR STRNUM              
C       ELSE                
C     *ZERO ADD OFFSETMAX NUM            
C       ENDIF                
C       ENDSR                
C          
  X * SENDSTMF EXSR BAR$SEND    
  X  
C     SENDSTAT BEGSR                
C *     --------------------------------------
C *     Prüfen ob Anlage vorhanden ist
C *     --------------------------------------
C       CALL 'IFS$STAT' IFS$STATPARM     — 77 —  
C          
C     *IN77 IFEQ *OFF              
C     ISDIR ANDNE TYPE3              
C *     --------------------------------------
C *     Datum und Zeit von UTC umrechnen
C *     --------------------------------------
C     EPOCH ADDDUR TIME3:*S DATETIME3            
C       ADDDUR UTCOFFSET:*S DATETIME3            
C          
C *     --------------------------------------
C *     Zu altes Datum ins Jahr 1970 bringen
C *     --------------------------------------
C     DATETIME3 IFLT EPOCH              
C       MOVE EPOCH DATETIME3            
C       ENDIF                
C       ELSE                
C       CLEAR   DATETIME3            
C       CLEAR   FILEIFS            
C       CLEAR   SRC            
C       ENDIF                
C     *ZERO ADD SIZE3 SIZE6            
C       CLEAR   OFFSET            
C       ENDSR                
C          
  X * SENDSTAT CALL BAR$SEND    
  X  
C     IFS$STATPARM PLIST                
C       PARM   FILEIFS            
C     *IN77 PARM *ON NOTFOUND            
C       PARM *ZERO TYPE3            
C       PARM *ZERO SIZE3            
C       PARM *ZERO TIME3            
C          
  X * SENDSTMF CALL BAR$SEND    
  X  
C     IFS$SENDPARM PLIST                
C       PARM   FILEIFS            
C       PARM   SIZE6            
C       PARM   OFFSET            
C          
  X * SENDEN CASEQ BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X  
C     SENDHTML BEGSR                
C       MOVEL(P) ABSTAND0 ABSTAND            
C *     --------------------------------------
C *     Automatisches Weiterleiten einstellen
C *     --------------------------------------
C     *BLANKS IFNE LOCABS              
C     *BLANKS IFEQ BESID              
C     *BLANKS OREQ SIDCOOKIE              
C     BESID OREQ SIDCOOKIE              
C     *IN61 OREQ *ON              
C     WWTYP IFNE TYPERR              
C     *ZERO ADD STATUS302 STATUS            
C   31 *ZERO ADD STATUS301 STATUS            
C       ENDIF                
C       ENDIF                
C     LOCATION# CAT(P) LOCABS :1 LOCATION            
C       CAT '§' :0 LOCATION            
C       ENDIF                
C *     --------------------------------------
C *     Webseite ausgeben
C *     --------------------------------------
C       EVAL BUF = %TRIM(CACHE)+
C             %TRIM(RANGE)+
C             %TRIM(TITLE#)+' '+
C             %TRIM(TITLE) +'§'+
C             %TRIM(STATUS#)+' '+
C             %CHAR(STATUS) +'§'+
C             %TRIM(ROBOTS#)+' '+
C             %TRIM(ROBOTS) +'§'+
C             %TRIM(COOKIE) +
C             %TRIM(COOKIE2)+
C             %TRIM(COOKIE3)+
C             %TRIM(LOCATION)+
C             %TRIM(CONTENT#)+' '+
C             %TRIM(MIMEHTML)+'§§'
C          
C       EXSR WRSTOUTHEAD              
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     METHOD IFEQ GET              
C     METHOD OREQ POST              
C          
C *     --------------------------------------
C *     Dokumententyp bestimmen
C *     --------------------------------------
C       EVAL DOCTYPE = HTML5
C   64   EVAL DOCTYPE = HTML32
C     '3' COMP DEBUG       — — 78  
C   78   EVAL DOCTYPE = HTML32
C     '5' COMP DEBUG       — — 78  
C   78   EVAL DOCTYPE = HTML5
C       SELECT    
C     WWTYP WHENEQ TYPPN              
C     WWTYP OREQ TYPART              
C     WWTYP OREQ TYPBAR              
C     WWCHAT IFNE NOCHAT              
C       EVAL DOCTYPE = HTML401FRAME
C       ENDIF                
C     WWTYP WHENEQ TYPFRA              
C     WWTYP OREQ TYPFRR              
C     WWTYP OREQ TYPFRW              
C     *IN62 IFEQ *ON              
C       EVAL DOCTYPE = HTML32
C       ENDIF                
C     WWTYP WHENEQ TYPFRE              
C     WWTYP OREQ TYPFRI              
C     *IN62 IFEQ *ON              
C     'Trident' SCAN AGENT       — 77 78  
C   78   EVAL DOCTYPE = HTML5
C       ENDIF                
C     WWTYP WHENEQ TYPFRP              
C       EVAL DOCTYPE = HTML5
C       ENDSL                
C *     --------------------------------------
C *     Abstand bei Bildern
C *     --------------------------------------
C     HTML5 COMP DOCTYPE       — — 78  
C   78   MOVEL(P) MINSPACE5 VSPACE            
C   N78   MOVEL(P) MINSPACE VSPACE            
C          
C *     --------------------------------------
C *     Gesperrtes setzen
C *     --------------------------------------
C       MOVEL(P) WWSPERRE MYSPERRE            
C       MOVEL(P) WWSPERRE MYSPERREN            
C          
C *     --------------------------------------
C *     Stil für Navigationen setzen
C *     --------------------------------------
C   N65   EVAL NAVSTYLE   =  NOWRAPSTYLE
C          
C *     --------------------------------------
C *     Stil für Maximale Breite setzen
C *     --------------------------------------
C     'iCab' SCAN AGENT       — 77 78  
C   N78 'NetFront/' SCAN AGENT       — 77 78  
C     *IN78 IFEQ *OFF              
C       EVAL BUFV = 'image-orientation:from-image; +
C           max-width:664px; +
C               width:100%; +
C               width:expression(+
C         (document.body +
C       && document.body.clientWidth +
C       && document.body.clientWidth>664)?+
C                      ''664px'':+
C         (document.documentElement +
C       && document.documentElement.clientWidth +
C       && document.documentElement.clientWidth>+
C                        664)?+
C                      ''664px'':'''')'
C       EXSR MYBUFV2              
C       EVAL BUF2 = 'vertical-align:middle; '+ BUFV
C       EVAL MAXWIDTHSTYLE  = ' style="'+%TRIM(BUFV)+'"'
C       EVAL MAXWIDTHSTYLE2 = ' style="'+%TRIM(BUF2)+'"'
C       ENDIF                
C *     --------------------------------------
C *     Verweise auf externe Seiten
C *     --------------------------------------
C     *BLANKS IFNE SIDQUERY              
C     WWTYP IFNE TYPIDX              
C     WWTYP ANDNE TYPLOGIN              
C     WWTYP ANDNE TYPLOGOUT              
C     WWTYP ANDNE TYPNEUMIT              
C     WWTYP ANDNE TYPNEUPWD              
C     TARGET ANDNE TARGETPARENT              
C     TARGET ANDNE TARGETFRD              
C       CAT ELEMENT :0 EXTERN            
C       CAT '/' :0 EXTERN            
C       ENDIF                
C       MOVEL(P) NAVIDS NAVISAVE            
C       MOVEL(P) TYPEXTERN NATYP            
C       EXSR NATYPNAV              
C       CAT NANAV :0 EXTERN            
C       CAT HTML :0 EXTERN            
C       CAT '?' :0 EXTERN            
C       MOVEL(P) NAVISAVE NAVIDS            
C       ENDIF                
C *     --------------------------------------
C *     Gestern/Heute/Morgen ermitteln
C *     --------------------------------------
C       MOVE DATETIME HEUTE            
C     HEUTE SUBDUR 1:*D GESTERN            
C     HEUTE ADDDUR 1:*D MORGEN            
C          
C *     --------------------------------------
C *     Farben und Bilder ermitteln
C *     --------------------------------------
C       EXSR FARBEN              
C       EXSR BILDER              
C          
C *     --------------------------------------
C *     Artikel als gelesen markieren
C *     --------------------------------------
C       EXSR GELESEN              
C          
C *     --------------------------------------
C *     JavaScript Fehlerbehandlung
C *     --------------------------------------
C       EXSR JAVASCRIPTALL              
C          
C *     --------------------------------------
C *     Kopfbereich der Seite ausgeben
C *     --------------------------------------
C       EVAL STYLES = ''
C          
C *     --------------------------------------
C *     Firefox Tap Highlight Color
C *     --------------------------------------
C     *IN67 IFEQ *ON              
C     *BLANKS ANDNE FAALINK              
C       SUBST(P) FAALINK:2 RGB6            
C     LOWER:UPPER XLATE RGB6 RGB6            
C       CALLP(E) CVTCH ( RGB3:RGB6:6)
C          
C *     --------------------------------------
C *     Firefox Tap Highlight Color
C *     --------------------------------------
C       EVAL TAP    =    ' class="tap"'
C       EVAL STYLES =
C       STYLES +   ' .tap:active, a:active { +
C         background-color:+
C         rgba('+%CHAR(R)+','+
C                %CHAR(G)+','+
C                %CHAR(B)+','+
C                 ALPHA4 +') }'
C       ENDIF                
C *     --------------------------------------
C *     Schrift setzen
C *     --------------------------------------
C       EVAL FONT   =    '<font>'
C       EVAL FONTX  =   '</font>'
C          
C       MOVEL(P) FONTS MYTITEL            
C          
C     WWTYP IFEQ TYPSRC              
C     WWTYP OREQ TYPHTTPX              
C     SRCFONTSADD CAT(P) MYTITEL:0 MYTITEL            
C       ENDIF                
C          
C     WWTYP IFEQ TYPSRC              
C     WWTYP OREQ TYPHTTPX              
C     WWTYP OREQ TYPHISTORY              
C     WWTYP OREQ TYPBESUCHE              
C     WWTYP OREQ TYPBESUCHER              
C     WWTYP OREQ TYPANFRAGEN              
C     *IN61 OREQ *ON              
C     *IN62 OREQ *ON              
C     *IN66 OREQ *ON              
C     *IN67 OREQ *ON              
C     *IN68 OREQ *ON              
C     *BLANKS ORNE DEBUG              
C       EVAL STYLES =
C       STYLES +    ' body,th,td { +
C         font-family:'+
C                    %TRIM(MYTITEL)+' }'
C       ELSE                
C     'Chrome' SCAN AGENT       — 77 78  
C   N78 'Safari' SCAN AGENT       — 77 78  
C   N78 'Firefox' SCAN AGENT       — 77 78  
C   78   EVAL STYLES =
C       STYLES +    ' body,th,td { +
C         font-family:'+
C                    %TRIM(MYTITEL)+' }'
C          
C   N78   EVAL FONT   =    '<font face="'+
C                    %TRIM(MYTITEL)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Abgerundete Tabellen und Bilder
C *     --------------------------------------
C     *OFF IFNE *OFF              
C       EVAL STYLES =
C       STYLES + ROUNDSTYLES
C       ENDIF                
C *     --------------------------------------
C *     Stil der Seite setzen
C *     --------------------------------------
C       EXSR SENDFONT              
C     *BLANKS IFNE BUF              
C       EVAL STYLES =
C       STYLES + ' ' + BUF
C       ENDIF                
C *     --------------------------------------
C *     Abstand
C *     --------------------------------------
C       EVAL BUF = '§'
C          
C *     --------------------------------------
C *     Style-Rahmen
C *     --------------------------------------
C     *BLANKS IFNE STYLES              
C       EVAL STYLES = BUF +
C       STYLE  +
C       STYLES + ' ' +
C       STYLEX
C       EVAL BUF = '§'
C       ENDIF                
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C       EXSR SENDTITEL2              
C       MOVEL(P) MYTITEL EDTITEL            
C          
C *     --------------------------------------
C *     Beschreibung aufbauen
C *     --------------------------------------
C       EVAL BUFV  = %TRIM ( WWTITEL2)
C       EXSR TEXTSMILYSDESC              
C          
C *     --------------------------------------
C *     Feeds der Seite einstellen
C *     --------------------------------------
C       MOVEL(P) ELEMENT LINK            
C          
C *     --------------------------------------
C *     Feeds der Seite einstellen
C *     --------------------------------------
C       EVAL HREFCSS  =   %TRIM(LINK) +
C                    %TRIM(CSS)  +
C                    %TRIM(QUERY)
C          
C       EVAL HREFXML  =   %TRIM(LINK) +
C                    %TRIM(XML)  +
C                    %TRIM(QUERY)
C          
C       EVAL HREFRSS  =   %TRIM(LINK) +
C                    %TRIM(RSS)  +
C                    %TRIM(QUERY)
C          
C       EVAL HREFATOM =   %TRIM(LINK) +
C                    %TRIM(ATOM) +
C                    %TRIM(QUERY)
C          
C       EVAL HREFOSDX =   %TRIM(LINK) +
C                    %TRIM(OSDX)
C          
C *     --------------------------------------
C *     Feeds der Seite einstellen
C *     --------------------------------------
C       EVAL RELCSS   = '§<link +
C          rel="stylesheet" +
C         href="'+%TRIM(HREFCSS) +'" +
C         type="'+%TRIM(MIMECSS) +'">'
C          
C       EVAL RELXML   = '§<link +
C          rel="alternate" +
C         href="'+%TRIM(HREFXML) +'" +
C         type="'+%TRIM(MIMEXML) +'" +
C                    title="'+%TRIM(EDTITEL) +'">'
C          
C       EVAL RELRSS   = '§<link +
C          rel="alternate" +
C         href="'+%TRIM(HREFRSS) +'" +
C         type="'+%TRIM(MIMERSS) +'" +
C                    title="'+%TRIM(EDTITEL) +'">'
C          
C       EVAL RELATOM  = '§<link +
C          rel="alternate" +
C         href="'+%TRIM(HREFATOM)+'" +
C         type="'+%TRIM(MIMEATOM)+'" +
C                    title="'+%TRIM(EDTITEL) +'">'
C          
C       EVAL RELOSDX  = '§<link +
C          rel="search" +
C         href="'+%TRIM(HREFOSDX)+'" +
C         type="'+%TRIM(MIMEOSDX)+'" +
C                    title="'+%TRIM(EDTITEL) +'">'
C          
C *     --------------------------------------
C *     Feeds der Seite einstellen
C *     --------------------------------------
C     WWTYP IFNE TYPPF              
C     WWTYP ANDNE TYPAKT              
C     WWTYP ANDNE TYPRUB              
C **   WWTYP ANDNE TYPPN              
C **   WWTYP ANDNE TYPART              
C **   WWTYP ANDNE TYPBAR              
C     WWTYP ANDNE TYPMITPN              
C     WWTYP ANDNE TYPMITART              
C     WWTYP ANDNE TYPIDX              
C          
C       EVAL RELRSS   = ''
C       EVAL HREFRSS  = ''
C       ENDIF                
C       EVAL RELXML   = ''
C       EVAL HREFXML  = ''
C          
C       EVAL RELATOM  = ''
C       EVAL HREFATOM = ''
C          
C     WWTYP IFNE TYPIDX              
C       EVAL RELOSDX  = ''
C       ENDIF                
C *     --------------------------------------
C *     Symbol der Seite einstellen
C *     --------------------------------------
C       MOVEL(P) TYPFAVICON NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       EVAL RELICON  = '§<link +
C          rel="icon" +
C         href="'+%TRIM(PFADREL)+
C                 %TRIM(NANAV)  +
C                 %TRIM(NAFILEX)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Symbol der Seite einstellen
C *     --------------------------------------
C       MOVEL(P) TYPTOUCHICON NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       EVAL RELICON2 = '§<link +
C          rel="icon" +
C         href="'+%TRIM(PFADREL)+
C                 %TRIM(NANAV)  +
C                 %TRIM(NAFILEX)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Symbol der Seite einstellen
C *     --------------------------------------
C       MOVEL(P) TYPTOUCHICON NATYP            
C       EXSR NATYPNAV              
C     *BLANKS IFNE NAFILEX              
C     '-' ANDNE NAFILEX              
C       EVAL RELTOUCH = '§<link +
C          rel="apple-touch-icon" +
C         href="'+%TRIM(PFADREL)+
C                 %TRIM(NANAV)  +
C                 %TRIM(NAFILEX)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Viewport ermitteln
C *     --------------------------------------
C     'iPad' SCAN AGENT       — 77 78  
C   N78 'Web Explorer' SCAN AGENT       — 77 78  
C   N78   MOVEL(P) VIEWPORT800 VIEWPORT            
C   78   MOVEL(P) VIEWPORTMAX VIEWPORT            
C     'iPad' SCAN AGENT       — 77 78  
C     *IN78 IFEQ *OFF              
C     *IN66 IFEQ *ON              
C     WWTYP IFEQ TYPSRC              
C     WWTYP OREQ TYPHTTPX              
C       MOVEL(P) VIEWPORT560 VIEWPORT            
C       ELSE                
C       MOVEL(P) VIEWPORT360 VIEWPORT            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Zeiten für Chat-Neuladen ermitteln
C *     --------------------------------------
C     WWTYP IFEQ TYPFRR              
C     WWTYP OREQ TYPFRD              
C     WWTYP OREQ TYPFRE              
C     WWTYP OREQ TYPFRI              
C     DATETIME SUBDUR TIMEOUT12:*MN DATETIME2            
C     ARDATAW COMP DATETIME2       75 — —  
C   75 *ZERO ADD TIMEOUT1 TIMEOUT            
C   N75 *ZERO ADD TIMEOUT2 TIMEOUT            
C          
C *     --------------------------------------
C *     Bei Browser v22. längere Pause machen
C *     --------------------------------------
C     TIMEOUT IFLT TIMEOUT3              
C     'v22.' SCAN AGENT       — 77 78  
C   78 *ZERO ADD TIMEOUT3 TIMEOUT            
C       ENDIF                
C *     --------------------------------------
C *     Zeiten für Chat-Neuladen einstellen
C *     --------------------------------------
C     WWTYP IFEQ TYPFRR              
C     *BLANKS COMP QUERY       — — 78  
C   78   EVAL BUF      = '?'
C   N78   EVAL BUF      = '&amp;'
C       EVAL REFRESH  = '+
C       §<meta http-equiv="Refresh" +
C                 content="'+%CHAR(TIMEOUT)+'; +
C          URL='+%TRIM(ELEMENT)+
C                %TRIM(PFADX)  +
C                %TRIM(QUERY)  +  BUF +
C                    'time='+%CHAR(DATETIME:*ISO0)+
C                                  '">'
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Automatisches Weiterleiten einstellen
C *     --------------------------------------
C     *BLANKS IFNE LOCABS              
C       MOVEL(P) LOCABS WWW            
C       EXSR MYWWW              
C       EVAL REFRESH  = '+
C       §<meta http-equiv="Refresh" +
C                 content="0; URL='+%TRIM(WWW)+'">'
C       ENDIF                
C *     --------------------------------------
C *     Inhaltstyp und Zeichensatz
C *     --------------------------------------
C       EVAL CHARSET  = '+
C       §<meta http-equiv="'+%TRIM(CONTENT) +'" +
C                 content="'+%TRIM(MIMEHTML)+'; +
C                 charset=' +%TRIM(LATIN1)  +'">'
C          
C *     --------------------------------------
C *     Sprache
C *     --------------------------------------
C   N64   EVAL LANG = ' lang="'+%TRIM(LANGUAGE)+'"'
C          
C *     --------------------------------------
C *     Seiteninformationen ausgeben
C *     --------------------------------------
C       EVAL BUF = DOCTYPE +'§+
C          
C       §<html'+%TRIMR(LANG)+'>+
C          
C       §<head>+
C        <title>'+%TRIM(EDTITEL)+'</title>§'+
C          
C       %TRIM(REFRESH) +
C       %TRIM(CHARSET) +
C          
C          '§<meta name="description" +
C       content="'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +'">§+
C          
C           §<meta name="language" +
C       content="'+%TRIM(LANGUAGE)+'">+
C          
C           §<meta name="owner" +
C       content="'+%TRIM(OWNER)+'">+
C          
C           §<meta name="author" +
C       content="'+%TRIM(AUTHOR)+'">+
C          
C           §<meta name="publisher" +
C       content="'+%TRIM(PUBLISHER)+'">+
C          
C           §<meta name="generator" +
C       content="'+%TRIM(GENERATOR)+'">+
C          
C           §<meta name="organization" +
C       content="'+%TRIM(ORGANIZATION)+'">+
C          
C           §<meta name="copyright" +
C       content="'+%TRIM(COPYRIGHT)+'">+
C          
C **         §<meta name="date" +
C **     content="'+%TRIM(DATE)+'">+
C          
C           §<meta name="format-detection" +
C       content="'+%TRIM(FORMATDETECTION)+'">+
C          
C           §<meta name="viewport" +
C       content="'+%TRIM(VIEWPORT)+'">+
C          
C           §<meta name="robots" +
C       content="'+%TRIM(ROBOTS)+'">§'+
C          
C       %TRIM(RELICON) +
C       %TRIM(RELICON2)+
C       %TRIM(RELTOUCH)+
C          
C       %TRIM(RELCSS)  +
C       %TRIM(RELRSS)  +
C       %TRIM(RELATOM) +
C       %TRIM(RELOSDX) +
C          
C       %TRIM(STYLES)  +
C          
C       '</head>'
C          
C *     --------------------------------------
C *     Rahmen öffnen
C *     --------------------------------------
C       EXSR FRAME              
C       EXSR WRSTOUT              
C          
C *     --------------------------------------
C *     Anfang der Seite ausgeben
C *     --------------------------------------
C       EVAL BUF = '§§+
C       <body text="'+FATEXT   +'" +
C             link="'+FALINK   +'" +
C            vlink="'+FAVLINK  +'" +
C            alink="'+FAALINK  +'" +
C          bgcolor="'+FABGCOLOR+'"'
C          
C *     --------------------------------------
C *     style für body ermitteln
C *     --------------------------------------
C       EVAL STYLES = ''
C          
C *     --------------------------------------
C *     Webkit Tap Highlight Color
C *     --------------------------------------
C     *BLANKS IFNE FAALINK              
C       SUBST(P) FAALINK:2 RGB6            
C     LOWER:UPPER XLATE RGB6 RGB6            
C       CALLP(E) CVTCH ( RGB3:RGB6:6)
C       EVAL STYLES =
C       STYLES +   ' -webkit-tap-highlight-color:+
C         rgba('+%CHAR(R)+','+
C                %CHAR(G)+','+
C                %CHAR(B)+','+
C                 ALPHA4 +');'
C       ENDIF                
C *     --------------------------------------
C *     Seite nicht anzeigen
C *     --------------------------------------
C     WWTYP IFEQ TYPFRR              
C     WWTYP OREQ TYPFRD              
C     WWTYP OREQ TYPFRS              
C     WWTYP OREQ TYPFRP              
C     'Firefox' SCAN AGENT       — 77 78  
C   N78 'UCBrowser' SCAN AGENT       — 77 78  
C   N78   EVAL STYLES =
C       STYLES + ' display:none;'
C       ENDIF                
C *     --------------------------------------
C *     style für body ermitteln
C *     --------------------------------------
C     *BLANKS IFNE STYLES              
C       EVAL BUF =
C       BUF + ' style="'+%TRIM(STYLES)+'"'
C       ENDIF                
C *     --------------------------------------
C *     onload für body ermitteln
C *     --------------------------------------
C       EVAL ONLOADS = ''
C          
C       SELECT    
C     WWTYP WHENEQ TYPFRE              
C       EVAL ONLOADS =
C       ONLOADS +' focus();'
C          
C     WWTYP WHENEQ TYPFRA              
C       EVAL ONLOADS =
C       ONLOADS +' scroll();'
C          
C     WWTYP WHENEQ TYPSRCS              
C       EVAL ONLOADS =
C       ONLOADS +' iframes();'
C          
C     WWTYP WHENEQ TYPNEUMIT              
C       EVAL ONLOADS =
C       ONLOADS +' if (!document.forms[0].mitglied.+
C        value) setname(document.forms[0].titel);'
C       ENDSL                
C *     --------------------------------------
C *     onload für body ermitteln
C *     --------------------------------------
C     *BLANKS IFNE ONLOADS              
C       EVAL BUF =
C       BUF +' onload="'+%TRIM(ONLOADS)+'"'
C       ENDIF                
C *     --------------------------------------
C *     body schließen
C *     --------------------------------------
C       EVAL BUF =
C       BUF + '><center>'
C          
C *     --------------------------------------
C *     Abstand
C *     --------------------------------------
C       EVAL BUF2 = '§'
C          
C *     --------------------------------------
C *     Hintergrundbild Sterne
C *     --------------------------------------
C     *BLANKS IFNE BESTERNE              
C     NOMIT OREQ BEMIT              
C       EVAL SRC = %TRIM(OBJEKTNAV)+'/sterne.js'
C       EXSR SRCEXISTJS              
C     *BLANKS IFNE SRC              
C       EVAL BUF =
C       BUF + BUF2 +
C             '§<script type="text/javascript" +
C                   language="javascript" +
C            src="'+SRC+'" +
C             id="sterne">+
C               </script>'
C       EVAL BUF2 = ''
C       EVAL JAVASCRIPTERROR = ''
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Funkeln
C *     --------------------------------------
C     *BLANKS IFNE BESPARKLE              
C     NOMIT OREQ BEMIT              
C     WWTYP IFNE TYPFRD              
C     WWTYP ANDNE TYPFRI              
C     WWTYP ANDNE TYPFRR              
C     WWTYP ANDNE TYPFRP              
C     WWTYP ANDNE TYPLOGIN              
C     WWTYP ANDNE TYPLOGIN2              
C       EVAL SRC = %TRIM(OBJEKTNAV)+'/sparkle.js'
C       EXSR SRCEXISTJS              
C     *BLANKS IFNE SRC              
C       EVAL BUF =
C       BUF + BUF2 +
C             '§<script type="text/javascript" +
C                   language="javascript" +
C            src="'+SRC+'" +
C             id="sparkle">+
C               </script>'
C       EVAL BUF2 = ''
C       EVAL JAVASCRIPTERROR = ''
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Mini-Bar
C *     --------------------------------------
C       EXSR IFRAME$              
C     *IN78 IFEQ *ON              
C       EVAL SRC = %TRIM(OBJEKTNAV)+'/iframe.js'
C       EXSR SRCEXISTJS              
C     *BLANKS IFNE SRC              
C       EVAL BUF =
C       BUF + BUF2 +
C             '§<script type="text/javascript" +
C                   language="javascript" +
C            src="'+SRC+'" +
C             id="iframe">+
C               </script>'
C       EVAL BUF2 = ''
C       EVAL JAVASCRIPTERROR = ''
C       SETON         — — 34  
C       ENDIF                
C       ENDIF                
C       EXSR WRSTOUT              
C *     --------------------------------------
C *     JavaScript ermitteln
C *     --------------------------------------
C       EXSR JAVASCRIPTS1              
C          
C *     --------------------------------------
C *     JavaScript-Rahmen
C *     --------------------------------------
C     *BLANKS IFNE JAVASCRIPTS              
C       EVAL JAVASCRIPTS = BUF2 +
C       JAVASCRIPT  +
C       JAVASCRIPTERROR +
C       JAVASCRIPTS +
C       JAVASCRIPTX
C       EVAL JAVASCRIPTERROR = ''
C       ENDIF                
C *     --------------------------------------
C *     JavaScript
C *     --------------------------------------
C       EVAL BUF = JAVASCRIPTS
C          
C *     --------------------------------------
C *     Äußere Tabelle öffnen (Touch)
C *     --------------------------------------
C     WWTYP IFEQ TYPFRA              
C     WWTYP OREQ TYPFRW              
C   62   EVAL BUF =
C       BUF + '§§<table border=0 +
C                  cellspacing=0 +
C                  cellpadding=0 summary="" +
C                      width="100%" +
C                     height="100%">+
C                <tr><td'+%TRIMR(TDBOTTOM)+'>+
C                    <center>'
C       ENDIF                
C       EXSR WRSTOUT              
C *     --------------------------------------
C *     Umgebungsvariablen ausgeben
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
C     WWTYP IFEQ TYPFRA              
C       EXSR ENVVARS              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Titel ausgeben
C *     --------------------------------------
C     WWTYP IFNE TYPFRD              
C     WWTYP ANDNE TYPFRE              
C     WWTYP ANDNE TYPFRI              
C     WWTYP ANDNE TYPFRN              
C     WWTYP ANDNE TYPFRW              
C     WWTYP ANDNE TYPFRS              
C     WWTYP ANDNE TYPFRP              
C     WWTYP ANDNE TYPFRT              
C          
C *     --------------------------------------
C *     Titel aufbauen
C *     --------------------------------------
C       EXSR SENDTITELBODY              
C          
C *     --------------------------------------
C *     Titel ausgeben
C *     --------------------------------------
C       EVAL BUF = '§§<div id="titel">+
C               §<h2>'+%TRIM(FONT) +
C          %TRIM(LINK) +
C          %TRIM(FONTX)+'</h2>'
C       EVAL BUFV =         %TRIM(WWTITEL2)
C     *BLANKS IFNE BUFV              
C     *BLANKS IFNE WWTITELAG              
C       EXSR TEXTSMILYSAG              
C       ELSE                
C       EXSR TEXTSMILYS85              
C       ENDIF                
C       EVAL BUF =
C       BUF + '§'
C       ENDIF                
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C     *BLANKS IFNE WWTITEL2              
C   N88   EVAL BUF = '<br>'
C       ENDIF                
C       EVAL BUF =
C       BUF + '</div>'
C       EXSR WRSTOUT              
C       MOVEL(P) ABSTAND1 ABSTAND            
C       ENDIF                
C *     --------------------------------------
C *     Artikel-Seiteninhalt ausgeben
C *     --------------------------------------
C       EXSR ARTMAIN              
C          
C *     --------------------------------------
C *     Artikeldetails ausgeben
C *     --------------------------------------
C       EXSR ARTINFO              
C          
C *     --------------------------------------
C *     Hinweis ausgeben
C *     --------------------------------------
C     WWTYP IFEQ TYPIDX              
C       EXSR HINWEIS1              
C       ENDIF                
C *     --------------------------------------
C *     Navigation ausgeben
C *     --------------------------------------
C       EXSR NAVIGATION              
C          
C       SELECT    
C *     --------------------------------------
C *     Text für Portal ausgeben
C *     --------------------------------------
C     WWTYP WHENEQ TYPIDX              
C       EXSR IDXMAIN              
C          
C *     --------------------------------------
C *     Text für Wartung ausgeben
C *     --------------------------------------
C     WWTYP WHENEQ TYPMNT              
C       EXSR MNTMAIN              
C       ENDSL                
C          
C       SELECT    
C *     --------------------------------------
C *     Äußere Tabelle öffnen
C *     --------------------------------------
C     WWTYP WHENEQ TYPFRE              
C     WWTYP OREQ TYPFRI              
C     WWTYP OREQ TYPFRN              
C     WWTYP OREQ TYPFRT              
C          
C     WWTYP WHENEQ TYPFRA              
C       EVAL BUF = '§§<table border=0 +
C                  cellspacing=0 +
C                  cellpadding=0 summary="" +
C                      width="100%">+
C                <tr><td><center id="inhalt">'
C       EXSR WRSTOUT              
C       OTHER                
C       EVAL BUF = '§§<table border=0 +
C                  cellspacing=0 +
C                  cellpadding=0 summary="">+
C                <tr><td><center id="inhalt">'
C       EXSR WRSTOUT              
C       ENDSL                
C *     --------------------------------------
C *     Suche ausgeben
C *     --------------------------------------
C     WWTYP IFEQ TYPPF              
C     WWTYP OREQ TYPAKT              
C     WWTYP OREQ TYPMMM              
C     WWTYP OREQ TYPGAL              
C     WWTYP OREQ TYPRUB              
C     WWTYP OREQ TYPIDX              
C     WWTYP OREQ TYPNNN              
C     WWTYP OREQ TYPDEV              
C     WWTYP OREQ TYPSRCS              
C     WWTYP OREQ TYPICNS              
C     WWTYP OREQ TYPOBJS              
C     WWTYP OREQ TYPFILES              
C     WWTYP OREQ TYPSAVES              
C     WWTYP OREQ TYPBLASEN              
C     WWTYP OREQ TYPKNOWNS              
C     WWTYP OREQ TYPSMILYS              
C     WWTYP OREQ TYPSITEMAP              
C     WWTYP OREQ TYPBESUCHER              
C     WWTYP OREQ TYPMITPN              
C     WWTYP OREQ TYPMITART              
C       EXSR FORMSUCHE              
C       ENDIF                
C *     --------------------------------------
C *     Seiteninhalt ausgeben
C *     --------------------------------------
C       EXSR LISTE              
C          
C *     --------------------------------------
C *     Weiterleiten
C *     --------------------------------------
C     *BLANKS IFNE LOCABS              
C       MOVEL(P) LOCABS WWW            
C       EXSR MYWWW              
C       EXSR TABLE              
C     *ZERO ADD 1 ROWROWSMAX            
C       EXSR ROW              
C **     MOVEL(P) SPWEITER MYTITEL            
C       MOVEL(P) 'SPWEITER' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       EVAL LINK = '<a href="'+%TRIM(WWW)+'">'+
C              %TRIM(MYTITEL)+'</a>'
C       EXSR COLCENTERB              
C       EXSR ROWX              
C       EXSR TABLEX              
C       ENDIF                
C *     --------------------------------------
C *     Neue Antwort im Chat melden
C *     --------------------------------------
C       SELECT    
C     WWTYP WHENEQ TYPFRE              
C     WWTYP OREQ TYPFRI              
C       EXSR TONAB1              
C          
C     WWTYP WHENEQ TYPFRP              
C       EXSR TONAB2              
C       ENDSL                
C *     --------------------------------------
C *     Zeit für Seitenaufbau ermitteln
C *     --------------------------------------
C       EXSR DAUERINF              
C          
C       SELECT    
C *     --------------------------------------
C *     Äußere Tabelle schließen
C *     --------------------------------------
C     WWTYP WHENEQ TYPFRE              
C     WWTYP OREQ TYPFRI              
C     WWTYP OREQ TYPFRN              
C       EXSR SENDHTML3              
C          
C     WWTYP WHENEQ TYPFRT              
C     NOMIT IFNE BEMIT              
C       EXSR SENDHTML3              
C       ENDIF                
C       MOVEL(P) ABSTAND0 ABSTAND            
C   N66   EXSR HINWEIS1              
C          
C       OTHER                
C     WWTYP IFEQ TYPFRW              
C   66   EXSR HINWEIS1              
C   N66   EVAL BUF = ''
C       ENDIF                
C       EVAL BUF = ''
C          
C     WWTYP IFNE TYPFRA              
C     WWTYP ANDNE TYPFRD              
C     WWTYP ANDNE TYPFRE              
C     WWTYP ANDNE TYPFRI              
C     WWTYP ANDNE TYPFRN              
C     WWTYP ANDNE TYPFRW              
C     WWTYP ANDNE TYPFRS              
C     WWTYP ANDNE TYPFRP              
C     WWTYP ANDNE TYPFRT              
C     WWTYP ANDNE TYPEXTERN              
C          
C *     --------------------------------------
C *     Kontakt und Information
C *     --------------------------------------
C       EXSR TABLECOPY              
C          
C *     --------------------------------------
C *     Kontakt und Information
C *     --------------------------------------
C     *BLANKS IFNE BUF              
C       EVAL BUF = '§§<tr><td><center><br>'+
C       BUF +          '</center></td></tr>'
C       ENDIF                
C       ENDIF                
C       EVAL BUF = '</center></td></tr>'+BUF+'</table>'
C       EXSR WRSTOUT              
C       ENDSL                
C *     --------------------------------------
C *     Kamera-Web-Adressen ausgeben
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
C     *BLANKS ANDEQ LOCABS              
C          
C     WWTYP IFEQ TYPNEUPN2              
C     WWTYP OREQ TYPNEUART2              
C     WWTYP OREQ TYPNEUAW              
C     *BLANKS ANDNE ARKAMERA              
C          
C     WWTYP OREQ TYPEDTPN2              
C     WWTYP OREQ TYPEDTART2              
C     WWTYP OREQ TYPEDTAW              
C     *BLANKS ANDNE ARKAMERA              
C          
C       EXSR KAMERAS              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Umgebungsvariablen ausgeben
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
C     WWTYP ANDNE TYPFRA              
C     WWTYP ANDNE TYPFRD              
C     WWTYP ANDNE TYPFRE              
C     WWTYP ANDNE TYPFRI              
C     WWTYP ANDNE TYPFRN              
C     WWTYP ANDNE TYPFRW              
C     WWTYP ANDNE TYPFRS              
C     WWTYP ANDNE TYPFRP              
C     WWTYP ANDNE TYPFRT              
C       EXSR ENVVARS              
C       ENDIF                
C *     --------------------------------------
C *     JavaScript ermitteln
C *     --------------------------------------
C       EXSR JAVASCRIPTS2              
C          
C *     --------------------------------------
C *     JavaScript-Rahmen
C *     --------------------------------------
C     *BLANKS IFNE JAVASCRIPTS              
C       EVAL JAVASCRIPTS =
C       JAVASCRIPT  +
C       JAVASCRIPTERROR +
C       JAVASCRIPTS +
C       JAVASCRIPTX + '§'
C       EVAL JAVASCRIPTERROR = ''
C       ELSE                
C       EVAL JAVASCRIPTS = '§'
C       ENDIF                
C *     --------------------------------------
C *     Abstand
C *     --------------------------------------
C       EVAL BUF = '§'
C          
C *     --------------------------------------
C *     Seitenende ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF + JAVASCRIPTS
C          
C *     --------------------------------------
C *     Äußere Tabelle schließen (Touch)
C *     --------------------------------------
C     WWTYP IFEQ TYPFRA              
C     WWTYP OREQ TYPFRW              
C   62   EVAL BUF =
C       BUF + '</center></td></tr></table>§'
C       ENDIF                
C *     --------------------------------------
C *     Seitenende ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF + '</center>§</body>§'
C          
C *     --------------------------------------
C *     Rahmen schließen
C *     --------------------------------------
C       EXSR FRAMEX              
C          
C *     --------------------------------------
C *     Seitenende ausgeben
C *     --------------------------------------
C       EVAL BUF =
C       BUF + '</html>§'
C          
C *     --------------------------------------
C *     Leerzeichen ausgeben
C *     --------------------------------------
C     *OFF IFNE *OFF              
C     STATUS403 IFEQ STATUS              
C     STATUS404 OREQ STATUS              
C     STATUS503 OREQ STATUS              
C       CLEAR   MYTITEL            
C       EVAL BUF =
C       BUF +         MYTITEL
C       ENDIF                
C       ENDIF                
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X  
C     SENDHTML3 BEGSR                
C     *IN66 IFEQ *ON              
C *     --------------------------------------
C *     Abstand bei UC Browser auf Smartphone
C *     --------------------------------------
C     WWTYP IFNE TYPFRN              
C     'UCBrowser' SCAN AGENT       — 77 78  
C   78   EVAL BUF = '<br>'
C   78   EXSR WRSTOUT              
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     IFRAME$ BEGSR                
C       SETOFF         — — 78  
C *     --------------------------------------
C *     Mini-Bar
C *     --------------------------------------
C     *IN66 IFEQ *OFF              
C     *BLANKS ANDEQ SCHMAL              
C     NOMIT ANDNE BEMIT              
C     WWTYP IFNE TYPFRA              
C     WWTYP ANDNE TYPFRR              
C     WWTYP ANDNE TYPFRD              
C     WWTYP ANDNE TYPFRE              
C     WWTYP ANDNE TYPFRI              
C     WWTYP ANDNE TYPFRN              
C     WWTYP ANDNE TYPFRW              
C     WWTYP ANDNE TYPFRS              
C     WWTYP ANDNE TYPFRP              
C     WWTYP ANDNE TYPFRT              
C       SETON         — — 78  
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     KAMERAS BEGSR                
C       CALL 'KAMERAS' KAMERASPARM     — 77 —  
C *     --------------------------------------
C *     Kamera-Web-Adressen formatieren
C *     --------------------------------------
C     *BLANKS IFNE BUFV              
C       EVAL BUFV = NL + NL +
C       BUFV + NL
C       CLEAR   COLOR7            
C       EXSR TEXTCOLOR              
C          
C *     --------------------------------------
C *     Kamera-Web-Adressen formatieren
C *     --------------------------------------
C       EXSR TEXTSMILYSKAM              
C          
C *     --------------------------------------
C *     // im Text suchen und ersetzen
C *     --------------------------------------
C     KAMERAN SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE(BRSP :BUFV:POS:KAMERANLEN)
C     KAMERAN SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     /// im Text suchen und ersetzen
C *     --------------------------------------
C     KAMERAP SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE(BRSP2:BUFV:POS:KAMERAPLEN)
C     KAMERAP SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     // im Text suchen und ersetzen
C *     --------------------------------------
C     KAMERAN2 SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE(BRSP :BUFV:POS:KAMERAN2LEN)
C     KAMERAN2 SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     /// im Text suchen und ersetzen
C *     --------------------------------------
C     KAMERAP2 SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE(BRSP2:BUFV:POS:KAMERAP2LEN)
C     KAMERAP2 SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Kamera-Web-Adressen formatieren
C *     --------------------------------------
C     KAMERA# IFNE KAMERAX#              
C     NL SCAN BUFV POS2     — 77 78  
C     KAMERA# SCAN BUFV:POS2 POS     — 77 78  
C   78 KAMERAX# SCAN BUFV:POS POS2     — 77 78  
C     *IN78 IFEQ *ON              
C       EVAL ADD  =      '<font color="'+FALINK+'">'
C       EVAL ADDX =     '</font>'
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %SUBST ( BUFV:1:POS-1) +
C       ADD  + %SUBST ( BUFV:  POS:POS2-POS+1) +
C       ADDX + %SUBST ( BUFV:      POS2+1)
C     KAMERAX# SCAN BUFV:POS2 POS2     — 77 78  
C   78 KAMERA# SCAN BUFV:POS2 POS     — 77 78  
C   78 KAMERAX# SCAN BUFV:POS POS2     — 77 78  
C       ENDDO                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Kamera-Web-Adressen ausgeben
C *     --------------------------------------
C       EVAL BUF = '<br>§§+
C              <div id="kameras">§+
C              <table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="">§+
C              <tr><td'+%TRIMR(DEBUGCOLOR)+
C               MAXWIDTHSTYLE+'>§§+
C              <table border=0 +
C                cellspacing=0 +
C                cellpadding=0 summary="">§+
C              <tr><td><div'
C       EXSR BUFDEBUG              
C       EVAL BUF =
C       BUF +   '><font size="-1"'+
C                  DISPLAYBLOCK+
C                  NOTRANSLATE+'>'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +   '</font>+
C                </div></td></tr></table>+
C          </td></tr></table></div>'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * KAMERAS CALL BAR$SEND    
  X  
C     KAMERASPARM PLIST                
C       PARM *BLANKS BUFV            
C       PARM NL LINEX            
C          
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X  
C     ENVVARS BEGSR                
C       CALL 'ENVVARS' ENVVARSPARM     — 77 —  
C *     --------------------------------------
C *     Umgebungsvariablen ausgeben
C *     --------------------------------------
C     *BLANKS IFNE BUFV              
C       EVAL BUFV = NL + NL +
C       BUFV + NL
C       CLEAR   COLOR7            
C       EXSR TEXTCOLOR              
C          
C *     --------------------------------------
C *     Umgebungsvariablen formatieren
C *     --------------------------------------
C       EXSR TEXTSMILYSENV              
C          
C *     --------------------------------------
C *     Umgebungsvariablen formatieren
C *     --------------------------------------
C     ENVVAR# IFNE ENVVARX#              
C     NL SCAN BUFV POS2     — 77 78  
C   78 ENVVAR# SCAN BUFV:POS2 POS     — 77 78  
C   78 ENVVARX# SCAN BUFV:POS POS2     — 77 78  
C     *IN78 IFEQ *ON              
C       EVAL ADD  =      '<font color="'+FALINK+'">'
C       EVAL ADDX =     '</font>'
C   N68   EVAL ADD  = ADD+'​'
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %SUBST ( BUFV:1:POS) +
C       ADD  + %SUBST ( BUFV:  POS+1:POS2-POS-1) +
C       ADDX + %SUBST ( BUFV:        POS2)
C     ENVVARX# SCAN BUFV:POS2 POS2     — 77 78  
C   78 ENVVAR# SCAN BUFV:POS2 POS     — 77 78  
C   78 ENVVARX# SCAN BUFV:POS POS2     — 77 78  
C       ENDDO                
C       ENDIF                
C       ENDIF                
C       CLEAR   BUF            
C *     --------------------------------------
C *     Umgebungsvariablen ausgeben
C *     --------------------------------------
C     WWTYP IFNE TYPFRA              
C       EVAL BUF =
C       BUF + '<br>'
C       ENDIF                
C       EVAL BUF =
C       BUF + '§§+
C              <div id="debug">§+
C              <table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="">§+
C              <tr><td'+%TRIMR(DEBUGCOLOR)+
C               MAXWIDTHSTYLE+'>§§+
C              <table border=0 +
C                cellspacing=0 +
C                cellpadding=0 summary="">§+
C              <tr><td'+JSPROMPT+TAP+'><div'
C       EXSR BUFDEBUG              
C       EVAL BUF =
C       BUF +   '><font size="-1"'+
C                  DISPLAYBLOCK+
C                  NOTRANSLATE+'>'
C       EXSR WRSTOUT              
C       EXSR WRSTOUTV              
C       EVAL BUF =
C       BUF +   '</font>+
C                </div></td></tr></table>+
C          </td></tr></table></div>'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * ENVVARS CALL BAR$SEND    
  X  
C     ENVVARSPARM PLIST                
C       PARM *BLANKS BUFV            
C       PARM ENVVARX# LINEX            
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     TONAB1 BEGSR                
C     *IN62 IFEQ *ON              
C *     --------------------------------------
C *     Neue Antwort im Chat akustisch melden
C *     --------------------------------------
C       EVAL SRC = %TRIM(OBJEKTNAV)+'/sound.wav'
C       EXSR SRCEXISTSOUND              
C     *BLANKS IFNE SRC              
C       EVAL BUF = '§§-
C       <div style="display:none">+
C       <audio src="'+SRC+'" preload="none" +
C        onplaying="loaded()"></audio></div>'
C          
C *     --------------------------------------
C *     iOS 4
C *     --------------------------------------
C     *IN61 IFEQ *ON              
C     'OS 4_' SCAN AGENT       — 77 78  
C   78   EVAL BUF = ''
C       ENDIF                
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     TONAB2 BEGSR                
C *     --------------------------------------
C *     Neue Antwort im Chat akustisch melden
C *     --------------------------------------
C       EVAL SRC = %TRIM(OBJEKTNAV)+'/sound.wav'
C       EXSR SRCEXISTSOUND              
C     *BLANKS IFNE SRC              
C       EVAL BUF = '§-
C         <audio src="'+SRC+'" preload="none">§-
C         <embed src="'+SRC+'" +
C           autoplay="true" +
C          autostart="true" +
C             hidden="true" +
C              cache="true" +
C              width=0 +
C             height=0><noembed>§-
C       <bgsound src="'+SRC+'" +
C               loop=0></noembed></audio>'
C          
C *     --------------------------------------
C *     iOS 4
C *     --------------------------------------
C     *IN61 IFEQ *ON              
C     'OS 4_' SCAN AGENT       — 77 78  
C   78   EVAL BUF = '§-
C        <iframe src="'+SRC+'">'+
C                BUF+'</iframe>'
C       ENDIF                
C *     --------------------------------------
C *     Abstand
C *     --------------------------------------
C       EVAL BUF =
C       BUF + '§§'
C       EXSR WRSTOUT              
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     TABLECOPY BEGSR                
C *     --------------------------------------
C *     Seitenende
C *     --------------------------------------
C       CLEAR   LINK1            
C       CLEAR   LINK2            
C       CLEAR   LINK3            
C       CLEAR   LINK4            
C       CLEAR   LINK5            
C       CLEAR   LINK6            
C       CLEAR   LINK7            
C       CLEAR   LINK8            
C       CLEAR   BUF            
C       MOVEL(P) '<td' TD            
C          
C       SELECT    
C *     --------------------------------------
C *     Seite der meisten Smilys
C *     --------------------------------------
C     WWTYP WHENEQ TYPSMILYS              
C       MOVEL(P) LISMILYS WWW            
C       MOVEL(P) '<td' LINK5            
C       CAT TDMIDDLE :0 LINK5            
C       CAT TDLEFT :0 LINK5            
C       CAT '>' :0 LINK5            
C       CAT FONT :0 LINK5            
C       CAT '<a' :0 LINK5            
C       CAT NAVSTYLE :0 LINK5            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK5            
C       CAT '><b>' :0 LINK5            
C **     MOVEL(P) SPSMILYS2 MYTITEL            
C       MOVEL(P) 'SPSMILYS2' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK5            
C       CAT '</b></a>' :0 LINK5            
C       CAT FONTX :0 LINK5            
C       CAT '</td>' :0 LINK5            
C       MOVEL(P) '§' TD            
C       CAT '<td' :4 TD            
C          
C *     --------------------------------------
C *     Feeds
C *     --------------------------------------
C     *BLANKS WHENNE HREFXML              
C     *BLANKS ORNE HREFRSS              
C     *BLANKS ORNE HREFATOM              
C       MOVEL(P) '<td' LINK5            
C       CAT TDMIDDLE :0 LINK5            
C       CAT TDLEFT :0 LINK5            
C       CAT '>' :0 LINK5            
C       CAT FONT :0 LINK5            
C     *BLANKS IFNE HREFXML              
C **     EXSR LINKXML              
C **     CAT LINK :0 LINK5            
C       ENDIF                
C     *BLANKS IFNE HREFRSS              
C       EXSR LINKRSS              
C       CAT LINK :0 LINK5            
C       ENDIF                
C     *BLANKS IFNE HREFATOM              
C **     EXSR LINKATOM              
C **     CAT LINK :1 LINK5            
C       ENDIF                
C       CAT FONTX :0 LINK5            
C       CAT '</td>' :0 LINK5            
C       MOVEL(P) '§' TD            
C       CAT '<td' :4 TD            
C       ENDSL                
C *     --------------------------------------
C *     Zeit für Seitenaufbau ausgeben
C *     --------------------------------------
C     *ZERO ADD DAUER NUM            
C       EXSR NUMSTR              
C       MOVEL(P) '<a id=' LINK6            
C       CAT '"dauer"' :0 LINK6            
C       CAT JSPROMPT :0 LINK6            
C       CAT TAP :0 LINK6            
C       CAT '>' :0 LINK6            
C       CAT STR :0 LINK6            
C ** N66   MOVEL(P) SPMS MYTITEL            
C   N66   MOVEL(P) 'SPMS' MYTYP            
C   N66   EXSR MYTYPTITEL              
C   N66   EXSR MYTITELX              
C   N66   CAT MYTITEL :1 LINK6            
C       CAT '</a>' :0 LINK6            
C       CAT '|§' :1 LINK6            
C          
C *     --------------------------------------
C *     Session per JavaScript auslesbar?
C *     --------------------------------------
C       EXSR JAVASCRIPTSEC              
C          
C       EVAL BUF =
C       BUF +         JAVASCRIPT  +
C         JAVASCRIPTERROR +
C         JAVASCRIPTS +
C         JAVASCRIPTX + '§§'
C *     --------------------------------------
C *     Session über Referrer auslesbar?
C *     --------------------------------------
C     *BLANKS IFNE SIDQUERY              
C       CAT '<a' :4 LINK7            
C       CAT NAVSTYLE :0 LINK7            
C       CAT '>' :0 LINK7            
C **     MOVEL(P) SPSESSION MYTITEL            
C       MOVEL(P) 'SPSESSION' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK7            
C       CAT '</a>' :0 LINK7            
C       CAT '|§' :1 LINK7            
C       ENDIF                
C *     --------------------------------------
C *     Alles zeigen
C *     --------------------------------------
C     *BLANKS IFNE MYSPERREN              
C     *BLANKS ANDEQ ZEIGEN              
C     NOMIT ANDNE BEMIT              
C       CAT '<a' :4 LINK8            
C       CAT NAVSTYLE :0 LINK8            
C       CAT 'href="' :1 LINK8            
C       CAT QUERYSUCHE :0 LINK8            
C     *BLANKS COMP QUERYSUCHE       — — 78  
C   78   CAT '?' :0 LINK8            
C   N78   CAT '&amp;' :0 LINK8            
C       CAT ZEIGENNAME :0 LINK8            
C       CAT '1' :0 LINK8            
C       CAT '"' :0 LINK8            
C       CAT TARGET :0 LINK8            
C       CAT '>' :0 LINK8            
C **     MOVEL(P) SPZEIGEN MYTITEL            
C       MOVEL(P) 'SPZEIGEN' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK8            
C       CAT '</a>' :0 LINK8            
C   66   CAT '<br>§' :0 LINK8            
C   N66   CAT '|§' :1 LINK8            
C       ENDIF                
C *     --------------------------------------
C *     Kontakt
C *     --------------------------------------
C       EXSR LINKCNT              
C       CAT LINK :4 LINK1            
C       CAT '|§' :1 LINK1            
C          
C *     --------------------------------------
C *     Information
C *     --------------------------------------
C       EXSR LINKINF              
C       CAT LINK :4 LINK2            
C          
C *     --------------------------------------
C *     Copyright
C *     --------------------------------------
C     *IN66 IFEQ *OFF              
C       CAT '|§' :1 LINK2            
C **     MOVEL(P) SPNAME MYTITEL            
C       MOVEL(P) 'SPNAME' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :4 LINK3            
C       CAT COPY :1 LINK3            
C       CAT COPYRIGHTX :1 LINK3            
C       ENDIF                
C       SELECT    
C *     --------------------------------------
C *     Beantworten
C *     --------------------------------------
C     WWTYP WHENEQ TYPPN              
C     WWTYP OREQ TYPART              
C     WWTYP OREQ TYPBAR              
C       EXSR LINKNEUAW              
C       EXSR LINKADDB              
C       CAT '|§' :1 LINK3            
C       CAT LINK :1 LINK4            
C          
C *     --------------------------------------
C *     Schließen
C *     --------------------------------------
C     WWTYP WHENEQ TYPSMILY              
C     WWTYP OREQ TYPSMILYS              
C       EXSR LINKCLOSE              
C       EXSR LINKADDB              
C       CLEAR   LINK1            
C       CLEAR   LINK2            
C   66   CLEAR   LINK3            
C   N66   CAT '|§' :1 LINK3            
C       CAT LINK :1 LINK4            
C   66   EVAL BUF = '§'
C          
C *     --------------------------------------
C *     Wartung
C *     --------------------------------------
C     WWTYP WHENEQ TYPMNT              
C     BEMIT IFNE WEBMASTER              
C   66   EXSR LINKCNT              
C   66   CLEAR   LINK1            
C   66   CAT LINK :4 LINK1            
C       CLEAR   LINK2            
C **     MOVEL(P) '§' LINK6            
C       EVAL BUF = '§'
C       ENDIF                
C       ENDSL                
C *     --------------------------------------
C *     Zeile aufbauen
C *     --------------------------------------
C       EVAL BUF = '<table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="" +
C          width="100%">§<tr>'+
C          %TRIMR(LINK5)   +
C          %TRIMR(TD)      +
C          %TRIMR(TDMIDDLE)+
C          %TRIMR(TDRIGHT) +
C          %TRIMR(WIDTH100PR)+'>'+
C          %TRIMR(FONT)    +
C          %TRIMR(LINK6)   +
C                BUF + %TRIMR(LINK7)   +
C          %TRIMR(LINK8)   +
C          %TRIMR(LINK1)   +
C          %TRIMR(LINK2)   +
C          %TRIMR(LINK3)   +
C          %TRIMR(LINK4)   +
C          %TRIMR(FONTX)   +
C                    '</td></tr></table>'
C       ENDSR                
C          
  X * SENDCSS EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X  
C     FARBEN BEGSR                
C       MOVEL(P) WWFARBE MYFARBE            
C *     --------------------------------------
C *     Farben festlegen
C *     --------------------------------------
C     DEBUG IFEQ '7'              
C     *ZERO ADD +7 MYFARBE            
C       ENDIF                
C     DEBUG IFEQ '8'              
C     *ZERO ADD +8 MYFARBE            
C       ENDIF                
C     DEBUG IFEQ '9'              
C     *ZERO ADD +9 MYFARBE            
C       ENDIF                
C       OPEN FARBEP       — 77 —  
C     FAKEYWW CHAIN FARBEP       77 77 —  
C     *IN77 IFNE *OFF              
C     *ZERO ADD +1 MYFARBE            
C       OPEN FARBEP       — 77 —  
C     FAKEYWW CHAIN FARBEP       77 77 —  
C     *IN77 IFNE *OFF              
C       MOVEL(P) '#000000' FATEXT            
C       MOVEL(P) '#cc6600' FALINK            
C       MOVEL(P) '#cc6600' FAVLINK            
C       MOVEL(P) '#cc6600' FAALINK            
C       MOVEL(P) '#ffdd66' FAROWT            
C       MOVEL(P) '#ffee77' FABGCOLOR            
C       MOVEL(P) '#ffffbb' FAROW1            
C       MOVEL(P) '#ffffff' FAROW2            
C       MOVEL(P) '#ffffbb' FANAV            
C       MOVEL(P) '#ffffbb' FAMAIN            
C       MOVEL(P) '#ffffbb' FADEBUG            
C       MOVEL(P) '#ff0000' FAHINWEIS            
C       MOVEL(P) '#ff0000' FAAGENT            
C       MOVEL(P) '#ff0000' FAROBOT            
C       MOVEL(P) '#ff0000' FALIVE            
C       MOVEL(P) 'gelb' FABEM            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Farben festlegen
C *     --------------------------------------
C       EVAL NAVCOLOR   = ' bgcolor="'+FANAV  +'"'
C       EVAL REDCOLOR   =   ' color="'+FALIVE +'"'
C       EVAL ROWCOLOR1  = ' bgcolor="'+FAROW1 +'"'
C       EVAL ROWCOLOR2  = ' bgcolor="'+FAROW2 +'"'
C       EVAL ROWCOLORT  = ' bgcolor="'+FAROWT +'"'
C       EVAL MAINCOLOR  = ' bgcolor="'+FAMAIN +'"'
C       EVAL DEBUGCOLOR = ' bgcolor="'+FADEBUG+'"'
C       EVAL LIVECOLOR  =   ' color="'+FALIVE +'"'
C                  +   ' class="blink"'
C       EVAL BLINK      =   ' class="blink"'
C     '7' IFNE DEBUG              
C     '8' ANDNE DEBUG              
C     '9' ANDNE DEBUG              
C     UPPER:LOWER XLATE(P) FAROW2 MYROW2            
C     '#ffffff' IFEQ MYROW2              
C       EVAL NAVCOLOR   =  BGCOLORSTYLE
C       EVAL ROWCOLOR1  =  BGCOLORSTYLE1
C       EVAL ROWCOLOR2  =  BGCOLORSTYLE2
C       EVAL MAINCOLOR  =  BGCOLORSTYLE
C       EVAL DEBUGCOLOR =  BGCOLORSTYLE
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * FARBEN CHAIN BAR$SEND    
  X * FARBEN CHAIN BAR$SEND    
  X  
C     FAKEYWW KLIST                
C       KFLD   MAMAN            
C       KFLD   MYFARBE            
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     BILDER BEGSR                
C *     --------------------------------------
C *     Allgemeine Bilder ermitteln
C *     --------------------------------------
C       MOVEL(P) BILDNEU MYTITEL            
C       MOVEL(P) 'neu.gif' EDTITEL            
C       EXSR LINKBILD              
C       MOVEL(P) LINK NEU            
C          
C       MOVEL(P) *BLANKS MYTITEL            
C       MOVEL(P) 'neu3.gif' EDTITEL            
C       EXSR LINKBILD              
C       MOVEL(P) LINK NEU3            
C          
C *     --------------------------------------
C *     Allgemeine Bilder ermitteln
C *     --------------------------------------
C       MOVEL(P) BILDNEU MYTITEL            
C       MOVEL(P) 'neu.gif' EDTITEL            
C       MOVEL(P) NEUSPSPACE BILDADD            
C       MOVEL(P) NEUSPSPACE5 BILDADD            
C       EXSR LINKBILD              
C       MOVEL(P) LINK NEUSP            
C          
C       MOVEL(P) *BLANKS MYTITEL            
C       MOVEL(P) 'neu3.gif' EDTITEL            
C       MOVEL(P) NEUSPSPACE BILDADD            
C       MOVEL(P) NEUSPSPACE5 BILDADD            
C       EXSR LINKBILD              
C       MOVEL(P) LINK NEUSP3            
C       ENDSR                

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