rdelaage
/
postgresql
mirror of https://git.postgresql.org/git/postgresql.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add "--nodata" option to allow schema conversion only.

This commit is contained in:
Thomas G. Lockhart 2001-01-18 07:16:56 +00:00
parent b06fbc7ad2
commit 26696580c4
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
contrib/mysql/mysql2pgsql
View File

@ -15,11 +15,12 @@ use Getopt::Long;
my $progname = "mysql2pgsql"; my $progname = "mysql2pgsql";
my $version = "0.3"; my $version = "0.3";
GetOptions("debug!", "verbose!", "version", "path=s", "help"); GetOptions("debug!", "verbose!", "version", "path=s", "help", "data!");
my $debug = $opt_debug || 0; my $debug = $opt_debug || 0;
my $verbose = $opt_verbose || 0; my $verbose = $opt_verbose || 0;
my $pathfrom = $opt_path || ""; my $pathfrom = $opt_path || "";
my $nodata = (! $opt_data);
$pathfrom = "$pathfrom/" if ($pathfrom =~ /.*[^\/]$/); $pathfrom = "$pathfrom/" if ($pathfrom =~ /.*[^\/]$/);
@ -29,12 +30,15 @@ print "\t(c) 2000 Thomas Lockhart PostgreSQL Inc.\n"
if ($opt_version && $opt_verbose || $opt_help); if ($opt_version && $opt_verbose || $opt_help);
if ($opt_help) { if ($opt_help) {
print "$0 --verbose --version --help --path=dir infile ...\n"; print "$0 --verbose --version --help --path=dir --nodata infile ...\n";
exit; exit;
} }
while (@ARGV) { while (@ARGV) {
my $ostem; my $ostem;
my $oname;
my $pname;
my @xargs;
$iname = shift @ARGV; $iname = shift @ARGV;
$ostem = $iname; $ostem = $iname;
@ -44,7 +48,10 @@ while (@ARGV) {
$oname = "$ostem.sql92"; $oname = "$ostem.sql92";
$pname = "$ostem.init"; $pname = "$ostem.init";
print "$iname $oname $pname\n" if ($debug); @xargs = ($iname, $oname);
push @xargs, $pname unless ($nodata);
print "@xargs\n" if ($debug);
TransformDumpFile($iname, $oname, $pname); TransformDumpFile($iname, $oname, $pname);
} }
@ -68,7 +75,7 @@ sub TransformDumpFile {
push @dlines, $_; push @dlines, $_;
} }
print "Calling CreateSchema with $#dlines lines\n" if ($debug); print("Calling CreateSchema with $#dlines lines\n") if ($debug);
@slines = CreateSchema(@dlines); @slines = CreateSchema(@dlines);
open(OUT, ">$oname") || die "Unable to open output file $oname"; open(OUT, ">$oname") || die "Unable to open output file $oname";