src/game/server/database/build/linux/copy_cluster.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Getopt::Long;
   5
   6 &main;
   7
   8 sub main
   9 {
  10     my ($starttime, $endtime);
  11
  12     &GetOptions("copycluster","exportcluster","importcluster","createtypes","wipeschema","recompilepackages","help","username:s","password:s","service:s","source:s");
  13
  14     if ($::opt_help || ($::opt_source eq "") || !($::opt_copycluster || $::opt_exportcluster || $::opt_importcluster || $::opt_createtypes || $::opt_wipeschema || $::opt_recompilepackages ))
  15     {
  16         print "Usage: copy_cluster.pl [COMMAND] [OPTION]... \n";
  17         print "Copy a cluster using Oracle export/import.\n\n";
  18         print "******************* WARNING *******************.\n";
  19         print "* This utility will delete all existing user  *\n";
  20         print "*            objects in your schema           *\n";
  21         print "***********************************************.\n";
  22         print "\n";
  23         print "Commands:\n";
  24         print "  --help                Display these options.\n";
  25         print "  --copycluster         Perform the complete copy to user schema.\n";
  26         print "\n";
  27         print "  --exportcluster       Export cluster to file using direct path.\n";
  28         print "  --importcluster       Import cluster from file using direct path.\n";
  29         print "  --createtypes         Recreate oracle typedefs.\n";
  30         print "  --wipeschema          Delete all objects from users schema.\n";
  31         print "  --recompilepackages   Recompile user database packages.\n";
  32         print "\n";
  33         print "Options:\n";
  34         print "  --username=NAME       Specify the database user name. (Defaults to \$USER.)\n";
  35         print "  --password=PASSWORD   Specify the database password.  (Defaults to \"changeme\".)\n";
  36         print "  --service=NAME        Specify the database service name.  (Defaults to \"swodb\".)\n";
  37         print "  --source=NAME         Specify the source schema name.\n";
  38
  39         print "\n";
  40
  41         exit;
  42     }
  43
  44     $starttime = time();
  45
  46     print "Start time:\t",scalar localtime($starttime),"\n\n";
  47
  48   SWITCH: {
  49
  50       if ($::opt_copycluster) { &copycluster; last SWITCH; }
  51       if ($::opt_exportcluster) { &exportcluster; last SWITCH; }
  52       if ($::opt_importcluster) { &importcluster; last SWITCH; }
  53       if ($::opt_createtypes) { &createtypes; last SWITCH; }
  54       if ($::opt_wipeschema) { &wipeschema; last SWITCH; }
  55       if ($::opt_recompilepackages) { &recompilepackages; last SWITCH; }
  56       print "Warning unknown option \n";
  57       system("echo Warning unknown command > sqloutput.tmp" );
  58
  59   }
  60     $endtime = time();
  61     print "End time:\t",scalar localtime($endtime),"\n\n";
  62     print "Elasped time:\t",($endtime - $starttime)," second(s)\n";
  63
  64 }
  65
  66 #=======================================================================
  67
  68 #run all the steps at once involved in copying the  cluster
  69 sub copycluster
  70 {
  71     print "**** STARTING CLUSTER COPY ****\n\n";
  72     system ("rm cluster.dmp");
  73     print "**** EXPORING CLUSTER ****\n\n";
  74     &exportcluster;
  75     print "**** DROPPING ALL OBJECTS IN USER SCHEMA ****\n\n";
  76     &wipeschema;
  77     print "**** RECREATING ORACLE USER TYPES ****\n\n";
  78     &createtypes;
  79     print "**** IMPORTING CLUSTER  ****\n\n";
  80     &importcluster;
  81     print "**** RECOMPILING USER PACKAGES ****\n\n";
  82     &recompilepackages;
  83     print "**** CLUSTER COPY COMPLETE ****\n\n";
  84     print "Notes:\n\n";
  85     print "All packages may not recompile depending the version delta between the cluster packages\n";
  86     print " and your user schema packages\n\n";
  87     print "You need to sync your game code to a version that will work with the cluster schema\n";
  88     print " using perforce and then update the packages using database_update.pl\n\n";
  89     print "What version to sync to is up to you depending on what you'd like to test\n\n";
  90 }
  91
  92 #-----------------------------------------------------------------------
  93
  94 #export cluster to file using direct path
  95 sub exportcluster
  96 {
  97     system ("exp ".&login." file=cluster.dmp owner=$::opt_source direct=y > output.tmp");
  98 }
  99
 100 #-----------------------------------------------------------------------
 101
 102 #import cluster from file using direct path
 103 sub importcluster
 104 {
 105     system ("imp ".&login." file=cluster.dmp fromuser=$::opt_source touser=".&username." >> output.tmp");
 106 }
 107
 108 #-----------------------------------------------------------------------
 109
 110 #wipe all objects in user schema
 111 sub wipeschema
 112 {
 113     system (&sqlplus." @../../queries/drop_all_objects.sql >> output.tmp");
 114 }
 115
 116 #-----------------------------------------------------------------------
 117
 118 #recompile invalid packages
 119 sub recompilepackages
 120 {
 121     system ("./check_objects.sh ".&login." >> output.tmp");
 122     system (&sqlplus." \@check_objects.sql >> output.tmp");
 123 }
 124
 125 #-----------------------------------------------------------------------
 126
 127 # recreate Oracle typedefs after wipe since typedef can't be imported
 128 sub createtypes
 129 {
 130     open (CREATELIST,"ls ../../schema/*.type|");
 131     while (<CREATELIST>)
 132     {
 133         print $_;
 134         chop;
 135         system (&sqlplus." < $_ > /tmp/database_update.tmp");
 136         &checkError("/tmp/database_update.tmp");
 137     }
 138     close (CREATELIST);
 139 }
 140
 141 #-----------------------------------------------------------------------
 142
 143 # Return oracle username string
 144 sub username
 145 {
 146     my ($user);
 147     $user=$::opt_username;
 148     $user=$ENV{"USER"} if ($user eq "");
 149
 150     $user =~ tr/A-Z/a-z/;
 151
 152     return "$user";
 153 }
 154
 155 #-----------------------------------------------------------------------
 156
 157 # Return oracle password string
 158 sub password
 159 {
 160     my ($pwd);
 161     $pwd=$::opt_password;
 162     $pwd=$ENV{"DB_PASSWORD"} if ($pwd eq "");
 163     $pwd="changeme" if ($pwd eq "");
 164
 165     return "$pwd";
 166 }
 167
 168 #-----------------------------------------------------------------------
 169
 170 # Return oracle service string
 171 sub service
 172 {
 173     my ($db);
 174     $db=$::opt_service;
 175     $db="swodb" if ($db eq "");
 176
 177     return "$db";
 178 }
 179
 180 #-----------------------------------------------------------------------
 181
 182 # Return oracle login command string
 183 sub login
 184 {
 185     return &username."/".&password."\@".&service;
 186 }
 187
 188 #-----------------------------------------------------------------------
 189
 190 # Return the sqlplus command string
 191 sub sqlplus
 192 {
 193     return "sqlplus ".&login;
 194 }
 195
 196 #-----------------------------------------------------------------------
 197
 198 sub checkError
 199 {
 200     my ($filename,$dontdie)=@_;
 201
 202     open (CHECKFILE,$filename);
 203     while (<CHECKFILE>)
 204     {
 205         if (/ERROR/ || /created with compilation errors/ )
 206         {
 207             print;
 208             while (<CHECKFILE>)
 209             {
 210                 last if (/Disconnected from Oracle/);
 211                 print;
 212             }
 213             close CHECKFILE;
 214             #system("rm $filename");
 215             die unless $dontdie;
 216             last;
 217         }
 218     }
 219     close (CHECKFILE);
 220     system("rm -f $filename");
 221 }
 222