Edit D:\app\Administrator\product\11.2.0\dbhome_1\sysman\admin\emdrep\bin\HeaderUtil.pl
################################################################################# # # $Header: HeaderUtil.pm 14-jan-2005.10:55:47 ktlaw Exp $ # # HeaderUtil.pm # # Copyright (c) 2003, 2005, Oracle. All rights reserved. # # NAME # HeaderUtil.pm - <one-line expansion of the name> # # DESCRIPTION # <short description of component this file declares/defines> # # NOTES # # MODIFIED (MM/DD/YYYY) # ktlaw 01/14/05 - add comments # ktlaw 01/13/05 - ktlaw_new_repmgr # ktlaw 01/10/05 - created ################################################################################ #!/usr/local/bin/perl # # HeaderUtil.pl - tools to mass insert RepManager Header # Usage: $ADE_VIEW_ROOT/emcore/sysman/admin/emdrep/bin/HeaderUtil.pl <path> # <path> = absolute path of the directory containing sql files # # Notes: # - HeaderUtil.pl search recursively under the specified directory. # - It must be run within a view with an open transaction # - It does a best effort guessing only. You must verify the changes are correct. # - It does not resolve sequencing of sql files. If the sql files must be run in a specific # sequence, you must manually edit the RepManager to achieve your desired effect. # - It does not check in your changed files, you must run ade ci or ade ciall to check in the changes. # use lib "$ENV{'ADE_VIEW_ROOT'}/emcore/scripts/install"; use lib "$ENV{'ADE_VIEW_ROOT'}/emcore/sysman/admin/emdrep/bin"; use SQLFile; use Directory; $AVN = $ENV{'ADE_VIEW_NAME'}; die "not in view!!" if(!defined $AVN); $PWD = shift ; sub insertHeader { (my $file) = @_; my $sql = new SQLFile ; $sql->setPath($file); $sql->setType($sql->guessType); if($sql->isValid) { my $ade = $sql->getPath; $ade =~ s/$PWD\///g ; print "executing ade co -c \"add repmgr header\" $ade\n"; system "ade co -c \"add repmgr header\" $ade"; if(open(FIN,$file)) { my $type = $sql->getType; my $ver = $sql->getVersion; my @lines = <FIN> ; close(FIN); if(open(FOUT,">$file")) { if($type eq 'data_upgrade' || $type eq 'schema_upgrade') { print FOUT "Rem drv: <migrate type=\"$type\" version=\"$ver\"/> \n"; }else { print FOUT "Rem drv: <create type=\"$type\"/> \n"; } foreach $h (@lines) { print FOUT $h; } close(FOUT); } } } } my $d = new Directory; $d->setPath($PWD); $d->find(\&insertHeader,'true','\.sql');
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de