ANNOUNCE: DDL::Oracle v1.09

From: Richard Sutherland <rvsutherland_at_yahoo.com>
Date: Sun, 29 Apr 2001 07:14:03 -0400
Message-ID: <tentos2umveg06@corp.supernews.com>

---

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

CHANGES Added type 'schema', which generates the DDL for a named schema(s) for the following object types in the sequence listed:

  TYPE
  TABLE
  INDEX
  CONSTRAINT
  SEQUENCE
  TRIGGER
  VIEW
  SNAPSHOT LOG
  SNAPSHOT
  SYNONYM
  DATABASE LINK
  FUNCTION
  PROCEDURE
  PACKAGE
  PACKAGE BODY Upgraded CREATE SNAPSHOT to work properly on Oracle versions pre-8i.

Fixed bug #414510 submitted by Henrik Johnson wherein the CREATE TABLE for IOT's was missing the sometime-required OVERFLOW clause. THANKS, Henrik!

Fixed defrag.pl to work on Windows [I think].

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 d esired 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 Sun Apr 29 2001 - 06:14:03 CDT