Agent

BAR$AGENT (RPGLE)



  X * AGENTINF BEGSR BAR$AGENT 102  
  X * AGENTSPAM$ BEGSR BAR$AGENT 18  
  X * AGENTSPAM$123 BEGSR BAR$AGENT 45  
  X * BESUCHERAG BEGSR BAR$AGENT 7  
  X * BESUCHERNAME BEGSR BAR$AGENT 6  
  X * BESUCHERNAMEX BEGSR BAR$AGENT 36  
  X  
  X * BESUCHERPARMAG PLIST BAR$AGENT 7  
  X * BESUCHERPARM PLIST BAR$AGENT 7  
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2024
C          
  X * *MAIN* EXSR BAR$MAIN    
  X  
C     AGENTINF BEGSR                
C *     --------------------------------------
C *     iOS
C *     --------------------------------------
C     'iPhone' SCAN AGENT       77 61  
C   N61 'iPod' SCAN AGENT       77 61  
C   N61 'iPad' SCAN AGENT       77 61  
C          
C *     --------------------------------------
C *     Smartphone / Tablet
C *     --------------------------------------
C     'Mobile' SCAN AGENT       77 62  
C   N62 'Android' SCAN AGENT       77 62  
C   N62 'PlayBook' SCAN AGENT       77 62  
C   N62 'BlackBerry' SCAN AGENT       77 62  
C   N62 'Opera Mobi' SCAN AGENT       77 62  
C   N62 'Opera Mini' SCAN AGENT       77 62  
C   N62 'IEMobile' SCAN AGENT       77 62  
C   N62 'Tablet' SCAN AGENT       77 62  
C   N62 'Phone' SCAN AGENT       77 62  
C   N62 'iPhone' SCAN AGENT       77 62  
C   N62 'iPod' SCAN AGENT       77 62  
C   N62 'iPad' SCAN AGENT       77 62  
C   N62 'webOS' SCAN AGENT       77 62  
C   N62 'wOS' SCAN AGENT       77 62  
C          
C *     --------------------------------------
C *     Nicht automatisch vervollständigen
C *     --------------------------------------
C     'Safari' SCAN AGENT       77 63  
C   N63 'NetFront' SCAN AGENT       77 63  
C          
C *     --------------------------------------
C *     Breite nicht automatisch
C *     --------------------------------------
C     'iCab' SCAN AGENT       77 64  
C   N64 'MSIE' SCAN AGENT       77 64  
C          
C *     --------------------------------------
C *     Navigation trennen
C *     --------------------------------------
C     'iCab 2.' SCAN AGENT       77 65  
C   N65 'iCab/2.' SCAN AGENT       77 65  
C   N65 'NetFront/' SCAN AGENT       77 65  
C          
C *     --------------------------------------
C *     Smartphone (Kleiner Bildschirm)
C *     --------------------------------------
C     'Mobile' SCAN AGENT       77 66  
C   66 'Android' SCAN AGENT       77 66  
C   N66 'NetFront/' SCAN AGENT       77 66  
C   N66 'Opera Mobi' SCAN AGENT       77 66  
C   N66 'Opera Mini' SCAN AGENT       77 66  
C   N66 'IEMobile' SCAN AGENT       77 66  
C   N66 'Phone' SCAN AGENT       77 66  
C   N66 'iPhone' SCAN AGENT       77 66  
C   N66 'iPod' SCAN AGENT       77 66  
C     'iPad' SCAN AGENT       77 78  
C   78   SETOFF         66  
C   78   SETON         66  
C          
C *     --------------------------------------
C *     Firefox Mobile
C *     --------------------------------------
C   62 'Firefox' SCAN AGENT       77 67  
C          
C *     --------------------------------------
C *     Text-Browser
C *     --------------------------------------
C     'Lynx' SCAN AGENT       77 68  
C   N68 'Links' SCAN AGENT       77 68  
C   N68 'ELinks' SCAN AGENT       77 68  
C   N68 'Terminal' SCAN AGENT       77 68  
C     *IN68 IFEQ *ON              
C     'bot' SCAN AGENT       77 78  
C   N78 'Bot' SCAN AGENT       77 78  
C   N78 'BOT' SCAN AGENT       77 78  
C   N78 'crawl' SCAN AGENT       77 78  
C   N78 'Crawl' SCAN AGENT       77 78  
C   N78 'CRAWL' SCAN AGENT       77 78  
C   N78 'spider' SCAN AGENT       77 78  
C   N78 'Spider' SCAN AGENT       77 78  
C   N78 'SPIDER' SCAN AGENT       77 78  
C   78   SETOFF         68  
C       ENDIF                
C *     --------------------------------------
C *     Smartphone (Kleiner Bildschirm)
C *     --------------------------------------
C     DEBUG IFEQ '6'              
C     *IN66 COMP *OFF       66  
C       ENDIF                
C *     --------------------------------------
C *     Mobile
C *     --------------------------------------
C   66   MOVEL(P) 'X' MOBILE            
C          
C *     --------------------------------------
C *     Schmal
C *     --------------------------------------
C   N66 *BLANKS COMP SCHMAL       66 66  
C          
C       ENDSR                
C          
  X * *MAIN* EXSR BAR$MAIN    
  X  
C     AGENTSPAM$ BEGSR                
C     *OFF IFNE *OFF              
C *     --------------------------------------
C *     Werbung aus Agent löschen
C *     --------------------------------------
C     '<a ' SCAN AGENT POS     77 78  
C   78 '</a>' SCAN AGENT:POS POS2     77 78  
C   78   MOVEL(P) *ALL'*' SPAM$            
C   78   EVAL %SUBST(AGENT: POS) =
C       %SUBST(AGENT: POS2+4)
C          
C   78 ' ' SCAN AGENT POS     77 78  
C   78 ' (W' SCAN AGENT:POS POS2     77 78  
C   78   MOVEL(P) *ALL'*' SPAM$            
C   78   EVAL %SUBST(AGENT: POS) =
C       %SUBST(AGENT: POS2)
C       ENDIF                
C       ENDSR                
C          
  X * *MAIN* EXSR BAR$MAIN    
  X  
C     AGENTSPAM$123 BEGSR                
C     'HEAD' IFEQ METHOD              
C *     --------------------------------------
C *     SPAM-Agenten zusammenfassen
C *     --------------------------------------
C     'MSIE' SCAN AGENT       77 78  
C     *IN78 IFEQ *ON              
C          
C *     --------------------------------------
C *     SPAM-Agenten zusammenfassen
C *     --------------------------------------
C       MOVEL(P) AGENT SPAMDS            
C          
C *     --------------------------------------
C *     SPAM-Agenten zusammenfassen
C *     --------------------------------------
C     'MSIE' IFEQ SPAM4              
C     '0123456789' CHECK SPAM1       78  
C   N78 '0123456789' CHECK SPAM2       78  
C   N78 '0123456789' CHECK SPAM3A       78  
C     *IN78 IFEQ *OFF              
C          
C *     --------------------------------------
C *     SPAM-Agenten zusammenfassen
C *     --------------------------------------
C       MOVEL(P) SPAM1 SPAM$1            
C       MOVEL(P) SPAM2 SPAM$2            
C       MOVEL(P) SPAM3 SPAM$3            
C          
C *     --------------------------------------
C *     SPAM-Agenten zusammenfassen
C *     --------------------------------------
C       MOVEL(P) SPAMX SPAM1            
C       MOVEL(P) SPAMX SPAM2            
C       MOVEL(P) SPAMX SPAM3            
C          
C *     --------------------------------------
C *     SPAM-Agenten zusammenfassen
C *     --------------------------------------
C       MOVEL SPAMDS AGENT            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SEITEBESUCHE EXSR BAR$SEITE    
  X  
C     BESUCHERAG BEGSR                
C       EVAL BUFV = %TRIM(AGAGENT)
C *     --------------------------------------
C *     Name des Besuchers ermitteln
C *     --------------------------------------
C       CALL 'BESUCHER' BESUCHERPARMAG     77  
C       ENDSR                
C          
  X * BESUCHERAG CALL BAR$AGENT    
  X  
C     BESUCHERPARMAG PLIST                
C       PARM *ZERO POS            
C       PARM *ZERO LEN            
C       PARM *BLANKS ROBOT            
C       PARM   BUFV            
C       PARM *BLANKS BESUCHER            
C       PARM *ON TEXTBROWSER            
C          
  X * BESUCHERNAMEX EXSR BAR$AGENT    
  X  
C     BESUCHERNAME BEGSR                
C *     --------------------------------------
C *     Name des Besuchers ermitteln
C *     --------------------------------------
C       CALL 'BESUCHER' BESUCHERPARM     77  
C       ENDSR                
C          
  X * BESUCHERNAME CALL BAR$AGENT    
  X  
C     BESUCHERPARM PLIST                
C       PARM *ZERO POS            
C       PARM *ZERO LEN            
C       PARM *BLANKS ROBOT            
C       PARM   BUFV            
C       PARM *BLANKS BESUCHER            
C       PARM *IN68 TEXTBROWSER            
C          
  X * TEXTSMILYSAGX EXSR BAR$TEXT    
  X * ZEILEBESUCHE EXSR BAR$ZEILE    
  X  
C     BESUCHERNAMEX BEGSR                
C *     --------------------------------------
C *     Name des Besuchers ermitteln
C *     --------------------------------------
C       EXSR BESUCHERNAME              
C          
C *     --------------------------------------
C *     Name des Besuchers ermitteln
C *     --------------------------------------
C     *BLANKS IFEQ BUFV              
C       EVAL BUFV = NONE
C       ENDIF                
C *     --------------------------------------
C *     Name des Besuchers ermitteln
C *     --------------------------------------
C     *ZERO IFEQ POS              
C     *ZERO OREQ LEN              
C     *BLANKS IFNE BESUCHER              
C          
C *     --------------------------------------
C *     Name des Besuchers ermitteln
C *     --------------------------------------
C       EVAL BUFV =
C       BUFV + ' | '
C     1 ADD BUFVLEN POS            
C          
C *     --------------------------------------
C *     Name des Besuchers ermitteln
C *     --------------------------------------
C       EVAL BUFV =
C       BUFV + %TRIMR ( BESUCHER)
C     1 ADD BUFVLEN LEN            
C       SUB POS LEN            
C       ENDIF                
C       ENDIF                
C       ENDSR                

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