percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-03 02:55:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add build-packages (work in progress), new-copyright-year, and deb and rpm config files.

Browse Source
This commit is contained in:
Daniel Nichter
2011-07-15 12:52:17 -06:00
parent 48cf39930b
commit a932d56d75
13 changed files with 826 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Makefile.PL
View File

@@ -1,10 +1,10 @@
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'percona-toolkit',
VERSION_FROM => 'docs/percona-toolkit.pod',
EXE_FILES => [ <bin/*> ],
MAN1PODS => {
NAME => 'percona-toolkit',
VERSION => '0.9.0',
EXE_FILES => [ <bin/*> ],
MAN1PODS => {
'docs/percona-toolkit.pod' => 'blib/man1/percona-toolkit.1',
map {
(my $name = $_) =~ s/^bin.//;

3
bin/pt-stalk
View File

@@ -167,8 +167,7 @@ done
=head1 NAME
pt-stalk - Watch MySQL and run the 'collect' program when some condition
becomes true.
pt-stalk - Watch MySQL and run the 'collect' program when some condition becomes true.
=head1 SYNOPSIS

401
config/deb/changelog Normal file
View File

@@ -0,0 +1,401 @@
maatkit (7540-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Wed, 08 Jun 2011 10:28:11 -0600
maatkit (7486-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Thu, 05 May 2011 13:59:32 -0600
maatkit (7410-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Mon, 04 Apr 2011 20:30:47 -0600
maatkit (7332-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Sat, 12 Mar 2011 10:39:26 -0700
maatkit (7284-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Wed, 09 Feb 2011 20:08:03 -0700
maatkit (7207-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Thu, 06 Jan 2011 15:08:22 -0700
maatkit (7119-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Sat, 11 Dec 2010 15:42:40 -0700
maatkit (7041-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Mon, 08 Nov 2010 20:17:13 -0700
maatkit (6960-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Sat, 09 Oct 2010 16:53:18 -0600
maatkit (6926-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Sat, 11 Sep 2010 14:03:24 -0600
maatkit (6839-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Sun, 01 Aug 2010 12:00:46 -0600
maatkit (6652-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Thu, 01 Jul 2010 15:42:16 -0600
maatkit (6457-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Tue, 08 Jun 2010 16:20:47 -0600
maatkit (6224-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Mon, 03 May 2010 14:08:41 -0600
maatkit (6070-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Thu, 01 Apr 2010 16:41:56 -0600
maatkit (5899-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Mon, 01 Mar 2010 13:21:41 -0700
maatkit (5686-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Mon, 01 Feb 2010 15:52:04 -0700
maatkit (5427-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Wed, 06 Jan 2010 11:10:37 -0700
maatkit (5240-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Wed, 02 Dec 2009 15:26:43 -0700
maatkit (5014-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Fri, 30 Oct 2009 15:07:29 -0600
maatkit (4790-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Thu, 01 Oct 2009 16:24:56 -0400
maatkit (4781-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Wed, 30 Sep 2009 21:18:35 -0400
maatkit (4623-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Mon, 31 Aug 2009 14:57:17 -0400
maatkit (4334-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Fri, 31 Jul 2009 16:10:47 -0400
maatkit (4047-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Tue, 30 Jun 2009 18:18:17 -0600
maatkit (3722-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Tue, 02 Jun 2009 14:40:06 -0600
maatkit (3519-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Sun, 03 May 2009 22:34:36 -0400
maatkit (3329-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Tue, 31 Mar 2009 22:56:11 -0400
maatkit (3119-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Sun, 01 Mar 2009 22:02:52 -0500
maatkit (2979-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Sun, 01 Feb 2009 01:45:56 -0500
maatkit (2725-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Mon, 29 Dec 2008 00:39:11 -0500
maatkit (2582-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Mon, 01 Dec 2008 01:49:03 -0500
maatkit (2442-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Sat, 18 Oct 2008 17:40:40 -0400
maatkit (2325-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Fri, 19 Sep 2008 11:18:26 -0400
maatkit (2152-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <baron.schwartz@gmail.com> Tue, 12 Aug 2008 00:14:31 -0400
maatkit (1972-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Mon, 02 Jun 2008 00:24:44 -0400
maatkit (1877-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sun, 16 Mar 2008 15:21:44 -0400
maatkit (1753-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sun, 10 Feb 2008 17:49:52 -0500
maatkit (1709-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Thu, 24 Jan 2008 07:51:03 -0500
maatkit (1674-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sat, 05 Jan 2008 13:54:36 -0500
maatkit (1579-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Thu, 27 Dec 2007 18:41:25 -0500
maatkit (1508-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sun, 16 Dec 2007 22:49:36 -0500
maatkit (1417-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Fri, 07 Dec 2007 17:52:45 -0500
maatkit (1316-2) unstable; urgency=low
* Add Vcs-* and Homepage fields to source stanza in control file.
-- Norbert Tretkowski <nobse@debian.org> Fri, 30 Nov 2007 15:46:40 +0100
maatkit (1316-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Mon, 26 Nov 2007 16:36:59 -0500
maatkit (1314-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Mon, 26 Nov 2007 15:47:10 -0500
maatkit (1297-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sun, 18 Nov 2007 22:47:28 -0500
maatkit (1204-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sun, 4 Nov 2007 19:43:46 -0500
maatkit (1053-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Mon, 15 Oct 2007 18:25:58 -0400
maatkit (1030-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Tue, 9 Oct 2007 21:52:18 -0400
maatkit (1012-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Fri, 5 Oct 2007 08:33:41 -0400
maatkit (1004-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Thu, 4 Oct 2007 20:41:38 -0400
maatkit (989-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Wed, 3 Oct 2007 21:20:13 -0400
maatkit (946-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Mon, 1 Oct 2007 16:59:08 -0400
maatkit (896-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Thu, 20 Sep 2007 20:52:32 -0400
maatkit (848-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sat, 1 Sep 2007 12:38:25 -0400
maatkit (842-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sat, 1 Sep 2007 12:23:39 -0400
maatkit (815-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Thu, 23 Aug 2007 11:08:45 -0400
maatkit (763-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sat, 4 Aug 2007 06:38:26 -0400
maatkit (738-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sat, 28 Jul 2007 20:04:12 -0400
maatkit (725-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Thu, 26 Jul 2007 17:11:36 -0400
maatkit (675-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Fri, 20 Jul 2007 08:19:29 -0400
maatkit (646-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sun, 15 Jul 2007 10:51:01 -0400
maatkit (636-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Tue, 10 Jul 2007 22:10:22 -0400
maatkit (620-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sun, 8 Jul 2007 13:37:10 -0400
maatkit (597) unstable; urgency=low
* New upstream release.
-- Christian Hammers <ch@debian.org> Mon, 25 Jun 2007 21:39:12 +0200
maatkit (547-1) unstable; urgency=low
* New upstream release.
-- Baron Schwartz <bps7j@users.sourceforge.net> Sun, 10 Jun 2007 22:32:00 -0500

2
config/deb/compat Normal file
View File

@@ -0,0 +1,2 @@
5

21
config/deb/control Normal file
View File

@@ -0,0 +1,21 @@
Source: maatkit
Section: utils
Priority: optional
Maintainer: Baron Schwartz <baron.schwartz@gmail.com>
Uploaders: Norbert Tretkowski <nobse@debian.org>
Build-Depends: debhelper (>= 4.2)
Build-Depends-Indep: perl (>= 5.6.0-16), libdbi-perl (>= 1.13), libdbd-mysql-perl (>= 1.0), libterm-readkey-perl (>=2.10)
Standards-Version: 3.7.2
Homepage: http://code.google.com/p/maatkit/
Vcs-Browser: http://code.google.com/p/maatkit/source/browse/
Vcs-Svn: http://code.google.com/p/maatkit/source/browse/
Package: maatkit
Architecture: all
Replaces: mysqltoolkit
Depends: ${perl:Depends}, libdbi-perl (>= 1.13), libdbd-mysql-perl | libdbd-mysql-5.1-perl, libterm-readkey-perl (>=2.10)
Description: Command-line utilities for MySQL
Contains utilities to check replication slaves for consistency with the
master, efficiently synchronize remote tables, archive rows from OLTP
servers, log deadlocks, find duplicate indexes and foreign keys, profile
queries, and perform other essential tasks.

32
config/deb/copyright Normal file
View File

@@ -0,0 +1,32 @@
This package was debianized by Baron Schwartz <baron.schwartz@gmail.com> on
Sun, 10 Jun 2007 22:30:36 -0500
It was downloaded from http://code.google.com/p/maatkit/
Debian Sponsor: Norbert Tretkowski <nobse@debian.org>
Upstream Author: Baron Schwartz <baron.schwartz@gmail.com>
Copyright: "Copyright(c) 2006-2007 Baron Schwartz"
License:
This software is dual licensed, either GPL version 2 or Artistic License.
This package is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, version 2; OR the Perl Artistic License.
This package is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this package; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
On Debian systems, the complete text of the GNU General Public License version 2
can be found in `/usr/share/common-licenses/GPL-2'.
On Debian systems, the complete text of the Artistic License can
be found in `/usr/share/common-licenses/Artistic'.

47
config/deb/rules Executable file
View File

@@ -0,0 +1,47 @@
#!/usr/bin/make -f
build: build-stamp
build-stamp:
dh_testdir
perl Makefile.PL INSTALLDIRS=vendor
$(MAKE)
touch build-stamp
clean:
dh_testdir
dh_testroot
-rm -f build-stamp
[ ! -f Makefile ] || $(MAKE) distclean
dh_clean
install: build
dh_testdir
dh_testroot
dh_clean
dh_installdirs
$(MAKE) install DESTDIR=$(CURDIR)/debian/maatkit
rm -rf debian/maatkit/usr/lib
binary-arch:
binary-indep: build install
dh_testdir
dh_testroot
dh_installdocs
dh_installmenu
dh_installchangelogs Changelog
dh_installdocs
dh_install
dh_installman
dh_compress
dh_fixperms
dh_perl
dh_installdeb
dh_gencontrol
dh_md5sums
dh_builddeb
binary: binary-indep
.PHONY: binary binary-arch binary-indep clean checkroot

3
config/deb/watch Normal file
View File

@@ -0,0 +1,3 @@
version=3
http://code.google.com/p/maatkit/downloads/list \
http://maatkit.googlecode.com/files/maatkit-(.*)\.tar\.gz debian

44
config/rpm/maatkit-redhat.spec Normal file
View File

@@ -0,0 +1,44 @@
Summary: Maatkit is a collection of essential command-line utilities for MySQL
Name: maatkit
Version: @DISTRIB@
Release: 1%{?dist}
Source: %{name}-%{version}.tar.gz
License: GPL
Group: Development/Tools
URL: http://code.google.com/p/maatkit/
BuildRoot: %{_tmppath}/%{name}-root
Requires: perl(DBD::mysql)
BuildArch: noarch
%description
Maatkit is a collection of essential command-line utilities for MySQL. Each is completely stand-alone, without dependencies other than core Perl and the DBI drivers needed to connect to MySQL, and doesn't need to be "installed" - you can just execute the scripts. This makes the tools easy to use on systems where you can't install anything extra, such as customer sites or ISPs.
%prep
%setup -q
%build
%install
rm -rf $RPM_BUILD_ROOT
%{__perl} Makefile.PL PREFIX=$RPM_BUILD_ROOT%{_prefix}
make install
find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';'
find $RPM_BUILD_ROOT -type f -name perllocal.pod -exec rm -f {} ';'
%clean
rm -rf $RPM_BUILD_ROOT
%files
%defattr(-,root,root)
%doc Changelog COPYING MANIFEST README
%{_bindir}/*
%{_mandir}/man1/*
%{_mandir}/man3/*
%{perl_sitelib}/*
%changelog
* Thu Sep 18 2008 Robin Bowes <robin@robinbowes.com> - 2
- Added BuildArch: noarch
* Wed Aug 13 2008 Baron Schwartz <baron.schwartz@gmail.com> - 1
- Contributed by Spil Games

60
config/rpm/maatkit.spec Normal file
View File

@@ -0,0 +1,60 @@
Name: maatkit
Version: @DISTRIB@
Release: 1%{?dist}
Summary: Essential command-line utilities for MySQL
Group: Applications/Databases
License: GPL
URL: http://code.google.com/p/maatkit/
Source0: http://maatkit.googlecode.com/files/%{name}-%{version}.tar.gz
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch: noarch
Requires: perl(DBI) >= 1.13, perl(DBD::mysql) >= 1.0, perl(Term::ReadKey) >= 2.10
# perl-DBI is required by perl-DBD-MySQL anyway
%description
This toolkit contains essential command-line utilities for MySQL, such as a
table checksum tool and query profiler. It provides missing features such as
checking slaves for data consistency, with emphasis on quality and
scriptability.
%prep
%setup -q
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor < /dev/null
make %{?_smp_mflags}
%install
rm -rf $RPM_BUILD_ROOT
make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';'
find $RPM_BUILD_ROOT -type d -depth -exec rmdir {} 2>/dev/null ';'
find $RPM_BUILD_ROOT -type f -name maatkit.pod -exec rm -f {} ';'
chmod -R u+w $RPM_BUILD_ROOT/*
%clean
rm -rf $RPM_BUILD_ROOT
%files
%defattr(-,root,root,-)
%doc COPYING INSTALL Changelog*
%{_bindir}/*
%{_mandir}/man1/*.1*
%changelog
* Fri Aug 14 2009 Robin Bowes <robin@robinbowes.com> - 3
Use perl Requires, rather than rpm packages
* Fri Sep 19 2008 Jeremy Cole <baron@percona.com> - 2
- lowercased the MySQL in requires perl-DBD-mysql
* Tue Jun 12 2007 Sven Edge <sven@curverider.co.uk> - 547-1
- initial packaging attempt

6
docs/percona-toolkit.pod
View File

@@ -1,9 +1,3 @@
package Percona::Toolkit;
our $VERSION = '1.0.0';
1;
=pod
=head1 NAME

183
util/build-packages Executable file
View File

@@ -0,0 +1,183 @@
#!/usr/bin/env bash
# Bail out on errors, be strict
set -ue
# ############################################################################
# Standard startup, find the branch's root directory
# ############################################################################
exit_status=0
die() {
echo "$1" >&2
exit 1
}
warn() {
echo "$1" >&2
exit_status=1
}
if [ -n "$PERCONA_TOOLKIT_BRANCH" ]; then
BRANCH=$PERCONA_TOOLKIT_BRANCH
cd $BRANCH
else
while [ ! -f Makefile.PL ] && [ $(pwd) != "/" ]; do
cd ..
done
if [ ! -f Makefile.PL ]; then
die "Cannot find the root directory of the Percona Toolkit branch"
exit 1
fi
BRANCH=`pwd`
fi
# ############################################################################
# Paths
# ############################################################################
DOCS=$BRANCH/docs
DEB=$BRANCH/config/deb
RPM=$BRANCH/config/rpm
RELEASE=$BRANCH/release
# ############################################################################
# Subroutines
# ############################################################################
check_branch() {
echo -n "Checking branch... "
local clean_branch=$(bzr version-info --check-clean | grep -i 'clean: True')
if [ -z "$clean_branch" ]; then
die "The branch has uncommitted changes or unknown files"
fi
echo "OK"
}
check_version() {
cd $BRANCH
echo -n "Checking new version $VERSION... "
local current_version=$(expr `cat Makefile.PL | grep VERSION | awk '{print $3}'` : "'\([0-9.]*\)'")
if ! [ "$VERSION" '>' "$current_version" ]; then
die "New version $VERSION is not greater than current version $current_version"
fi
echo "OK"
}
update_version() {
cd $BRANCH/bin
local new_version_str="Percona Toolkit v$VERSION released $DATE"
echo -n "Updating version in tools... "
for tool_file in *; do
sed -i'.bak' -e "s/^Percona Toolkit v.*/$new_version_str/" $tool_file
if [ $? -ne 0 ]; then
die "Error updating version in $tool_file"
fi
rm "$tool_file.bak"
done
local new_versions=$(grep --no-filename '^Percona Toolkit v' * | sort -u)
if [ "$new_versions" != "$new_version_str" ]; then
die "The version in some tool did not update correctly"
fi
echo "OK"
echo -n "Updating version in Makefile.PL... "
sed -i'.bak' -e "s/'[0-9.]*'/'$VERSION'/" Makefile.PL
if [ $? -ne 0 ]; then
die "Error updating version in Makefile.PL"
fi
rm "Makefile.PL.bak"
echo "OK"
}
update_copyright_year() {
cd $BRANCH/bin
echo -n "Updating copyright year in tools... "
for tool_file in *; do
local copyright=$(grep "[0-9] Percona Inc." $tool_file);
local new_copyright=$(../util/new-copyright-year $YEAR "$copyright")
if [ $? -ne 0 ]; then
die "Error parsing copyright year in $tool_file"
fi
sed -i'.bak' -e "s/^$copyright/$new_copyright/" $tool_file
if [ $? -ne 0 ]; then
die "Error updating copyright year in $tool_file"
fi
rm "$tool_file.bak"
done
echo "OK"
echo -n "Updating copyright year in percona-toolkit.pod..."
local pod=$DOCS/percona-toolkit.pod
local copyright=$(grep "[0-9] Percona Inc." $pod)
local new_copyright=$(../util/new-copyright-year $YEAR "$copyright")
if [ $? -ne 0 ]; then
die "Error parsing copyright year in percona-toolkit.pod"
fi
sed -i'.bak' -e "s/^$copyright/$new_copyright/" $pod
if [ $? -ne 0 ]; then
die "Error updating copyright year in percona-toolkit.pod"
fi
rm $pod.bak
echo "OK"
}
make_manifest() {
cd $BRANCH
echo -n "Making MANIFEST... "
echo -n > MANIFEST
for file in *; do
if [ -f $file ]; then
echo $file >> MANIFEST
fi
done
find bin/pt-* >> MANIFEST
echo "OK"
}
update_percona_toolkit_pod() {
cd $BRANCH/bin
local pod=$DOCS/percona-toolkit.pod
for tool in *; do
desc=$(grep -A 2 '^=head1 NAME' $tool | tail -n 1 | sed 's/ - /:/' | cut -d':' -f2)
echo "=item $tool
$desc
"
done
echo "=over" >> $pod
}
# ############################################################################
# Script starts here
# ############################################################################
if [ $# -eq 0 ]; then
die "Usage: $0 VERSION"
fi
#check_branch
DATE=$(date -u +'%F')
VERSION=$1
# check_version
# update_version
YEAR=$(date -u +'%Y');
#update_copyright_year
#make_manifest
update_percona_toolkit_pod
exit $exit_status

28
util/new-copyright-year Executable file
View File

@@ -0,0 +1,28 @@
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
eval {
my ($year, $copyright) = @ARGV;
my ($years) = $copyright =~ m/(\S+) Percona Inc./;
my ($first_year, $last_year) = split /-/, $years;
my $new_copyright;
if ( $first_year && $last_year ) {
$new_copyright = "$first_year-$year Percona Inc."
}
elsif ( $first_year < $year ) {
$new_copyright = "$first_year-$year Percona Inc."
}
else {
$new_copyright = "$first_year Percona Inc."
}
$copyright =~ s/\S+ Percona Inc./$new_copyright/;
print $copyright;
};
die $EVAL_ERROR if $EVAL_ERROR;
exit 0;