[FATAL] Carp::croak: 'blocksize' is not a recognized argument - Ubuntu

**fulltilt** · May 26th 2022

Ubuntu 18.04.6 LTS

I-MSCP 1.5.3 (2018120800)

Today I wanted to update some cpan modules for spamassassin and accidentally ran:

perl -MCPAN -e upgrade

Since then I can't change any email address, it gets stuck on toadd ...

an update or reinstalling packages also shows an error message:

Code

[FATAL] Carp::croak: 'blocksize' is not a recognized argument at /usr/local/share/perl/5.26.1/Crypt/CBC.pm line 312, <$fh> line 408.
at /var/www/imscp/engine/PerlLib/iMSCP/Crypt.pm line 498.
E: Problem executing scripts DPkg::Post-Invoke 'if [ -x /usr/local/sbin/imscp-dpkg-post-invoke.pl -a ${IMSCP_SETUP:=0} -eq 0 ]; then /usr/bin/perl /usr/local/sbin/imscp-dpkg-post-invoke.pl -d; fi'
E: Sub-process returned an error code

I then tried to reinstall all perl packages

Code

apt-get --reinstall install perl libcrypt-blowfish-perl libcrypt-cbc-perl libcrypt-eksblowfish-perl libcrypt-rijndael-perl libdata-validate-ip-perl libdate-simple-perl libdatetime-perl libdbd-mysql-perl libdbi-perl libemail-valid-perl libfile-copy-recursive-perl libfile-homedir-perl libhash-merge-perl libjson-perl libmailtools-perl libmime-tools-perl libnet-dns-perl libnet-libidn-perl libsort-naturally-perl libtimedate-perl libunix-mknod-perl libwww-perl libxml-parser-perl libxml-simple-perl

shows

Code

shows:
[FATAL] Carp::croak: 'blocksize' is not a recognized argument at /usr/local/share/perl/5.26.1/Crypt/CBC.pm line 312, <$fh> line 408.
at /var/www/imscp/engine/PerlLib/iMSCP/Crypt.pm line 498.

LE plugin log (snap fix Kess) shows

Code

[Thu May 26 17:00:01 2022] [error] main: Couldn't process Let's Encrypt pending tasks: 'blocksize' is not a recognized argument at /$
at /var/www/imscp/gui/plugins/LetsEncrypt/cron/../../../../engine/PerlLib/iMSCP/Crypt.pm line 498.

CBC package seems to be available

Code

apt -y install apt-file
apt update
apt-file search Crypt/CBC.pm
libcrypt-cbc-perl: /usr/share/perl5/Crypt/CBC.pm
libmessage-passing-perl: /usr/share/perl5/Message/Passing/Filter/Decoder/Crypt/CBC.pm
libmessage-passing-perl: /usr/share/perl5/Message/Passing/Filter/Encoder/Crypt/CBC.pm
libmessage-passing-perl: /usr/share/perl5/Message/Passing/Role/Crypt/CBC.pm

It's a productive server with 200 customers on board so it's a bit urgent ...

How can I solve this problem?

**fulltilt** · May 26th 2022

it seems the cpan upgrade created an alias:

Code

type -a cpan
cpan is /usr/local/bin/cpan
cpan is /usr/bin/cpan
ls -l /usr/local/bin/cpan
-r-xr-xr-x 1 root root 8258 May 26 15:22 /usr/local/bin/cpan

what is your output on Ubuntu 18 of:

type -a cpan

**fulltilt** · May 26th 2022

some more details > cpan -> r

Code

cpan[1]> r
Reading '/root/.cpan/Metadata'
Database was generated on Thu, 26 May 2022 12:41:03 GMT
Package namespace installed latest in CPAN file
AnyEvent::Handle::UDP 0.048 0.050 LEONT/AnyEvent-Handle-UDP-0.050.tar.gz
Cpanel::JSON::XS 3.0239 4.28 RURBAN/Cpanel-JSON-XS-4.28.tar.gz
DBD::mysql 4.046 4.050 DVEEDEN/DBD-mysql-4.050.tar.gz
DB_File 1.840 1.858 PMQS/DB_File-1.858.tar.gz
DateTime::TimeZone 2.45 2.52 DROLSKY/DateTime-TimeZone-2.52.tar.gz
Dpkg 1.03 2.00 GUILLEM/Dpkg-1.21.8.tar.gz
File::ConfigDir 0.017 0.021 REHSACK/File-ConfigDir-0.021.tar.gz
IO::Socket::INET6 2.72 2.73 SHLOMIF/IO-Socket-INET6-2.73.tar.gz
JSON::MaybeXS 1.003009 1.004003 ETHER/JSON-MaybeXS-1.004003.tar.gz
Message::Passing 0.116 0.117 MSTROUT/Message-Passing-0.117.tar.gz
Module::CoreList 5.20180120 5.20220420 BINGOS/Module-CoreList-5.20220420.tar.gz
MooX::ConfigFromFile 0.007 0.009 REHSACK/MooX-ConfigFromFile-0.009.tar.gz
MooX::File::ConfigDir 0.005 0.008 REHSACK/MooX-File-ConfigDir-0.008.tar.gz
MooX::Options 4.023 4.103 REHSACK/MooX-Options-4.103.tar.gz
Net::Ident 1.24 1.25 TODDR/Net-Ident-1.25.tar.gz
Net::SSLeay 1.84 1.92 CHRISN/Net-SSLeay-1.92.tar.gz
Regexp::Assemble 0.36 0.38 RSAVAGE/Regexp-Assemble-0.38.tgz
String::RewritePrefix 0.007 0.008 RJBS/String-RewritePrefix-0.008.tar.gz
B 1.68 1.82 SHAY/perl-5.34.1.tar.gz
DateTime::TimeZone::Africa::Accra 2.45 2.47 DROLSKY/DateTime-TimeZone-2.47.tar.gz
Locale::Messages 1.26 1.32 GUIDO/libintl-perl-1.32.tar.gz
Mail::SPF v2.009 v2.9.0 JMEHNLE/mail-spf/Mail-SPF-v2.9.0.tar.gz
Mail::SpamAssassin::Bayes::CombineChi undef 1 SIDNEY/Mail-SpamAssassin-3.4.6.tar.gz
Types::Serialiser::Error undef 1.01 MLEHMANN/Types-Serialiser-1.01.tar.gz
arybase 0.12 0.15 XSAWYERX/perl-5.28.3.tar.gz
547 installed modules have no parsable version number
(use 'o conf show_unparsable_versions 1' to show them)

Display More

**fulltilt** · May 26th 2022

do you think I can remove /usr/local/bin/cpan?

ls -l /usr/local/bin/cpan

-r-xr-xr-x 1 root root 8258 May 26 15:22 /usr/local/bin/cpan

and unalias cpan if it's an alias, or unset -f cpan

**fulltilt** · May 26th 2022

I have removed the new cpan

Code

rm /usr/local/bin/cpan
unset -f cpan

now it shows:

type -a cpan

cpan is /usr/bin/cpan

but if I try to install or re-install a package e.g.

Code

apt-get --reinstall install mc
Reading package lists... Done
Building dependency tree
Reading state information... Done
0 upgraded, 0 newly installed, 1 reinstalled, 0 to remove and 0 not upgraded.
Need to get 0 B/474 kB of archives.
After this operation, 0 B of additional disk space will be used.
(Reading database ... 169606 files and directories currently installed.)
Preparing to unpack .../mc_3%3a4.8.19-1_amd64.deb ...
Unpacking mc (3:4.8.19-1) over (3:4.8.19-1) ...
Setting up mc (3:4.8.19-1) ...
Processing triggers for mime-support (3.60ubuntu1) ...
[FATAL] Carp::croak: 'blocksize' is not a recognized argument at /usr/local/share/perl/5.26.1/Crypt/CBC.pm line 312, <$fh> line 408.
at /var/www/imscp/engine/PerlLib/iMSCP/Crypt.pm line 498.
E: Problem executing scripts DPkg::Post-Invoke 'if [ -x /usr/local/sbin/imscp-dpkg-post-invoke.pl -a ${IMSCP_SETUP:=0} -eq 0 ]; then /usr/bin/perl /usr/local/sbin/imscp-dpkg-post-invoke.pl -d; fi'
E: Sub-process returned an error code

Display More

What can I do?

**fulltilt** · May 26th 2022

seems to be caused in that part -> Crypt::CBC->new(

Code

Decrypt the given data using the given algorithm (Cipher) in CBC mode
Note: PKCS#5/PKCS#7 padding is assumed.
Param string $algorithm Algorithm
Param string $key Decryption key
Param string $iv Initialization vector
Param string $data A base64 encoded string representing encrypted data
Return string, croak on failure
=cut
sub _decryptCBC( $$$$ )
{
my ($algorithm, $key, $iv, $data) = @_;
Crypt::CBC->new(
-cipher => $algorithm,
-key => $key,
-keysize => length $key,
-blocksize => length $iv,
-literal_key => 1,
-iv => $iv,
-header => 'none',
-padding => 'standard'
)->decrypt(
decode_base64( $data )
);
}
=item _toAlphabet64( $string )
Convert a binary string using the "./0-9A-Za-z" alphabet
Param string $string String to be converted
Return string
=cut

Display More

**fulltilt** · May 26th 2022

hmm, if i disable that part then it works

nano /var/www/imscp/engine/PerlLib/iMSCP/Crypt.pm

line 502

# -blocksize => length $iv,

Does the encryption still work afterwards and can I use it that way?

Code

sub _decryptCBC( $$$$ )
{
my ($algorithm, $key, $iv, $data) = @_;
Crypt::CBC->new(
-cipher => $algorithm,
-key => $key,
-keysize => length $key,
# -blocksize => length $iv,
-literal_key => 1,
-iv => $iv,
-header => 'none',
-padding => 'standard'
)->decrypt(
decode_base64( $data )
);
}

Display More

**fulltilt** · May 26th 2022

I'm not sure if this issue was caused by the erroneous mcpan upgrade or by a previous regular ubuntu update ... strange!

What do you think, can I keep the "blocksize" part above like this?

**joximu** · May 26th 2022

See https://metacpan.org/pod/Crypt::CBC

Quote

Note that versions of CBC::Crypt prior to 2.36 could also allow you to set the blocksie, but this was never supported by any ciphers and has been removed.

I think this is the point....

(just want to interrupt your monologue...

**fulltilt** · May 27th 2022

I guess there are still new files & folders which should be removed ...

which perl

/usr/bin/perl

(ok)

This new folder is still available

/usr/local/share/perl/5.26.1

(delete)

and many new files under

/usr/local/bin

on other installation there is only clamav-unofficial-sigs.sh available in /usr/local/bin

(delete)

and I have a backup of:

/etc/perl

/root/.cpan/build

/root/.cpan/build/Metadata

(delete restore)

+++ maybe the /root cpan stuff could cause the issues +++

Can I delete them safely?

after unset -f cpan only /usr/bin/cpan is shown now:

type -a cpan

cpan is /usr/bin/cpan

[FATAL] Carp::croak: 'blocksize' is not a recognized argument - Ubuntu

Share

Daily visitors