From 904ba3ff69e1402bc2042807fd1d37f8570bfea1 Mon Sep 17 00:00:00 2001
From: Bruce Momjian <bruce@momjian.us>
Date: Sun, 13 May 2001 02:10:00 +0000
Subject: [PATCH] Update to ora2pg 1.2.
---
contrib/oracle/CHANGES | 17 ++
contrib/oracle/Ora2Pg.pm | 420 +++++++++++++++++++++++----
contrib/oracle/README.ora2pg | 530 ++++++++++++++++++++---------------
contrib/oracle/TODO | 6 +
contrib/oracle/ora2pg.html | 522 +++++++++++++++++-----------------
contrib/oracle/ora2pg.pl | 8 +-
6 files changed, 949 insertions(+), 554 deletions(-)
create mode 100644 contrib/oracle/CHANGES
create mode 100644 contrib/oracle/TODO
diff --git a/contrib/oracle/CHANGES b/contrib/oracle/CHANGES
new file mode 100644
index 00000000000..fa5b848f2d8
--- /dev/null
+++ b/contrib/oracle/CHANGES
@@ -0,0 +1,17 @@
+2001 05 09 - Initial version 1.0
+
+2001 05 09 - Version 1.1
+ - Add table grant extraction based on group. Oracle ROLES are groups in PG
+
+2001 05 11 - Version 1.2
+ - Views extraction is now really done with the option type=>'VIEWS'
+ - Add indexes extraction on tables.
+ - Changes name of constraints, default is now used.
+ - Add debug printing to see that the process is running :-)
+ - Add extraction of only required tablename.
+ - Add extraction of only n to n table indice. Indices of extraction can be obtained
+ with the option showtableid set to 1.
+ - Fix print of NOT NULL field.
+ - Complete rewrite of the grant extraction
+ - Complete rewrite of most things
+
diff --git a/contrib/oracle/Ora2Pg.pm b/contrib/oracle/Ora2Pg.pm
index c7c99d8f268..95439b88f73 100644
--- a/contrib/oracle/Ora2Pg.pm
+++ b/contrib/oracle/Ora2Pg.pm
@@ -18,7 +18,7 @@ use vars qw($VERSION);
use Carp qw(confess);
use DBI;
-$VERSION = "1.1";
+$VERSION = "1.2";
=head1 NAME
@@ -53,6 +53,50 @@ Ora2Pg - Oracle to PostgreSQL database schema converter
exit(0);
+or if you only want to extract some tables:
+
+ # Create an instance of the Ora2Pg perl module
+ my @tables = ('tab1', 'tab2', 'tab3');
+ my $schema = new Ora2Pg (
+ datasource => $dbsrc, # Database DBD datasource
+ user => $dbuser, # Database user
+ password => $dbpwd, # Database password
+ tables => \@tables, # Tables to extract
+ debug => 1 # To show somethings when running
+ );
+
+or if you only want to extract the 10 first tables:
+
+ # Create an instance of the Ora2Pg perl module
+ my $schema = new Ora2Pg (
+ datasource => $dbsrc, # Database DBD datasource
+ user => $dbuser, # Database user
+ password => $dbpwd, # Database password
+ max => 10 # 10 first tables to extract
+ );
+
+or if you only want to extract tables 10 to 20:
+
+ # Create an instance of the Ora2Pg perl module
+ my $schema = new Ora2Pg (
+ datasource => $dbsrc, # Database DBD datasource
+ user => $dbuser, # Database user
+ password => $dbpwd, # Database password
+ min => 10 # Begin extraction at indice 10
+ max => 20 # End extraction at indice 20
+ );
+
+To know at which indices table can be found during extraction use the option:
+
+ showtableid => 1
+
+To extract all views set the option type as follow:
+
+ type => 'VIEW'
+
+Default is table schema extraction
+
+
=head1 DESCRIPTION
@@ -79,11 +123,13 @@ the connection parameters to the Oracle database.
Features must include:
- - database schema export (done)
- - grant export (done)
- - predefined function/trigger export (todo)
- - data export (todo)
- - sql query converter (todo)
+ - Database schema export, with unique, primary and foreign key.
+ - Grants/privileges export by user and group.
+ - Indexes and unique indexes export.
+ - Table or view selection (by name and max table) export.
+ - Predefined function/trigger export (todo)
+ - Data export (todo)
+ - Sql query converter (todo)
My knowledge regarding database is really poor especially for Oracle
so contribution is welcome.
@@ -94,6 +140,7 @@ so contribution is welcome.
You just need the DBI and DBD::Oracle perl module to be installed
+
=head1 PUBLIC METHODS
=head2 new HASH_OPTIONS
@@ -105,6 +152,12 @@ Supported options are:
- datasource : DBD datasource (required)
- user : DBD user (optional with public access)
- password : DBD password (optional with public access)
+ - type : Type of data to extract, can be TABLE (default) or VIEW
+ - debug : Print the current state of the parsing
+ - tables : Extract only the given tables (arrayref)
+ - showtableid : Display only the table indice during extraction
+ - min : Indice to begin extraction. Default to 0
+ - max : Indice to end extraction. Default to 0 mean no limits
Attempt that this list should grow a little more because all initialization is
done by this way.
@@ -174,8 +227,31 @@ sub _init
die "Error : $DBI::err ... $DBI::errstr\n";
}
+ $self->{debug} = 0;
+ $self->{debug} = 1 if ($options{debug});
+
+ $self->{limited} = ();
+ $self->{limited} = $options{tables} if ($options{tables});
+
+ $self->{min} = 0;
+ $self->{min} = $options{min} if ($options{min});
+
+ $self->{max} = 0;
+ $self->{max} = $options{max} if ($options{max});
+
+ $self->{showtableid} = 0;
+ $self->{showtableid} = $options{showtableid} if ($options{showtableid});
+
+ $self->{dbh}->{LongReadLen} = 0;
+ #$self->{dbh}->{LongTrunkOk} = 1;
+
# Retreive all table informations
- $self->_tables();
+ if (!exists $options{type} || ($options{type} eq 'TABLE')) {
+ $self->_tables();
+ } else {
+ $self->{dbh}->{LongReadLen} = 100000;
+ $self->_views();
+ }
# Disconnect from the database
$self->{dbh}->disconnect() if ($self->{dbh});
@@ -199,8 +275,9 @@ to the table_info key as array reference. In other way:
$self->{tables}{$class_name}{table_info} = [(OWNER,TYPE)];
-TYPE Can be TABLE, VIEW, SYSTEM TABLE, GLOBAL TEMPORARY, LOCAL TEMPORARY,
-ALIAS, SYNONYM or a data source specific type identifier.
+DBI TYPE can be TABLE, VIEW, SYSTEM TABLE, GLOBAL TEMPORARY, LOCAL TEMPORARY,
+ALIAS, SYNONYM or a data source specific type identifier. This only extract
+TABLE type.
It also get the following informations in the DBI object to affect the
main hash of the database structure :
@@ -223,23 +300,46 @@ sub _tables
my ($self) = @_;
# Get all tables information given by the DBI method table_info
+print STDERR "Retrieving table information...\n" if ($self->{debug});
my $sth = $self->{dbh}->table_info or die $self->{dbh}->errstr;
my @tables_infos = $sth->fetchall_arrayref();
+ if ($self->{showtableid}) {
+ foreach my $table (@tables_infos) {
+ for (my $i=0; $i<=$#{$table};$i++) {
+ print STDERR "[", $i+1, "] ${$table}[$i]->[2]\n";
+ }
+ }
+ return;
+ }
+
foreach my $table (@tables_infos) {
# Set the table information for each class found
+ my $i = 1;
+print STDERR "Min table dump set to $self->{min}.\n" if ($self->{debug} && $self->{min});
+print STDERR "Max table dump set to $self->{max}.\n" if ($self->{debug} && $self->{max});
foreach my $t (@$table) {
- # usually OWNER,TYPE. QUALIFIER is omitted until
- # I know what to do with that
+ # Jump to desired extraction
+ next if (${@$t}[2] =~ /\$/);
+ $i++, next if ($self->{min} && ($i < $self->{min}));
+ last if ($self->{max} && ($i > $self->{max}));
+ next if (($#{$self->{limited}} >= 0) && !grep(/^${@$t}[2]$/, @{$self->{limited}}));
+print STDERR "[$i] " if ($self->{max} || $self->{min});
+print STDERR "Scanning ${@$t}[2] (@$t)...\n" if ($self->{debug});
+
+ # Check of uniqueness of the table
+ if (exists $self->{tables}{${@$t}[2]}{field_name}) {
+ print STDERR "Warning duplicate table ${@$t}[2], SYNONYME ? Skipped.\n";
+ next;
+ }
+
+ # usually OWNER,TYPE. QUALIFIER is omitted until I know what to do with that
$self->{tables}{${@$t}[2]}{table_info} = [(${@$t}[1],${@$t}[3])];
# Set the fields information
my $sth = $self->{dbh}->prepare("SELECT * FROM ${@$t}[1].${@$t}[2] WHERE 1=0");
if (!defined($sth)) {
- $sth = $self->{dbh}->prepare("SELECT * FROM ${@$t}[1].${@$t}[2] WHERE 1=0");
- if (!defined($sth)) {
- warn "Can't prepare statement: $DBI::errstr";
- next;
- }
+ warn "Can't prepare statement: $DBI::errstr";
+ next;
}
$sth->execute;
if ($sth->err) {
@@ -253,10 +353,67 @@ sub _tables
@{$self->{tables}{${@$t}[2]}{primary_key}} = &_primary_key($self, ${@$t}[2]);
@{$self->{tables}{${@$t}[2]}{unique_key}} = &_unique_key($self, ${@$t}[2]);
@{$self->{tables}{${@$t}[2]}{foreign_key}} = &_foreign_key($self, ${@$t}[2]);
+ ($self->{tables}{${@$t}[2]}{uniqueness}, $self->{tables}{${@$t}[2]}{indexes}) = &_get_indexes($self, ${@$t}[2]);
+ $self->{tables}{${@$t}[2]}{grants} = &_get_table_privilege($self, ${@$t}[2]);
+ $i++;
}
}
- ($self->{groups}, $self->{grants}) = &_get_privilege($self);
+print STDERR "Retrieving groups/users information...\n" if ($self->{debug});
+ $self->{groups} = &_get_roles($self);
+
+}
+
+
+=head2 _views
+
+This function is used to retrieve all views information.
+
+Set the main hash of the views definition $self->{views}.
+Keys are the names of all views retrieved from the current
+database values are the text definition of the views.
+
+It then set the main hash as follow:
+
+ # Definition of the view
+ $self->{views}{$table}{text} = $view_infos{$table};
+ # Grants defined on the views
+ $self->{views}{$table}{grants} = when I find how...
+
+=cut
+
+sub _views
+{
+ my ($self) = @_;
+
+ # Get all views information
+print STDERR "Retrieving views information...\n" if ($self->{debug});
+ my %view_infos = &_get_views($self);
+
+ if ($self->{showtableid}) {
+ my $i = 1;
+ foreach my $table (sort keys %view_infos) {
+ print STDERR "[$i] $table\n";
+ $i++;
+ }
+ return;
+ }
+
+print STDERR "Min view dump set to $self->{min}.\n" if ($self->{debug} && $self->{min});
+print STDERR "Max view dump set to $self->{max}.\n" if ($self->{debug} && $self->{max});
+ my $i = 1;
+ foreach my $table (sort keys %view_infos) {
+ # Set the table information for each class found
+ # Jump to desired extraction
+ next if ($table =~ /\$/);
+ $i++, next if ($self->{min} && ($i < $self->{min}));
+ last if ($self->{max} && ($i > $self->{max}));
+ next if (($#{$self->{limited}} >= 0) && !grep(/^$table$/, @{$self->{limited}}));
+print STDERR "[$i] " if ($self->{max} || $self->{min});
+print STDERR "Scanning $table...\n" if ($self->{debug});
+ $self->{views}{$table}{text} = $view_infos{$table};
+ $i++;
+ }
}
@@ -271,12 +428,29 @@ sub _get_sql_data
{
my ($self) = @_;
- my $sql_output = "-- Generated by Ora2Pg, the Oracle database Schema converter, version $VERSION\n";
- $sql_output .= "-- Copyright 2000 Gilles DAROLD. All rights reserved.\n";
- $sql_output .= "-- Author : <gilles\@darold.net>\n\n";
+ my $sql_header = "-- Generated by Ora2Pg, the Oracle database Schema converter, version $VERSION\n";
+ $sql_header .= "-- Copyright 2000 Gilles DAROLD. All rights reserved.\n";
+ $sql_header .= "--\n";
+ $sql_header .= "-- This program is free software; you can redistribute it and/or modify it under\n";
+ $sql_header .= "-- the same terms as Perl itself.\n\n";
+
+ my $sql_output = "";
+
+ # Process view only
+ if (exists $self->{views}) {
+ foreach my $view (sort keys %{$self->{views}}) {
+ $sql_output .= "CREATE VIEW $view AS $self->{views}{$view}{text};\n";
+ }
+ $sql_output .= "\n";
+
+ return $sql_header . $sql_output;
+ }
+ my @groups = ();
+ my @users = ();
# Dump the database structure as an XML Schema defintion
foreach my $table (keys %{$self->{tables}}) {
+print STDERR "Dumping table $table...\n" if ($self->{debug});
# Can be: TABLE, VIEW, SYSTEM TABLE, GLOBAL TEMPORARY,
$sql_output .= "CREATE ${$self->{tables}{$table}{table_info}}[1] \"\L$table\E\" (\n";
my $sql_ukey = "";
@@ -295,7 +469,7 @@ sub _get_sql_data
}
if (${$f}[4] ne "") {
$sql_output .= " DEFAULT ${$f}[4]";
- } elsif (!${$f}[3]) {
+ } elsif (!${$f}[3] || (${$f}[3] eq 'N')) {
$sql_output .= " NOT NULL";
}
# Set the unique key definition
@@ -310,8 +484,8 @@ sub _get_sql_data
}
$sql_ukey =~ s/,$//;
$sql_pkey =~ s/,$//;
- $sql_output .= "\tCONSTRAINT uk\L$table\E UNIQUE ($sql_ukey),\n" if ($sql_ukey);
- $sql_output .= "\tCONSTRAINT pk\L$table\E PRIMARY KEY ($sql_pkey),\n" if ($sql_pkey);
+ $sql_output .= "\tUNIQUE ($sql_ukey),\n" if ($sql_ukey);
+ $sql_output .= "\tPRIMARY KEY ($sql_pkey),\n" if ($sql_pkey);
# Add constraint definition
foreach my $h (@{$self->{tables}{$table}{foreign_key}}) {
@@ -323,25 +497,49 @@ sub _get_sql_data
my $destname = "$desttable";
my $remote = "${${$h}{$link}{remote}}[$i]";
my $local = "${${$h}{$link}{local}}[$i]";
- $sql_output .= "\tCONSTRAINT fk${i}_\L$table\E FOREIGN KEY ($local) REFERENCES $desttable ($remote),\n";
+ $sql_output .= "\tCONSTRAINT ${i}_\L$table\E_fk FOREIGN KEY ($local) REFERENCES $desttable ($remote),\n";
}
}
}
$sql_output =~ s/,$//;
$sql_output .= ");\n";
+ foreach my $idx (keys %{$self->{tables}{$table}{indexes}}) {
+ my $columns = join(',', @{$self->{tables}{$table}{indexes}{$idx}});
+ my $unique = '';
+ $unique = ' UNIQUE' if ($self->{tables}{$table}{uniqueness}{$idx} eq 'UNIQUE');
+ $sql_output .= "CREATE$unique INDEX \L$idx\E ON \L$table\E (\L$columns\E);\n";
+ }
+ # Add grant on this table
+ $sql_output .= "REVOKE ALL ON $table FROM PUBLIC;\n";
+ foreach my $grp (keys %{$self->{tables}{$table}{grants}}) {
+ if (exists $self->{groups}{$grp}) {
+ $sql_output .= "GRANT " . join(',', @{$self->{tables}{$table}{grants}{$grp}}) . " ON $table TO GROUP $grp;\n";
+ push(@groups, $grp) if (!grep(/^$grp$/, @groups));
+ } else {
+ $sql_output .= "GRANT " . join(',', @{$self->{tables}{$table}{grants}{$grp}}) . " ON $table TO $grp;\n";
+ push(@users, $grp) if (!grep(/^$grp$/, @users));
+ }
+ }
$sql_output .= "\n";
}
# Add privilege definition
- foreach my $role (keys %{$self->{groups}}) {
- $sql_output .= "CREATE GROUP $role;\n";
- $sql_output .= "ALTER GROUP $role ADD USERS " . join(',', @{$self->{groups}{$role}}) . ";\n";
- foreach my $grant (keys %{$self->{grants}{$role}}) {
- $sql_output .= "GRANT $grant ON " . join(',', @{$self->{grants}{$role}{$grant}}) . " TO GROUP $role;\n";
+print STDERR "Add groups/users privileges...\n" if ($self->{debug} && exists $self->{groups});
+ my $grants = '';
+ foreach my $role (@groups) {
+ next if (!exists $self->{groups}{$role});
+ $grants .= "CREATE GROUP $role;\n";
+ $grants .= "ALTER GROUP $role ADD USERS " . join(',', @{$self->{groups}{$role}}) . ";\n";
+ foreach my $u (@{$self->{groups}{$role}}) {
+ push(@users, $u) if (!grep(/^$u$/, @users));
}
}
+ foreach my $u (@users) {
+ $sql_header .= "CREATE USER $u WITH PASSWORD 'secret';\n";
+ }
+ $sql_header .= "\n" . $grants . "\n";
- return $sql_output;
+ return $sql_header . $sql_output;
}
@@ -416,6 +614,11 @@ WHERE TABLE_NAME='$table'
END
$sth->execute or die $sth->errstr;
my $data = $sth->fetchall_arrayref();
+if ($self->{debug}) {
+ foreach my $d (@$data) {
+print STDERR "\t$d->[0] => type:$d->[1] , length:$d->[2] , nullable:$d->[3] , default:$d->[4]\n";
+ }
+}
return @$data;
@@ -544,27 +747,52 @@ END
}
-=head2 _get_privilege
+=head2 _get_table_privilege TABLE
-This function implements a Oracle-native tables grants
+This function implements a Oracle-native table grants
information.
-Return a hash of all groups (roles) with associated users
-and a hash of arrays of all grants on related tables.
+Return a hash of array of all users and their grants on the
+given table.
=cut
-sub _get_privilege
+sub _get_table_privilege
+{
+ my($self, $table) = @_;
+
+ my @pg_grants = ('DELETE','INSERT','SELECT','UPDATE');
+
+ # Retrieve all ROLES defined in this database
+ my $str = "SELECT GRANTEE, PRIVILEGE FROM DBA_TAB_PRIVS WHERE TABLE_NAME='$table' ORDER BY GRANTEE, PRIVILEGE";
+ my $sth = $self->{dbh}->prepare($str) or die $self->{dbh}->errstr;
+ $sth->execute or die $sth->errstr;
+ my %data = ();
+ while (my $row = $sth->fetch) {
+ push(@{$data{$row->[0]}}, $row->[1]) if (grep(/$row->[1]/, @pg_grants));
+ }
+
+ return \%data;
+}
+
+
+=head2 _get_roles
+
+This function implements a Oracle-native roles/users
+information.
+
+Return a hash of all groups (roles) as an array of associated users.
+
+=cut
+
+sub _get_roles
{
my($self) = @_;
# Retrieve all ROLES defined in this database
- my $sth = $self->{dbh}->prepare(<<END) or die $self->{dbh}->errstr;
-SELECT
- ROLE
-FROM DBA_ROLES
- ORDER BY ROLE
-END
+ my $str = "SELECT ROLE FROM DBA_ROLES ORDER BY ROLE";
+ my $sth = $self->{dbh}->prepare($str) or die $self->{dbh}->errstr;
+
$sth->execute or die $sth->errstr;
my @roles = ();
while (my $row = $sth->fetch) {
@@ -572,35 +800,115 @@ END
}
# Get all users associated to these roles
- my %data = ();
my %groups = ();
foreach my $r (@roles) {
- my $str = "SELECT GRANTEE FROM DBA_ROLE_PRIVS WHERE GRANTED_ROLE='$r' AND GRANTEE IN (SELECT USERNAME FROM DBA_USERS)";
+ my $str = "SELECT GRANTEE FROM DBA_ROLE_PRIVS WHERE GRANTEE <> 'SYS' AND GRANTEE <> 'SYSTEM' AND GRANTED_ROLE='$r' AND GRANTEE IN (SELECT USERNAME FROM DBA_USERS)";
$sth = $self->{dbh}->prepare($str) or die $self->{dbh}->errstr;
$sth->execute or die $sth->errstr;
my @users = ();
while (my $row = $sth->fetch) {
- next if ($row->[0] eq 'SYSTEM');
push(@users, $row->[0]);
}
- # Don't process roles relatives to DBA
- next if (grep(/^DBSNMP$/, @users));
- next if (grep(/^SYS$/, @users));
+ $groups{$r} = \@users if ($#users >= 0);
+ }
- $groups{$r} = \@users;
+ return \%groups;
+}
- $str = "SELECT PRIVILEGE,TABLE_NAME FROM DBA_TAB_PRIVS WHERE GRANTEE='$r'";
- $sth = $self->{dbh}->prepare($str) or die $self->{dbh}->errstr;
- $sth->execute or die $sth->errstr;
- my @grants = ();
- while (my $row = $sth->fetch) {
- push(@{$data{$r}{"${@$row}[0]"}}, ${@$row}[1]);
- }
+
+=head2 _get_indexes TABLE
+
+This function implements a Oracle-native indexes
+information.
+
+Return an array of all indexes name which are not primary keys
+for the given table.
+
+Note: Indexes name must be created like this tablename_fieldname
+else they will not be retrieved or if tablename false in the output
+fieldname.
+
+=cut
+
+sub _get_indexes
+{
+ my($self, $table) = @_;
+
+ # Retrieve all indexes
+ my $str = "SELECT DISTINCT DBA_IND_COLUMNS.INDEX_NAME, DBA_IND_COLUMNS.COLUMN_NAME, DBA_INDEXES.UNIQUENESS FROM DBA_IND_COLUMNS, DBA_INDEXES WHERE DBA_IND_COLUMNS.TABLE_NAME='$table' AND DBA_INDEXES.INDEX_NAME=DBA_IND_COLUMNS.INDEX_NAME AND DBA_IND_COLUMNS.INDEX_NAME NOT IN (SELECT CONSTRAINT_NAME FROM ALL_CONSTRAINTS WHERE TABLE_NAME='$table')";
+ my $sth = $self->{dbh}->prepare($str) or die $self->{dbh}->errstr;
+ $sth->execute or die $sth->errstr;
+
+ my %data = ();
+ my %unique = ();
+ while (my $row = $sth->fetch) {
+ $unique{$row->[0]} = $row->[2];
+ push(@{$data{$row->[0]}}, $row->[1]);
+ }
+
+ return \%unique, \%data;
+}
+
+
+=head2 _get_sequences TABLE
+
+This function implements a Oracle-native sequence
+information.
+
+Return a hash of array of sequence name with MIN_VALUE, MAX_VALUE,
+INCREMENT and LAST_NUMBER for the given table.
+
+Not working yet.
+
+=cut
+
+sub _get_sequences
+{
+ my($self, $table) = @_;
+
+ # Retrieve all indexes
+ my $str = "SELECT SEQUENCE_NAME, MIN_VALUE, MAX_VALUE, INCREMENT_BY, LAST_NUMBER FROM DBA_SEQUENCES WHERE SEQUENCE_OWNER <> 'SYS' AND SEQUENCE_OWNER <> 'SYSTEM'";
+ my $sth = $self->{dbh}->prepare($str) or die $self->{dbh}->errstr;
+ $sth->execute or die $sth->errstr;
+
+ my %data = ();
+ while (my $row = $sth->fetch) {
+ # next if ($row->[0] !~ /${table}_/);
+ # push(@data, $row->[0]);
+ }
+
+ return %data;
+}
+
+
+=head2 _get_views
+
+This function implements a Oracle-native views information.
+
+Return a hash of array of sequence name with MIN_VALUE, MAX_VALUE,
+INCREMENT and LAST_NUMBER for the given table.
+
+=cut
+
+sub _get_views
+{
+ my($self) = @_;
+
+ # Retrieve all views
+ my $str = "SELECT VIEW_NAME,TEXT FROM DBA_VIEWS WHERE OWNER <> 'SYS' AND OWNER <> 'SYSTEM'";
+ my $sth = $self->{dbh}->prepare($str) or die $self->{dbh}->errstr;
+ $sth->execute or die $sth->errstr;
+
+ my %data = ();
+ while (my $row = $sth->fetch) {
+ $data{$row->[0]} = $row->[1];
}
- return \%groups, \%data;
+ return %data;
}
+
+
1;
__END__
diff --git a/contrib/oracle/README.ora2pg b/contrib/oracle/README.ora2pg
index 17e09e64a62..28be8e09176 100644
--- a/contrib/oracle/README.ora2pg
+++ b/contrib/oracle/README.ora2pg
@@ -1,233 +1,297 @@
- Ora2Pg - Oracle to PostgreSQL database schema converter
-
- _________________________________________________________________
-
- SYNOPSIS
-
- BEGIN {
- $ENV{ORACLE_HOME} = '/usr/local/oracle/oracle816';
- }
-
- use strict;
-
- use Ora2Pg;
-
- # Init the database connection
- my $dbsrc = 'dbi:Oracle:host=testdb.samse.fr;sid=TEST;port=1521';
- my $dbuser = 'system';
- my $dbpwd = 'manager';
-
- # Create an instance of the Ora2Pg perl module
- my $schema = new Ora2Pg (
- datasource => $dbsrc, # Database DBD datasource
- user => $dbuser, # Database user
- password => $dbpwd, # Database password
- );
-
- # Create the POSTGRESQL representation of all objects in the database
- $schema->export_schema("output.sql");
-
- exit(0);
- _________________________________________________________________
-
- DESCRIPTION
-
- Ora2Pg is a perl OO module used to export an Oracle database schema to
- a PostgreSQL compatible schema.
-
- It simply connect to your Oracle database, extract its structure and
- generate a SQL script that you can load into your PostgreSQL database.
-
- I'm not a Oracle DBA so I don't really know something about its
- internal structure so you may find some incorrect things. Please tell
- me what is wrong and what can be better.
-
- It currently only dump the database schema, with primary, unique and
- foreign keys. I've tried to excluded internal system tables but
- perhaps not enougt, please let me know.
- _________________________________________________________________
-
- ABSTRACT
-
- The goal of the Ora2Pg perl module is to cover all part needed to
- export an Oracle database to a PostgreSQL database without other thing
- that provide the connection parameters to the Oracle database.
-
- Features must include:
-
- - database schema export (done)
- - grant export (done)
- - predefined function/trigger export (todo)
- - data export (todo)
- - sql query converter (todo)
-
- My knowledge regarding database is really poor especially for Oracle
- so contribution is welcome.
- _________________________________________________________________
-
- REQUIREMENT
-
- You just need the DBI and DBD::Oracle perl module to be installed
- _________________________________________________________________
-
- PUBLIC METHODS
- _________________________________________________________________
-
-new HASH_OPTIONS
-
- Creates a new Ora2Pg object.
-
- Supported options are:
-
- - datasource : DBD datasource (required)
- - user : DBD user (optional with public access)
- - password : DBD password (optional with public access)
-
- Attempt that this list should grow a little more because all
- initialization is done by this way.
- _________________________________________________________________
-
-export_sql FILENAME
-
- Print SQL conversion output to a filename or to STDOUT if no file is
- given.
- _________________________________________________________________
-
- PUBLIC METHODS
- _________________________________________________________________
-
-_init HASH_OPTIONS
-
- Initialize a Ora2Pg object instance with a connexion to the Oracle
- database.
- _________________________________________________________________
-
-_tables
-
- This function is used to retrieve all table information.
-
- Set the main hash of the database structure $self->{tables}. Keys are
- the names of all tables retrieved from the current database. Each
- table information compose an array associated to the table_info key as
- array reference. In other way:
-
- $self->{tables}{$class_name}{table_info} = [(OWNER,TYPE)];
-
- TYPE Can be TABLE, VIEW, SYSTEM TABLE, GLOBAL TEMPORARY, LOCAL
- TEMPORARY, ALIAS, SYNONYM or a data source specific type identifier.
-
- It also get the following informations in the DBI object to affect the
- main hash of the database structure :
-
- $self->{tables}{$class_name}{field_name} = $sth->{NAME};
- $self->{tables}{$class_name}{field_type} = $sth->{TYPE};
-
- It also call these other private subroutine to affect the main hash of
- the database structure :
-
- @{$self->{tables}{$class_name}{column_info}} = &_column_info($self, $class_
-name);
- @{$self->{tables}{$class_name}{primary_key}} = &_primary_key($self, $class_
-name);
- @{$self->{tables}{$class_name}{unique_key}} = &_unique_key($self, $class_n
-ame);
- @{$self->{tables}{$class_name}{foreign_key}} = &_foreign_key($self, $class_
-name);
- _________________________________________________________________
-
-_get_sql_data
-
- Returns a string containing the entire SQL Schema definition
- compatible with PostgreSQL
- _________________________________________________________________
-
-_sql_type INTERNAL_TYPE LENGTH
-
- This function return the PostgreSQL datatype corresponding to the
- Oracle internal type.
- _________________________________________________________________
-
-_column_info TABLE
-
- This function implements a Oracle-native column information.
-
- Return a list of array reference containing the following informations
- for each column the given a table
-
- [( column name, column type, column length, nullable column, default
- value )]
- _________________________________________________________________
-
-_primary_key TABLE
-
- This function implements a Oracle-native primary key column
- information.
-
- Return a list of all column name defined as primary key for the given
- table.
- _________________________________________________________________
-
-_unique_key TABLE
-
- This function implements a Oracle-native unique key column
- information.
-
- Return a list of all column name defined as unique key for the given
- table.
- _________________________________________________________________
-
-_foreign_key TABLE
-
- This function implements a Oracle-native foreign key reference
- information.
-
- Return a list of hash of hash of array reference. Ouuf! Nothing very
- difficult. The first hash is composed of all foreign key name. The
- second hash just have two key known as 'local' and remote'
- corresponding to the local table where the foreign key is defined and
- the remote table where the key refer.
-
- The foreign key name is composed as follow:
-
- 'local_table_name->remote_table_name'
-
- Foreign key data consist in two array representing at the same indice
- the local field and the remote field where the first one refer to the
- second. Just like this:
-
- @{$link{$fkey_name}{local}} = @local_columns;
- @{$link{$fkey_name}{remote}} = @remote_columns;
- _________________________________________________________________
-
-_get_privilege
-
- This function implements a Oracle-native tables grants information.
-
- Return a hash of all groups (roles) with associated users and a hash
- of arrays of all grants on related tables.
- _________________________________________________________________
-
- AUTHOR
-
- Gilles Darold <gilles@darold.net>
- _________________________________________________________________
-
- COPYRIGHT
-
- Copyright (c) 2001 Gilles Darold - All rights reserved.
-
- This program is free software; you can redistribute it and/or modify
- it under the same terms as Perl itself.
- _________________________________________________________________
-
- BUGS
-
- This perl module is in the same state as my knowledge regarding
- database, it can move and not be compatible with older version so I
- will do my best to give you official support for Ora2Pg. Your volontee
- to help construct it and your contribution are welcome.
- _________________________________________________________________
-
- SEE ALSO
-
- DBI, DBD::Oracle
+NAME
+ Ora2Pg - Oracle to PostgreSQL database schema converter
+
+SYNOPSIS
+ BEGIN {
+ $ENV{ORACLE_HOME} = '/usr/local/oracle/oracle816';
+ }
+
+ use strict;
+
+ use Ora2Pg;
+
+ # Init the database connection
+ my $dbsrc = 'dbi:Oracle:host=testdb.samse.fr;sid=TEST;port=1521';
+ my $dbuser = 'system';
+ my $dbpwd = 'manager';
+
+ # Create an instance of the Ora2Pg perl module
+ my $schema = new Ora2Pg (
+ datasource => $dbsrc, # Database DBD datasource
+ user => $dbuser, # Database user
+ password => $dbpwd, # Database password
+ );
+
+ # Create the POSTGRESQL representation of all objects in the database
+ $schema->export_schema("output.sql");
+
+ exit(0);
+
+ or if you only want to extract some tables:
+
+ # Create an instance of the Ora2Pg perl module
+ my @tables = ('tab1', 'tab2', 'tab3');
+ my $schema = new Ora2Pg (
+ datasource => $dbsrc, # Database DBD datasource
+ user => $dbuser, # Database user
+ password => $dbpwd, # Database password
+ tables => \@tables, # Tables to extract
+ debug => 1 # To show somethings when running
+ );
+
+ or if you only want to extract the 10 first tables:
+
+ # Create an instance of the Ora2Pg perl module
+ my $schema = new Ora2Pg (
+ datasource => $dbsrc, # Database DBD datasource
+ user => $dbuser, # Database user
+ password => $dbpwd, # Database password
+ max => 10 # 10 first tables to extract
+ );
+
+ or if you only want to extract tables 10 to 20:
+
+ # Create an instance of the Ora2Pg perl module
+ my $schema = new Ora2Pg (
+ datasource => $dbsrc, # Database DBD datasource
+ user => $dbuser, # Database user
+ password => $dbpwd, # Database password
+ min => 10 # Begin extraction at indice 10
+ max => 20 # End extraction at indice 20
+ );
+
+ To know at which indices table can be found during extraction use the
+ option:
+
+ showtableid => 1
+
+ To extract all views set the option type as follow:
+
+ type => 'VIEW'
+
+ Default is table schema extraction
+
+DESCRIPTION
+ Ora2Pg is a perl OO module used to export an Oracle database schema to a
+ PostgreSQL compatible schema.
+
+ It simply connect to your Oracle database, extract its structure and
+ generate a SQL script that you can load into your PostgreSQL database.
+
+ I'm not a Oracle DBA so I don't really know something about its internal
+ structure so you may find some incorrect things. Please tell me what is
+ wrong and what can be better.
+
+ It currently only dump the database schema, with primary, unique and
+ foreign keys. I've tried to excluded internal system tables but perhaps
+ not enougt, please let me know.
+
+ABSTRACT
+ The goal of the Ora2Pg perl module is to cover all part needed to export
+ an Oracle database to a PostgreSQL database without other thing that
+ provide the connection parameters to the Oracle database.
+
+ Features must include:
+
+ - Database schema export, with unique, primary and foreign key.
+ - Grants/privileges export by user and group.
+ - Indexes and unique indexes export.
+ - Table or view selection (by name and max table) export.
+ - Predefined function/trigger export (todo)
+ - Data export (todo)
+ - Sql query converter (todo)
+
+ My knowledge regarding database is really poor especially for Oracle so
+ contribution is welcome.
+
+REQUIREMENT
+ You just need the DBI and DBD::Oracle perl module to be installed
+
+PUBLIC METHODS
+ new HASH_OPTIONS
+
+ Creates a new Ora2Pg object.
+
+ Supported options are:
+
+ - datasource : DBD datasource (required)
+ - user : DBD user (optional with public access)
+ - password : DBD password (optional with public access)
+ - type : Type of data to extract, can be TABLE (default) or VIEW
+ - debug : Print the current state of the parsing
+ - tables : Extract only the given tables (arrayref)
+ - showtableid : Display only the table indice during extraction
+ - min : Indice to begin extraction. Default to 0
+ - max : Indice to end extraction. Default to 0 mean no limits
+
+ Attempt that this list should grow a little more because all
+ initialization is done by this way.
+
+ export_sql FILENAME
+
+ Print SQL conversion output to a filename or to STDOUT if no file is
+ given.
+
+PUBLIC METHODS
+ _init HASH_OPTIONS
+
+ Initialize a Ora2Pg object instance with a connexion to the Oracle
+ database.
+
+ _tables
+
+ This function is used to retrieve all table information.
+
+ Set the main hash of the database structure $self->{tables}. Keys are
+ the names of all tables retrieved from the current database. Each table
+ information compose an array associated to the table_info key as array
+ reference. In other way:
+
+ $self->{tables}{$class_name}{table_info} = [(OWNER,TYPE)];
+
+ DBI TYPE can be TABLE, VIEW, SYSTEM TABLE, GLOBAL TEMPORARY, LOCAL
+ TEMPORARY, ALIAS, SYNONYM or a data source specific type identifier.
+ This only extract TABLE type.
+
+ It also get the following informations in the DBI object to affect the
+ main hash of the database structure :
+
+ $self->{tables}{$class_name}{field_name} = $sth->{NAME};
+ $self->{tables}{$class_name}{field_type} = $sth->{TYPE};
+
+ It also call these other private subroutine to affect the main hash of
+ the database structure :
+
+ @{$self->{tables}{$class_name}{column_info}} = &_column_info($self, $class_name);
+ @{$self->{tables}{$class_name}{primary_key}} = &_primary_key($self, $class_name);
+ @{$self->{tables}{$class_name}{unique_key}} = &_unique_key($self, $class_name);
+ @{$self->{tables}{$class_name}{foreign_key}} = &_foreign_key($self, $class_name);
+
+ _views
+
+ This function is used to retrieve all views information.
+
+ Set the main hash of the views definition $self->{views}. Keys are the
+ names of all views retrieved from the current database values are the
+ text definition of the views.
+
+ It then set the main hash as follow:
+
+ # Definition of the view
+ $self->{views}{$table}{text} = $view_infos{$table};
+ # Grants defined on the views
+ $self->{views}{$table}{grants} = when I find how...
+
+ _get_sql_data
+
+ Returns a string containing the entire SQL Schema definition compatible
+ with PostgreSQL
+
+ _sql_type INTERNAL_TYPE LENGTH
+
+ This function return the PostgreSQL datatype corresponding to the Oracle
+ internal type.
+
+ _column_info TABLE
+
+ This function implements a Oracle-native column information.
+
+ Return a list of array reference containing the following informations
+ for each column the given a table
+
+ [( column name, column type, column length, nullable column, default
+ value )]
+
+ _primary_key TABLE
+
+ This function implements a Oracle-native primary key column information.
+
+ Return a list of all column name defined as primary key for the given
+ table.
+
+ _unique_key TABLE
+
+ This function implements a Oracle-native unique key column information.
+
+ Return a list of all column name defined as unique key for the given
+ table.
+
+ _foreign_key TABLE
+
+ This function implements a Oracle-native foreign key reference
+ information.
+
+ Return a list of hash of hash of array reference. Ouuf! Nothing very
+ difficult. The first hash is composed of all foreign key name. The
+ second hash just have two key known as 'local' and remote' corresponding
+ to the local table where the foreign key is defined and the remote table
+ where the key refer.
+
+ The foreign key name is composed as follow:
+
+ 'local_table_name->remote_table_name'
+
+ Foreign key data consist in two array representing at the same indice
+ the local field and the remote field where the first one refer to the
+ second. Just like this:
+
+ @{$link{$fkey_name}{local}} = @local_columns;
+ @{$link{$fkey_name}{remote}} = @remote_columns;
+
+ _get_table_privilege TABLE
+
+ This function implements a Oracle-native table grants information.
+
+ Return a hash of array of all users and their grants on the given table.
+
+ _get_roles
+
+ This function implements a Oracle-native roles/users information.
+
+ Return a hash of all groups (roles) as an array of associated users.
+
+ _get_indexes TABLE
+
+ This function implements a Oracle-native indexes information.
+
+ Return an array of all indexes name which are not primary keys for the
+ given table.
+
+ Note: Indexes name must be created like this tablename_fieldname else
+ they will not be retrieved or if tablename false in the output
+ fieldname.
+
+ _get_sequences TABLE
+
+ This function implements a Oracle-native sequence information.
+
+ Return a hash of array of sequence name with MIN_VALUE, MAX_VALUE,
+ INCREMENT and LAST_NUMBER for the given table.
+
+ Not working yet.
+
+ _get_views
+
+ This function implements a Oracle-native views information.
+
+ Return a hash of array of sequence name with MIN_VALUE, MAX_VALUE,
+ INCREMENT and LAST_NUMBER for the given table.
+
+AUTHOR
+ Gilles Darold <gilles@darold.net>
+
+COPYRIGHT
+ Copyright (c) 2001 Gilles Darold - All rights reserved.
+
+ This program is free software; you can redistribute it and/or modify it
+ under the same terms as Perl itself.
+
+BUGS
+ This perl module is in the same state as my knowledge regarding
+ database, it can move and not be compatible with older version so I will
+ do my best to give you official support for Ora2Pg. Your volontee to
+ help construct it and your contribution are welcome.
+
+SEE ALSO
+ the DBI manpage, the DBD::Oracle manpage
+
diff --git a/contrib/oracle/TODO b/contrib/oracle/TODO
new file mode 100644
index 00000000000..3aae0f1cf1a
--- /dev/null
+++ b/contrib/oracle/TODO
@@ -0,0 +1,6 @@
+- Extract sequences on tables. Seem to be difficult, can't find the way to link
+ a sequence with one or more column. So problably just dump and edit manually
+- More precision in type conversion based on length (I've no good DB to do that)
+- Extract triggers and internal function.
+- Extract datas.
+- SQL queries converter.
diff --git a/contrib/oracle/ora2pg.html b/contrib/oracle/ora2pg.html
index 7f2000b75fb..357f36f4cd2 100644
--- a/contrib/oracle/ora2pg.html
+++ b/contrib/oracle/ora2pg.html
@@ -1,330 +1,324 @@
<HTML>
<HEAD>
<TITLE>Ora2Pg - Oracle to PostgreSQL database schema converter</TITLE>
-<LINK REV="made" HREF="mailto:root@porky.devel.redhat.com">
+<LINK REV="made" HREF="mailto:darold@localhost.localdomain">
</HEAD>
<BODY>
+<A NAME="__index__"></A>
<!-- INDEX BEGIN -->
<UL>
- <LI><A HREF="#NAME">NAME</A>
- <LI><A HREF="#SYNOPSIS">SYNOPSIS</A>
- <LI><A HREF="#DESCRIPTION">DESCRIPTION</A>
- <LI><A HREF="#ABSTRACT">ABSTRACT</A>
- <LI><A HREF="#REQUIREMENT">REQUIREMENT</A>
- <LI><A HREF="#PUBLIC_METHODS">PUBLIC METHODS</A>
+ <LI><A HREF="#name">NAME</A></LI>
+ <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
+ <LI><A HREF="#description">DESCRIPTION</A></LI>
+ <LI><A HREF="#abstract">ABSTRACT</A></LI>
+ <LI><A HREF="#requirement">REQUIREMENT</A></LI>
+ <LI><A HREF="#public methods">PUBLIC METHODS</A></LI>
<UL>
- <LI><A HREF="#new_HASH_OPTIONS">new HASH_OPTIONS</A>
- <LI><A HREF="#export_sql_FILENAME">export_sql FILENAME</A>
+ <LI><A HREF="#new hash_options">new HASH_OPTIONS</A></LI>
+ <LI><A HREF="#export_sql filename">export_sql FILENAME</A></LI>
</UL>
- <LI><A HREF="#PUBLIC_METHODS">PUBLIC METHODS</A>
+ <LI><A HREF="#public methods">PUBLIC METHODS</A></LI>
<UL>
- <LI><A HREF="#_init_HASH_OPTIONS">_init HASH_OPTIONS</A>
- <LI><A HREF="#_tables">_tables</A>
- <LI><A HREF="#_get_sql_data">_get_sql_data</A>
- <LI><A HREF="#_sql_type_INTERNAL_TYPE_LENGTH">_sql_type INTERNAL_TYPE LENGTH</A>
- <LI><A HREF="#_column_info_TABLE">_column_info TABLE</A>
- <LI><A HREF="#_primary_key_TABLE">_primary_key TABLE</A>
- <LI><A HREF="#_unique_key_TABLE">_unique_key TABLE</A>
- <LI><A HREF="#_foreign_key_TABLE">_foreign_key TABLE</A>
- <LI><A HREF="#_get_privilege">_get_privilege </A>
+ <LI><A HREF="#_init hash_options">_init HASH_OPTIONS</A></LI>
+ <LI><A HREF="#_tables">_tables</A></LI>
+ <LI><A HREF="#_views">_views</A></LI>
+ <LI><A HREF="#_get_sql_data">_get_sql_data</A></LI>
+ <LI><A HREF="#_sql_type internal_type length">_sql_type INTERNAL_TYPE LENGTH</A></LI>
+ <LI><A HREF="#_column_info table">_column_info TABLE</A></LI>
+ <LI><A HREF="#_primary_key table">_primary_key TABLE</A></LI>
+ <LI><A HREF="#_unique_key table">_unique_key TABLE</A></LI>
+ <LI><A HREF="#_foreign_key table">_foreign_key TABLE</A></LI>
+ <LI><A HREF="#_get_table_privilege table">_get_table_privilege TABLE</A></LI>
+ <LI><A HREF="#_get_roles">_get_roles</A></LI>
+ <LI><A HREF="#_get_indexes table">_get_indexes TABLE</A></LI>
+ <LI><A HREF="#_get_sequences table">_get_sequences TABLE</A></LI>
+ <LI><A HREF="#_get_views">_get_views</A></LI>
</UL>
- <LI><A HREF="#AUTHOR">AUTHOR</A>
- <LI><A HREF="#COPYRIGHT">COPYRIGHT</A>
- <LI><A HREF="#BUGS">BUGS</A>
- <LI><A HREF="#SEE_ALSO">SEE ALSO</A>
+ <LI><A HREF="#author">AUTHOR</A></LI>
+ <LI><A HREF="#copyright">COPYRIGHT</A></LI>
+ <LI><A HREF="#bugs">BUGS</A></LI>
+ <LI><A HREF="#see also">SEE ALSO</A></LI>
</UL>
<!-- INDEX END -->
<HR>
<P>
-<H1><A NAME="NAME">NAME</A></H1>
-<P>
-Ora2Pg - Oracle to PostgreSQL database schema converter
-
+<H1><A NAME="name">NAME</A></H1>
+<P>Ora2Pg - Oracle to PostgreSQL database schema converter</P>
<P>
<HR>
-<H1><A NAME="SYNOPSIS">SYNOPSIS</A></H1>
-<P>
-<PRE> BEGIN {
+<H1><A NAME="synopsis">SYNOPSIS</A></H1>
+<PRE>
+ BEGIN {
$ENV{ORACLE_HOME} = '/usr/local/oracle/oracle816';
- }
-</PRE>
-<P>
-<PRE> use strict;
-</PRE>
-<P>
-<PRE> use Ora2Pg;
-</PRE>
-<P>
-<PRE> # Init the database connection
+ }</PRE>
+<PRE>
+ use strict;</PRE>
+<PRE>
+ use Ora2Pg;</PRE>
+<PRE>
+ # Init the database connection
my $dbsrc = 'dbi:Oracle:host=testdb.samse.fr;sid=TEST;port=1521';
my $dbuser = 'system';
- my $dbpwd = 'manager';
-</PRE>
-<P>
-<PRE> # Create an instance of the Ora2Pg perl module
+ my $dbpwd = 'manager';</PRE>
+<PRE>
+ # Create an instance of the Ora2Pg perl module
my $schema = new Ora2Pg (
datasource => $dbsrc, # Database DBD datasource
user => $dbuser, # Database user
password => $dbpwd, # Database password
- );
-</PRE>
-<P>
-<PRE> # Create the POSTGRESQL representation of all objects in the database
- $schema->export_schema("output.sql");
-</PRE>
-<P>
-<PRE> exit(0);
-</PRE>
+ );</PRE>
+<PRE>
+ # Create the POSTGRESQL representation of all objects in the database
+ $schema->export_schema("output.sql");</PRE>
+<PRE>
+ exit(0);</PRE>
+<P>or if you only want to extract some tables:</P>
+<PRE>
+ # Create an instance of the Ora2Pg perl module
+ my @tables = ('tab1', 'tab2', 'tab3');
+ my $schema = new Ora2Pg (
+ datasource => $dbsrc, # Database DBD datasource
+ user => $dbuser, # Database user
+ password => $dbpwd, # Database password
+ tables => \@tables, # Tables to extract
+ debug => 1 # To show somethings when running
+ );</PRE>
+<P>or if you only want to extract the 10 first tables:</P>
+<PRE>
+ # Create an instance of the Ora2Pg perl module
+ my $schema = new Ora2Pg (
+ datasource => $dbsrc, # Database DBD datasource
+ user => $dbuser, # Database user
+ password => $dbpwd, # Database password
+ max => 10 # 10 first tables to extract
+ );</PRE>
+<P>or if you only want to extract tables 10 to 20:</P>
+<PRE>
+ # Create an instance of the Ora2Pg perl module
+ my $schema = new Ora2Pg (
+ datasource => $dbsrc, # Database DBD datasource
+ user => $dbuser, # Database user
+ password => $dbpwd, # Database password
+ min => 10 # Begin extraction at indice 10
+ max => 20 # End extraction at indice 20
+ );</PRE>
+<P>To know at which indices table can be found during extraction use the option:</P>
+<PRE>
+ showtableid => 1</PRE>
+<P>To extract all views set the option type as follow:</P>
+<PRE>
+ type => 'VIEW'</PRE>
+<P>Default is table schema extraction</P>
<P>
<HR>
-<H1><A NAME="DESCRIPTION">DESCRIPTION</A></H1>
-<P>
-Ora2Pg is a perl OO module used to export an Oracle database schema to a
-PostgreSQL compatible schema.
-
-<P>
-It simply connect to your Oracle database, extract its structure and
-generate a SQL script that you can load into your PostgreSQL database.
-
-<P>
-I'm not a Oracle DBA so I don't really know something about its internal
+<H1><A NAME="description">DESCRIPTION</A></H1>
+<P>Ora2Pg is a perl OO module used to export an Oracle database schema
+to a PostgreSQL compatible schema.</P>
+<P>It simply connect to your Oracle database, extract its structure and
+generate a SQL script that you can load into your PostgreSQL database.</P>
+<P>I'm not a Oracle DBA so I don't really know something about its internal
structure so you may find some incorrect things. Please tell me what is
-wrong and what can be better.
-
-<P>
-It currently only dump the database schema, with primary, unique and
-foreign keys. I've tried to excluded internal system tables but perhaps not
-enougt, please let me know.
-
-<P>
-<HR>
-<H1><A NAME="ABSTRACT">ABSTRACT</A></H1>
-<P>
-The goal of the Ora2Pg perl module is to cover all part needed to export an
-Oracle database to a PostgreSQL database without other thing that provide
-the connection parameters to the Oracle database.
-
-<P>
-Features must include:
-
-<P>
-<PRE> - database schema export (done)
- - grant export (done)
- - predefined function/trigger export (todo)
- - data export (todo)
- - sql query converter (todo)
-</PRE>
-<P>
-My knowledge regarding database is really poor especially for Oracle so
-contribution is welcome.
-
+wrong and what can be better.</P>
+<P>It currently only dump the database schema, with primary, unique and
+foreign keys. I've tried to excluded internal system tables but perhaps
+not enougt, please let me know.</P>
<P>
<HR>
-<H1><A NAME="REQUIREMENT">REQUIREMENT</A></H1>
-<P>
-You just need the DBI and DBD::Oracle perl module to be installed
-
+<H1><A NAME="abstract">ABSTRACT</A></H1>
+<P>The goal of the Ora2Pg perl module is to cover all part needed to export
+an Oracle database to a PostgreSQL database without other thing that provide
+the connection parameters to the Oracle database.</P>
+<P>Features must include:</P>
+<PRE>
+ - Database schema export, with unique, primary and foreign key.
+ - Grants/privileges export by user and group.
+ - Indexes and unique indexes export.
+ - Table or view selection (by name and max table) export.
+ - Predefined function/trigger export (todo)
+ - Data export (todo)
+ - Sql query converter (todo)</PRE>
+<P>My knowledge regarding database is really poor especially for Oracle
+so contribution is welcome.</P>
<P>
<HR>
-<H1><A NAME="PUBLIC_METHODS">PUBLIC METHODS</A></H1>
+<H1><A NAME="requirement">REQUIREMENT</A></H1>
+<P>You just need the DBI and DBD::Oracle perl module to be installed</P>
<P>
<HR>
-<H2><A NAME="new_HASH_OPTIONS">new HASH_OPTIONS</A></H2>
-<P>
-Creates a new Ora2Pg object.
-
-<P>
-Supported options are:
-
+<H1><A NAME="public methods">PUBLIC METHODS</A></H1>
<P>
-<PRE> - datasource : DBD datasource (required)
+<H2><A NAME="new hash_options">new HASH_OPTIONS</A></H2>
+<P>Creates a new Ora2Pg object.</P>
+<P>Supported options are:</P>
+<PRE>
+ - datasource : DBD datasource (required)
- user : DBD user (optional with public access)
- password : DBD password (optional with public access)
-</PRE>
-<P>
-Attempt that this list should grow a little more because all initialization
-is done by this way.
-
+ - type : Type of data to extract, can be TABLE (default) or VIEW
+ - debug : Print the current state of the parsing
+ - tables : Extract only the given tables (arrayref)
+ - showtableid : Display only the table indice during extraction
+ - min : Indice to begin extraction. Default to 0
+ - max : Indice to end extraction. Default to 0 mean no limits</PRE>
+<P>Attempt that this list should grow a little more because all initialization is
+done by this way.</P>
+<P>
+<H2><A NAME="export_sql filename">export_sql FILENAME</A></H2>
+<P>Print SQL conversion output to a filename or
+to STDOUT if no file is given.</P>
<P>
<HR>
-<H2><A NAME="export_sql_FILENAME">export_sql FILENAME</A></H2>
+<H1><A NAME="public methods">PUBLIC METHODS</A></H1>
<P>
-Print SQL conversion output to a filename or to STDOUT if no file is given.
-
+<H2><A NAME="_init hash_options">_init HASH_OPTIONS</A></H2>
+<P>Initialize a Ora2Pg object instance with a connexion to the
+Oracle database.</P>
<P>
-<HR>
-<H1><A NAME="PUBLIC_METHODS">PUBLIC METHODS</A></H1>
-<P>
-<HR>
-<H2><A NAME="_init_HASH_OPTIONS">_init HASH_OPTIONS</A></H2>
-<P>
-Initialize a Ora2Pg object instance with a connexion to the Oracle
-database.
-
-<P>
-<HR>
<H2><A NAME="_tables">_tables</A></H2>
-<P>
-This function is used to retrieve all table information.
-
-<P>
-Set the main hash of the database structure $self->{tables}. Keys are
-the names of all tables retrieved from the current database. Each table
-information compose an array associated to the table_info key as array
-reference. In other way:
-
-<P>
-<PRE> $self->{tables}{$class_name}{table_info} = [(OWNER,TYPE)];
-</PRE>
-<P>
-TYPE Can be TABLE, VIEW, SYSTEM TABLE, GLOBAL TEMPORARY, LOCAL TEMPORARY,
-ALIAS, SYNONYM or a data source specific type identifier.
-
-<P>
-It also get the following informations in the DBI object to affect the main
-hash of the database structure :
-
-<P>
-<PRE> $self->{tables}{$class_name}{field_name} = $sth->{NAME};
- $self->{tables}{$class_name}{field_type} = $sth->{TYPE};
-</PRE>
-<P>
-It also call these other private subroutine to affect the main hash of the
-database structure :
-
-<P>
-<PRE> @{$self->{tables}{$class_name}{column_info}} = &_column_info($self, $class_name);
+<P>This function is used to retrieve all table information.</P>
+<P>Set the main hash of the database structure $self->{tables}.
+Keys are the names of all tables retrieved from the current
+database. Each table information compose an array associated
+to the table_info key as array reference. In other way:</P>
+<PRE>
+ $self->{tables}{$class_name}{table_info} = [(OWNER,TYPE)];</PRE>
+<P>DBI TYPE can be TABLE, VIEW, SYSTEM TABLE, GLOBAL TEMPORARY, LOCAL TEMPORARY,
+ALIAS, SYNONYM or a data source specific type identifier. This only extract
+TABLE type.</P>
+<P>It also get the following informations in the DBI object to affect the
+main hash of the database structure :</P>
+<PRE>
+ $self->{tables}{$class_name}{field_name} = $sth->{NAME};
+ $self->{tables}{$class_name}{field_type} = $sth->{TYPE};</PRE>
+<P>It also call these other private subroutine to affect the main hash
+of the database structure :</P>
+<PRE>
+ @{$self->{tables}{$class_name}{column_info}} = &_column_info($self, $class_name);
@{$self->{tables}{$class_name}{primary_key}} = &_primary_key($self, $class_name);
@{$self->{tables}{$class_name}{unique_key}} = &_unique_key($self, $class_name);
- @{$self->{tables}{$class_name}{foreign_key}} = &_foreign_key($self, $class_name);
-</PRE>
+ @{$self->{tables}{$class_name}{foreign_key}} = &_foreign_key($self, $class_name);</PRE>
+<P>
+<H2><A NAME="_views">_views</A></H2>
+<P>This function is used to retrieve all views information.</P>
+<P>Set the main hash of the views definition $self->{views}.
+Keys are the names of all views retrieved from the current
+database values are the text definition of the views.</P>
+<P>It then set the main hash as follow:</P>
+<PRE>
+ # Definition of the view
+ $self->{views}{$table}{text} = $view_infos{$table};
+ # Grants defined on the views
+ $self->{views}{$table}{grants} = when I find how...</PRE>
<P>
-<HR>
<H2><A NAME="_get_sql_data">_get_sql_data</A></H2>
-<P>
-Returns a string containing the entire SQL Schema definition compatible
-with PostgreSQL
-
+<P>Returns a string containing the entire SQL Schema definition compatible with PostgreSQL</P>
+<P>
+<H2><A NAME="_sql_type internal_type length">_sql_type INTERNAL_TYPE LENGTH</A></H2>
+<P>This function return the PostgreSQL datatype corresponding to the
+Oracle internal type.</P>
+<P>
+<H2><A NAME="_column_info table">_column_info TABLE</A></H2>
+<P>This function implements a Oracle-native column information.</P>
+<P>Return a list of array reference containing the following informations
+for each column the given a table</P>
+<P>[(
+ column name,
+ column type,
+ column length,
+ nullable column,
+ default value
+)]</P>
+<P>
+<H2><A NAME="_primary_key table">_primary_key TABLE</A></H2>
+<P>This function implements a Oracle-native primary key column
+information.</P>
+<P>Return a list of all column name defined as primary key
+for the given table.</P>
+<P>
+<H2><A NAME="_unique_key table">_unique_key TABLE</A></H2>
+<P>This function implements a Oracle-native unique key column
+information.</P>
+<P>Return a list of all column name defined as unique key
+for the given table.</P>
+<P>
+<H2><A NAME="_foreign_key table">_foreign_key TABLE</A></H2>
+<P>This function implements a Oracle-native foreign key reference
+information.</P>
+<P>Return a list of hash of hash of array reference. Ouuf! Nothing very difficult.
+The first hash is composed of all foreign key name. The second hash just have
+two key known as 'local' and remote' corresponding to the local table where the
+foreign key is defined and the remote table where the key refer.</P>
+<P>The foreign key name is composed as follow:</P>
+<PRE>
+ 'local_table_name->remote_table_name'</PRE>
+<P>Foreign key data consist in two array representing at the same indice the local
+field and the remote field where the first one refer to the second.
+Just like this:</P>
+<PRE>
+ @{$link{$fkey_name}{local}} = @local_columns;
+ @{$link{$fkey_name}{remote}} = @remote_columns;</PRE>
+<P>
+<H2><A NAME="_get_table_privilege table">_get_table_privilege TABLE</A></H2>
+<P>This function implements a Oracle-native table grants
+information.</P>
+<P>Return a hash of array of all users and their grants on the
+given table.</P>
+<P>
+<H2><A NAME="_get_roles">_get_roles</A></H2>
+<P>This function implements a Oracle-native roles/users
+information.</P>
+<P>Return a hash of all groups (roles) as an array of associated users.</P>
+<P>
+<H2><A NAME="_get_indexes table">_get_indexes TABLE</A></H2>
+<P>This function implements a Oracle-native indexes
+information.</P>
+<P>Return an array of all indexes name which are not primary keys
+for the given table.</P>
+<P>Note: Indexes name must be created like this tablename_fieldname
+else they will not be retrieved or if tablename false in the output
+fieldname.</P>
+<P>
+<H2><A NAME="_get_sequences table">_get_sequences TABLE</A></H2>
+<P>This function implements a Oracle-native sequence
+information.</P>
+<P>Return a hash of array of sequence name with MIN_VALUE, MAX_VALUE,
+INCREMENT and LAST_NUMBER for the given table.</P>
+<P>Not working yet.</P>
+<P>
+<H2><A NAME="_get_views">_get_views</A></H2>
+<P>This function implements a Oracle-native views information.</P>
+<P>Return a hash of array of sequence name with MIN_VALUE, MAX_VALUE,
+INCREMENT and LAST_NUMBER for the given table.</P>
<P>
<HR>
-<H2><A NAME="_sql_type_INTERNAL_TYPE_LENGTH">_sql_type INTERNAL_TYPE LENGTH</A></H2>
-<P>
-This function return the PostgreSQL datatype corresponding to the Oracle
-internal type.
-
+<H1><A NAME="author">AUTHOR</A></H1>
+<P>Gilles Darold <<A HREF="mailto:gilles@darold.net">gilles@darold.net</A>></P>
<P>
<HR>
-<H2><A NAME="_column_info_TABLE">_column_info TABLE</A></H2>
-<P>
-This function implements a Oracle-native column information.
-
-<P>
-Return a list of array reference containing the following informations for
-each column the given a table
-
-<P>
-[( column name, column type, column length, nullable column, default value
-)]
-
+<H1><A NAME="copyright">COPYRIGHT</A></H1>
+<P>Copyright (c) 2001 Gilles Darold - All rights reserved.</P>
+<P>This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.</P>
<P>
<HR>
-<H2><A NAME="_primary_key_TABLE">_primary_key TABLE</A></H2>
-<P>
-This function implements a Oracle-native primary key column information.
-
-<P>
-Return a list of all column name defined as primary key for the given
-table.
-
-<P>
-<HR>
-<H2><A NAME="_unique_key_TABLE">_unique_key TABLE</A></H2>
-<P>
-This function implements a Oracle-native unique key column information.
-
-<P>
-Return a list of all column name defined as unique key for the given table.
-
-<P>
-<HR>
-<H2><A NAME="_foreign_key_TABLE">_foreign_key TABLE</A></H2>
-<P>
-This function implements a Oracle-native foreign key reference information.
-
-<P>
-Return a list of hash of hash of array reference. Ouuf! Nothing very
-difficult. The first hash is composed of all foreign key name. The second
-hash just have two key known as 'local' and remote' corresponding to the
-local table where the foreign key is defined and the remote table where the
-key refer.
-
-<P>
-The foreign key name is composed as follow:
-
-<P>
-<PRE> 'local_table_name->remote_table_name'
-</PRE>
-<P>
-Foreign key data consist in two array representing at the same indice the
-local field and the remote field where the first one refer to the second.
-Just like this:
-
-<P>
-<PRE> @{$link{$fkey_name}{local}} = @local_columns;
- @{$link{$fkey_name}{remote}} = @remote_columns;
-</PRE>
-<P>
-<HR>
-<H2><A NAME="_get_privilege">_get_privilege</A></H2>
-<P>
-This function implements a Oracle-native tables grants information.
-
-<P>
-Return a hash of all groups (roles) with associated users and a hash of
-arrays of all grants on related tables.
-
-<P>
-<HR>
-<H1><A NAME="AUTHOR">AUTHOR</A></H1>
-<P>
-Gilles Darold <<A
-HREF="mailto:gilles@darold.net">gilles@darold.net</A>>
-
-<P>
-<HR>
-<H1><A NAME="COPYRIGHT">COPYRIGHT</A></H1>
-<P>
-Copyright (c) 2001 Gilles Darold - All rights reserved.
-
-<P>
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-<P>
-<HR>
-<H1><A NAME="BUGS">BUGS</A></H1>
-<P>
-This perl module is in the same state as my knowledge regarding database,
+<H1><A NAME="bugs">BUGS</A></H1>
+<P>This perl module is in the same state as my knowledge regarding database,
it can move and not be compatible with older version so I will do my best
-to give you official support for Ora2Pg. Your volontee to help construct it
-and your contribution are welcome.
-
+to give you official support for Ora2Pg. Your volontee to help construct
+it and your contribution are welcome.</P>
<P>
<HR>
-<H1><A NAME="SEE_ALSO">SEE ALSO</A></H1>
-<P>
-<EM>DBI</EM>, <A HREF="/DBD/Oracle.html">DBD::Oracle</A>
-
-
+<H1><A NAME="see also">SEE ALSO</A></H1>
+<P><EM>DBI</EM>, <A HREF="/DBD/Oracle.html">the DBD::Oracle manpage</A></P>
</BODY>
diff --git a/contrib/oracle/ora2pg.pl b/contrib/oracle/ora2pg.pl
index 00830694cc0..8b8e5302351 100755
--- a/contrib/oracle/ora2pg.pl
+++ b/contrib/oracle/ora2pg.pl
@@ -20,7 +20,7 @@ use strict;
use Ora2Pg;
# Initialyze the database connection
-my $dbsrc = 'dbi:Oracle:host=aliciadb.samse.fr;sid=ALIC;port=1521';
+my $dbsrc = 'dbi:Oracle:host=test.mydomain.com;sid=TEST;port=1521';
my $dbuser = 'system';
my $dbpwd = 'manager';
@@ -29,6 +29,12 @@ my $schema = new Ora2Pg (
datasource => $dbsrc, # Database DBD datasource
user => $dbuser, # Database user
password => $dbpwd, # Database password
+ debug => 1, # Verbose mode
+# type => 'VIEW', # Extract views
+# tables => [('MY_TABLE1','MY_TABLE2')], # Extract only these table
+# showtableid => 1, # Display only table indice during extraction
+# min => 1, # Extract begin at indice 1
+# max => 10 # Extract ended at indice 10
);
# Create the POSTGRESQL representation of all objects in the database
--
GitLab