← Back to branch summary

~mathiaz/ubuntu/lucid/mysql-dfsg-5.1/zap-bug-552053

« back to all changes in this revision

Viewing changes to mysql-test/lib/mtr_unique.pm

  • Committer: Bazaar Package Importer
  • Author(s): Mathias Gug
  • Date: 2009-06-25 12:55:45 UTC
  • mfrom: (1.1.2 upstream) (0.1.3 experimental)
  • Revision ID: james.westby@ubuntu.com-20090625125545-m8ogs96zzsri74xe
Tags: 5.1.34-1ubuntu1
https://launchpad.net/bugs/319843
https://launchpad.net/bugs/259477
https://launchpad.net/bugs/310211
https://launchpad.net/bugs/201799
https://launchpad.net/bugs/316974
http://bugs.debian.org/314785
http://bugs.debian.org/324834
http://bugs.debian.org/435165
http://bugs.debian.org/444216
https://launchpad.net/bugs/344816
https://launchpad.net/bugs/323755
* Merge from debian experimental (and 5.0 from main), remaining changes:
  - debian/mysql-server-5.1.config:
    + ask for MySQL root password at priority high instead of medium so
      that the password prompt is seen on a default install. (LP: #319843)
    + don't ask for root password when upgrading from a 5.0 install.
  - debian/control:
    + Make libmysqlclient16-dev a transitional package depending on
      libmysqlclient-dev.
    + Make libmysqlclient-dev conflict with libmysqlclient15-dev.
    + Don't build mysql-server, mysql-client, mysql-common and
      libmysqlclient15-dev binary packages since they're still provided
      by mysql-dfsg-5.0.
    + Make mysql-{client,server}-5.1 packages conflict and
      replace mysql-{client,server}-5.0, but not provide
      mysql-{client,server}.
    + Depend on a specific version of mysql-common rather than the src
      version of mysql-dfsg-5.1 since mysql-common is currently part of
      mysql-dfsg-5.0.
    + Lower mailx from a Recommends to a Suggests to avoid pulling in
      a full MTA on all installs of mysql-server. (LP: #259477)
  - debian/rules:
    + added -fno-strict-aliasing to CFLAGS to get around mysql testsuite
      build failures.
    + install mysql-test and sql-bench to /usr/share/mysql/ rather than
      /usr/.
  - debian/additions/debian-start.inc.sh: support ANSI mode (LP: #310211)
  - Add AppArmor profile:
    - debian/apparmor-profile: apparmor profile.
    - debian/rules, debian/mysql-server-5.0.files: install apparmor profile.
    - debian/mysql-server-5.0.dirs: add etc/apparmor.d/force-complain
    - debian/mysql-server-5.0.postrm: remove symlink in force-complain/ on
      purge.
    - debian/mysql-server-5.1.README.Debian: add apparmor documentation.
    - debian/additions/my.cnf: Add warning about apparmor. (LP: #201799)
    - debian/mysql-server-5.1.postinst: reload apparmor profiles.
  - debian/additions/my.cnf: remove language option. Error message files are
    located in a different directory in MySQL 5.0. Setting the language
    option to use /usr/share/mysql/english breaks 5.0. Both 5.0 and 5.1
    use a default value that works. (LP: #316974)
  - debian/mysql-server-5.1.mysql.init:
    + Clearly indicate that we do not support running multiple instances
      of mysqld by duplicating the init script.
      (closes: #314785, #324834, #435165, #444216)
    + Properly parameterize all existing references to the mysql config
      file (/etc/mysql/my.cnf).
  - debian/mysql-server-5.0.postinst: Clear out the second password
    when setting up mysql. (LP: #344816)
  - mysql-server-core-5.1 package for files needed by Akonadi:
    + debian/control: create mysql-server-core-5.1 package.
    + debian/mysql-server-core-5.1.files, debian/mysql-server-5.1.files:
      move core mysqld files to mysql-server-core-5.1 package.
  - Don't package sql-bench and mysql-test file.
* Dropped changes:
  - debian/patches/92_ssl_test_cert.dpatch: certificate expiration in
    test suite (LP: #323755). Included upstream.
* Dropped from 5.0:
  - apparmor profile:
    - debian/control: Recommends apparmor >= 2.1+1075-0ubuntu6. All version
      of apparmor-profile (>hardy) are higher than this version.
    - debian/mysql-server-5.0.preinst: create symlink for force-complain/
      on pre-feisty upgrades, upgrades where apparmor-profiles profile is
      unchanged (ie non-enforcing) and upgrades where the profile
      doesn't exist. Support for pre-hardy upgrades is no longer needed.
* debian/mysql-server-5.1.postinst: fix debian-sys-maint user creation.

Show diffs side-by-side

added added

removed removed

Lines of Context:
mysql-test/lib/mtr_unique.pm
 
1
# -*- cperl -*-
 
2
# Copyright (C) 2006 MySQL AB
 
3
# 
 
4
# This program is free software; you can redistribute it and/or modify
 
5
# it under the terms of the GNU General Public License as published by
 
6
# the Free Software Foundation; version 2 of the License.
 
7
# 
 
8
# This program is distributed in the hope that it will be useful,
 
9
# but WITHOUT ANY WARRANTY; without even the implied warranty of
 
10
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
11
# GNU General Public License for more details.
 
12
# 
 
13
# You should have received a copy of the GNU General Public License
 
14
# along with this program; if not, write to the Free Software
 
15
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
16
 
 
17
package mtr_unique;
 
18
 
 
19
use strict;
 
20
use Fcntl ':flock';
 
21
 
 
22
use base qw(Exporter);
 
23
our @EXPORT= qw(mtr_get_unique_id mtr_release_unique_id);
 
24
 
 
25
use My::Platform;
 
26
 
 
27
sub msg {
 
28
 # print "### unique($$) - ", join(" ", @_), "\n";
 
29
}
 
30
 
 
31
my $file;
 
32
 
 
33
if(!IS_WINDOWS)
 
34
{
 
35
  $file= "/tmp/mysql-test-ports";
 
36
}
 
37
else
 
38
{
 
39
  $file= $ENV{'TEMP'}."/mysql-test-ports";
 
40
}
 
41
  
 
42
 
 
43
my %mtr_unique_ids;
 
44
 
 
45
END {
 
46
  my $allocated_id= $mtr_unique_ids{$$};
 
47
  if (defined $allocated_id)
 
48
  {
 
49
    mtr_release_unique_id($allocated_id);
 
50
  }
 
51
  delete $mtr_unique_ids{$$};
 
52
}
 
53
 
 
54
#
 
55
# Get a unique, numerical ID, given a file name (where all
 
56
# requested IDs are stored), a minimum and a maximum value.
 
57
#
 
58
# If no unique ID within the specified parameters can be
 
59
# obtained, return undef.
 
60
#
 
61
sub mtr_get_unique_id($$) {
 
62
  my ($min, $max)= @_;;
 
63
 
 
64
  msg("get, '$file', $min-$max");
 
65
 
 
66
  die "Can only get one unique id per process!" if $mtr_unique_ids{$$};
 
67
 
 
68
  my $ret = undef;
 
69
  my $changed = 0;
 
70
 
 
71
  if(eval("readlink '$file'") || eval("readlink '$file.sem'")) {
 
72
    die 'lock file is a symbolic link';
 
73
  }
 
74
 
 
75
  chmod 0777, "$file.sem";
 
76
  open SEM, ">", "$file.sem" or die "can't write to $file.sem";
 
77
  flock SEM, LOCK_EX or die "can't lock $file.sem";
 
78
  if(! -e $file) {
 
79
    open FILE, ">", $file or die "can't create $file";
 
80
    close FILE;
 
81
  }
 
82
 
 
83
  msg("HAVE THE LOCK");
 
84
 
 
85
  if(eval("readlink '$file'") || eval("readlink '$file.sem'")) {
 
86
    die 'lock file is a symbolic link';
 
87
  }
 
88
 
 
89
  chmod 0777, $file;
 
90
  open FILE, "+<", $file or die "can't open $file";
 
91
  #select undef,undef,undef,0.2;
 
92
  seek FILE, 0, 0;
 
93
  my %taken = ();
 
94
  while(<FILE>) {
 
95
    chomp;
 
96
    my ($id, $pid) = split / /;
 
97
    $taken{$id} = $pid;
 
98
    msg("taken: $id, $pid");
 
99
    # Check if process with given pid is alive
 
100
    if(!process_alive($pid)) {
 
101
      print "Removing slot $id used by missing process $pid\n";
 
102
      msg("Removing slot $id used by missing process $pid");
 
103
      delete $taken{$id};
 
104
      $changed++;
 
105
    }
 
106
  }
 
107
  for(my $i=$min; $i<=$max; ++$i) {
 
108
    if(! exists $taken{$i}) {
 
109
      $ret = $i;
 
110
      $taken{$i} = $$;
 
111
      $changed++;
 
112
      # Remember the id this process got
 
113
      $mtr_unique_ids{$$}= $i;
 
114
      msg(" got $i"); 
 
115
      last;
 
116
    }
 
117
  }
 
118
  if($changed) {
 
119
    seek FILE, 0, 0;
 
120
    truncate FILE, 0 or die "can't truncate $file";
 
121
    for my $k (keys %taken) {
 
122
      print FILE $k . ' ' . $taken{$k} . "\n";
 
123
    }
 
124
  }
 
125
  close FILE;
 
126
 
 
127
  msg("RELEASING THE LOCK");
 
128
  flock SEM, LOCK_UN or warn "can't unlock $file.sem";
 
129
  close SEM;
 
130
 
 
131
  return $ret;
 
132
}
 
133
 
 
134
 
 
135
#
 
136
# Release a unique ID.
 
137
#
 
138
sub mtr_release_unique_id($) {
 
139
  my ($myid)= @_;
 
140
 
 
141
  msg("release, $myid");
 
142
 
 
143
 
 
144
  if(eval("readlink '$file'") || eval("readlink '$file.sem'")) {
 
145
    die 'lock file is a symbolic link';
 
146
  }
 
147
 
 
148
  open SEM, ">", "$file.sem" or die "can't write to $file.sem";
 
149
  flock SEM, LOCK_EX or die "can't lock $file.sem";
 
150
 
 
151
  msg("HAVE THE LOCK");
 
152
 
 
153
  if(eval("readlink '$file'") || eval("readlink '$file.sem'")) {
 
154
    die 'lock file is a symbolic link';
 
155
  }
 
156
 
 
157
  if(! -e $file) {
 
158
    open FILE, ">", $file or die "can't create $file";
 
159
    close FILE;
 
160
  }
 
161
  open FILE, "+<", $file or die "can't open $file";
 
162
  #select undef,undef,undef,0.2;
 
163
  seek FILE, 0, 0;
 
164
  my %taken = ();
 
165
  while(<FILE>) {
 
166
    chomp;
 
167
    my ($id, $pid) = split / /;
 
168
    msg(" taken, $id $pid");
 
169
    $taken{$id} = $pid;
 
170
  }
 
171
 
 
172
  if ($taken{$myid} != $$)
 
173
  {
 
174
    msg(" The unique id for this process does not match pid");
 
175
  }
 
176
 
 
177
 
 
178
  msg(" removing $myid");
 
179
  delete $taken{$myid};
 
180
  seek FILE, 0, 0;
 
181
  truncate FILE, 0 or die "can't truncate $file";
 
182
  for my $k (keys %taken) {
 
183
    print FILE $k . ' ' . $taken{$k} . "\n";
 
184
  }
 
185
  close FILE;
 
186
 
 
187
  msg("RELEASE THE LOCK");
 
188
 
 
189
  flock SEM, LOCK_UN or warn "can't unlock $file.sem";
 
190
  close SEM;
 
191
 
 
192
  delete $mtr_unique_ids{$$};
 
193
}
 
194
 
 
195
 
 
196
1;
 
197