2012-11-22 11:27 UTC+0100 Viktor Szakats (harbour syenar.net)

+ src/codepage/cp_gbk.c
  + src/codepage/gbk.c
  * src/codepage/Makefile
  * include/hbcpage.hbx
    + added GBK CP.
      GBK is an extension of the GB2312 character set for simplified Chinese
      characters, used in the People's Republic of China. GBK encoding support
      for Simplified Chinese, while fully contained BIG5. Microsoft implemented
      GBK in Windows 95 and Windows NT 3.51 as Code Page 936.
      Thanks to Wang Dongming for the two new source files.
      Please review/test it.

  * src/rtl/langcomp.prg
    ! use GBK CP instead of BIG5 for legacy CP "ZHGB"

  * extras/httpsrv/session.prg
    * cleanup

harbour/extras/httpsrv/session.prg

@@ -237,20 +237,14 @@ METHOD Start( cSID ) CLASS uhttpd_Session
 
       // hb_ToOutDebug( "hUrl = %s\n\r", hb_ValToExp( hUrl ) )
 
-      // IF !( oUrl:cServer == _SERVER[ "SERVER_NAME" ] )
+      // Check whether the current request was referred to by
+      // an external site which invalidates the previously found ID
+
       IF !( hUrl[ "HOST" ] == _SERVER[ "SERVER_NAME" ] )
          ::cSID      := NIL   // invalidate current SID, i'll generate a new one
          lSendCookie := .T.
          lDefine_SID := .T.
       ENDIF
-
-      // // Check whether the current request was referred to by
-      // // an external site which invalidates the previously found ID
-      // $url = parse_url($GLOBALS['HTTP_REFERER']);
-      // IF !(Trim($url['host']) == $GLOBALS['SERVER_NAME'])
-      //    unset(session->id)
-      //    send_cookie := .T.
-      //    define_sid := .T.
    ENDIF
 
    // Do we have an existing session ID?