#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/xfer_rcube_schema_migrate.pl Copyright 2022 cPanel, L.L.C.
# All rights reserved.
# copyright@cpanel.net http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited
package scripts::xfer_rcube_schema_migrate;
use strict;
use DBI ();
use Cpanel::Email::RoundCube::DBI ();
## if invoked as a script, there is nothing in the call stack
my $invoked_as_script = !caller();
__PACKAGE__->script(@ARGV) if ($invoked_as_script);
sub script {
## read password from stdin, for security
## see positional argument list below
my ( $package, @args ) = @_;
my $dbpassword = scalar(