dbi 0.4.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- data/ChangeLog +3694 -0
- data/LICENSE +25 -0
- data/README +271 -0
- data/bin/dbi +518 -0
- data/build/Rakefile.dbi.rb +57 -0
- data/examples/test1.pl +39 -0
- data/examples/test1.rb +20 -0
- data/examples/xmltest.rb +8 -0
- data/lib/dbi.rb +323 -0
- data/lib/dbi/base_classes.rb +12 -0
- data/lib/dbi/base_classes/database.rb +135 -0
- data/lib/dbi/base_classes/driver.rb +47 -0
- data/lib/dbi/base_classes/statement.rb +167 -0
- data/lib/dbi/binary.rb +25 -0
- data/lib/dbi/columninfo.rb +106 -0
- data/lib/dbi/exceptions.rb +65 -0
- data/lib/dbi/handles.rb +49 -0
- data/lib/dbi/handles/database.rb +211 -0
- data/lib/dbi/handles/driver.rb +60 -0
- data/lib/dbi/handles/statement.rb +375 -0
- data/lib/dbi/row.rb +249 -0
- data/lib/dbi/sql.rb +23 -0
- data/lib/dbi/sql/preparedstatement.rb +115 -0
- data/lib/dbi/sql_type_constants.rb +75 -0
- data/lib/dbi/trace.rb +91 -0
- data/lib/dbi/types.rb +158 -0
- data/lib/dbi/typeutil.rb +108 -0
- data/lib/dbi/utils.rb +60 -0
- data/lib/dbi/utils/date.rb +59 -0
- data/lib/dbi/utils/tableformatter.rb +112 -0
- data/lib/dbi/utils/time.rb +52 -0
- data/lib/dbi/utils/timestamp.rb +96 -0
- data/lib/dbi/utils/xmlformatter.rb +73 -0
- data/test/dbi/tc_columninfo.rb +94 -0
- data/test/dbi/tc_date.rb +88 -0
- data/test/dbi/tc_dbi.rb +178 -0
- data/test/dbi/tc_row.rb +256 -0
- data/test/dbi/tc_sqlbind.rb +168 -0
- data/test/dbi/tc_statementhandle.rb +16 -0
- data/test/dbi/tc_time.rb +77 -0
- data/test/dbi/tc_timestamp.rb +142 -0
- data/test/dbi/tc_types.rb +220 -0
- data/test/dbi/trace.rb +26 -0
- data/test/ts_dbi.rb +15 -0
- metadata +108 -0
data/LICENSE
ADDED
@@ -0,0 +1,25 @@
|
|
1
|
+
(C) 2008 Erik Hollensbe <erik@hollensbe.org>. All rights reserved.
|
2
|
+
|
3
|
+
Please see "README" for earlier copyrights.
|
4
|
+
|
5
|
+
Redistribution and use in source and binary forms, with or without
|
6
|
+
modification, are permitted provided that the following conditions
|
7
|
+
are met:
|
8
|
+
1. Redistributions of source code must retain the above copyright
|
9
|
+
notice, this list of conditions and the following disclaimer.
|
10
|
+
2. Redistributions in binary form must reproduce the above copyright
|
11
|
+
notice, this list of conditions and the following disclaimer in the
|
12
|
+
documentation and/or other materials provided with the distribution.
|
13
|
+
3. The name of the author may not be used to endorse or promote products
|
14
|
+
derived from this software without specific prior written permission.
|
15
|
+
|
16
|
+
THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
17
|
+
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
|
18
|
+
AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
|
19
|
+
THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
|
20
|
+
EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
|
21
|
+
PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
|
22
|
+
OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
23
|
+
WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
24
|
+
OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
|
25
|
+
ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
data/README
ADDED
@@ -0,0 +1,271 @@
|
|
1
|
+
= Description
|
2
|
+
The DBI package is a vendor independent interface for accessing databases.
|
3
|
+
It is similar, but not identical to, Perl's DBI module.
|
4
|
+
|
5
|
+
= Synopsis
|
6
|
+
|
7
|
+
require 'dbi'
|
8
|
+
|
9
|
+
# Connect to a database, old style
|
10
|
+
dbh = DBI.connect('DBI:Mysql:test', 'testuser', 'testpwd')
|
11
|
+
|
12
|
+
# Insert some rows, use placeholders
|
13
|
+
1.upto(13) do |i|
|
14
|
+
sql = "insert into simple01 (SongName, SongLength_s) VALUES (?, ?)"
|
15
|
+
dbh.do(sql, "Song #{i}", "#{i*10}")
|
16
|
+
end
|
17
|
+
|
18
|
+
# Select all rows from simple01
|
19
|
+
sth = dbh.prepare('select * from simple01')
|
20
|
+
sth.execute
|
21
|
+
|
22
|
+
# Print out each row
|
23
|
+
while row=sth.fetch do
|
24
|
+
p row
|
25
|
+
end
|
26
|
+
|
27
|
+
# Close the statement handle when done
|
28
|
+
sth.finish
|
29
|
+
|
30
|
+
# Don't prepare, just do it!
|
31
|
+
dbh.do('delete from simple01 where internal_id > 10')
|
32
|
+
|
33
|
+
# And finally, disconnect
|
34
|
+
dbh.disconnect
|
35
|
+
|
36
|
+
# Same example, but a little more Ruby-ish
|
37
|
+
DBI.connect('DBI:Mysql:test', 'testuser', 'testpwd') do | dbh |
|
38
|
+
|
39
|
+
sql = "insert into simple01 (SongName, SongLength_s) VALUES (?, ?)"
|
40
|
+
|
41
|
+
dbh.prepare(sql) do | sth |
|
42
|
+
1.upto(13) { |i| sth.execute("Song #{i}", "#{i*10}") }
|
43
|
+
end
|
44
|
+
|
45
|
+
dbh.select_all('select * from simple01') do | row |
|
46
|
+
p row
|
47
|
+
end
|
48
|
+
|
49
|
+
dbh.do('delete from simple01 where internal_id > 10')
|
50
|
+
|
51
|
+
end
|
52
|
+
|
53
|
+
= Prerequisites
|
54
|
+
Ruby 1.8.6 or later is the test target, however you may have success with
|
55
|
+
earlier 1.8.x versions of Ruby.
|
56
|
+
|
57
|
+
= RubyForge Project
|
58
|
+
General information: http://ruby-dbi.rubyforge.org
|
59
|
+
Project information: http://rubyforge.org/projects/ruby-dbi/
|
60
|
+
Downloads: http://rubyforge.org/frs/?group_id=234
|
61
|
+
|
62
|
+
= Installation
|
63
|
+
There are many database drivers (DBDs) available. You only need to install
|
64
|
+
the DBDs for the database software that you will be using.
|
65
|
+
|
66
|
+
== Gem setup:
|
67
|
+
|
68
|
+
gem install dbi
|
69
|
+
# One or more of:
|
70
|
+
gem install dbd-mysql
|
71
|
+
gem install dbd-pg
|
72
|
+
gem install dbd-sqlite3
|
73
|
+
gem install dbd-sqlite
|
74
|
+
|
75
|
+
== Without rubygems:
|
76
|
+
|
77
|
+
ruby setup.rb config
|
78
|
+
ruby setup.rb setup
|
79
|
+
ruby setup.rb install
|
80
|
+
|
81
|
+
== The bleeding edge:
|
82
|
+
|
83
|
+
git clone git://hollensbe.org/git/ruby-dbi.git
|
84
|
+
git checkout -b development origin/development
|
85
|
+
|
86
|
+
Also available at
|
87
|
+
|
88
|
+
git clone git://github.com/erikh/ruby-dbi.git
|
89
|
+
|
90
|
+
= Available Database Drivers (DBDs)
|
91
|
+
|
92
|
+
== DBD::MySQL
|
93
|
+
MySQL
|
94
|
+
Depends on the mysql-ruby package from http://www.tmtm.org/mysql or
|
95
|
+
available from the RAA.
|
96
|
+
|
97
|
+
== DBD::ODBC
|
98
|
+
ODBC
|
99
|
+
Depends on the ruby-odbc package (0.5 or later, 0.9.3 or later recommended) at
|
100
|
+
http://www.ch-werner.de/rubyodbc or available from the RAA. Works together
|
101
|
+
with unix-odbc.
|
102
|
+
|
103
|
+
== DBD::OCI8
|
104
|
+
OCI8 (Oracle)
|
105
|
+
Depends on the the ruby-oci8 package, available on the RAA and RubyForge.
|
106
|
+
|
107
|
+
== DBD::Pg
|
108
|
+
PostgreSQL
|
109
|
+
Depends on the pg package, available on RubyForge.
|
110
|
+
|
111
|
+
== DBD::SQLite
|
112
|
+
SQLite (versions 2.x and earlier)
|
113
|
+
Depends on the sqlite-ruby package, available on rubyforge.
|
114
|
+
|
115
|
+
== DBD::SQLite3
|
116
|
+
SQLite 3.x
|
117
|
+
Depends on the sqlite3-ruby package, available on rubyforge.
|
118
|
+
|
119
|
+
= Additional Documentation
|
120
|
+
See the directories doc/* for DBI and DBD specific information.
|
121
|
+
The DBI specification is at doc/DBI_SPEC.rdoc.
|
122
|
+
The DBD specification is at doc/DBD_SPEC.rdoc.
|
123
|
+
|
124
|
+
= Articles
|
125
|
+
== Tutorial: Using the Ruby DBI Module
|
126
|
+
http://www.kitebird.com/articles/ruby-dbi.html
|
127
|
+
|
128
|
+
= Applications
|
129
|
+
== dbi
|
130
|
+
The SQL command line interpreter dbi is available in directory
|
131
|
+
bin/. It gets installed by default.
|
132
|
+
|
133
|
+
= License
|
134
|
+
|
135
|
+
Copyright (c) 2008 Erik Hollensbe
|
136
|
+
|
137
|
+
Copyright (c) 2005-2006 Kirk Haines, Francis Hwang, Patrick May and Daniel
|
138
|
+
Berger.
|
139
|
+
|
140
|
+
Copyright (c) 2001, 2002, 2003, 2004 Michael Neumann <mneumann@ntecs.de>
|
141
|
+
and others (see the beginning of each file for copyright holder information).
|
142
|
+
|
143
|
+
All rights reserved.
|
144
|
+
|
145
|
+
Redistribution and use in source and binary forms, with or without
|
146
|
+
modification, are permitted provided that the following conditions are met:
|
147
|
+
|
148
|
+
1. Redistributions of source code must retain the above copyright notice,
|
149
|
+
this list of conditions and the following disclaimer.
|
150
|
+
2. Redistributions in binary form must reproduce the above copyright notice,
|
151
|
+
this list of conditions and the following disclaimer in the documentation
|
152
|
+
and/or other materials provided with the distribution.
|
153
|
+
3. The name of the author may not be used to endorse or promote products
|
154
|
+
derived from this software without specific prior written permission.
|
155
|
+
|
156
|
+
THIS SOFTWARE IS PROVIDED 'AS IS' AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
157
|
+
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
|
158
|
+
AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
|
159
|
+
THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
|
160
|
+
EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
|
161
|
+
PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
|
162
|
+
OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
163
|
+
WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
164
|
+
OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
|
165
|
+
ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
166
|
+
|
167
|
+
This is the BSD license which is less restrictive than GNU's GPL
|
168
|
+
(General Public License).
|
169
|
+
|
170
|
+
= Contributors
|
171
|
+
|
172
|
+
Pistos
|
173
|
+
Too much to specify. Infinite patience and help.
|
174
|
+
|
175
|
+
Christopher Maujean
|
176
|
+
Lots of initial help when reviving the project.
|
177
|
+
|
178
|
+
Jun Mukai <mukai@jmuk.org>
|
179
|
+
Contributed initial SQLite3 DBD.
|
180
|
+
|
181
|
+
John J. Fox IV
|
182
|
+
Lots of help testing on multiple platforms.
|
183
|
+
|
184
|
+
Kirk Haines
|
185
|
+
One of the authors of the rewrite effort (January 2006).
|
186
|
+
|
187
|
+
Francis Hwang
|
188
|
+
One of the authors of the rewrite effort (January 2006).
|
189
|
+
|
190
|
+
Patrick May
|
191
|
+
One of the authors of the rewrite effort (January 2006).
|
192
|
+
|
193
|
+
Daniel Berger
|
194
|
+
One of the authors of the rewrite effort (January 2006).
|
195
|
+
|
196
|
+
Michael Neumann
|
197
|
+
Original author of Ruby/DBI; wrote the DBI and most of the DBDs.
|
198
|
+
|
199
|
+
Rainer Perl
|
200
|
+
Author of Ruby/DBI 0.0.4 from which many good ideas were taken.
|
201
|
+
|
202
|
+
Jim Weirich
|
203
|
+
Original author of DBD::Pg. Wrote additional code (e.g. sql.rb,
|
204
|
+
testcases). Gave many helpful hints and comments.
|
205
|
+
|
206
|
+
Eli Green
|
207
|
+
Implemented DatabaseHandle#columns for Mysql and Pg.
|
208
|
+
|
209
|
+
Masatoshi SEKI
|
210
|
+
For his version of module BasicQuote in sql.rb.
|
211
|
+
|
212
|
+
John Gorman
|
213
|
+
For his case insensitive load_driver patch and parameter parser.
|
214
|
+
|
215
|
+
David Muse
|
216
|
+
For testing the DBD::SQLRelay and for his initial DBD.
|
217
|
+
|
218
|
+
Jim Menard
|
219
|
+
Extended DBD::Oracle for method columns.
|
220
|
+
|
221
|
+
Joseph McDonald
|
222
|
+
Fixed bug in DBD::Pg (default values in method columns).
|
223
|
+
|
224
|
+
Norbert Gawor
|
225
|
+
Fixed bug in DBD::ODBC (method columns) and proxyserver.
|
226
|
+
|
227
|
+
James F. Hranicky
|
228
|
+
Patch for DBD::Pg (cache PGResult#result in Tuples) which increased
|
229
|
+
performance by a factor around 100.
|
230
|
+
|
231
|
+
Stephen Davies
|
232
|
+
Added method Statement#fetch_scroll for DBD::Pg.
|
233
|
+
|
234
|
+
Dave Thomas
|
235
|
+
Several enhancements.
|
236
|
+
|
237
|
+
Brad Hilton
|
238
|
+
Column coercing patch for DBD::Mysql.
|
239
|
+
|
240
|
+
Sean Chittenden
|
241
|
+
Originally a co-owner of the project. Submitted several patches
|
242
|
+
and helped with lots of comments.
|
243
|
+
|
244
|
+
MoonWolf
|
245
|
+
Provided the quote/escape_byte patch for DBD::Pg, DBD::SQLite patch and
|
246
|
+
Database#columns implementation. Further patches.
|
247
|
+
|
248
|
+
Paul DuBois
|
249
|
+
Fixed typos and formatting. Maintains DBD::Mysql.
|
250
|
+
|
251
|
+
Tim Bates
|
252
|
+
Bug fixes for Mysql and DBI.
|
253
|
+
|
254
|
+
Brian Candler
|
255
|
+
Zero-padding date/time/timestamps fix.
|
256
|
+
|
257
|
+
Florian G. Pflug
|
258
|
+
Discussion and helpful comments/benchmarks about DBD::Pg async_exec vs.
|
259
|
+
exec.
|
260
|
+
|
261
|
+
Oliver M. Bolzer
|
262
|
+
Patches to support Postgres arrays for DBD::Pg.
|
263
|
+
|
264
|
+
Stephen R. Veit
|
265
|
+
ruby-db2 and DBD::DB2 enhancements.
|
266
|
+
|
267
|
+
Dennis Vshivkov
|
268
|
+
DBD::Pg patches
|
269
|
+
|
270
|
+
Cail Borrell from frontbase.com
|
271
|
+
For the Frontbase DBD and C interface.
|
data/bin/dbi
ADDED
@@ -0,0 +1,518 @@
|
|
1
|
+
#!/usr/bin/env ruby
|
2
|
+
#
|
3
|
+
# Copyright (c) 2001, 2002 Michael Neumann <neumann@s-direktnet.de>
|
4
|
+
#
|
5
|
+
# All rights reserved.
|
6
|
+
#
|
7
|
+
# Redistribution and use in source and binary forms, with or without
|
8
|
+
# modification, are permitted provided that the following conditions
|
9
|
+
# are met:
|
10
|
+
# 1. Redistributions of source code must retain the above copyright
|
11
|
+
# notice, this list of conditions and the following disclaimer.
|
12
|
+
# 2. Redistributions in binary form must reproduce the above copyright
|
13
|
+
# notice, this list of conditions and the following disclaimer in the
|
14
|
+
# documentation and/or other materials provided with the distribution.
|
15
|
+
# 3. The name of the author may not be used to endorse or promote products
|
16
|
+
# derived from this software without specific prior written permission.
|
17
|
+
#
|
18
|
+
# THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
19
|
+
# INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
|
20
|
+
# AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
|
21
|
+
# THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
|
22
|
+
# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
|
23
|
+
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
|
24
|
+
# OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
25
|
+
# WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
26
|
+
# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
|
27
|
+
# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
28
|
+
#
|
29
|
+
# $Id: sqlsh.rb,v 1.2 2006/01/24 04:20:01 francis Exp $
|
30
|
+
#
|
31
|
+
|
32
|
+
begin
|
33
|
+
require 'rubygems'
|
34
|
+
gem 'dbi'
|
35
|
+
rescue LoadError => e
|
36
|
+
end
|
37
|
+
|
38
|
+
require "dbi"
|
39
|
+
|
40
|
+
begin
|
41
|
+
require "readline"
|
42
|
+
$use_readline = true
|
43
|
+
rescue LoadError
|
44
|
+
$use_readline = false
|
45
|
+
end
|
46
|
+
|
47
|
+
require "irb"
|
48
|
+
require "irb/completion"
|
49
|
+
|
50
|
+
$paging = true
|
51
|
+
$irb_completion = Readline.completion_proc
|
52
|
+
|
53
|
+
require "getoptlong"
|
54
|
+
|
55
|
+
class ReadlineControl
|
56
|
+
|
57
|
+
attr_accessor :keywords
|
58
|
+
|
59
|
+
def initialize
|
60
|
+
@keywords = []
|
61
|
+
set_prompt
|
62
|
+
initCompletion
|
63
|
+
end
|
64
|
+
|
65
|
+
def initCompletion
|
66
|
+
if $use_readline
|
67
|
+
Readline.completion_proc = proc {|str| complete(str) }
|
68
|
+
end
|
69
|
+
end
|
70
|
+
|
71
|
+
def complete(str)
|
72
|
+
@keywords.grep(/^#{Regexp.escape(str)}/i)
|
73
|
+
end
|
74
|
+
|
75
|
+
def set_prompt(prompt="> ")
|
76
|
+
@prompt = prompt
|
77
|
+
end
|
78
|
+
|
79
|
+
def readline
|
80
|
+
if $use_readline
|
81
|
+
Readline.readline(@prompt, true)
|
82
|
+
else
|
83
|
+
print @prompt
|
84
|
+
$stdin.readline
|
85
|
+
end
|
86
|
+
end
|
87
|
+
|
88
|
+
end
|
89
|
+
|
90
|
+
class Command
|
91
|
+
|
92
|
+
def tokens(sql)
|
93
|
+
DBI::SQL::PreparedStatement.tokens(sql)
|
94
|
+
end
|
95
|
+
|
96
|
+
def readCommand
|
97
|
+
line = ""
|
98
|
+
|
99
|
+
$rd.set_prompt(PROMPT)
|
100
|
+
begin
|
101
|
+
if $input.nil?
|
102
|
+
# no source file to read from
|
103
|
+
l = $rd.readline
|
104
|
+
else
|
105
|
+
# source file has still data
|
106
|
+
l = $input.gets
|
107
|
+
if l.nil?
|
108
|
+
$input = nil
|
109
|
+
next
|
110
|
+
end
|
111
|
+
end
|
112
|
+
|
113
|
+
next if l.strip.empty?
|
114
|
+
l = l.chomp + "\n"
|
115
|
+
line << l
|
116
|
+
|
117
|
+
puts $file + INPUT + l unless $input.nil?
|
118
|
+
$rd.set_prompt(PROMPT_CONT)
|
119
|
+
end until complete?(line)
|
120
|
+
|
121
|
+
return line.strip
|
122
|
+
end
|
123
|
+
|
124
|
+
private
|
125
|
+
|
126
|
+
def complete?(line)
|
127
|
+
line =~ /^\s*\\/ or (tokens(line).last || "") =~ /;\s*$/
|
128
|
+
end
|
129
|
+
end
|
130
|
+
|
131
|
+
class Actions
|
132
|
+
ACTIONS = [
|
133
|
+
[ /^\\q(uit)?\s*$/i, :quit ],
|
134
|
+
[ /^\\h(elp)?\s*$/i, :help ],
|
135
|
+
[ /^\\t(ables)?/i, :tables ],
|
136
|
+
[ /^\\dt/i, :describeTable ],
|
137
|
+
[ /^\\s(elect)?/i, :select ],
|
138
|
+
|
139
|
+
[ /^\\rb/i, :ruby ],
|
140
|
+
[ /^\\irb/i, :irb ],
|
141
|
+
|
142
|
+
[ /^\\c(ommit)?\s*$/i, :commit ],
|
143
|
+
[ /^\\r(ollback)?\s*$/i, :rollback ],
|
144
|
+
[ /^\\a(utocommit)?(\s+(on|off)?)?\s*$/i, :autocommit ],
|
145
|
+
[ /^\\i(nput)?/i, :input ],
|
146
|
+
[ /^\\o(utput)?/i, :output ],
|
147
|
+
[ /^\\pl/i, :pageLength ],
|
148
|
+
[ /^\\p/i, :togglePaging ],
|
149
|
+
|
150
|
+
[ //, :unknownCommand ]
|
151
|
+
]
|
152
|
+
|
153
|
+
def dispatchCommand(line)
|
154
|
+
ACTIONS.each do |regexp, action|
|
155
|
+
if line =~ regexp then
|
156
|
+
send(action, $~)
|
157
|
+
return
|
158
|
+
end
|
159
|
+
end
|
160
|
+
end
|
161
|
+
|
162
|
+
def quit(match)
|
163
|
+
puts
|
164
|
+
puts "BYE"
|
165
|
+
puts
|
166
|
+
|
167
|
+
begin
|
168
|
+
Conn.disconnect
|
169
|
+
rescue DBI::Error => err
|
170
|
+
puts
|
171
|
+
puts err.message
|
172
|
+
p err.backtrace if $DEBUG
|
173
|
+
puts
|
174
|
+
end
|
175
|
+
|
176
|
+
exit
|
177
|
+
end
|
178
|
+
|
179
|
+
def help(match)
|
180
|
+
head = %w(Function Description)
|
181
|
+
rows = [
|
182
|
+
["\\h[elp]", "Display this help screen"],
|
183
|
+
["", ""],
|
184
|
+
|
185
|
+
["\\t[ables]", "Display all available tables"],
|
186
|
+
["\\dt table", "Describe columns of 'table'"],
|
187
|
+
["\\s[elect] table", "short for SELECT * FROM 'table'"],
|
188
|
+
|
189
|
+
["", ""],
|
190
|
+
["\\c[ommit]", "Commits the current transaction"],
|
191
|
+
["\\r[ollback]", "Rolls back the current transaction"],
|
192
|
+
["\\a[utocommit]", "Show current autocommit mode"],
|
193
|
+
["\\a[utocommit] on|off", "Switch autocommit mode on/off"],
|
194
|
+
["", ""],
|
195
|
+
|
196
|
+
["\\i[nput] filename", "Read and execute lines from 'filename'"],
|
197
|
+
["\\o[utput]", "Disable output"],
|
198
|
+
["\\o[utput] filename", "Store SQL statments the user inputs into 'filename'"],
|
199
|
+
["", ""],
|
200
|
+
|
201
|
+
["\\pl n", "Set page length to 'n'"],
|
202
|
+
["\\p", "Toggle paging"],
|
203
|
+
["", ""],
|
204
|
+
["\\rb ...", "Execute the rest of the line as Ruby sourcecode"],
|
205
|
+
["\\irb", "Execute irb within this context"],
|
206
|
+
|
207
|
+
["", ""],
|
208
|
+
|
209
|
+
["\\q[uit]", "Quit this program"]
|
210
|
+
]
|
211
|
+
|
212
|
+
puts
|
213
|
+
puts "Help: "
|
214
|
+
output_table(head, rows)
|
215
|
+
puts
|
216
|
+
end
|
217
|
+
|
218
|
+
def tables(match)
|
219
|
+
head = ["Table name"]
|
220
|
+
rows = Conn.tables.collect {|name| [name]}
|
221
|
+
|
222
|
+
puts
|
223
|
+
puts "Tables: "
|
224
|
+
output_table(head, rows)
|
225
|
+
puts
|
226
|
+
end
|
227
|
+
|
228
|
+
def describeTable(match)
|
229
|
+
table = match.post_match.strip
|
230
|
+
|
231
|
+
head = %w(name type_name precision scale default nullable indexed primary unique)
|
232
|
+
|
233
|
+
rows = Conn.columns(table).collect {|col| head.collect{|a| col[a]} }
|
234
|
+
|
235
|
+
puts
|
236
|
+
puts "Table '#{table}': "
|
237
|
+
output_table(head, rows)
|
238
|
+
puts
|
239
|
+
end
|
240
|
+
|
241
|
+
def select(match)
|
242
|
+
executeSQL("SELECT * FROM #{match.post_match};")
|
243
|
+
end
|
244
|
+
|
245
|
+
def commit(match)
|
246
|
+
Conn.commit
|
247
|
+
puts
|
248
|
+
puts "COMMIT"
|
249
|
+
puts
|
250
|
+
end
|
251
|
+
|
252
|
+
def rollback(match)
|
253
|
+
Conn.rollback
|
254
|
+
puts
|
255
|
+
puts "ROLLBACK"
|
256
|
+
puts
|
257
|
+
end
|
258
|
+
|
259
|
+
def autocommit(match)
|
260
|
+
mode = match[3]
|
261
|
+
if mode =~ /on/i
|
262
|
+
Conn['AutoCommit'] = true
|
263
|
+
puts
|
264
|
+
puts "AUTOCOMMIT IS NOW ON"
|
265
|
+
puts
|
266
|
+
elsif mode =~ /off/i
|
267
|
+
Conn['AutoCommit'] = false
|
268
|
+
puts
|
269
|
+
puts "AUTOCOMMIT IS NOW OFF"
|
270
|
+
puts
|
271
|
+
else
|
272
|
+
puts
|
273
|
+
if Conn['AutoCommit'] == true
|
274
|
+
puts "AUTOCOMMIT is currently switched ON"
|
275
|
+
elsif Conn['AutoCommit'] == false
|
276
|
+
puts "AUTOCOMMIT is currently switched OFF"
|
277
|
+
else
|
278
|
+
puts "AUTOCOMMIT is in unknown state"
|
279
|
+
end
|
280
|
+
puts
|
281
|
+
end
|
282
|
+
end
|
283
|
+
|
284
|
+
def input(match)
|
285
|
+
puts
|
286
|
+
$file = match.post_match.strip
|
287
|
+
|
288
|
+
begin
|
289
|
+
$input = File.open($file)
|
290
|
+
puts "EXECUTE file #{$file}"
|
291
|
+
puts
|
292
|
+
rescue
|
293
|
+
puts "Couldn't read from file #{$file}"
|
294
|
+
puts
|
295
|
+
end
|
296
|
+
end
|
297
|
+
|
298
|
+
def output(match)
|
299
|
+
puts
|
300
|
+
file = match.post_match.strip
|
301
|
+
|
302
|
+
if file.empty?
|
303
|
+
$output.close if $output
|
304
|
+
$output = nil
|
305
|
+
puts "Disabled OUTPUT"
|
306
|
+
puts
|
307
|
+
else
|
308
|
+
begin
|
309
|
+
$output = File.new(file, "w+")
|
310
|
+
puts "Set OUTPUT to file #{file}"
|
311
|
+
puts
|
312
|
+
rescue
|
313
|
+
puts "Couldn't set OUTPUT to file #{file}"
|
314
|
+
puts
|
315
|
+
end
|
316
|
+
end
|
317
|
+
end
|
318
|
+
|
319
|
+
def togglePaging(match)
|
320
|
+
$paging = !$paging
|
321
|
+
|
322
|
+
puts "Paging is now " + ($paging ? "on" : "off") + "."
|
323
|
+
end
|
324
|
+
|
325
|
+
def pageLength(match)
|
326
|
+
puts
|
327
|
+
$page_len = match.post_match.strip.to_i
|
328
|
+
$page_len = DEFAULT_PAGE_LENGTH if $page_len <= 0
|
329
|
+
|
330
|
+
puts "New page length is #{$page_len}."
|
331
|
+
puts
|
332
|
+
end
|
333
|
+
|
334
|
+
def irb(match)
|
335
|
+
Readline.completion_proc = $irb_completion
|
336
|
+
puts
|
337
|
+
puts "================================== IRB ==============================="
|
338
|
+
begin
|
339
|
+
IRB.start
|
340
|
+
rescue SystemExit
|
341
|
+
end
|
342
|
+
puts "======================================================================"
|
343
|
+
$rd.initCompletion
|
344
|
+
end
|
345
|
+
|
346
|
+
def ruby(match)
|
347
|
+
puts
|
348
|
+
eval match.post_match
|
349
|
+
puts
|
350
|
+
end
|
351
|
+
|
352
|
+
def unknownCommand(match)
|
353
|
+
puts
|
354
|
+
puts "Unknown command!"
|
355
|
+
puts
|
356
|
+
end
|
357
|
+
|
358
|
+
end
|
359
|
+
|
360
|
+
def output_table(header, rows)
|
361
|
+
DBI::Utils::TableFormatter.ascii(header, rows, nil, nil, nil, nil, $page_len) do
|
362
|
+
if $paging
|
363
|
+
print "[enter to continue, a to abort]"
|
364
|
+
break if $stdin.readline.chomp.downcase == "a"
|
365
|
+
end
|
366
|
+
end
|
367
|
+
end
|
368
|
+
|
369
|
+
def executeSQL(sql)
|
370
|
+
sql = $` if sql =~ /;\s*$/
|
371
|
+
|
372
|
+
start = ::Time.now
|
373
|
+
stmt = Conn.execute(sql)
|
374
|
+
|
375
|
+
head = stmt.column_names
|
376
|
+
|
377
|
+
# DDL, DCL
|
378
|
+
if head.empty?
|
379
|
+
puts
|
380
|
+
nr = stmt.rows
|
381
|
+
if nr == 0
|
382
|
+
puts " No rows affected"
|
383
|
+
elsif nr == 1
|
384
|
+
puts " 1 row affected"
|
385
|
+
else
|
386
|
+
puts " #{nr} rows affected"
|
387
|
+
end
|
388
|
+
puts
|
389
|
+
else
|
390
|
+
rows = stmt.fetch_all
|
391
|
+
tm = ::Time.now - start
|
392
|
+
|
393
|
+
puts
|
394
|
+
output_table(head, rows || [])
|
395
|
+
print " "
|
396
|
+
if rows.nil?
|
397
|
+
print "No rows in set"
|
398
|
+
elsif rows.size == 1
|
399
|
+
print "1 row in set"
|
400
|
+
else
|
401
|
+
print "#{rows.size} rows in set"
|
402
|
+
end
|
403
|
+
|
404
|
+
puts " (#{(tm.to_f*1000).to_i / 1000.0} sec)"
|
405
|
+
puts
|
406
|
+
end
|
407
|
+
|
408
|
+
$rd.keywords = SQL_KEYWORDS + Conn.tables
|
409
|
+
end
|
410
|
+
|
411
|
+
DEFAULT_PAGE_LENGTH = 37
|
412
|
+
|
413
|
+
$output = nil
|
414
|
+
$input = nil
|
415
|
+
$page_len = DEFAULT_PAGE_LENGTH
|
416
|
+
PROMPT = "dbi => "
|
417
|
+
PROMPT_CONT = "dbi -> "
|
418
|
+
INPUT = " >> "
|
419
|
+
|
420
|
+
SQL_KEYWORDS = %w(
|
421
|
+
INSERT DELETE UPDATE SELECT FROM WHERE IN LIKE SET VALUES INTO
|
422
|
+
CREATE TABLE DROP
|
423
|
+
COMMIT ROLLBACK
|
424
|
+
CHAR VARCHAR VARCHAR2 INT INTEGER NUMBER FLOAT REAL LONG CLOB BLOB DECIMAL
|
425
|
+
DBCLOB DBBLOB
|
426
|
+
)
|
427
|
+
|
428
|
+
# ---------------------------------------------------------------------------
|
429
|
+
|
430
|
+
opts = GetoptLong.new(
|
431
|
+
["--file", "-f", GetoptLong::REQUIRED_ARGUMENT ]
|
432
|
+
)
|
433
|
+
opts.each do |opt, arg|
|
434
|
+
case opt
|
435
|
+
when "--file"
|
436
|
+
$input_file_name = arg
|
437
|
+
end
|
438
|
+
end
|
439
|
+
|
440
|
+
if ARGV.size < 1 or ARGV.size > 3
|
441
|
+
puts
|
442
|
+
puts "USAGE: #{$0} [--file file] driver_url [user [password] ]"
|
443
|
+
puts
|
444
|
+
|
445
|
+
puts "Available driver and datasources:"
|
446
|
+
puts
|
447
|
+
for driver in DBI.available_drivers do
|
448
|
+
puts driver
|
449
|
+
begin
|
450
|
+
ds = DBI.data_sources(driver)
|
451
|
+
for datasource in ds
|
452
|
+
puts " " + datasource
|
453
|
+
end
|
454
|
+
rescue => err
|
455
|
+
end
|
456
|
+
puts
|
457
|
+
end
|
458
|
+
puts
|
459
|
+
|
460
|
+
exit 1
|
461
|
+
else
|
462
|
+
DRIVER_URL = ARGV.shift
|
463
|
+
USER = ARGV.shift
|
464
|
+
PASS = ARGV.shift
|
465
|
+
end
|
466
|
+
|
467
|
+
puts
|
468
|
+
begin
|
469
|
+
Conn = DBI.connect(DRIVER_URL, USER, PASS)
|
470
|
+
print "CONNECT TO #{DRIVER_URL} "
|
471
|
+
print "USER #{USER} " unless USER.nil?
|
472
|
+
print "PASS #{PASS} " unless PASS.nil?
|
473
|
+
print "\n"
|
474
|
+
|
475
|
+
rescue DBI::Error, DBI::Warning => err
|
476
|
+
p err
|
477
|
+
exit
|
478
|
+
end
|
479
|
+
|
480
|
+
puts
|
481
|
+
|
482
|
+
$rd = ReadlineControl.new
|
483
|
+
$rd.keywords = SQL_KEYWORDS + Conn.tables
|
484
|
+
|
485
|
+
cmd = Command.new
|
486
|
+
act = Actions.new
|
487
|
+
|
488
|
+
# --file option
|
489
|
+
if $input_file_name
|
490
|
+
def $input_file_name.post_match
|
491
|
+
$input_file_name
|
492
|
+
end
|
493
|
+
act.input($input_file_name)
|
494
|
+
end
|
495
|
+
|
496
|
+
# Main-Loop -----------------------------------
|
497
|
+
|
498
|
+
loop do
|
499
|
+
line = cmd.readCommand
|
500
|
+
|
501
|
+
$output.puts line unless $output.nil?
|
502
|
+
|
503
|
+
begin
|
504
|
+
if line =~ /^\\/ then
|
505
|
+
# Internal Command
|
506
|
+
act.dispatchCommand(line)
|
507
|
+
else
|
508
|
+
# SQL Command
|
509
|
+
executeSQL(line)
|
510
|
+
end
|
511
|
+
rescue DBI::Error => err
|
512
|
+
puts
|
513
|
+
puts err.message
|
514
|
+
p err.backtrace if $DEBUG
|
515
|
+
puts
|
516
|
+
end
|
517
|
+
end
|
518
|
+
|