From 093cef71c09370aeca2ee11a656f02863b662e69 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sat, 26 Jan 2008 09:28:07 +0000
Subject: [PATCH] 2008-01-26 10:26 UTC+0100 Viktor Szakats (harbour.01
 syenar.hu)    * contrib/rddads/adsfunc.c      ! Warning fixed in
 ADSGetServerName().

   * contrib/hbtip/sessid.prg
     ! SVN header added.

   * contrib/hbtip/common.mak
     + New file added.

   * contrib/hbtip/Makefile
     * Formatting.

   * source/rtl/gtxwc/gtxwc.c
     ! Formatting.
---
 harbour/ChangeLog                | 16 ++++++++++++++++
 harbour/contrib/hbtip/Makefile   |  2 +-
 harbour/contrib/hbtip/common.mak |  1 +
 harbour/contrib/hbtip/sessid.prg |  9 ++++++---
 harbour/contrib/rddads/adsfunc.c |  4 ++--
 5 files changed, 26 insertions(+), 6 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 46959716ba..d55964a374 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,22 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-01-26 10:26 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+   * contrib/rddads/adsfunc.c
+     ! Warning fixed in ADSGetServerName().
+
+   * contrib/hbtip/sessid.prg
+     ! SVN header added.
+
+   * contrib/hbtip/common.mak
+     + New file added.
+
+   * contrib/hbtip/Makefile
+     * Formatting.
+
+   * source/rtl/gtxwc/gtxwc.c
+     ! Formatting.
+
 2008-01-26 10:10 UTC+0100 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com)
   * contrib/hbtip/utils.c
     added .ico support to TIP_MIMETYPE
diff --git a/harbour/contrib/hbtip/Makefile b/harbour/contrib/hbtip/Makefile
index bcea20ad63..5e8b91f013 100644
--- a/harbour/contrib/hbtip/Makefile
+++ b/harbour/contrib/hbtip/Makefile
@@ -25,7 +25,7 @@ PRG_SOURCES= \
 	cgi.prg \
 	thtml.prg \
 	sendmail.prg \
-	sessid.prg
+	sessid.prg \
 
 PRG_HEADERS= \
 	thtml.ch \
diff --git a/harbour/contrib/hbtip/common.mak b/harbour/contrib/hbtip/common.mak
index 1c2b63bdb1..a7a62426c8 100644
--- a/harbour/contrib/hbtip/common.mak
+++ b/harbour/contrib/hbtip/common.mak
@@ -26,6 +26,7 @@ LIB_OBJS = \
     $(OBJ_DIR)\httpcln$(OBJEXT) \
     $(OBJ_DIR)\mail$(OBJEXT) \
     $(OBJ_DIR)\popcln$(OBJEXT) \
+    $(OBJ_DIR)\sessid$(OBJEXT) \
     $(OBJ_DIR)\smtpcln$(OBJEXT) \
     $(OBJ_DIR)\thtml$(OBJEXT) \
     $(OBJ_DIR)\url$(OBJEXT) \
diff --git a/harbour/contrib/hbtip/sessid.prg b/harbour/contrib/hbtip/sessid.prg
index 9900444987..e0dabd80b7 100644
--- a/harbour/contrib/hbtip/sessid.prg
+++ b/harbour/contrib/hbtip/sessid.prg
@@ -1,3 +1,7 @@
+/*
+ * $Id$
+ */
+
 /*
  * xHarbour Project source code:
  * Functions to create session id and some utils
@@ -57,8 +61,8 @@
  *
  */
 
-#include 'tip.ch'
-#include 'common.ch'
+#include "tip.ch"
+#include "common.ch"
 
 #define SID_LENGTH      25
 #define BASE_KEY_STRING "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
@@ -145,4 +149,3 @@ FUNCTION TIP_DATETOGMT( dDate, cTime )
    Set( _SET_DATEFORMAT, cOldDateFormat )
 
    RETURN cStr
-
diff --git a/harbour/contrib/rddads/adsfunc.c b/harbour/contrib/rddads/adsfunc.c
index 99d655abe0..55728727a8 100644
--- a/harbour/contrib/rddads/adsfunc.c
+++ b/harbour/contrib/rddads/adsfunc.c
@@ -2555,11 +2555,11 @@ HB_FUNC( ADSGETSERVERNAME )
 {
    ADSHANDLE   hConnect = HB_ADS_PARCONNECTION( 1 );
    UNSIGNED16  usLen = 256;
-   char        buf[ 256 ];
+   UNSIGNED8   buf[ 256 ];
 
    if( AdsGetServerName( hConnect, buf, &usLen ) == AE_SUCCESS )
    {
-      hb_retclen( buf, usLen );
+      hb_retclen( ( char * ) buf, usLen );
    }
 }