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

2012-10-15 11:01 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/gtwvg/class.prg
  * contrib/gtwvg/parthdlr.prg
  * contrib/gtwvg/radiobut.prg
  * contrib/gtwvg/toolbar.prg
  * contrib/gtwvg/wnd.prg
  * contrib/hbnf/doc/en/amedian.txt
  * contrib/hbnf/doc/en/ftidle.txt
  * contrib/hbnf/doc/en/iamidle.txt
  * contrib/hbnf/tests/datecnfg.prg
  * contrib/hbsqlit3/tests/sl3_test.prg
  * contrib/hbtip/tests/ftpadv.prg
  * contrib/hbtip/tests/httpadv.prg
  * contrib/xhb/hblog.prg
  * contrib/xhb/htmutil.prg
  * contrib/xhb/sprintf.prg
  * doc/clipper.txt
  * extras/gtwvw/tests/ebtest7.prg
  * extras/gtwvw/tests/maximize.prg
  * extras/gtwvw/tests/prog0.prg
  * extras/gtwvw/tests/prog1.prg
  * extras/gtwvw/tests/prog2.prg
  * extras/gtwvw/tests/wvwmouse.prg
  * extras/gtwvw/tests/wvwtest9.prg
  * extras/hbdoc/hbdoc.prg
  * extras/httpsrv/cookie.prg
  * extras/httpsrv/session.prg
  * src/rtl/tbrowse.prg
  * tests/destruct.prg
  * tests/switch.prg
  * tests/t1.prg
  * tests/testbrw.prg
  * tests/tstuse.prg
  * utils/hbmk2/hbmk2.prg
  * utils/hbtest/rt_math.prg
    * END -> END*
    * other minor cleanups and formatting
This commit is contained in:
Viktor Szakats
2012-10-15 09:03:33 +00:00
parent b70a5e1e05
commit 389b9d1c4a
35 changed files with 689 additions and 637 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
harbour/extras/httpsrv/cookie.prg
View File

@@ -52,12 +52,6 @@
#include "hbclass.ch"
#command IF <lexpr> THEN <*statement*> =>;
IF (<lexpr>) ; <statement> ; END
#command IF <lexpr> THEN <statement1> ELSE <statement2> =>;
IF (<lexpr>) ; <statement1> ; ELSE ; <statement2> ; END
MEMVAR _COOKIE
FUNCTION uhttpd_CookieNew( cDomain, cPath, nExpireDays, nExpireSecs )
@@ -89,10 +83,18 @@ 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
::cDomain := cDomain
ENDIF
IF cPath != NIL
::cPath := cPath
ENDIF
IF nExpireDays != NIL
::nExpireDays := nExpireDays
ENDIF
IF nExpireSecs != NIL
::nExpireSecs := nExpireSecs
ENDIF
RETURN NIL
METHOD SetCookie( cCookieName, xValue, cDomain, cPath, cExpires, lSecure, lHttpOnly ) CLASS uhttpd_Cookie