← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libapache2-mod-rivet/trusty

« back to all changes in this revision

Viewing changes to rivet/packages/dio/dio_Mysql.tcl

  • Committer: Package Import Robot
  • Author(s): Massimo Manghi
  • Date: 2013-10-02 11:44:17 UTC
  • mfrom: (1.1.7)
  • Revision ID: package-import@ubuntu.com-20131002114417-aimbnyf22r39iv39
Tags: 2.1.3-1
* New upstream code 2.1.3 
* Removed package dh-apache2 from Build-Depends
* Undone patch removing distclean target from doc/Makefile.am

Show diffs side-by-side

added added

removed removed

Lines of Context:
rivet/packages/dio/dio_Mysql.tcl
14
14
# See the License for the specific language governing permissions and
15
15
# limitations under the License.
16
16
 
17
 
# $Id: dio_Mysql.tcl 1372342 2012-08-13 09:35:09Z mxmanghi $
 
17
# $Id: dio_Mysql.tcl 1523244 2013-09-14 14:05:00Z mxmanghi $
18
18
 
19
19
package provide dio_Mysql 0.2
20
20
 
72
72
#           select is a 6 characters word, so let's see if the query is a select
73
73
#
74
74
            set q [::string trim $req]
75
 
            set q [::string tolower $q]
76
 
            set q [::string range $q 0 5]
77
 
            if {[::string match select $q]} { set cmd mysqlsel }
 
75
 
 
76
#           set q [::string tolower $q]
 
77
#           set q [::string range $q 0 5]
 
78
#           if {[::string match select $q]} { set cmd mysqlsel }
 
79
 
 
80
            if {[regexp -nocase {^\(*\s*select\s+} $q]} { set cmd mysqlsel }
78
81
 
79
82
            set errorinfo ""
80
83
            if {[catch {$cmd $conn $req} error]} {