<h2>Editing File: /usr/bin/mariadb-convert-table-format</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/bin/perl
# Copyright (c) 2000, 2017, Oracle and/or its affiliates. All rights reserved.
# 
# 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 of the License.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1335  USA

# Convert given tables in a database to MYISAM

use DBI;
use Getopt::Long;

$opt_help=$opt_version=$opt_verbose=$opt_force=0;
$opt_user=$opt_database=$opt_password=undef;
$opt_host=&quot;localhost&quot;;
$opt_socket=&quot;&quot;;
$opt_engine=&quot;MYISAM&quot;;
$opt_port=0;
$exit_status=0;

GetOptions(
  &quot;e|engine|type=s&quot;       =&gt; \$opt_engine,
  &quot;f|force&quot;               =&gt; \$opt_force,
  &quot;help|?&quot;               =&gt; \$opt_help,
  &quot;h|host=s&quot;              =&gt; \$opt_host,
  &quot;p|password=s&quot;          =&gt; \$opt_password,
  &quot;u|user=s&quot;              =&gt; \$opt_user,
  &quot;v|verbose&quot;             =&gt; \$opt_verbose,
  &quot;V|version&quot;             =&gt; \$opt_version,
  &quot;S|socket=s&quot;            =&gt; \$opt_socket, 
  &quot;P|port=i&quot;              =&gt; \$opt_port
) || usage(0);

usage($opt_version) if ($#ARGV &lt; 0 || $opt_help || $opt_version);

$opt_database=shift(@ARGV);

if (grep { /^$opt_engine$/i } qw(HEAP MEMORY BLACKHOLE))
{
  print &quot;Converting to '$opt_engine' would delete your data; aborting\n&quot;;
  exit(1);
}

$connect_opt=&quot;&quot;;
if ($opt_port)
{
  $connect_opt.= &quot;;port=$opt_port&quot;;
}
if (length($opt_socket))
{
  $connect_opt.=&quot;;mariadb_socket=$opt_socket&quot;;
}

$dbh = DBI-&gt;connect(&quot;DBI:MariaDB:$opt_database:${opt_host}$connect_opt&quot;,
		    $opt_user,
		    $opt_password,
		    { PrintError =&gt; 0})
  || die &quot;Can't connect to database $opt_database: $DBI::errstr\n&quot;;

my @tables;

push(@ARGV, &quot;%&quot;) if(!@ARGV);

foreach $pattern (@ARGV)
{
  my ($sth,$row);
  $sth=$dbh-&gt;prepare(&quot;SHOW TABLES LIKE ?&quot;);
  $rv= $sth-&gt;execute($pattern);
  if(!int($rv))
  {
    warn &quot;Can't get tables matching '$pattern' from $opt_database; $DBI::errstr\n&quot;; 
    exit(1) unless $opt_force;
  }
  while (($row = $sth-&gt;fetchrow_arrayref))
  {
    push(@tables, $row-&gt;[0]);
  }
  $sth-&gt;finish;
}

print &quot;Converting tables:\n&quot; if ($opt_verbose);
foreach $table (@tables)
{
  my ($sth,$row);

  # Check if table is already converted
  $sth=$dbh-&gt;prepare(&quot;show table status like ?&quot;);
  if ($sth-&gt;execute($table) &amp;&amp; ($row = $sth-&gt;fetchrow_arrayref))
  {
    if (uc($row-&gt;[1]) eq uc($opt_engine))
    {
      print &quot;$table already uses the '$opt_engine' engine;  Ignored\n&quot;;
      next;
    }
  }
  print &quot;converting $table\n&quot; if ($opt_verbose);
  $table=~ s/`/``/g;
  if (!$dbh-&gt;do(&quot;ALTER TABLE `$table` ENGINE=$opt_engine&quot;))
  {
    print STDERR &quot;Can't convert $table: Error $DBI::errstr\n&quot;;
    exit(1) if (!$opt_force);
    $exit_status=1;
  }
}

$dbh-&gt;disconnect;
exit($exit_status);


sub usage
{
  my($version)=shift;
  print &quot;$0  version 1.1\n&quot;;
  exit(0) if ($version);

  print &lt;&lt;EOF;

Conversion of a MariaDB tables to other storage engines

 Usage: $0 database [table[ table ...]]
 If no tables has been specifed, all tables in the database will be converted.
 You can also use wildcards, ie &quot;my%&quot;

 The following options are available:

-f, --force
  Continue even if there is some error.

-?, --help
  Shows this help

-e, --engine=ENGINE
  Converts tables to the given storage engine (Default: $opt_engine)

-h, --host=HOST
  Host name where the database server is located. (Default: $opt_host)

-p, --password=PASSWORD
  Password for the current user.

-P, --port=PORT
  TCP/IP port to connect to if host is not &quot;localhost&quot;.

-S, --socket=SOCKET
  Socket to connect with.

-u, --user=USER
  User name to log into the SQL server.

-v, --verbose
  This is a test specific option that is only used when debugging a test.
  Print more information about what is going on.

-V, --version
  Shows the version of this program.
EOF
  exit(1);
}
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fbin'>Back to Directory</a>