home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / GetInfo.pm < prev    next >
Encoding:
Perl POD Document  |  2002-03-12  |  20.7 KB  |  355 lines
  1. package SQL::Statement::GetInfo;
  2.  
  3. use SQL::Statement();
  4. use vars qw(%info);
  5.  
  6.  
  7. my @Keywords = qw(
  8.   INTEGERVAL STRING REALVAL IDENT NULLVAL PARAM OPERATOR IS AND OR ERROR
  9.   INSERT UPDATE SELECT DELETE DROP CREATE ALL DISTINCT WHERE ORDER ASC
  10.   DESC FROM INTO BY VALUES SET NOT TABLE CHAR VARCHAR REAL INTEGER
  11.   PRIMARY KEY BLOB TEXT
  12. );
  13. sub sql_keywords {
  14.     return join ',', @Keywords;
  15. }
  16.  
  17. %info = (
  18.      20 => "N"                             # SQL_ACCESSIBLE_PROCEDURES
  19. ,    19 => "Y"                             # SQL_ACCESSIBLE_TABLES
  20. #     0 => undef                           # SQL_ACTIVE_CONNECTIONS
  21. #   116 => undef                           # SQL_ACTIVE_ENVIRONMENTS
  22. #     1 => undef                           # SQL_ACTIVE_STATEMENTS
  23. ,    169 => 0x0000007F                     # SQL_AGGREGATE_FUNCTIONS
  24. #                                             SQL_AF_AVG      + 1
  25. #                                             SQL_AF_COUNT    + 2
  26. #                                             SQL_AF_MAX      + 4
  27. #                                             SQL_AF_MIN      + 8
  28. #                                             SQL_AF_SUM      + 10
  29. #                                             SQL_AF_DISTINCT + 20
  30. #                                             SQL_AF_ALL      + 40
  31. ,    117 => 0                              # SQL_ALTER_DOMAIN -
  32. ,     86 => 0                              # SQL_ALTER_TABLE  -
  33. # 10021 => undef                           # SQL_ASYNC_MODE
  34. #   120 => undef                           # SQL_BATCH_ROW_COUNT
  35. #   121 => undef                           # SQL_BATCH_SUPPORT
  36. #    82 => undef                           # SQL_BOOKMARK_PERSISTENCE
  37. ,    114 => 1                              # SQL_CATALOG_LOCATION
  38. ,  10003 => "N"                            # SQL_CATALOG_NAME
  39. ,     41 => '.'                            # SQL_CATALOG_NAME_SEPARATOR
  40. ,     42 => ""                             # SQL_CATALOG_TERM
  41. ,     92 => 0                              # SQL_CATALOG_USAGE
  42. #
  43. # 10004 => undef                           # SQL_COLLATING_SEQUENCE
  44. ,  10004 => "ISO-8859-1"                   # SQL_COLLATION_SEQ
  45. ,     87 => "N"                            # SQL_COLUMN_ALIAS
  46. ,     22 => 0                              # SQL_CONCAT_NULL_BEHAVIOR
  47. #
  48. # CONVERT FUNCTION NOT CURRENTLY SUPPORTED
  49. #
  50. ,     53 => 0                              # SQL_CONVERT_BIGINT
  51. ,     54 => 0                              # SQL_CONVERT_BINARY
  52. ,     55 => 0                              # SQL_CONVERT_BIT
  53. ,     56 => 0                              # SQL_CONVERT_CHAR
  54. ,     57 => 0                              # SQL_CONVERT_DATE
  55. ,     58 => 0                              # SQL_CONVERT_DECIMAL
  56. ,     59 => 0                              # SQL_CONVERT_DOUBLE
  57. ,     60 => 0                              # SQL_CONVERT_FLOAT
  58. ,     48 => 0                              # SQL_CONVERT_FUNCTIONS
  59. ,    173 => 0                              # SQL_CONVERT_GUID
  60. ,     61 => 0                              # SQL_CONVERT_INTEGER
  61. ,    123 => 0                              # SQL_CONVERT_INTERVAL_DAY_TIME
  62. ,    124 => 0                              # SQL_CONVERT_INTERVAL_YEAR_MONTH
  63. ,     71 => 0                              # SQL_CONVERT_LONGVARBINARY
  64. ,     62 => 0                              # SQL_CONVERT_LONGVARCHAR
  65. ,     63 => 0                              # SQL_CONVERT_NUMERIC
  66. ,     64 => 0                              # SQL_CONVERT_REAL
  67. ,     65 => 0                              # SQL_CONVERT_SMALLINT
  68. ,     66 => 0                              # SQL_CONVERT_TIME
  69. ,     67 => 0                              # SQL_CONVERT_TIMESTAMP
  70. ,     68 => 0                              # SQL_CONVERT_TINYINT
  71. ,     69 => 0                              # SQL_CONVERT_VARBINARY
  72. ,     70 => 0                              # SQL_CONVERT_VARCHAR
  73. ,    122 => 0                              # SQL_CONVERT_WCHAR
  74. ,    125 => 0                              # SQL_CONVERT_WLONGVARCHAR
  75. ,    126 => 0                              # SQL_CONVERT_WVARCHAR
  76. #
  77. ,     74 => 2                              # SQL_CORRELATION_NAME
  78. ,    127 => 0                              # SQL_CREATE_ASSERTION
  79. ,    128 => 0                              # SQL_CREATE_CHARACTER_SET
  80. ,    129 => 0                              # SQL_CREATE_COLLATION
  81. ,    130 => 0                              # SQL_CREATE_DOMAIN
  82. ,    131 => 0                              # SQL_CREATE_SCHEMA
  83. ,    132 => 1                              # SQL_CREATE_TABLE
  84. ,    133 => 0                              # SQL_CREATE_TRANSLATION
  85. ,    134 => 0                              # SQL_CREATE_VIEW
  86. #
  87. # CURSORS NOT CURRENTLY SUPPORTED
  88. #
  89. #     23 => undef,                         # SQL_CURSOR_COMMIT_BEHAVIOR
  90. #     24 => undef,                         # SQL_CURSOR_ROLLBACK_BEHAVIOR
  91. #  10001 => undef,                         # SQL_CURSOR_SENSITIVITY
  92. #
  93. #,      2 => \&sql_data_source_name         # SQL_DATA_SOURCE_NAME
  94. ,     25 => "N"                            # SQL_DATA_SOURCE_READ_ONLY
  95. ,    119 => 0                              # SQL_DATETIME_LITERALS
  96. #,     17 => \&sql_driver_name              # SQL_DBMS_NAME
  97. #,     18 => \&sql_driver_ver               # SQL_DBMS_VER
  98. #    18 => undef                           # SQL_DBMS_VERSION
  99. #   170 => undef,                          # SQL_DDL_INDEX
  100. #    26 => undef,                          # SQL_DEFAULT_TRANSACTION_ISOLATION
  101. #    26 => undef                           # SQL_DEFAULT_TXN_ISOLATION
  102. ,  10002 => "N"                            # SQL_DESCRIBE_PARAMETER
  103. #   171 => undef                           # SQL_DM_VER
  104. #     3 => undef                           # SQL_DRIVER_HDBC
  105. #   135 => undef                           # SQL_DRIVER_HDESC
  106. #     4 => undef                           # SQL_DRIVER_HENV
  107. #    76 => undef                           # SQL_DRIVER_HLIB
  108. #     5 => undef                           # SQL_DRIVER_HSTMT
  109. #,      6 => \&sql_driver_name              # SQL_DRIVER_NAME
  110. #    77 => undef                           # SQL_DRIVER_ODBC_VER
  111. #,      7 => \&sql_driver_ver               # SQL_DRIVER_VER
  112. ,    136 => 0                              # SQL_DROP_ASSERTION
  113. ,    137 => 0                              # SQL_DROP_CHARACTER_SET
  114. ,    138 => 0                              # SQL_DROP_COLLATION
  115. ,    139 => 0                              # SQL_DROP_DOMAIN
  116. ,    140 => 0                              # SQL_DROP_SCHEMA
  117. ,    141 => 1                              # SQL_DROP_TABLE
  118. ,    142 => 0                              # SQL_DROP_TRANSLATION
  119. ,    143 => 0                              # SQL_DROP_VIEW
  120. #   144 => undef                           # SQL_DYNAMIC_CURSOR_ATTRIBUTES1
  121. #   145 => undef                           # SQL_DYNAMIC_CURSOR_ATTRIBUTES2
  122. #    27 => undef                           # SQL_EXPRESSIONS_IN_ORDERBY
  123. #     8 => undef                           # SQL_FETCH_DIRECTION
  124. ,     84 => 1                              # SQL_FILE_USAGE
  125. #   146 => undef                           # SQL_FORWARD_ONLY_CURSOR_ATTRIBUTES1
  126. #   147 => undef                           # SQL_FORWARD_ONLY_CURSOR_ATTRIBUTES2
  127. #    81 => undef                           # SQL_GETDATA_EXTENSIONS
  128. #    88 => undef                           # SQL_GROUP_BY
  129. ,     28 => 4                              # SQL_IDENTIFIER_CASE
  130. ,     29 => q(")                           # SQL_IDENTIFIER_QUOTE_CHAR
  131. #   148 => undef                           # SQL_INDEX_KEYWORDS
  132. #   149 => undef                           # SQL_INFO_SCHEMA_VIEWS
  133. ,    172 => 1                              # SQL_INSERT_STATEMENT
  134. #    73 => undef                           # SQL_INTEGRITY
  135. #   150 => undef                           # SQL_KEYSET_CURSOR_ATTRIBUTES1
  136. #   151 => undef                           # SQL_KEYSET_CURSOR_ATTRIBUTES2
  137. ,     89 => \&sql_keywords                 # SQL_KEYWORDS
  138. ,    113 => "N"                            # SQL_LIKE_ESCAPE_CLAUSE
  139. #    78 => undef                           # SQL_LOCK_TYPES
  140. #    34 => undef                           # SQL_MAXIMUM_CATALOG_NAME_LENGTH
  141. #    97 => undef                           # SQL_MAXIMUM_COLUMNS_IN_GROUP_BY
  142. #    98 => undef                           # SQL_MAXIMUM_COLUMNS_IN_INDEX
  143. #    99 => undef                           # SQL_MAXIMUM_COLUMNS_IN_ORDER_BY
  144. #   100 => undef                           # SQL_MAXIMUM_COLUMNS_IN_SELECT
  145. #   101 => undef                           # SQL_MAXIMUM_COLUMNS_IN_TABLE
  146. #    30 => undef                           # SQL_MAXIMUM_COLUMN_NAME_LENGTH
  147. #     1 => undef                           # SQL_MAXIMUM_CONCURRENT_ACTIVITIES
  148. #    31 => undef                           # SQL_MAXIMUM_CURSOR_NAME_LENGTH
  149. #     0 => undef                           # SQL_MAXIMUM_DRIVER_CONNECTIONS
  150. # 10005 => undef                           # SQL_MAXIMUM_IDENTIFIER_LENGTH
  151. #   102 => undef                           # SQL_MAXIMUM_INDEX_SIZE
  152. #   104 => undef                           # SQL_MAXIMUM_ROW_SIZE
  153. #    32 => undef                           # SQL_MAXIMUM_SCHEMA_NAME_LENGTH
  154. #   105 => undef                           # SQL_MAXIMUM_STATEMENT_LENGTH
  155. # 20000 => undef                           # SQL_MAXIMUM_STMT_OCTETS
  156. # 20001 => undef                           # SQL_MAXIMUM_STMT_OCTETS_DATA
  157. # 20002 => undef                           # SQL_MAXIMUM_STMT_OCTETS_SCHEMA
  158. #   106 => undef                           # SQL_MAXIMUM_TABLES_IN_SELECT
  159. #    35 => undef                           # SQL_MAXIMUM_TABLE_NAME_LENGTH
  160. #   107 => undef                           # SQL_MAXIMUM_USER_NAME_LENGTH
  161. # 10022 => undef                           # SQL_MAX_ASYNC_CONCURRENT_STATEMENTS
  162. #   112 => undef                           # SQL_MAX_BINARY_LITERAL_LEN
  163. #    34 => undef                           # SQL_MAX_CATALOG_NAME_LEN
  164. #   108 => undef                           # SQL_MAX_CHAR_LITERAL_LEN
  165. #    97 => undef                           # SQL_MAX_COLUMNS_IN_GROUP_BY
  166. #    98 => undef                           # SQL_MAX_COLUMNS_IN_INDEX
  167. #    99 => undef                           # SQL_MAX_COLUMNS_IN_ORDER_BY
  168. #   100 => undef                           # SQL_MAX_COLUMNS_IN_SELECT
  169. #   101 => undef                           # SQL_MAX_COLUMNS_IN_TABLE
  170. #    30 => undef                           # SQL_MAX_COLUMN_NAME_LEN
  171. #     1 => undef                           # SQL_MAX_CONCURRENT_ACTIVITIES
  172. #    31 => undef                           # SQL_MAX_CURSOR_NAME_LEN
  173. #     0 => undef                           # SQL_MAX_DRIVER_CONNECTIONS
  174. # 10005 => undef                           # SQL_MAX_IDENTIFIER_LEN
  175. #   102 => undef                           # SQL_MAX_INDEX_SIZE
  176. #    32 => undef                           # SQL_MAX_OWNER_NAME_LEN
  177. #    33 => undef                           # SQL_MAX_PROCEDURE_NAME_LEN
  178. #    34 => undef                           # SQL_MAX_QUALIFIER_NAME_LEN
  179. #   104 => undef                           # SQL_MAX_ROW_SIZE
  180. #   103 => undef                           # SQL_MAX_ROW_SIZE_INCLUDES_LONG
  181. #    32 => undef                           # SQL_MAX_SCHEMA_NAME_LEN
  182. #   105 => undef                           # SQL_MAX_STATEMENT_LEN
  183. #   106 => undef                           # SQL_MAX_TABLES_IN_SELECT
  184. #    35 => undef                           # SQL_MAX_TABLE_NAME_LEN
  185. #   107 => undef                           # SQL_MAX_USER_NAME_LEN
  186. #    37 => undef                           # SQL_MULTIPLE_ACTIVE_TXN
  187. #    36 => undef                           # SQL_MULT_RESULT_SETS
  188. ,   111 => "N"                             # SQL_NEED_LONG_DATA_LEN
  189. ,    75 => 1                               # SQL_NON_NULLABLE_COLUMNS
  190. ,     85 => 1                              # SQL_NULL_COLLATION
  191. ,     49 => 0                              # SQL_NUMERIC_FUNCTIONS
  192. #     9 => undef                           # SQL_ODBC_API_CONFORMANCE
  193. #   152 => undef                           # SQL_ODBC_INTERFACE_CONFORMANCE
  194. #    12 => undef                           # SQL_ODBC_SAG_CLI_CONFORMANCE
  195. #    15 => undef                           # SQL_ODBC_SQL_CONFORMANCE
  196. #    73 => undef                           # SQL_ODBC_SQL_OPT_IEF
  197. #    10 => undef                           # SQL_ODBC_VER
  198. ,    115 => 0x00000037                     # SQL_OJ_CAPABILITIES
  199. #           1   SQL_OJ_LEFT                +  left joins SUPPORTED
  200. #           2   SQL_OJ_RIGHT               +  right joins SUPPORTED
  201. #           4   SQL_OJ_FULL                +  full joins SUPPORTED
  202. #               SQL_OJ_NESTED              -  nested joins not supported
  203. #          10   SQL_OJ_NOT_ORDERED         +  on clause col order not required
  204. #          20   SQL_OJ_INNER               +  inner joins SUPPORTED
  205. #               SQL_OJ_ALL_COMPARISON_OPS  -  on clause comp op must be =
  206. ,     90 => "N"                            # SQL_ORDER_BY_COLUMNS_IN_SELECT
  207. #    38 => undef                           # SQL_OUTER_JOINS
  208. #   115 => undef                           # SQL_OUTER_JOIN_CAPABILITIES
  209. #    39 => undef                           # SQL_OWNER_TERM
  210. #    91 => undef                           # SQL_OWNER_USAGE
  211. #   153 => undef                           # SQL_PARAM_ARRAY_ROW_COUNTS
  212. #   154 => undef                           # SQL_PARAM_ARRAY_SELECTS
  213. #    80 => undef                           # SQL_POSITIONED_STATEMENTS
  214. #    79 => undef                           # SQL_POS_OPERATIONS
  215. ,     21 => "N"                            # SQL_PROCEDURES
  216. #    40 => undef                           # SQL_PROCEDURE_TERM
  217. #   114 => undef                           # SQL_QUALIFIER_LOCATION
  218. #    41 => undef                           # SQL_QUALIFIER_NAME_SEPARATOR
  219. #    42 => undef                           # SQL_QUALIFIER_TERM
  220. #    92 => undef                           # SQL_QUALIFIER_USAGE
  221. ,     93 => 3                              # SQL_QUOTED_IDENTIFIER_CASE
  222. ,     11 => "N"                            # SQL_ROW_UPDATES
  223. ,     39 => "schema"                        # SQL_SCHEMA_TERM
  224. #    91 => undef                           # SQL_SCHEMA_USAGE
  225. #    43 => undef                           # SQL_SCROLL_CONCURRENCY
  226. #    44 => undef                           # SQL_SCROLL_OPTIONS
  227. #    14 => undef                           # SQL_SEARCH_PATTERN_ESCAPE
  228. #    13 => undef                           # SQL_SERVER_NAME
  229. #    94 => undef                           # SQL_SPECIAL_CHARACTERS
  230. #   155 => undef                           # SQL_SQL92_DATETIME_FUNCTIONS
  231. #   156 => undef                           # SQL_SQL92_FOREIGN_KEY_DELETE_RULE
  232. #   157 => undef                           # SQL_SQL92_FOREIGN_KEY_UPDATE_RULE
  233. #   158 => undef                           # SQL_SQL92_GRANT
  234. #   159 => undef                           # SQL_SQL92_NUMERIC_VALUE_FUNCTIONS
  235. ,    160 => 0x00003E06                     # SQL_SQL92_PREDICATES
  236. #                               SQL_SP_EXISTS                    -      -
  237. #                               SQL_SP_ISNOTNULL                 +      +   2
  238. #                               SQL_SP_ISNULL                    +      +   4
  239. #                               SQL_SP_MATCH_FULL                -      -
  240. #                               SQL_SP_MATCH_PARTIAL             -      -
  241. #                               SQL_SP_MATCH_UNIQUE_FULL         -      -
  242. #                               SQL_SP_MATCH_UNIQUE_PARTIAL      -      -
  243. #                               SQL_SP_OVERLAPS                  -      -
  244. #                               SQL_SP_UNIQUE                    -      -
  245. #                               SQL_SP_LIKE                      +      +  200
  246. #                               SQL_SP_IN                        -      +  400
  247. #                               SQL_SP_BETWEEN                   -      +  800
  248. #                               SQL_SP_COMPARISON                +      + 1000
  249. #                               SQL_SP_QUANTIFIED_COMPARISON     +      + 2000
  250. ,    161 => 0x000001D8                     # SQL_SQL92_RELATIONAL_JOIN_OPERATORS
  251. #         SQL_SRJO_CORRESPONDING_CLAUSE  -   corresponding clause not supported
  252. #         SQL_SRJO_CROSS_JOIN            -   cross join not supported
  253. #         SQL_SRJO_EXCEPT_JOIN           -   except join not supported
  254. #     8   SQL_SRJO_FULL_OUTER_JOIN       +   full join SUPPORTED
  255. #    10   SQL_SRJO_INNER_JOIN            +   inner join SUPPORTED
  256. #         SQL_SRJO_INTERSECT_JOIN        -   intersect join not supported
  257. #    40   SQL_SRJO_LEFT_OUTER_JOIN       +   left join SUPPORTED
  258. #    80   SQL_SRJO_NATURAL_JOIN          +   natural join SUPPORTED
  259. #   100   SQL_SRJO_RIGHT_OUTER_JOIN      +   right join SUPPORTED
  260. #         SQL_SRJO_UNION_JOIN            -   union join not supported
  261. #   162 => undef                           # SQL_SQL92_REVOKE
  262. ,    163 => 3                              # SQL_SQL92_ROW_VALUE_CONSTRUCTOR
  263. #                                                    SQL_SRVC_VALUE_EXPRESSION
  264. #                                                    SQL_SRVC_NULL 
  265. #                                                    SQL_SRVC_DEFAULT 
  266. #                                                    SQL_SRVC_ROW_SUBQUERY
  267. ,   164 => 0x000000EE                      # SQL_SQL92_STRING_FUNCTIONS
  268. #  SQL_SSF_CONVERT         -    /* convert() string function not supported */
  269. #  SQL_SSF_LOWER        2  +    /* lower() string function SUPPORTED */
  270. #  SQL_SSF_UPPER        4  +    /* upper() string function SUPPORTED */
  271. #  SQL_SSF_SUBSTRING    8  +    /* substring() string function SUPPORTED */
  272. #  SQL_SSF_TRANSLATE       -    /* translate() string function not supported */
  273. #  SQL_SSF_TRIM_BOTH   32  +    /* trim() both string function SUPPORTED */
  274. #  SQL_SSF_TRIM_LEADING 64 +    /* trim() leading string function SUPPORTED */
  275. #  SQL_SSF_TRIM_TRAILING128+    /* trim() trailing string function SUPPORTED */
  276. #   165 => undef                           # SQL_SQL92_VALUE_EXPRESSIONS
  277. #   118 => undef                           # SQL_SQL_CONFORMANCE
  278. #   166 => undef                           # SQL_STANDARD_CLI_CONFORMANCE
  279. #   167 => undef                           # SQL_STATIC_CURSOR_ATTRIBUTES1
  280. #   168 => undef                           # SQL_STATIC_CURSOR_ATTRIBUTES2
  281. #    83 => undef                           # SQL_STATIC_SENSITIVITY
  282. ,    50 => 0x00001C49                      # SQL_STRING_FUNCTIONS
  283. #      SQL_FN_STR_CONCAT                         => 0x00000001 +
  284. #      SQL_FN_STR_INSERT                         => 0x00000002
  285. #      SQL_FN_STR_LEFT                           => 0x00000004
  286. #      SQL_FN_STR_LTRIM                          => 0x00000008 +
  287. #      SQL_FN_STR_LENGTH                         => 0x00000010
  288. #      SQL_FN_STR_LOCATE                         => 0x00000020
  289. #      SQL_FN_STR_LCASE                          => 0x00000040 +
  290. #      SQL_FN_STR_REPEAT                         => 0x00000080
  291. #      SQL_FN_STR_REPLACE                        => 0x00000100
  292. #      SQL_FN_STR_RIGHT                          => 0x00000200
  293. #      SQL_FN_STR_RTRIM                          => 0x00000400 +
  294. #      SQL_FN_STR_SUBSTRING                      => 0x00000800 +
  295. #      SQL_FN_STR_UCASE                          => 0x00001000 +
  296. #      SQL_FN_STR_ASCII                          => 0x00002000
  297. #      SQL_FN_STR_CHAR                           => 0x00004000
  298. #      SQL_FN_STR_DIFFERENCE                     => 0x00008000
  299. #      SQL_FN_STR_LOCATE_2                       => 0x00010000
  300. #      SQL_FN_STR_SOUNDEX                        => 0x00020000
  301. #      SQL_FN_STR_SPACE                          => 0x00040000
  302. #      SQL_FN_STR_BIT_LENGTH                     => 0x00080000
  303. #      SQL_FN_STR_CHAR_LENGTH                    => 0x00100000
  304. #      SQL_FN_STR_CHARACTER_LENGTH               => 0x00200000
  305. #      SQL_FN_STR_OCTET_LENGTH                   => 0x00400000
  306. #      SQL_FN_STR_POSITION                       => 0x00800000
  307. #    95 => undef                           # SQL_SUBQUERIES
  308. #    51 => undef                           # SQL_SYSTEM_FUNCTIONS
  309. ,     45 => "table"                        # SQL_TABLE_TERM
  310. #   109 => undef                           # SQL_TIMEDATE_ADD_INTERVALS
  311. #   110 => undef                           # SQL_TIMEDATE_DIFF_INTERVALS
  312. #    52 => undef                           # SQL_TIMEDATE_FUNCTIONS
  313. #    46 => undef                           # SQL_TRANSACTION_CAPABLE
  314. #    72 => undef                           # SQL_TRANSACTION_ISOLATION_OPTION
  315. #    46 => undef                           # SQL_TXN_CAPABLE
  316. #    72 => undef                           # SQL_TXN_ISOLATION_OPTION
  317. #    96 => undef                           # SQL_UNION
  318. #    96 => undef                           # SQL_UNION_STATEMENT
  319. #,    47 => \&sql_user_name                 # SQL_USER_NAME
  320. # 10000 => undef                           # SQL_XOPEN_CLI_YEAR
  321. );
  322.  
  323.  
  324. 1;
  325.  
  326. __END__
  327.  
  328. NO LONGER NEEDED
  329.  
  330. sub sql_driver_name {
  331.     shift->{"Driver"}->{"Name"};
  332. }
  333.  
  334. sub sql_driver_ver {
  335.     my $dbh = shift;
  336.     my $ver = shift;
  337.     my $drv = 'DBD::'.$dbh->{"Driver"}->{"Name"};
  338. #    $ver = "$drv"."::VERSION";
  339. #    $ver = ${$ver};
  340.     my $fmt = '%02d.%02d.%1d%1d%1d%1d';   # ODBC version string: ##.##.#####
  341.     $ver = sprintf $fmt, split (/\./, $ver);
  342.     return $ver . '; ss-'. $SQL::Statement::VERSION;
  343. }
  344.  
  345. sub sql_data_source_name {
  346.     my $dbh = shift;
  347.     return 'dbi:'.$dbh->{"Driver"}->{"Name"}.':'.$dbh->{"Name"};
  348. }
  349. sub sql_user_name {
  350.     my $dbh = shift;
  351.     return $dbh->{"CURRENT_USER"};
  352. }
  353.  
  354.  
  355.