tools/startServer.pl

   1 #! /usr/bin/perl
   2 # ======================================================================
   3 # ======================================================================
   4
   5 use strict;
   6 use warnings;
   7
   8 # ======================================================================
   9 # Globals
  10 # ======================================================================
  11
  12 my $scriptName = $0;
  13 $scriptName =~ s/^(.*)[\\\/]//;
  14
  15 # ======================================================================
  16 # Subroutines
  17 # ======================================================================
  18
  19 sub usage()
  20 {
  21         die "\nUsage:\n\t$scriptName current [ debug | release ] (default is debug)\n";
  22 }
  23
  24 sub perforceWhere
  25 {
  26         local $_;
  27
  28         # find out where a perforce file resides on the local machine
  29         my $result;
  30         {
  31                 open(P4, "p4 where $_[0] |");
  32                         $_ = <P4>;
  33                         chomp;
  34                         my @where = split;
  35                         $result = $where[2];
  36                 close(P4);
  37         }
  38
  39         return $result;
  40 }
  41
  42 # ======================================================================
  43 # Main
  44 # ======================================================================
  45
  46 usage() if(@ARGV == 0 || (@ARGV >= 2 && $ARGV[1] ne "debug" && $ARGV[1] ne "release"));
  47
  48 my $branch = shift;
  49 my $serverType = (@ARGV) ? shift : "debug";
  50
  51 # Update database
  52 {
  53         chdir(perforceWhere("//depot/swg/$branch/src/game/server/database/build/linux")) or die "Cannot change directory to database directory\n";
  54
  55         my $update_complete = 1;
  56         my $dbUser = $ENV{"USER"};
  57         $dbUser .= "_$branch" if($branch ne "current");
  58
  59         system("perl database_update.pl --delta --username=$dbUser > startServer.log") == 0 or die "database_update failed\n";
  60         open(DBLOG, "startServer.log");
  61         while(<DBLOG>)
  62         {
  63                 $update_complete = 0 if(/ERROR/);
  64         }
  65         close(DBLOG);
  66
  67         die "Error while updating database - detailed info in startServer.log\n" if(!$update_complete);
  68         unlink("startServer.log");
  69 }
  70
  71 chdir(perforceWhere("//depot/swg/$branch/bootleg/linux")) || die "Cannot chdir to ".perforceWhere("//depot/swg/$branch/bootleg/linux")."\n";
  72
  73 # Extract new server exes if they exist
  74 if(-e "servers_${serverType}.tar.gz")
  75 {
  76         print STDERR "Extracting new server exes...\n";
  77         system("tar -xzf servers_${serverType}.tar.gz") == 0 || die "error extracting from $serverType server gzip\n";
  78         system("rm -f servers_${serverType}.tar.gz") == 0 || die "error removing servers_${serverType}.gzip\n";
  79 }
  80
  81 # Start up the server
  82 system("$serverType/LoginServer -- \@loginServer.cfg &") == 0 || die "error starting LoginServer\n";
  83 system("$serverType/TaskManager -- \@taskmanager.cfg &") == 0 || die "error starting TaskManager\n";