[GB.WEB]

* NEW: Enable session debugging messages if the file '/tmp/session.debug' 
  exists. The debugging messages are logged into the file 
  '/tmp/session.log'.
* OPT: Do not update session timestamp if the difference is less than one
  second.

git-svn-id: svn://localhost/gambas/trunk@3074 867c0c6c-44f3-4631-809d-bfa615b0a4ec

comp/src/gb.web/.project

@@ -1,5 +1,5 @@
 # Gambas Project File 3.0
-# Compiled with Gambas 2.99.0 (r2921)
+# Compiled with Gambas 2.99.0 (r3067)
 Title=gb.web
 Startup=Main
 Version=2.99.0

comp/src/gb.web/.src/Main.module

@@ -1,9 +1,13 @@
 ' Gambas module file
 
+Public AllowLog As Boolean
+
 Public Sub Log(sMsg As String)
   
   Dim hFile As File
   
+  If Not AllowLog Then Return
+  
   hFile = Open "/tmp/session.log" For Append 
   Print #hFile, sMsg
   Close #hFile

comp/src/gb.web/.src/Session.module

@@ -112,16 +112,18 @@ Private Sub WriteValue(vVal As Variant)
   
 End
 
-Private Sub LockSession() As File
+Private Sub LockSession() 
   
   Dim iInd As Integer
   
   For iInd = 1 To 10
     Try $hLock = Lock $sPath & ".lock"
-    If Not Error Then Break
+    If Not Error Then Return
     Sleep 0.1
   Next
   
+  Main.Log("LockSession: unable to lock session")
+  
 End
 
 Private Sub UnlockSession()
@@ -136,28 +138,38 @@ Private Sub SaveSession()
   Dim hFile As File
   Dim hLock As File
   Dim sTemp As String
+  Dim eNow As Float
 
   'PRINT "<h2>Save session</h2>"
   'PRINT "<p>"; $sId; "<br>"; $bModify; "<br>"; $sPath; "<br>"; $cVal.Count
   
   If Not $sId Then Return 
-
+  
   sTemp = Temp$()
 
   'Startup time is always modified
   If Not $bModify Then 
   
-    LockSession
-    
-    'Main.Log("SaveSession: " & $sPath & ": Just update time stamp : " & Exist($sPath))
-    hFile = Open $sPath For Write 
-    Write #hFile, Now As Float
-    Close #hFile
-    
-    UnlockSession
-    
+    eNow = Now
+    If (eNow - $eStartup) > 1 Then
+  
+      Main.Log("SaveSession: " & $sId & ": update timestamp")
+
+      LockSession
+      
+      'Main.Log("SaveSession: " & $sPath & ": Just update time stamp : " & Exist($sPath))
+      hFile = Open $sPath For Write 
+      Write #hFile, Now As Float
+      Close #hFile
+      
+      UnlockSession
+      
+    Endif
+
   Else
   
+    Main.Log("SaveSession: " & $sId)
+    
     'Main.Log("SaveSession: " & $sPath & ": Save all session : " & Exist($sPath))
     hFile = Open sTemp For Write Create 
 
@@ -177,12 +189,18 @@ Private Sub SaveSession()
     
   Endif
     
+  Main.Log("SaveSession: OK")
+
   ' If Exist($sPath) Then
   '   Main.Log("SaveSession: " & $sPath & " (" & Stat($sPath).Size & ")")
   ' Else
   '   Main.Log("SaveSession: " & $sPath & " NOT FOUND!")
   ' Endif
   
+Catch
+  
+  Main.Log("SaveSession: " & Error.Where & ": " & Error.Text)
+  
 End
 
 Private Sub ReadValue() As Variant
@@ -264,7 +282,7 @@ Private Sub LoadSession()
   
   Dim hFile As File
 
-  'Main.Log("LoadSession: " & $sPath)
+  Main.Log("LoadSession: " & $sPath)
   ' Main.Log("System.Language = " & System.Language)
   ' Main.Log("System.Charset = " & System.Charset)
   ' Main.Log(System.Backtrace.Join(" "))
@@ -281,17 +299,16 @@ Private Sub LoadSession()
   $eStartup = Read As Float
   $eTimeout = Read As Float
   If CheckSession() Then 
-    'Main.Log("* TimeOut: " & CStr(CDate($eTimeOut)) & " Startup: " & CStr(CDate($eStartup)) & " Now: " & CStr(Now))
+    Main.Log("LoadSession: timeout: " & CStr(CDate($eTimeOut)) & " Startup: " & CStr(CDate($eStartup)) & " Now: " & CStr(Now))
     Goto _ABANDON
   Endif
   
-  'Main.Log("LoadSession: #3")
-  
   $cVal = ReadValue()
   $bModify = False
   Close #hFile
   Input From Default
   UnlockSession
+  Main.Log("LoadSession: OK")
   Return  
 
 Catch
@@ -303,6 +320,8 @@ Catch
 
 _ABANDON:
 
+  Main.Log("LoadSession: abandon")
+
   'Main.Log("LoadSession: #4")
 
   If hFile Then
@@ -332,7 +351,7 @@ Private Sub CheckUnique()
   
   If Not $bUnique Then Return
   
-  Try hLock = Lock GetPath(".unique")
+  Try hLock = Lock GetPath(".unique.lock")
   If Error Then Return
   
   If $sPrefix Then
@@ -398,6 +417,8 @@ End
 
 Public Sub _init()
   
+  Main.AllowLog = Exist("/tmp/session.debug")
+  
   $sId = Request.Cookies["SESSION"]
   '$sId = "9E2496B3AB6DDED93ABE6F0CF6E071B3@"
   If Not $sId Then Return