TXSQL/txsql_package.pl at 8.0.30 · OpenTenBase/TXSQL · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
#!/usr/bin/perl
=pod
  Usage:
    1. ./txsql_package.pl
    2. ./txsql_package.pl optimize
=cut

### 修改这里的参数配置作为输入参数
### 请把her.cnf 和 my.cnf copy 到当前目录
my $dest_version = "8.0.30";
my $dest_version_number = "20221215";
my $dest_dev_type = "ts85_sh02_sh12";

my $dest_pack_name = sprintf("mysql-txsql-%s-%s-linux-x86_64_%s.tar.gz", $dest_version, $dest_version_number, $dest_dev_type);
my $dest_dir_name = sprintf("mysql-txsql-%s-%s-linux-x86_64_%s", $dest_version, $dest_version_number, $dest_dev_type);
print "dest_dir_name=$dest_dir_name\n, dest_pack_name=$dest_pack_name\n";

### 清理以前可能遗留的package和dir
if (-d "bld-release") {
  chdir "bld-release";
  if (-d $dest_dir_name) {
    print "dest_dir_name=$dest_dir_name exists, try remove\n";
    system("rm -r $dest_dir_name") and die("failed to remove dir $dest_dir_name");
  }
  if (-f $dest_pack_name) {
    print "dest_pack_name=$dest_pack_name exists, try remove\n";
    system("rm $dest_pack_name") and die("failed to remove file $dest_pack_name");
  }
  chdir "..";
}

### call build.sh
if ($ARGV[0] eq "optimize") {
  print "Using compilation optimize.\n";
  ### set GCC_BASE to path of compiler,
  ### eg: set 'GCC_BASE=/data1/software/tx-gcc' when gcc's path is '/data1/software/tx-gcc/bin/gcc'.
  my $gccbase=$ENV{'GCC_BASE'};
  if (!$gccbase) {
    print "Environment variable 'GCC_BASE' should be set when using compilation optimization with 'optimize'.\n";
    print "eg: 'export GCC_BASE=/data1/software/tx-gcc'";
    exit 2;
  }
  print "ENV GCC_BASE=$gccbase\n";

  system("./build.sh -t release --stage3") and die("failed to build check compile.");
} else {
  system("./build.sh -t release") and die("failed to build check compile");
}


### call make package, this may call
chdir "bld-release";
print "=== calling make package to get original mysql package and package name ===\n";
my $make_output = `make package`;
my $ret = $?;
if ($ret != 0) {
  print "make package failed, ret=$ret\n";
  exit $ret;
}

my @lines = split(/\n/, $make_output);
my @output = split(' ', $lines[-1]);
my $package_name = $output[3];
my $tar_name = (split(/\//, $package_name))[-1];
print "=== make package finished tar_name=$tar_name ===\n";

### generate cdb type package, add her.cnf and tmy.conf
print "=== begin to do txsql package work ===\n";
my $to_rename_dir = substr($tar_name, 0, -7);
system("mkdir $dest_dir_name") and die("failed to mkdir for $dest_dir_name");
system("tar xvf $tar_name -C $dest_dir_name") and die("failed to unpack package_name=$package_name into $dest_dir_name");
system("mv $dest_dir_name/$to_rename_dir $dest_dir_name/mysql") and die("failed to rename in $dest_dir_name");
system("cp ../tmy.conf $dest_dir_name") and die("failed to put in tmy.conf");
system("cp ../her.cnf $dest_dir_name") and die("failed to put in her.cnf");
if ( $ARGV[0] eq "optimize" ) {
  my $gccbase=$ENV{'GCC_BASE'};
  print "cp $gccbase/lib64/libstdc++.so.6 $dest_dir_name/mysql/lib/private/\n";
  system("cp $gccbase/lib64/libstdc++.so.6 $dest_dir_name/mysql/lib/private/") and die("failed to put libstdc++.so.6");
}
system("tar -zcvf $dest_dir_name.tar.gz $dest_dir_name") and die("failed to package $dest_dir_name");
system("mv $dest_dir_name.tar.gz ..") and die("failed to mv $dest_dir_name");

print "=== finished to do txsql package work, txsql package_name=$dest_dir_name.tar.gz ===\n";