Security

BAR$SEC (RPGLE)



  X * SECURITY BEGSR BAR$SEC 293  
  X  
  X * SEITEERR EXSR BAR$SEITE    
  X * SEITEPN EXSR BAR$SEITE    
  X * NATYPNAV EXSR BAR$NAV    
  X * SEITETYP EXSR BAR$SEITE    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * *MAIN* EXSR BAR$MAIN    
  X * SENDFEEDLOC EXSR BAR$SEND    
  X * SENDSTMF EXSR BAR$SEND    
  X  
C     SECURITY BEGSR                
C       CLEAR   OOTYPX            
C *     --------------------------------------
C *     Zugangskontrolle
C *     --------------------------------------
C       CLEAR   ELEMENTERR            
C       CLEAR   ELEMENTERRT            
C       SETON         11  
C          
C       SELECT    
C *     --------------------------------------
C *     Öffentliche Seiten
C *     --------------------------------------
C     OOTYP WHENEQ TYPAKT              
C     OOTYP OREQ TYPMMM              
C     OOTYP OREQ TYPGAL              
C     OOTYP OREQ TYPMIT              
C     OOTYP OREQ TYPRUB              
C     OOTYP OREQ TYPIDX              
C     OOTYP OREQ TYPMNT              
C     OOTYP OREQ TYPFRI              
C     OOTYP OREQ TYPFRN              
C     OOTYP OREQ TYPFRS              
C     OOTYP OREQ TYPFRP              
C     OOTYP OREQ TYPFRT              
C     OOTYP OREQ TYPINF              
C     OOTYP OREQ TYPKAL              
C     OOTYP OREQ TYPDEV              
C     OOTYP OREQ TYPERR              
C     OOTYP OREQ TYPSRC              
C     OOTYP OREQ TYPSRCS              
C     OOTYP OREQ TYPHTTPX              
C     OOTYP OREQ TYPICN              
C     OOTYP OREQ TYPICNS              
C     OOTYP OREQ TYPOBJ              
C     OOTYP OREQ TYPOBJS              
C     OOTYP OREQ TYPFILE              
C     OOTYP OREQ TYPFILES              
C     OOTYP OREQ TYPBLASE              
C     OOTYP OREQ TYPBLASEN              
C     OOTYP OREQ TYPKNOWN              
C     OOTYP OREQ TYPKNOWNS              
C     OOTYP OREQ TYPSMILY              
C     OOTYP OREQ TYPSMILYS              
C     OOTYP OREQ TYPEXTERN              
C     OOTYP OREQ TYPSPERRE              
C     OOTYP OREQ TYPSITEMAP              
C     OOTYP OREQ TYPBESUCHE              
C     OOTYP OREQ TYPBESUCHER              
C     OOTYP OREQ TYPANFRAGEN              
C     OOTYP OREQ TYPLOGIN              
C     OOTYP OREQ TYPLOGIN2              
C     OOTYP OREQ TYPLOGIN3              
C     OOTYP OREQ TYPLOGOUT              
C     OOTYP OREQ TYPMITART              
C     OOTYP OREQ TYPNEUMIT              
C     OOTYP OREQ TYPNEUPWD              
C     OOTYP OREQ TYPADS              
C     OOTYP OREQ TYPFONT              
C     OOTYP OREQ TYPROBOTS              
C     OOTYP OREQ TYPAPPSITE              
C     OOTYP OREQ TYPFAVICON              
C     OOTYP OREQ TYPTOUCHICON              
C       SETOFF         11  
C          
C *     --------------------------------------
C *     Seiten nur für Mitglieder
C *     --------------------------------------
C     OOTYP WHENEQ TYPPF              
C     OOTYP OREQ TYPNAV              
C     OOTYP OREQ TYPNNN              
C     OOTYP OREQ TYPSRC              
C     OOTYP OREQ TYPMITPN              
C     OOTYP OREQ TYPNEUPN              
C     OOTYP OREQ TYPNEUPN2              
C     OOTYP OREQ TYPNEUART              
C     OOTYP OREQ TYPNEUART2              
C     BEMIT IFNE NOMIT              
C       SETOFF         11  
C       ENDIF                
C *     --------------------------------------
C *     Seiten nur für Webmaster
C *     --------------------------------------
C     OOTYP WHENEQ TYPSAVE              
C     OOTYP OREQ TYPSAVES              
C     OOTYP OREQ TYPEDTNAV              
C     OOTYP OREQ TYPEDTIDX              
C     OOTYP OREQ TYPEDTRUB              
C     OOTYP OREQ TYPNEURUB              
C     OOTYP OREQ TYPNEUFILE              
C     OOTYP OREQ TYPNEUFILE2              
C     OOTYP OREQ TYPEDTSMILY              
C     OOTYP OREQ TYPNEUSMILY              
C     BEMIT IFEQ WEBMASTER              
C       SETOFF         11  
C       ENDIF                
C *     --------------------------------------
C *     Seiten nur für Webmaster oder Benutzer
C *     --------------------------------------
C     OOTYP WHENEQ TYPEDTMIT              
C     OOTYP OREQ TYPCHGPWD              
C     OOTYP OREQ TYPCHGMAIL              
C     BEMIT IFEQ WEBMASTER              
C     BEMIT OREQ MIMIT              
C       SETOFF         11  
C       ENDIF                
C *     --------------------------------------
C *     Seiten nur für Benutzer
C *     --------------------------------------
C     OOTYP WHENEQ TYPGELPN              
C     OOTYP OREQ TYPGELART              
C     BEMIT IFEQ MIMIT              
C       SETOFF         11  
C       ENDIF                
C *     --------------------------------------
C *     Artikel/Nachricht ändern
C *     --------------------------------------
C     OOTYP WHENEQ TYPEDTPN              
C     OOTYP OREQ TYPEDTPN2              
C     OOTYP OREQ TYPEDTART              
C     OOTYP OREQ TYPEDTART2              
C     BEMIT IFEQ ARMIT              
C       SETOFF         11  
C       ENDIF                
C *     --------------------------------------
C *     Artikel/Nachricht aus/einblenden
C *     --------------------------------------
C     OOTYP WHENEQ TYPDLTPN              
C     OOTYP OREQ TYPDLTART              
C     OOTYP OREQ TYPRCLPN              
C     OOTYP OREQ TYPRCLART              
C     BEMIT IFNE ARMIT              
C     BEMIT IFEQ ARPN              
C     BEMIT ANDNE NOMIT              
C     BEMIT OREQ WEBMASTER              
C       SETOFF         11  
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Antwort ändern
C *     --------------------------------------
C     OOTYP WHENEQ TYPEDTAW              
C     BEMIT IFEQ AWAUT              
C       SETOFF         11  
C       ENDIF                
C *     --------------------------------------
C *     Antwort aus/einblenden
C *     --------------------------------------
C     OOTYP WHENEQ TYPDLTAW              
C     OOTYP OREQ TYPRCLAW              
C     BEMIT IFNE AWAUT              
C     BEMIT IFEQ AWMIT              
C     BEMIT OREQ ARPN              
C     BEMIT ANDNE NOMIT              
C     BEMIT OREQ WEBMASTER              
C       SETOFF         11  
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Artikel/Nachricht/Antwort/Neue Antwort
C *     --------------------------------------
C     OOTYP WHENEQ TYPPN              
C     OOTYP OREQ TYPART              
C     OOTYP OREQ TYPFRA              
C     OOTYP OREQ TYPFRR              
C     OOTYP OREQ TYPFRD              
C     OOTYP OREQ TYPFRE              
C     OOTYP OREQ TYPFRW              
C     OOTYP OREQ TYPNEUAW              
C     OOTYP OREQ TYPBAR              
C     OOTYP OREQ TYPAW              
C          
C       SELECT    
C *     --------------------------------------
C *     Private Nachricht
C *     --------------------------------------
C     NOPN WHENNE ARPN              
C     BEMIT IFEQ ARPN              
C     BEMIT OREQ ARMIT              
C       SETOFF         11  
C       ENDIF                
C *     --------------------------------------
C *     Artikel nur für Mitglieder
C *     --------------------------------------
C     ARNFM WHENNE NONFM              
C     BEMIT IFNE NOMIT              
C     OOTYP OREQ TYPFRW              
C       SETOFF         11  
C       ENDIF                
C *     --------------------------------------
C *     Öffentlicher Artikel
C *     --------------------------------------
C       OTHER                
C     BEMIT IFNE NOMIT              
C     OOTYP ORNE TYPNEUAW              
C     OOTYP ANDNE TYPFRE              
C       SETOFF         11  
C       ENDIF                
C       ENDSL                
C *     --------------------------------------
C *     Seite nicht vorhanden
C *     --------------------------------------
C       OTHER                
C       EXSR SEITEERR              
C       MOVEL(P) HTML PFADXX            
C       SETOFF         11  
C       ENDSL                
C *     --------------------------------------
C *     Navigation sichern
C *     --------------------------------------
C       MOVEL(P) OOTYP TYP            
C          
C *     --------------------------------------
C *     Anmelden erforderlich
C *     --------------------------------------
C     *IN11 IFEQ *ON              
C       EXSR SEITEPN              
C          
C *     --------------------------------------
C *     Anmelden erforderlich
C *     --------------------------------------
C     NOMIT IFEQ BEMIT              
C       MOVEL(P) TYPLOGIN2 NATYP            
C       ELSE                
C       MOVEL(P) TYPLOGIN3 NATYP            
C       ENDIF                
C *     --------------------------------------
C *     Anmelden erforderlich
C *     --------------------------------------
C     OOTYP IFEQ TYPFRE              
C       MOVEL(P) TYPFRI NATYP            
C       ENDIF                
C *     --------------------------------------
C *     Anmelden erforderlich
C *     --------------------------------------
C     OOTYP IFNE TYPPF              
C     OOTYP ANDNE TYPBAR              
C     OOTYP ANDNE TYPMITPN              
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       ELSE                
C       MOVEL(P) NATYP OOTYP            
C       MOVEL(P) 'X' OOTYPX            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Adresse zum Einbinden ermitteln
C *     --------------------------------------
C     OOTYP IFEQ TYPERR              
C     OOTYP OREQ TYPFRI              
C     OOTYP OREQ TYPLOGIN2              
C     OOTYP OREQ TYPLOGIN3              
C     *BLANKS ORNE OOSPERRE              
C     *BLANKS IFEQ OOTYPX              
C       MOVEL(P) OONAV ELEMENTERR            
C       MOVEL(P) '/' ELEMENTERRT            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Farbe der Seite übernehmen
C *     --------------------------------------
C       MOVEL(P) OOFARBEALL OOFARBE            
C          
C *     --------------------------------------
C *     Bildart übernehmen
C *     --------------------------------------
C     UPPER:LOWER XLATE(P) OOFILEX OOFILEXX            
C          
C *     --------------------------------------
C *     Seiteninformationen übernehmen
C *     --------------------------------------
C       MOVEL(P) OOTYP WWTYP            
C       MOVEL(P) OOTYPEDT WWTYPEDT            
C       MOVEL(P) OOTYPX WWTYPX            
C     *ZERO ADD OOMIT WWMIT            
C     *ZERO ADD OORUB WWRUB            
C       MOVEL(P) OONAV WWNAV            
C       MOVEL(P) OOBAR WWBAR            
C       MOVEL(P) OOCHAT WWCHAT            
C       MOVEL(P) OOARTPN WWARTPN            
C       MOVEL(P) OOFARBE WWFARBE            
C       MOVEL(P) OOSPERRE WWSPERRE            
C       MOVEL(P) OOFILEX WWFILEX            
C       MOVEL(P) OOFILEXX WWFILEXX            
C       MOVEL(P) OOTITEL WWTITEL            
C       MOVEL(P) OOTITEL2 WWTITEL2            
C       MOVEL(P) OOTITELADD WWTITELADD            
C       MOVEL(P) OOTITELMIT WWTITELMIT            
C       MOVEL(P) OOTITELRUB WWTITELRUB            
C       MOVEL(P) OOTITELFILES WWTITELFILES            
C       MOVEL(P) OOTITELAG WWTITELAG            
C          
C       ENDSR                

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