From: "Richard Sutherland" <rvsutherland@yahoo.com>
Newsgroups: comp.databases.oracle.server
Subject: ANNOUNCE:  DDL::Oracle v1.04
Date: Sat, 3 Mar 2001 15:03:13 -0500
Organization: Posted via Supernews, http://www.supernews.com
Message-ID: <ta2iv4l5rim77@corp.supernews.com>
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
X-Complaints-To: newsabuse@supernews.com
Lines: 92


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

CHANGES

DDL::Oracle now facilitates use by users without SELECT privileges on V$
views by adding attributes to the 'configure' method.  By setting the
'heading' attribute to "0" and supplying values for 'blksize' and 'version'
attributes, a non-privileged user will bypass the queries to V$DATABASE,
V$PARAMETER and V$VERSION, respectively.

Also fixed bug #404429, identified and fixed by Martin Drautzburg.
THANKS, Martin!

DESCRIPTION

Designed for Oracle DBA's and users, for Oracle versions 7.3, 8.0
and 8i.  Reverse engineers database objects (tables, indexes, users,
profiles, tablespaces, roles, constraints, etc.).  Generates DDL to
*resize* tables and indexes to the provided standard or to a user
defined standard.  Can reorganize/defragment tablespaces.

SYNOPSIS

use DBI;
use DDL::Oracle;

my $dbh = DBI->connect(
                        "dbi:Oracle:dbname",
                        "username",
                        "password",
                        {
                         PrintError => 0,
                         RaiseError => 1
                        }
                      );

# Use default resizing and schema options.
# query default DBA_xxx tables (could use USER_xxx for non-DBA types)
DDL::Oracle->configure( 
                        dbh    => $dbh,
                      );

# Create a list of one or more objects
my $sth = $dbh->prepare(
       "SELECT
               owner
             , name
        FROM
               dba_tables
        WHERE
               tablespace_name = 'MY_TBLSP'    -- your millage 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.

AUTHOR

Richard V. Sutherland
rvsutherland@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/