ANNOUNCE: DDL::Oracle v1.08

From: Richard Sutherland <rvsutherland_at_yahoo.com>
Date: Tue, 10 Apr 2001 19:55:39 -0400
Message-ID: <td779gtnhjl171@corp.supernews.com>

---

                   Release of DDL::Oracle, Version 1.08
===========================================================================

CHANGES Fixed bug #412795 submitted by Henrik Johnson, wherein COMMENTs were misplaced in the CREATE TABLE for partitioned IOTs. THANKS, Henrik!

Fixed bug #412878 also submitted by Henrik Johnson, wherein the 'create' method for type 'table family' was redundantly creating the Primary Key index and constraint. THANKS again, Henrik!

Fixed bug #413996 again submitted by Henrik Johnson, wherein partitioned IOTs might use incorrect attributes in the CREATE TABLE if a secondary index exists on the table. THANKS yet again, Henrik! [Henrik is now designated the "Official IOT Dude" of DDL::Oracle.]

Upgraded CREATE PROFILE to be functional for Oracle7. This bug was reported by Leon Stern. THANKS, Leon!

SYNOPSIS  use DBI;
 use DDL::Oracle;

 my $dbh = DBI->connect(

                         "dbi:Oracle:dbname",
                         "username",
                         "password",
                         {
                           PrintError => 0,
                           RaiseError => 1,
                         }
                       );

# Use default resize and schema options.
# query default DBA_xxx tables (could use USER_xxx for non-DBA types)

::Oracle->configure(

                         dbh    => $dbh,
                       );

# Create a list of one or more objects

 my $sth = $dbh->prepare(

        "SELECT
                owner
              , table_name
         FROM
                dba_tables
         WHERE
                tablespace_name = 'MY_TBLSP'    -- your mileage may vary
        "
     );

 $sth->execute;
 my $list = $sth->fetchall_arrayref;

 my $obj = DDL::Oracle->new(

                             type  => 'table',
                             list  => $list,                          );
                      
     );

 my $ddl = $obj->create;      # or $obj->resize;  or $obj->drop;  etc.

 print $ddl; # Use STDOUT so user can redirect to desired file.

# Here's another example, this time for type 'components'. This type
# differs from the norm, because it has no owner and no name.

 my $obj = DDL::Oracle->new(

                             type => 'components',
                             list => [[ 'no owner','no name' ]]
                           );

 my $ddl = $obj->create;

 print $ddl;

AUTHOR Richard V. Sutherland
rvsutherland_at_yahoo.com

COPYRIGHT Copyright (c) 2000, 2001 Richard V. Sutherland. All rights reserved. This module is free software. It may be used, redistributed, and/or modified under the same terms as Perl itself. See:

    http://www.perl.com/perl/misc/Artistic.html

---

                       AVAILABILITY
===========================================================================

DDL::Oracle is available from the CPAN, and from:

    http://sourceforge.net/projects/ddl-oracle/ Received on Tue Apr 10 2001 - 18:55:39 CDT