+07 Sep 2004 Kevin Rosenberg <kevin@rosenberg.net>
+ * Version 3.0.3 Release
+ * db-postgresql-socket/postgresql-socket-api.lisp: Commit patch
+ from Tagore Smith to call force-output after sending authentication
+ * db-odbc/odbc-api.lisp: Move ODBC v3 conversons
+ * db-odbc/odbc-sql.lisp: Load mysql or postgresql package when connecting
+ to a database of that type so that functions that indicate capabilities of
+ database are available.
+
02 Sep 2004 Kevin Rosenberg <kevin@rosenberg.net>
* db-odbc/odbc-api.lisp: More conversions to ODBC v3
(defun %new-statement-handle (hdbc)
(let ((statement-handle
- (with-foreign-object (hstmt-ptr 'sql-handle)
+ (with-foreign-object (phstmt 'sql-handle)
(with-error-handling
(:hdbc hdbc)
- (SQLAllocStmt hdbc hstmt-ptr)
- (deref-pointer hstmt-ptr 'sql-handle)))))
+ (SQLAllocHandle $SQL_HANDLE_STMT hdbc phstmt)
+ (deref-pointer phstmt 'sql-handle)))))
(if (uffi:null-pointer-p statement-handle)
(error 'clsql:sql-database-error :message "Received null statement handle.")
statement-handle)))
-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: odbc -*-
+ ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: odbc -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
:module "odbc"
:returning :short) ; RETCODE_SQL_API
+;; deprecated
(def-function "SQLAllocConnect"
((henv sql-handle) ; HENV henv
(*phdbc sql-handle-ptr) ; HDBC FAR *phdbc
:module "odbc"
:returning :short) ; RETCODE_SQL_API
+;; deprecated
(def-function "SQLAllocStmt"
((hdbc sql-handle) ; HDBC hdbc
(*phstmt sql-handle-ptr) ; HSTMT FAR *phstmt
(cond
((or (search "postgresql" server-name :test #'char-equal)
(search "postgresql" dbms-name :test #'char-equal))
+ (unless (find-package 'clsql-postgresql)
+ (ignore-errors (asdf:operate 'asdf:load-op 'clsql-postgresql-socket)))
:postgresql)
((or (search "mysql" server-name :test #'char-equal)
(search "mysql" dbms-name :test #'char-equal))
+ (unless (find-package 'clsql-mysql)
+ ;; ignore errors on platforms where the shared libraries are not available
+ (ignore-errors (asdf:operate 'asdf:load-op 'clsql-mysql)))
:mysql)
((or (search "oracle" server-name :test #'char-equal)
(search "oracle" dbms-name :test #'char-equal))
(3
(send-unencrypted-password-message
socket
- (postgresql-connection-password connection)))
+ (postgresql-connection-password connection))
+ (force-output socket))
(4
(let ((salt (make-string 2)))
(read-socket-sequence salt socket)
(send-encrypted-password-message
socket
(crypt-password
- (postgresql-connection-password connection) salt))))
+ (postgresql-connection-password connection) salt)))
+ (force-output socket))
(5
(let ((salt (make-string 4)))
(read-socket-sequence salt socket)
(pwd (encrypt-md5 pwd2 salt)))
(send-encrypted-password-message
socket
- (concatenate 'string "md5" pwd)))))
+ (concatenate 'string "md5" pwd))))
+ (force-output socket))
(t
(error 'postgresql-login-error
:connection connection
+cl-sql (3.0.3-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Tue, 7 Sep 2004 14:45:27 -0600
+
cl-sql (3.0.2-1) unstable; urgency=low
* New upstream