Changeset 24
- Timestamp:
- 11/25/08 22:30:21 (9 years ago)
- Files:
-
- trunk/getddl/getddl.pl (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/getddl/getddl.pl
r13 r24 60 60 my (@tables_found, @procs_found); 61 61 my $do_svn_del = 0; 62 my $svn = '/opt/omni/bin/svn'; 62 63 63 64 die unless GetOptions( … … 74 75 'tsuppfn=s' => \$tsfn, 75 76 'fsuppfn=s' => \$fsfn, 76 'svndel' => \$do_svn_del 77 'svndel' => \$do_svn_del, 78 'svndir=s' => \$svn, 77 79 ); 78 80 exit if not $GET_DDL and not $GET_PROCS; # nothing to do … … 112 114 my @only = (); 113 115 116 ## Fixme - this needs to account for the new data type specific directories. also i dont think it works against remote hosts, but could. 114 117 my $schema_check = sub { 115 118 my ($fqn) = @_; … … 375 378 376 379 svn_check( 377 destdir => $destdir ,380 destdir => $destdir.'/table', 378 381 fqn => $fqtn, 379 382 ddl => $ddl, … … 437 440 $proc .= " LANGUAGE '$proc_row->{external_language}';\n"; 438 441 svn_check( 439 destdir => $destdir ,442 destdir => $destdir.'/function', 440 443 fqn => $fqfn, 441 444 ddl => $proc,