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

2012-12-04 14:14 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbpost.hbm
  * utils/hbmk2/pkg_dynl.hbm
    * hack to avoid contrib/addon dynamic libs being used
      automatically on *nix system when building executables.
      Now they will be put in bin dir, just like on win.

  * utils/hbmk2/hbmk2.prg
    + hbshell_include_list() API to list loaded core headers.
    + allow loading dynamic extensions on *nix even if built
      against static HVM.
    * display statically linked extensions in uppercase in
      dot prompt UI and dynamic ones with original (lower) case.
      (was normal case and postfixed with '*' respectively)
    + do not load dynamic extension if the .hbc file is not found
    + attempt to detect if dynamic extension loads fine on
      a given platform and only try loading the dynamic lib
      if it does.
    + added protection to not add duplicate compiler options
      when compiling dot prompt entry.

  * contrib/hbrun/hbrun.hbp
    + load default contrib libs dynamically on *nix, even if
      hbrun is built against static HVM.

  ; these make work dynamic extensions on *nix systems.

  * contrib/hbtip/sessid.prg
  * extras/httpsrv/cgifunc.prg
    * updated HTTP date format to use preferred format:
         http://tools.ietf.org/html/rfc2616#section-3.3.1
    % optimized code and eliminated unnecessary _SET_DATEFORMATs
    ; tip_DateToGMT() and its uhttpd_DateToGMT() derivative

  * src/compiler/hbusage.c
    * updated contributor list

  * contrib/sddoci/tests/test1.prg
  * contrib/sddodbc/tests/test1.prg
  * contrib/sddodbc/tests/test2.prg
  * contrib/sddsqlt3/tests/test1.prg
    * use std way to configure date format
This commit is contained in:
Viktor Szakats
2012-12-04 13:20:54 +00:00
parent 97cea1b22f
commit b313865e78
12 changed files with 112 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
harbour/extras/httpsrv/cgifunc.prg
View File

@@ -396,15 +396,12 @@ FUNCTION uhttpd_URLDecode( cString )
* cTime : default "00:00:00"
* nDayToAdd : default 0 - may be a negative number
*
* cGMTDate : The string return in form of "Saturday, 31-Oct-03 00:00:00 GMT"
* cGMTDate : The string return in form of "Sat, 31 Oct 2003 00:00:00 GMT"
*/
FUNCTION uhttpd_DateToGMT( dDate, cTime, nDayToAdd, nSecsToAdd )
LOCAL cStr
LOCAL cOldDateFormat := Set( _SET_DATEFORMAT, "dd-mm-yy" )
LOCAL nDay, nMonth, nYear, nDoW
LOCAL aDays := { "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" }
LOCAL aDays := { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" }
LOCAL aMonths := { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" }
__defaultNIL( @dDate, Date() )
@@ -417,19 +414,12 @@ FUNCTION uhttpd_DateToGMT( dDate, cTime, nDayToAdd, nSecsToAdd )
cTime := uhttpd_AddSecondsToTime( cTime, nSecsToAdd, @nDayToAdd )
dDate += nDayToAdd
nDay := Day( dDate )
nMonth := Month( dDate )
nYear := Year( dDate )
nDoW := DoW( dDate )
cStr := aDays[ nDow ] + ", " + StrZero( nDay, 2 ) + "-" + aMonths[ nMonth ] + "-" + ;
Right( StrZero( nYear, 4 ), 2 ) + " " + cTime + " GMT"
// TraceLog( "DateToGMT", cStr )
Set( _SET_DATEFORMAT, cOldDateFormat )
RETURN cStr
RETURN ;
aDays[ DoW( dDate ) ] + ", " + ;
StrZero( Day( dDate ), 2 ) + " " + ;
aMonths[ Month( dDate ) ] + " " + ;
StrZero( Year( dDate ), 4 ) + " " + ;
cTime + " GMT"
/*
* AddSecondsToTime( cTime, nSecsToAdd, @nDaysAdded ) --> cNewTime