Session

BAR$SID (RPGLE)



  X * SESSION BEGSR BAR$SID 28  
  X * SESSION2 BEGSR BAR$SID 52  
  X * SESSION2N BEGSR BAR$SID 25  
  X * SESSION3 BEGSR BAR$SID 21  
  X * SESSION4 BEGSR BAR$SID 60  
  X * SESSION5 BEGSR BAR$SID 9  
  X * SESSIONENDE BEGSR BAR$SID 24  
  X * SESSIONSID BEGSR BAR$SID 20  
  X * CRTCOOKIE BEGSR BAR$SID 42  
  X * CRTCOOKIE2 BEGSR BAR$SID 38  
  X * CRTCOOKIE3 BEGSR BAR$SID 38  
  X * CRTQUERY BEGSR BAR$SID 71  
  X  
  X * B$KEYN KLIST BAR$SID 3  
  X * B$KEYS KLIST BAR$SID 3  
  X * BEKEY1$ KLIST BAR$SID 3  
  X * B$KEYS#ENDE KLIST BAR$SID 3  
  X  
  X * OBJEKTNAME EXSR BAR$NEUED    
  X * KENNWORTBEN$ EXSR BAR$PWD    
  X * OBJEKTNAME EXSR BAR$NEUED    
  X * KENNWORTBEN EXSR BAR$PWD    
  X * SENDMAILX EXSR BAR$NEUED    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELXQUERY EXSR BAR$TEXT    
  X * MYTITELXUTF8 EXSR BAR$TEXT    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * *MAIN* EXSR BAR$MAIN    
  X  
C     SESSION BEGSR                
C       MOVEL(P) SID MYSID            
C     DATETIME SUBDUR SIDHOUR:*H DATETIME2            
C       CLEAR   BENUTZERDS            
C          
C *     --------------------------------------
C *     Benutzer anmelden
C *     --------------------------------------
C       EXSR SESSION2              
C          
C *     --------------------------------------
C *     Session ermitteln
C *     --------------------------------------
C       EXSR SESSION3              
C          
C *     --------------------------------------
C *     Session prüfen
C *     --------------------------------------
C       EXSR SESSION4              
C          
C *     --------------------------------------
C *     Session in Cookie oder als Parameter
C *     --------------------------------------
C       EXSR CRTCOOKIE              
C       EXSR CRTCOOKIE2              
C       EXSR CRTCOOKIE3              
C       EXSR CRTQUERY              
C       ENDSR                
C          
  X * SESSION EXSR BAR$SID    
  X  
C     SESSION2 BEGSR                
C     *BLANKS IFNE BENUTZER              
C     *BLANKS ANDNE KENNWORT              
C       MOVEL(P) BENUTZER OBJEKT            
C          
C *     --------------------------------------
C *     Benutzer anmelden
C *     --------------------------------------
C       EXSR OBJEKTNAME              
C       OPEN BENUTZERLN       77  
C     B$KEYN CHAIN(N) BENUTZERLN       77 77  
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Kennwort für Benutzer verschlüsseln
C *     --------------------------------------
C       EXSR KENNWORTBEN$              
C          
C *     --------------------------------------
C *     Kennwort-Flut begrenzen
C *     --------------------------------------
C     DATETIME SUBDUR PWDSEC:*S DATETIME3            
C     DATETIME ADDDUR PWDSEC:*S DATETIME4            
C          
C *     --------------------------------------
C *     Kennwort falsch oder Flut
C *     --------------------------------------
C     B$PWD IFNE PWD              
C     B$PWD2 ANDNE PWD              
C     B$DATPWDX ORGE DATETIME3              
C     B$DATPWDX ANDLT DATETIME4              
C       OPEN BENUTZERLN       77  
C     B$KEYN CHAIN BENUTZERLN       77 77  
C     *IN77 IFEQ *OFF              
C       MOVE DATETIME B$DATPWDX            
C       UPDATE BENUTZERFN       77  
C       ENDIF                
C *     --------------------------------------
C *     Kennwort richtig
C *     --------------------------------------
C       ELSE                
C       MOVEL(P) B$SID MYSID            
C       MOVEL(P) '?' SIDCOOKIE            
C          
C *     --------------------------------------
C *     Neue Session beginnen
C *     --------------------------------------
C       EXSR SESSION2N              
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SESSION2 EXSR BAR$SID    
  X  
C     SESSION2N BEGSR                
C     *BLANKS IFEQ MYSID              
C     DATETIME2 ORGE B$ONLINE              
C       CLEAR   TRYS            
C *     --------------------------------------
C *     Neue Session beginnen
C *     --------------------------------------
C     *IN77 DOUEQ *OFF              
C     TRYS ORGE MAXSID              
C       EXSR SESSIONSID              
C       OPEN BENUTZERLN       77  
C     B$KEYN CHAIN BENUTZERLN       77 77  
C     *IN77 IFEQ *OFF              
C     *BLANKS IFNE B$SID              
C       MOVEL(P) B$SID B$SIDX            
C       ENDIF                
C       ADD 1 TRYS            
C       MOVEL(P) MYSID B$SID            
C       MOVE DATETIME B$ONLINE            
C       UPDATE BENUTZERFN       77  
C       ENDIF                
C       ENDDO                
C   77   CLEAR   MYSID            
C       ENDIF                
C       ENDSR                
C          
  X * SESSION2 CHAIN(N) BAR$SID    
  X * SESSION2 CHAIN BAR$SID    
  X * SESSION2N CHAIN BAR$SID    
  X * SESSION4 CHAIN(N) BAR$SID    
  X  
C     B$KEYN KLIST                
C       KFLD   MAMAN            
C       KFLD   OBJEKTX            
C          
  X * SESSION EXSR BAR$SID    
  X  
C     SESSION3 BEGSR                
C *     --------------------------------------
C *     Session ermitteln
C *     --------------------------------------
C     *BLANKS IFNE MYSID              
C       OPEN BENUTZERLS       77  
C     B$KEYS CHAIN BENUTZERLS       77 77  
C     *IN77 IFEQ *OFF              
C     B$ONLINE IFGT DATETIME2              
C       MOVE DATETIME B$ONLINE            
C       UPDATE BENUTZERFS       77  
C     *IN77 IFEQ *OFF              
C       OPEN BENUTZERL1       77  
C     BEKEY1$ CHAIN BENUTZERL1       77 77  
C       ENDIF                
C       ELSE                
C       UPDATE BENUTZERFS       77  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SESSION3 CHAIN BAR$SID    
  X  
C     B$KEYS KLIST                
C       KFLD   MAMAN            
C       KFLD   MYSID            
C          
  X * SESSION3 CHAIN BAR$SID    
  X  
C     BEKEY1$ KLIST                
C       KFLD   B$MAN            
C       KFLD   B$MIT            
C          
  X * SESSION EXSR BAR$SID    
  X  
C     SESSION4 BEGSR                
C     NOMIT IFNE BEMIT              
C     SID ANDNE BESID              
C *     --------------------------------------
C *     Benutzer prüfen
C *     --------------------------------------
C     *BLANKS IFNE BENUTZER              
C     *BLANKS ANDNE KENNWORT              
C       MOVEL(P) BENUTZER OBJEKT            
C          
C *     --------------------------------------
C *     Benutzer prüfen
C *     --------------------------------------
C       EXSR OBJEKTNAME              
C     BENAV IFNE OBJEKTX              
C       MOVEL(P) 'BENUTZER' SUBJECT            
C       EXSR SESSION5              
C       ELSE                
C *     --------------------------------------
C *     Kennwort für Benutzer verschlüsseln
C *     --------------------------------------
C       EXSR KENNWORTBEN              
C          
C *     --------------------------------------
C *     Kennwort prüfen
C *     --------------------------------------
C     PWD IFNE BEPWD              
C     PWD ANDNE BEPWD2              
C       MOVEL(P) 'KENNWORT' SUBJECT            
C       EXSR SESSION5              
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Session prüfen
C *     --------------------------------------
C     NOMIT IFNE BEMIT              
C     MYSID IFNE BESID              
C     *BLANKS OREQ BESID              
C     DATETIME2 ORGE BEONLINE              
C       MOVEL(P) 'SESSION 1' SUBJECT            
C       EXSR SESSION5              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Session prüfen
C *     --------------------------------------
C     NOMIT IFNE BEMIT              
C       MOVEL(P) BENAV OBJEKTX            
C       OPEN BENUTZERLN       77  
C     B$KEYN CHAIN(N) BENUTZERLN       77 77  
C     *IN77 IFNE *OFF              
C     B$MIT ORNE BEMIT              
C     B$SID ORNE BESID              
C       MOVEL(P) 'SESSION 2' SUBJECT            
C       EXSR SESSION5              
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SESSION4 EXSR BAR$SID    
  X * SESSION4 EXSR BAR$SID    
  X * SESSION4 EXSR BAR$SID    
  X * SESSION4 EXSR BAR$SID    
  X  
C     SESSION5 BEGSR                
C *     --------------------------------------
C *     E-Mail mit Fehler senden
C *     --------------------------------------
C **     MOVEL(P) ... SUBJECT            
C       CLEAR   LONGMSG            
C       EXSR SENDMAILX              
C       CLEAR   BENUTZERDS            
C       ENDSR                
C          
  X * DBLOGOUT EXSR BAR$NEUED    
  X  
C     SESSIONENDE BEGSR                
C *     --------------------------------------
C *     Session beenden
C *     --------------------------------------
C     *BLANKS IFNE BESID              
C       OPEN BENUTZERLS       77  
C     B$KEYS#ENDE CHAIN BENUTZERLS       77 77  
C     *IN77 IFEQ *OFF              
C       MOVEL(P) B$SID B$SIDX            
C       CLEAR   B$SID            
C       UPDATE BENUTZERFS       77  
C     *IN77 IFEQ *OFF              
C       CLEAR   BENUTZERDS            
C *     --------------------------------------
C *     Session in Cookie oder als Parameter
C *     --------------------------------------
C       EXSR CRTCOOKIE              
C       EXSR CRTCOOKIE2              
C       EXSR CRTCOOKIE3              
C       EXSR CRTQUERY              
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SESSIONENDE CHAIN BAR$SID    
  X  
C     B$KEYS#ENDE KLIST                
C       KFLD   MAMAN            
C       KFLD   BESID            
C          
  X * SESSION2N EXSR BAR$SID    
  X  
C     SESSIONSID BEGSR                
C       CALLP(E) RANDOM ( SEED:RANDNUM:FEEDBACK)
C     MAXNUM MULT (H) RANDNUM NUM1            
C       CALLP(E) RANDOM ( SEED:RANDNUM:FEEDBACK)
C     MAXNUM MULT (H) RANDNUM NUM2            
C       CALLP(E) RANDOM ( SEED:RANDNUM:FEEDBACK)
C     MAXNUM MULT (H) RANDNUM NUM3            
C       CALLP(E) RANDOM ( SEED:RANDNUM:FEEDBACK)
C     MAXNUM MULT (H) RANDNUM NUM4            
C       CALLP(E) RANDOM ( SEED:RANDNUM:FEEDBACK)
C     MAXNUM MULT (H) RANDNUM NUM5            
C       CALLP(E) RANDOM ( SEED:RANDNUM:FEEDBACK)
C     MAXNUM MULT (H) RANDNUM NUM6            
C       CALLP(E) RANDOM ( SEED:RANDNUM:FEEDBACK)
C     MAXNUM MULT (H) RANDNUM NUM7            
C       CALLP(E) RANDOM ( SEED:RANDNUM:FEEDBACK)
C     MAXNUM MULT (H) RANDNUM NUM8            
C       CALLP(E) CVTHC ( STR32:NUM32:STR32LEN)
C     UPPER:LOWER XLATE(P) STR32 MYSID            
C       ENDSR                
C          
  X * SESSION EXSR BAR$SID    
  X * SESSIONENDE EXSR BAR$SID    
  X  
C     CRTCOOKIE BEGSR                
C       CLEAR   COOKIE            
C *     --------------------------------------
C *     Cookie aufbauen
C *     --------------------------------------
C     *BLANKS IFNE SIDCOOKIE              
C          
C *     --------------------------------------
C *     Gültig-bis-Datum für Cookie ermitteln
C *     --------------------------------------
C     *BLANKS IFNE BESID              
C     DATETIME ADDDUR SIDDAY:*D DATETIME2            
C       ELSE                
C       CLEAR   DATETIME2            
C       ENDIF                
C *     --------------------------------------
C *     Gültig-bis-Datum für Cookie umsetzen
C *     --------------------------------------
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:DATETIME2:1)
C     *BLANKS IFNE HTTPDATE              
C          
C *     --------------------------------------
C *     Cookie-Information aufbauen
C *     --------------------------------------
C       MOVEL(P) SETCOOKIE# COOKIE            
C       CAT SIDNAME :1 COOKIE            
C       CAT BESID :0 COOKIE            
C       CAT ';' :0 COOKIE            
C       CAT 'Expires=' :1 COOKIE            
C       CAT HTTPDATE :0 COOKIE            
C       CAT ';' :0 COOKIE            
C       CAT 'Path=' :1 COOKIE            
C       CAT '/' :0 COOKIE            
C       CAT ';' :0 COOKIE            
C       CAT 'HttpOnly' :1 COOKIE            
C   23   CAT ';' :0 COOKIE            
C   23   CAT 'Secure' :1 COOKIE            
C       CAT '§' :0 COOKIE            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SESSION EXSR BAR$SID    
  X * SESSIONENDE EXSR BAR$SID    
  X  
C     CRTCOOKIE2 BEGSR                
C       CLEAR   COOKIE2            
C *     --------------------------------------
C *     Cookie aufbauen
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
C          
C *     --------------------------------------
C *     Gültig-bis-Datum für Cookie ermitteln
C *     --------------------------------------
C     DEBUG0 IFNE DEBUG              
C     DATETIME ADDDUR DEBUGDAY:*D DATETIME2            
C       ELSE                
C       CLEAR   DATETIME2            
C       ENDIF                
C *     --------------------------------------
C *     Gültig-bis-Datum für Cookie umsetzen
C *     --------------------------------------
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:DATETIME2:1)
C     *BLANKS IFNE HTTPDATE              
C          
C *     --------------------------------------
C *     Cookie-Information aufbauen
C *     --------------------------------------
C       MOVEL(P) SETCOOKIE# COOKIE2            
C       CAT DEBUGNAME :1 COOKIE2            
C       CAT DEBUG :0 COOKIE2            
C       CAT ';' :0 COOKIE2            
C       CAT 'Expires=' :1 COOKIE2            
C       CAT HTTPDATE :0 COOKIE2            
C       CAT ';' :0 COOKIE2            
C       CAT 'Path=' :1 COOKIE2            
C       CAT '/' :0 COOKIE2            
C       CAT '§' :0 COOKIE2            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SESSION EXSR BAR$SID    
  X * SESSIONENDE EXSR BAR$SID    
  X  
C     CRTCOOKIE3 BEGSR                
C       CLEAR   COOKIE3            
C *     --------------------------------------
C *     Cookie aufbauen
C *     --------------------------------------
C     *BLANKS IFNE SPRACHE              
C          
C *     --------------------------------------
C *     Gültig-bis-Datum für Cookie ermitteln
C *     --------------------------------------
C     MASPR IFNE SPRACHE              
C     DATETIME ADDDUR SPRACHEDAY:*D DATETIME2            
C       ELSE                
C       CLEAR   DATETIME2            
C       ENDIF                
C *     --------------------------------------
C *     Gültig-bis-Datum für Cookie umsetzen
C *     --------------------------------------
C       CLEAR   HTTPDATE            
C       CALLP(E) HTTPDATEX ( HTTPDATE:DATETIME2:1)
C     *BLANKS IFNE HTTPDATE              
C          
C *     --------------------------------------
C *     Cookie-Information aufbauen
C *     --------------------------------------
C       MOVEL(P) SETCOOKIE# COOKIE3            
C       CAT SPRACHENAME :1 COOKIE3            
C       CAT SPRACHE :0 COOKIE3            
C       CAT ';' :0 COOKIE3            
C       CAT 'Expires=' :1 COOKIE3            
C       CAT HTTPDATE :0 COOKIE3            
C       CAT ';' :0 COOKIE3            
C       CAT 'Path=' :1 COOKIE3            
C       CAT '/' :0 COOKIE3            
C       CAT '§' :0 COOKIE3            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SESSION EXSR BAR$SID    
  X * SESSIONENDE EXSR BAR$SID    
  X  
C     CRTQUERY BEGSR                
C       CLEAR   MYTITEL            
C *     --------------------------------------
C *     Session mitgeben
C *     --------------------------------------
C     SIDCOOKIE IFNE BESID              
C     *BLANKS ANDNE BESID              
C     *BLANKS COMP MYTITEL       78  
C   78   CAT '?' :0 MYTITEL            
C   N78   CAT '&' :0 MYTITEL            
C       CAT SIDNAME :0 MYTITEL            
C       CAT BESID :0 MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Debug-Modus mitgeben
C *     --------------------------------------
C     DEBUGCOOKIE IFNE DEBUG              
C     DEBUG0 ANDNE DEBUG              
C     *BLANKS ANDNE DEBUG              
C     *BLANKS COMP MYTITEL       78  
C   78   CAT '?' :0 MYTITEL            
C   N78   CAT '&' :0 MYTITEL            
C       CAT DEBUGNAME :0 MYTITEL            
C       CAT DEBUG :0 MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Sprache mitgeben
C *     --------------------------------------
C     SPRACHECOOKIE IFNE SPRACHE              
C     MASPR ANDNE SPRACHE              
C     *BLANKS ANDNE SPRACHE              
C     *BLANKS COMP MYTITEL       78  
C   78   CAT '?' :0 MYTITEL            
C   N78   CAT '&' :0 MYTITEL            
C       CAT SPRACHENAME :0 MYTITEL            
C       CAT SPRACHE :0 MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Schmal mitgeben
C *     --------------------------------------
C     SCHMAL0 IFNE SCHMAL              
C     *BLANKS ANDNE SCHMAL              
C     *BLANKS COMP MYTITEL       78  
C   78   CAT '?' :0 MYTITEL            
C   N78   CAT '&' :0 MYTITEL            
C       CAT SCHMALNAME :0 MYTITEL            
C       CAT SCHMAL :0 MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Parameter kodieren
C *     --------------------------------------
C       MOVEL(P) MYTITEL QUERY$            
C       EXSR MYTITELXFORM              
C       MOVEL(P) MYTITEL QUERY            
C          
C       MOVEL(P) QUERY QUERYSUCHE            
C *     --------------------------------------
C *     Parameter kodieren
C *     --------------------------------------
C     *BLANKS IFNE SUCHE              
C       MOVEL(P) SUCHE MYTITEL            
C       EXSR MYTITELXQUERY              
C       EXSR MYTITELXUTF8              
C       EXSR MYTITELXFORM              
C     *BLANKS COMP QUERYSUCHE       78  
C   78   CAT '?' :0 QUERYSUCHE            
C   N78   CAT '&' :0 QUERYSUCHE            
C       CAT SUCHENAME :0 QUERYSUCHE            
C       CAT MYTITEL :0 QUERYSUCHE            
C       ENDIF                
C       ENDSR                

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