fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-06-04 11:51 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* tests/rddtest/adscl52.prg
  * tests/rddtest/adscl53.prg
  * tests/rddtest/ntxcl52.prg
  * tests/rddtest/ntxcl53.prg
  * tests/rddtest/cdxcl52.prg
  * tests/rddtest/cdxcl53.prg
  * examples/gfspell/spell.prg
  * examples/httpsrv/uhttpd.prg
  * examples/httpsrv/cookie.prg
  * examples/httpsrv/cgifunc.prg
  * examples/httpsrv/session.prg
  * examples/terminal/trm_cli.prg
  * examples/terminal/terminal.prg
  * examples/terminal/trm_srv.prg
  * examples/terminal/trm_app.prg
  * examples/terminal/readme.txt
  * examples/gtwvw/tests/wvwmouse.prg
  * examples/gtwvw/tests/cbtest1.prg
  * examples/gtwvw/tests/maincoor.prg
  * examples/gtwvw/tests/cbtest6.prg
  * examples/gtwvw/tests/wvwtest9.prg
  * examples/gtwvw/tests/ebtest7.prg
  * examples/gtwvw/tests/maximize.prg
  * examples/gtwvw/tests/inpfocus.prg
    * '<>' -> '!='
This commit is contained in:
Viktor Szakats
2012-06-04 09:52:07 +00:00
parent 8e97b1dd70
commit 4f150b0a59
25 changed files with 146 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harbour/examples/httpsrv/cookie.prg
View File

@@ -90,10 +90,10 @@ ENDCLASS
// ------------------------------ ***************************** -----------------------------------
METHOD SetCookieDefaults( cDomain, cPath, nExpireDays, nExpireSecs ) CLASS uhttpd_Cookie
IF cDomain <> NIL THEN ::cDomain := cDomain
IF cPath <> NIL THEN ::cPath := cPath
IF nExpireDays <> NIL THEN ::nExpireDays := nExpireDays
IF nExpireSecs <> NIL THEN ::nExpireSecs := nExpireSecs
IF cDomain != NIL THEN ::cDomain := cDomain
IF cPath != NIL THEN ::cPath := cPath
IF nExpireDays != NIL THEN ::nExpireDays := nExpireDays
IF nExpireSecs != NIL THEN ::nExpireSecs := nExpireSecs
RETURN NIL
METHOD SetCookie( cCookieName, xValue, cDomain, cPath, cExpires, lSecure, lHttpOnly ) CLASS uhttpd_Cookie
@@ -127,13 +127,13 @@ METHOD SetCookie( cCookieName, xValue, cDomain, cPath, cExpires, lSecure, lHttpO
//cStr := cCookieName + "=" + uhttpd_UrlEncode( hb_cStr( xValue ) )
IF cDomain <> NIL
IF cDomain != NIL
cStr += "; domain=" + cDomain
ENDIF
IF cPath <> NIL
IF cPath != NIL
cStr += "; path=" + cPath
ENDIF
IF cExpires <> NIL
IF cExpires != NIL
cStr += "; expires=" + cExpires
ENDIF
IF ValType( lSecure ) == "L" .AND. lSecure