X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FSybase%2FMicrosoft_SQL_Server.pm;h=12dfa5b91e35eb2c1dd883708e980cbe0d5e9bae;hb=052a832c5f6fe0f82a4db48e176525f700c44159;hp=0173facf619dcd62ab8654eb93b386477913fb6b;hpb=918ab8aed49581928f45573c1e14e1264031b1f2;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm b/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm index 0173fac..12dfa5b 100644 --- a/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm +++ b/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm @@ -9,13 +9,55 @@ use base qw/ /; use mro 'c3'; +use DBIx::Class::Carp; +use namespace::clean; + +=head1 NAME + +DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Support for Microsoft +SQL Server via DBD::Sybase + +=head1 SYNOPSIS + +This subclass supports MSSQL server connections via L. + +=head1 DESCRIPTION + +This driver tries to determine whether your version of L and +supporting libraries (usually FreeTDS) support using placeholders, if not the +storage will be reblessed to +L. + +The MSSQL specific functionality is provided by +L. + +=head1 METHODS + +=cut + +__PACKAGE__->datetime_parser_type( + 'DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::DateTime::Format' +); + sub _rebless { my $self = shift; my $dbh = $self->_get_dbh; return if ref $self ne __PACKAGE__; + if (not $self->_use_typeless_placeholders) { + carp_once <<'EOF' unless $ENV{DBIC_MSSQL_FREETDS_LOWVER_NOWARN}; +Placeholders do not seem to be supported in your configuration of +DBD::Sybase/FreeTDS. - if (not $self->_typeless_placeholders_supported) { +This means you are taking a large performance hit, as caching of prepared +statements is disabled. + +Make sure to configure your server with "tds version" of 8.0 or 7.0 in +/etc/freetds/freetds.conf . + +To turn off this warning, set the DBIC_MSSQL_FREETDS_LOWVER_NOWARN environment +variable. +EOF require DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars; bless $self, @@ -24,57 +66,112 @@ sub _rebless { } } -sub _run_connection_actions { +sub _init { my $self = shift; - # LongReadLen doesn't work with MSSQL through DBD::Sybase, and the default is - # huge on some versions of SQL server and can cause memory problems, so we - # fix it up here (see ::DBI::Sybase.pm) - $self->set_textsize; - $self->next::method(@_); + + # work around massively broken freetds versions after 0.82 + # - explicitly no scope_identity + # - no sth caching + # + # warn about the fact as well, do not provide a mechanism to shut it up + if ($self->_using_freetds and (my $ver = $self->_using_freetds_version||999) > 0.82) { + carp_once( + "Your DBD::Sybase was compiled against buggy FreeTDS version $ver. " + . 'Statement caching does not work and will be disabled.' + ); + + $self->_identity_method('@@identity'); + $self->_no_scope_identity_query(1); + $self->disable_sth_caching(1); + } } -sub _dbh_begin_work { - my $self = shift; +# invoked only if DBD::Sybase is compiled against FreeTDS +sub _set_autocommit_stmt { + my ($self, $on) = @_; - $self->_get_dbh->do('BEGIN TRAN'); + return 'SET IMPLICIT_TRANSACTIONS ' . ($on ? 'OFF' : 'ON'); } -sub _dbh_commit { +sub _get_server_version { my $self = shift; - my $dbh = $self->_dbh - or $self->throw_exception('cannot COMMIT on a disconnected handle'); - $dbh->do('COMMIT'); + + my $product_version = $self->_get_dbh->selectrow_hashref('master.dbo.xp_msver ProductVersion'); + + if ((my $version = $product_version->{Character_Value}) =~ /^(\d+)\./) { + return $version; + } + else { + $self->throw_exception( + "MSSQL Version Retrieval Failed, Your ProductVersion's Character_Value is missing or malformed!" + ); + } } -sub _dbh_rollback { +=head2 connect_call_datetime_setup + +Used as: + + on_connect_call => 'datetime_setup' + +In L to set: + + $dbh->syb_date_fmt('ISO_strict'); # output fmt: 2004-08-21T14:36:48.080Z + +On connection for use with L + +This works for both C and C columns, although +C columns only have minute precision. + +=cut + +sub connect_call_datetime_setup { my $self = shift; - my $dbh = $self->_dbh - or $self->throw_exception('cannot ROLLBACK on a disconnected handle'); - $dbh->do('ROLLBACK'); + my $dbh = $self->_get_dbh; + + if ($dbh->can('syb_date_fmt')) { + # amazingly, this works with FreeTDS + $dbh->syb_date_fmt('ISO_strict'); + } + else{ + carp_once + 'Your DBD::Sybase is too old to support ' + . 'DBIx::Class::InflateColumn::DateTime, please upgrade!'; + } } -1; -=head1 NAME +package # hide from PAUSE + DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::DateTime::Format; -DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Support for Microsoft -SQL Server via DBD::Sybase - -=head1 SYNOPSIS +my $datetime_parse_format = '%Y-%m-%dT%H:%M:%S.%3NZ'; +my $datetime_format_format = '%Y-%m-%d %H:%M:%S.%3N'; # %F %T -This subclass supports MSSQL server connections via L. +my ($datetime_parser, $datetime_formatter); -=head1 DESCRIPTION +sub parse_datetime { + shift; + require DateTime::Format::Strptime; + $datetime_parser ||= DateTime::Format::Strptime->new( + pattern => $datetime_parse_format, + on_error => 'croak', + ); + return $datetime_parser->parse_datetime(shift); +} -This driver tries to determine whether your version of L and -supporting libraries (usually FreeTDS) support using placeholders, if not the -storage will be reblessed to -L. +sub format_datetime { + shift; + require DateTime::Format::Strptime; + $datetime_formatter ||= DateTime::Format::Strptime->new( + pattern => $datetime_format_format, + on_error => 'croak', + ); + return $datetime_formatter->format_datetime(shift); +} -The MSSQL specific functionality is provided by -L. +1; =head1 AUTHOR