Remove duplicate copyright notices. Add POD and copyright for Aspersa tools. Fix checking for "pt-pmp" instead of "pmp", etc.

bin/pt-align

@@ -1,24 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2010 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
 
 # Finds the max element in the list
 sub max {

bin/pt-archiver

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7531 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package (revision 7102)
@@ -5764,7 +5748,7 @@ Thanks to the following people, and apologies to anyone I've omitted:
 
 Andrew O'Brien,
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -5783,7 +5767,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-checksum-filter

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -1357,7 +1341,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -1376,7 +1360,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron "Xaprb" Schwartz
 

bin/pt-collect

@@ -1,33 +1,8 @@
 #!/usr/bin/env bash
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
-
-# ########################################################################
-# A script to collect information from a server for some period of time.
-# Focused on gathering diagnostic data during a MySQL performance problem.
-# Typically executed from the 'stalk' program.
-#
-# Author: Baron Schwartz
-#
-# This program is part of Percona Toolkit.
-# This program was forked from Aspersa (http://code.google.com/p/aspersa/)
-# in June, 2011.
-# ########################################################################
 
 # Print a usage message and exit.
 usage() {
@@ -303,3 +278,51 @@ echo "Gathering info for $d"
    # Finally, record what system we collected this data from.
    hostname > "$OPT_d/$d-hostname"
 )200>/tmp/aspersa-collect-lockfile >> "$OPT_d/$d-output" 2>&1
+
+# ############################################################################
+# Documentation
+# ############################################################################
+:<<'DOCUMENTATION'
+=pod
+
+=head1 NAME
+
+pt-collect - Collect information from a server for some period of time.
+
+=head1 SYNOPSIS
+
+Usage: pt-collect [OPTION...]
+
+=head1 DESCRIPTION
+
+pt-collect focuses on gathering diagnostic data during a MySQL performance
+problem.  It is typically executed by C<stalk>.
+
+=head1 AUTHORS
+
+Baron Schwartz
+
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
+
+This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+Feedback and improvements are welcome.
+
+THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+This program 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.  On UNIX and similar
+systems, you can issue `man perlgpl' or `man perlartistic' to read these
+licenses.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place, Suite 330, Boston, MA  02111-1307  USA.
+legal.pod (END) 
+
+=cut
+
+DOCUMENTATION
+

bin/pt-config-diff

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2010-2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -3229,7 +3213,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2009-@CURRENTYEAR@ Percona Inc.
 Feedback and improvements are welcome.
@@ -3248,9 +3232,9 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Baron Schwartz, Daniel Nichter
+Baron Schwartz and Daniel Nichter
 
 =head1 ABOUT MAATKIT
 

bin/pt-deadlock-logger

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -2701,7 +2685,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -2720,7 +2704,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-diskstats

@@ -1,38 +1,8 @@
 #!/usr/bin/env bash
 
-# This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
-
-# ########################################################################
-# This script reads a file that was generated from /proc/diskstats and
-# summarizes it, kind of like iostat.  The file should look like this:
-#
-# <contents of /proc/diskstats>
-# TS <timestamp>
-# <contents of /proc/diskstats>
-# ... et cetera
-# TS <timestamp>  <-- must end with a TS line.
-#
-# Author: Baron Schwartz
-#
-# This program is part of Percona Toolkit.
-# This program was forked from Aspersa (http://code.google.com/p/aspersa/)
-# in June, 2011.
-# ########################################################################
 
 # ########################################################################
 # A bunch of snippets of awk code, to be reused in the functions below.
@@ -658,6 +628,58 @@ main() {
 
 # Execute the program if it was not included from another file.  This makes it
 # possible to include without executing, and thus test.
-if [ "$(basename "$0")" = "diskstats" ] || [ "$(basename "$0")" = "bash" -a "$_" = "$0" ]; then
+if [ "$(basename "$0")" = "pt-diskstats" ] || [ "$(basename "$0")" = "bash" -a "$_" = "$0" ]; then
     main "$@"
 fi
+
+# ############################################################################
+# Documentation
+# ############################################################################
+:<<'DOCUMENTATION'
+=pod
+
+=head1 NAME
+
+pt-diskstats - Read a file generated from /proc/diskstats and summarize it.
+
+=head1 SYNOPSIS
+
+Usage: pt-diskstats [OPTION...]
+
+=head1 DESCRIPTION
+
+The file read should look like this:
+
+   <contents of /proc/diskstats>
+   TS <timestamp>
+   <contents of /proc/diskstats>
+   ... et cetera
+   TS <timestamp>  <-- must end with a TS line.
+
+=head1 AUTHORS
+
+Baron Schwartz
+
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
+
+This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+Feedback and improvements are welcome.
+
+THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+This program 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.  On UNIX and similar
+systems, you can issue `man perlgpl' or `man perlartistic' to read these
+licenses.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place, Suite 330, Boston, MA  02111-1307  USA.
+legal.pod (END) 
+
+=cut
+
+DOCUMENTATION

bin/pt-duplicate-key-checker

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # VersionParser package 6667
@@ -4223,7 +4207,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -4242,9 +4226,9 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Baron Schwartz, Daniel Nichter
+Baron Schwartz and Daniel Nichter
 
 =head1 ABOUT MAATKIT
 

bin/pt-fifo-split

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -1505,7 +1489,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -1524,7 +1508,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-find

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # DSNParser package 7388
@@ -3777,7 +3761,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome (see L<"BUGS">).
@@ -3796,7 +3780,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-fk-error-logger

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 4247 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -2389,7 +2373,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2009-@CURRENTYEAR@ Percona Inc.
 Feedback and improvements are welcome.
@@ -2408,7 +2392,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Daniel Nichter
 

bin/pt-heartbeat

@@ -1,29 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2006 Proven Scaling LLC and Six Apart Ltd,
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# 2007-2011 Percona Inc.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-# Feedback and improvements are welcome.
+# notices and disclaimers.
-#
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and
-# similar systems, you can issue `man perlgpl' or `man perlartistic' to read
-# these licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7537 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # MasterSlave package 7525
@@ -4427,7 +4410,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Percona Inc.
 and copyright 2006 Proven Scaling LLC and Six Apart Ltd.
@@ -4451,7 +4434,7 @@ Place, Suite 330, Boston, MA  02111-1307  USA.
 
 See also L<mk-slave-delay> and L<mk-slave-restart>.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Proven Scaling LLC, SixApart Ltd, and Baron Schwartz
 

bin/pt-index-usage

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2010-2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # DSNParser package 7388
@@ -5896,7 +5880,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2010-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -5915,9 +5899,9 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Baron Schwartz, Daniel Nichter
+Baron Schwartz and Daniel Nichter
 
 =head1 ABOUT MAATKIT
 

bin/pt-kill

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7531 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -4807,7 +4791,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2009-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -4826,9 +4810,9 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Baron Schwartz, Daniel Nichter
+Baron Schwartz and Daniel Nichter
 
 =head1 ABOUT MAATKIT
 

bin/pt-log-player

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2008-2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7531 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -3600,7 +3584,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2008-@CURRENTYEAR@ Percona Inc.
 Feedback and improvements are welcome.
@@ -3619,7 +3603,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Daniel Nichter
 

bin/pt-mext

@@ -1,30 +1,8 @@
 #!/usr/bin/env bash
 
-# This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
-# This program is part of Aspersa (http://code.google.com/p/aspersa/)
-
-# ########################################################################
-# Author: Baron Schwartz
-#
-# This program is part of Percona Toolkit.
-# This program was forked from Aspersa (http://code.google.com/p/aspersa/)
-# in June, 2011.
-# ########################################################################
 
 usage() {
    echo "Usage: $0 [-r] -- commandline"
@@ -115,3 +93,49 @@ awk "{$AWKCMD}" $FILE`expr $NUM + 1`;
 
 # Remove all temporary files.
 rm -f $FILE*;
+
+# ############################################################################
+# Documentation
+# ############################################################################
+:<<'DOCUMENTATION'
+=pod
+
+=head1 NAME
+
+pt-mext - Aggregate and summarize mysqladmin extended output.
+
+=head1 SYNOPSIS
+
+Usage: pt-mext [OPTION...]
+
+=head1 DESCRIPTION
+
+pt-mext aggregates and summarizes mysqladmin extended output.
+
+=head1 AUTHORS
+
+Baron Schwartz
+
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
+
+This program is copyright 2010 Baron Schwartz, 2011 Percona Inc.
+Feedback and improvements are welcome.
+
+THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+This program 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.  On UNIX and similar
+systems, you can issue `man perlgpl' or `man perlartistic' to read these
+licenses.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place, Suite 330, Boston, MA  02111-1307  USA.
+legal.pod (END) 
+
+=cut
+
+DOCUMENTATION

bin/pt-mysql-summary

@@ -1,39 +1,8 @@
 #!/usr/bin/env bash
 
-# This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
-# This program is part of Aspersa (http://code.google.com/p/aspersa/)
-
-# ########################################################################
-# A script to summarize MySQL information in a nice way.
-# Goals: work well on all UNIXes; create a compact diff-able report that is
-# easy to paste into a wiki or email, and easy to scan and compare too.
-# 
-# To use, simply execute it.  Optionally add the same command-line options
-# you would use to connect to MySQL, such as "./mysql-summary --user=foo"
-#
-# Author: Baron Schwartz
-#
-# This program is part of Percona Toolkit.
-# This program was forked from Aspersa (http://code.google.com/p/aspersa/)
-# in June, 2011.
-# ########################################################################
-
-# TODO: parse queries out of processlist and aggregate them.
 
 # ########################################################################
 # Some global setup is necessary for cross-platform compatibility, even
@@ -1292,4 +1261,58 @@ main() {
 
 # Execute the program if it was not included from another file.  This makes it
 # possible to include without executing, and thus test.
-if [ "$(basename "$0")" = "mysql-summary" ]; then main "$@"; fi
+if [ "$(basename "$0")" = "pt-mysql-summary" ]; then main "$@"; fi
+
+# ############################################################################
+# Documentation
+# ############################################################################
+:<<'DOCUMENTATION'
+=pod
+
+=head1 NAME
+
+pt-mysql-summary - Summarize MySQL information in a nice way.
+
+=head1 SYNOPSIS
+
+Usage: pt-mysql-summary [OPTION...]
+
+=head1 DESCRIPTION
+
+Goals: work well on all UNIXes; create a compact diff-able report that is
+easy to paste into a wiki or email, and easy to scan and compare too.
+
+To use, simply execute it.  Optionally add the same command-line options
+you would use to connect to MySQL, such as "./mysql-summary --user=foo"
+
+=head1 TODO
+
+   * Parse queries out of processlist and aggregate them.
+
+=head1 AUTHORS
+
+Baron Schwartz
+
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
+
+This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+Feedback and improvements are welcome.
+
+THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+This program 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.  On UNIX and similar
+systems, you can issue `man perlgpl' or `man perlartistic' to read these
+licenses.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place, Suite 330, Boston, MA  02111-1307  USA.
+legal.pod (END) 
+
+=cut
+
+DOCUMENTATION

bin/pt-online-schema-change

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7479 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -5263,7 +5247,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2011-@CURRENTYEAR@ Percona Inc.
 Feedback and improvements are welcome.
@@ -5282,7 +5266,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Daniel Nichter
 

bin/pt-pmp

@@ -1,34 +1,8 @@
 #!/usr/bin/env bash
 
-# This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
-# This program is part of Aspersa (http://code.google.com/p/aspersa/)
-
-# ########################################################################
-# This script aggregates GDB stack traces for a selected program.  By default it
-# does mysqld.
-#
-# Author: Baron Schwartz, based on a script by Domas Mituzas at
-# poormansprofiler.org
-#
-# This program is part of Percona Toolkit.
-# This program was forked from Aspersa (http://code.google.com/p/aspersa/)
-# in June, 2011.
-# ########################################################################
 
 # Print a usage message and exit.
 usage() {
@@ -209,6 +183,52 @@ main() {
 
 # Execute the program if it was not included from another file.  This makes it
 # possible to include without executing, and thus test.
-if [ "$(basename "$0")" = "pmp" ] || [ "$(basename "$0")" = "bash" -a "$_" = "$0" ]; then
+if [ "$(basename "$0")" = "pt-pmp" ] || [ "$(basename "$0")" = "bash" -a "$_" = "$0" ]; then
     main "$@"
 fi
+
+# ############################################################################
+# Documentation
+# ############################################################################
+:<<'DOCUMENTATION'
+=pod
+
+=head1 NAME
+
+pt-pmp - Aggregate GDB stack traces for a selected program.
+
+=head1 SYNOPSIS
+
+Usage: pt-pmp [OPTION...]
+
+=head1 DESCRIPTION
+
+pt-pmp aggregates stack traces.
+
+=head1 AUTHORS
+
+Baron Schwartz, based on a script by Domas Mituzas (L<http://poormansprofiler.org/>)
+
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
+
+This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+Feedback and improvements are welcome.
+
+THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+This program 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.  On UNIX and similar
+systems, you can issue `man perlgpl' or `man perlartistic' to read these
+licenses.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place, Suite 330, Boston, MA  02111-1307  USA.
+legal.pod (END) 
+
+=cut
+
+DOCUMENTATION

bin/pt-profile-compact

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -1322,7 +1306,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -1345,7 +1329,7 @@ Place, Suite 330, Boston, MA  02111-1307  USA.
 
 See also L<mk-query-profiler>.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-query-advisor

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2010-2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7531 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # DSNParser package 7388
@@ -7243,7 +7227,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2009-@CURRENTYEAR@ Percona Inc.
 Feedback and improvements are welcome.
@@ -7262,9 +7246,9 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Baron Schwartz, Daniel Nichter
+Baron Schwartz and Daniel Nichter
 
 =head1 ABOUT MAATKIT
 

bin/pt-query-digest

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7531 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # DSNParser package 7388
@@ -15867,7 +15851,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -15886,9 +15870,9 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Baron Schwartz, Daniel Nichter
+Baron Schwartz and Daniel Nichter
 
 =head1 ABOUT MAATKIT
 

bin/pt-query-profiler

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -2808,7 +2792,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -2831,7 +2815,7 @@ Place, Suite 330, Boston, MA  02111-1307  USA.
 
 See also L<mk-profile-compact>.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-rel

@@ -1,26 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2010 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
 use English qw(-no_match_vars);
-
 use constant MKDEBUG => $ENV{MKDEBUG};
 
 my $file = shift @ARGV || '-';

bin/pt-schema-advisor

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2009-2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # VersionParser package 3186
@@ -3729,7 +3713,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2009-@CURRENTYEAR@ Percona Inc.
 Feedback and improvements are welcome.
@@ -3748,9 +3732,9 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Baron Schwartz, Daniel Nichter
+Baron Schwartz and Daniel Nichter
 
 =head1 ABOUT MAATKIT
 

bin/pt-show-grants

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
-
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 use strict;
 use warnings FATAL => 'all';
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
 
 # ###########################################################################
 # OptionParser package 7102
@@ -2186,7 +2170,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -2213,7 +2197,7 @@ a simpler implementation of the same general concept, though without the
 canonicalization.  I borrowed the idea of adding DROP USER from that script,
 and it inspired me to add the REVOKE functionality too.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-sift

@@ -1,31 +1,8 @@
 #!/usr/bin/env bash
 
-# This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
-
-# ########################################################################
-# This script browses the files created by the collect tool.
-#
-# Author: Baron Schwartz
-#
-# This program is part of Percona Toolkit.
-# This program was forked from Aspersa (http://code.google.com/p/aspersa/)
-# in June, 2011.
-# ########################################################################
 
 # Show current help and settings
 print_help() {
@@ -485,3 +462,49 @@ main() {
 if [ "$(basename "$0")" = "sift" ] || [ "$(basename "$0")" = "bash" -a "$_" = "$0" ]; then
     main "$@"
 fi
+
+# ############################################################################
+# Documentation
+# ############################################################################
+:<<'DOCUMENTATION'
+=pod
+
+=head1 NAME
+
+pt-sift - Browses the files created by the collect tool.
+
+=head1 SYNOPSIS
+
+Usage: pt-sift [OPTION...]
+
+=head1 DESCRIPTION
+
+pt-sift browses the files created by the collect tool.
+
+=head1 AUTHORS
+
+Baron Schwartz
+
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
+
+This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+Feedback and improvements are welcome.
+
+THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+This program 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.  On UNIX and similar
+systems, you can issue `man perlgpl' or `man perlartistic' to read these
+licenses.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place, Suite 330, Boston, MA  02111-1307  USA.
+legal.pod (END) 
+
+=cut
+
+DOCUMENTATION

bin/pt-slave-delay

@@ -1,29 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Sergey Zhuravlev and Baron Schwartz,
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# 2011 Percona Inc.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-# Feedback and improvements are welcome.
+# notices and disclaimers.
-#
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -2672,7 +2655,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Sergey Zhuravlev and Baron Schwartz.
 Feedback and improvements are welcome.
@@ -2691,9 +2674,9 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Sergey Zhuravlev, Baron Schwartz
+Sergey Zhuravlev and Baron Schwartz
 
 =head1 ABOUT MAATKIT
 

bin/pt-slave-find

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7531 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -3318,7 +3302,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -3337,7 +3321,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-slave-restart

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7531 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # Quoter package 6850
@@ -3493,7 +3477,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -3516,7 +3500,7 @@ Place, Suite 330, Boston, MA  02111-1307  USA.
 
 See also L<mk-table-checksum>, L<mk-table-sync>, L<mk-slave-delay>.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-stalk

@@ -1,37 +1,8 @@
 #!/usr/bin/env bash
 
-# This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
-
-# ########################################################################
-# A script to watch MySQL and run the 'collect' program when some condition
-# becomes true.  By default, it watches for a too-many-connections condition.
-# This is a good script to run in a screen session.  It's separate from the
-# 'collect' script because that lets you change 'collect' without stopping
-# and restarting this one.
-#
-# The name 'stalk' is because 'watch' is already taken, and 'stalk' is fun.
-#
-# Author: Baron Schwartz
-#
-# This program is part of Percona Toolkit.
-# This program was forked from Aspersa (http://code.google.com/p/aspersa/)
-# in June, 2011.
-# ########################################################################
 
 # ########################################################################
 # Check for the existence of a config file and source it if it exists 
@@ -187,3 +158,55 @@ while true; do
       -depth -mtime +${PURGE} -exec rm -f '{}' \;
 
 done
+
+# ############################################################################
+# Documentation
+# ############################################################################
+:<<'DOCUMENTATION'
+=pod
+
+=head1 NAME
+
+pt-stalk - Watch MySQL and run the 'collect' program when some condition
+becomes true.
+
+=head1 SYNOPSIS
+
+Usage: pt-stalk [OPTION...]
+
+=head1 DESCRIPTION
+
+By default, it watches for a too-many-connections condition.
+This is a good script to run in a screen session.  It's separate from the
+'collect' script because that lets you change 'collect' without stopping
+and restarting this one.
+
+The name 'stalk' is because 'watch' is already taken, and 'stalk' is fun.
+
+=head1 AUTHORS
+
+Baron Schwartz, Justin Swanhart, and Fernando Ipar
+
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
+
+This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+Feedback and improvements are welcome.
+
+THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+This program 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.  On UNIX and similar
+systems, you can issue `man perlgpl' or `man perlartistic' to read these
+licenses.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place, Suite 330, Boston, MA  02111-1307  USA.
+legal.pod (END) 
+
+=cut
+
+DOCUMENTATION

bin/pt-summary

@@ -1,43 +1,8 @@
-#!/usr/bin/env/ bash
+#!/usr/bin/env bash
 
-# This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
-
-# ########################################################################
-# A script to summarize system information in a nice way.
-# Goals: work well on Linux; create a compact diff-able report that is
-# easy to paste into a wiki or email, and easy to scan and compare too.
-#
-# Usage: $ wget -O- http://aspersa.googlecode.com/svn/trunk/summary |bash
-# Options are set through the ASPERSA_SKIP environment variable.  Set this
-# variable to a comma-separated list of things you want to omit.
-# Options:
-#  MOUNT:   Don't print out mounted filesystems and disk fullness.
-#  NETWORK: Don't print out information on network controllers & config.
-#  PROCESS: Don't print out top processes and vmstat information.
-#
-# Authors:
-#  Baron Schwartz
-#  Kevin van Zonneveld (kvz@php.net || http://kevin.vanzonneveld.net)
-#
-# This program is part of Percona Toolkit.
-# This program was forked from Aspersa (http://code.google.com/p/aspersa/)
-# in June, 2011.
-# ########################################################################
 
 # ########################################################################
 # Globals, settings, helper functions
@@ -1206,6 +1171,64 @@ main () {
 
 # Execute the program if it was not included from another file.  This makes it
 # possible to include without executing, and thus test.
-if [ "$(basename "$0")" = "summary" ] || [ "$(basename "$0")" = "bash" -a "$_" = "$0" ]; then
+if [ "$(basename "$0")" = "pt-summary" ] || [ "$(basename "$0")" = "bash" -a "$_" = "$0" ]; then
     main $@
 fi
+
+# ############################################################################
+# Documentation
+# ############################################################################
+:<<'DOCUMENTATION'
+=pod
+
+=head1 NAME
+
+pt-summary - Summarize system information in a nice way.
+
+=head1 SYNOPSIS
+
+Usage: pt-collect [OPTION...]
+
+=head1 DESCRIPTION
+
+Goals: work well on Linux; create a compact diff-able report that is
+easy to paste into a wiki or email, and easy to scan and compare too.
+
+Usage: $ wget -O- http://aspersa.googlecode.com/svn/trunk/summary |bash
+Options are set through the ASPERSA_SKIP environment variable.  Set this
+variable to a comma-separated list of things you want to omit.
+
+Options:
+  MOUNT:   Don't print out mounted filesystems and disk fullness.
+  NETWORK: Don't print out information on network controllers & config.
+  PROCESS: Don't print out top processes and vmstat information.
+
+=head1 AUTHORS
+
+Baron Schwartz and Kevin van Zonneveld
+
+Kevin van Zonneveld (kvz@php.net || http://kevin.vanzonneveld.net)
+
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
+
+This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+Feedback and improvements are welcome.
+
+THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+This program 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.  On UNIX and similar
+systems, you can issue `man perlgpl' or `man perlartistic' to read these
+licenses.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place, Suite 330, Boston, MA  02111-1307  USA.
+legal.pod (END) 
+
+=cut
+
+DOCUMENTATION

bin/pt-table-checksum

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7527 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # TableParser package 7156
@@ -8873,7 +8857,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -8896,7 +8880,7 @@ Place, Suite 330, Boston, MA  02111-1307  USA.
 
 See also L<mk-checksum-filter> and L<mk-table-sync>.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron "Xaprb" Schwartz
 

bin/pt-table-sync

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7476 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -10197,7 +10181,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -10216,7 +10200,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-table-usage

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7531 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # DSNParser package 7388
@@ -6851,7 +6835,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2009-@CURRENTYEAR@ Percona Inc.
 Feedback and improvements are welcome.
@@ -6870,7 +6854,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Daniel Nichter
 

bin/pt-tcp-model

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7536 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -2407,7 +2391,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2011-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -2426,7 +2410,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-trend

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -2048,7 +2032,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2010-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -2067,7 +2051,7 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron Schwartz
 

bin/pt-upgrade

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2009-2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7531 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # DSNParser package 7388
@@ -11787,7 +11771,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2009-@CURRENTYEAR@ Percona, Inc.
 Feedback and improvements are welcome.
@@ -11806,9 +11790,9 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Baron Schwartz, Daniel Nichter
+Baron Schwartz and Daniel Nichter
 
 =head1 ABOUT MAATKIT
 

bin/pt-usl

@@ -1,40 +1,8 @@
 #!/usr/bin/env bash
 
-# This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
-
-# ########################################################################
-# A tool to do Universal Scalability Law modeling, based on Neil Gunther's
-# book Guerrilla Capacity Planning.
-#
-# Author: Baron Schwartz
-#
-# This program is part of Percona Toolkit.
-# This program was forked from Aspersa (http://code.google.com/p/aspersa/)
-# in June, 2011.
-# ########################################################################
-
-# TODO: need to make it optionally make logarithmic X axis graph.  Also, apply
-# -i and -n and so on in the main body, not in the converter itself, so that I
-# can convert a file and then manipulate it separately.
-# TODO: I want it to entirely skip samples that have too-large concurrency, as
-# defined by -m.  I don't want it to just average the concurrency across the
-# other samples; it will introduce skew into the throughput for that sample,
-# too.
 
 # Print a usage message and exit.
 usage() {
@@ -796,3 +764,60 @@ main() {
 if [ "$(basename "$0")" = "usl" ] || [ "$(basename "$0")" = "bash" -a "$_" = "$0" ]; then
    main "$@"
 fi
+
+# ############################################################################
+# Documentation
+# ############################################################################
+:<<'DOCUMENTATION'
+=pod
+
+=head1 NAME
+
+pt-usl - Model Universal Scalability Law.
+
+=head1 SYNOPSIS
+
+Usage: pt-usl [OPTION...]
+
+=head1 DESCRIPTION
+
+This tool is based on Neil Gunther's book Guerrilla Capacity Planning.
+
+=head1 TODO
+
+   * Need to make it optionally make logarithmic X axis graph.  Also, apply
+     -i and -n and so on in the main body, not in the converter itself,
+     so that I can convert a file and then manipulate it separately.
+
+   * I want it to entirely skip samples that have too-large concurrency, as
+     defined by -m.  I don't want it to just average the concurrency across the
+     other samples; it will introduce skew into the throughput for that sample,
+     too.
+
+=head1 AUTHORS
+
+Baron Schwartz
+
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
+
+This program is copyright 2010-2011 Baron Schwartz, 2011 Percona Inc.
+Feedback and improvements are welcome.
+
+THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+This program 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.  On UNIX and similar
+systems, you can issue `man perlgpl' or `man perlartistic' to read these
+licenses.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place, Suite 330, Boston, MA  02111-1307  USA.
+legal.pod (END) 
+
+=cut
+
+DOCUMENTATION

bin/pt-variable-advisor

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2010-2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # OptionParser package 7102
@@ -3863,7 +3847,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2009-@CURRENTYEAR@ Percona Inc.
 Feedback and improvements are welcome.
@@ -3882,9 +3866,9 @@ You should have received a copy of the GNU General Public License along with
 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 Place, Suite 330, Boston, MA  02111-1307  USA.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Baron Schwartz, Daniel Nichter
+Baron Schwartz and Daniel Nichter
 
 =head1 ABOUT MAATKIT
 

bin/pt-visual-explain

@@ -1,28 +1,12 @@
 #!/usr/bin/env perl
 
-# This program is copyright 2007-2011 Baron Schwartz, 2011 Percona Inc.
+# This program is part of Percona Toolkit: http://www.percona.com/software/
-# Feedback and improvements are welcome.
+# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
-#
+# notices and disclaimers.
-# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-#
-# This program 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.  On UNIX and similar
-# systems, you can issue `man perlgpl' or `man perlartistic' to read these
-# licenses.
-#
-# You should have received a copy of the GNU General Public License along with
-# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA  02111-1307  USA.
 
 use strict;
 use warnings FATAL => 'all';
-
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
-our $VERSION = '@VERSION@';
-our $DISTRIB = '@DISTRIB@';
-our $SVN_REV = sprintf("%d", (q$Revision: 7477 $ =~ m/(\d+)/g, 0));
 
 # ###########################################################################
 # Converts text (e.g. saved output) to a "recordset" -- an array of hashrefs
@@ -3054,7 +3038,7 @@ seeing, the version of all MySQL servers involved, the complete output of the
 tool when run with L<"--version">, and if possible, debugging output produced by
 running with the C<MKDEBUG=1> environment variable.
 
-=head1 COPYRIGHT, LICENSE AND WARRANTY
+=head1 COPYRIGHT, LICENSE, AND WARRANTY
 
 This program is copyright 2007-@CURRENTYEAR@ Baron Schwartz.
 Feedback and improvements are welcome.
@@ -3077,7 +3061,7 @@ Place, Suite 330, Boston, MA  02111-1307  USA.
 
 See also L<mk-query-profiler>.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
 Baron "Xaprb" Schwartz
 

util/write-dev-docs

@@ -97,7 +97,7 @@ find_file() {
 }
 
 # ############################################################################
-# Scripts starts here
+# Script starts here
 # ############################################################################
 
 if [ -z $@ ]; then