From: Dietmar Maurer Date: Tue, 25 Jun 2013 10:03:48 +0000 (+0200) Subject: assemble_spice_ticket: do not use base32 encoding X-Git-Url: https://git.proxmox.com/?p=pve-access-control.git;a=commitdiff_plain;h=83d1f13ec0a64632003f2773f024c73e92fa0e3c assemble_spice_ticket: do not use base32 encoding --- diff --git a/PVE/AccessControl.pm b/PVE/AccessControl.pm index 44299ce..b5dffad 100644 --- a/PVE/AccessControl.pm +++ b/PVE/AccessControl.pm @@ -5,7 +5,6 @@ use Encode; use Crypt::OpenSSL::Random; use Crypt::OpenSSL::RSA; use MIME::Base64; -use MIME::Base32 qw( RFC ); use Digest::SHA; use PVE::Tools qw(run_command lock_file file_get_contents split_list safe_print); use PVE::Cluster qw(cfs_register_file cfs_read_file cfs_write_file cfs_lock_file); @@ -228,7 +227,8 @@ sub assemble_spice_ticket { my $full = "$plain:$path"; my $ticket = $plain . "::" . encode_base64($rsa_priv->sign($full), ''); - return MIME::Base32::encode($ticket."::".$full); + + return $ticket; } sub check_user_exist { diff --git a/control.in b/control.in index 1062ffa..a441ee0 100644 --- a/control.in +++ b/control.in @@ -3,7 +3,7 @@ Version: @@VERSION@@-@@PKGRELEASE@@ Section: perl Priority: optional Architecture: @@ARCH@@ -Depends: libc6 (>= 2.3), perl (>= 5.6.0-16), libcrypt-openssl-rsa-perl, libcrypt-openssl-random-perl, libjson-xs-perl, libjson-perl, libterm-readline-gnu-perl,libnet-ldap-perl, libpve-common-perl, pve-cluster, libauthen-pam-perl , libmime-base32-perl +Depends: libc6 (>= 2.3), perl (>= 5.6.0-16), libcrypt-openssl-rsa-perl, libcrypt-openssl-random-perl, libjson-xs-perl, libjson-perl, libterm-readline-gnu-perl,libnet-ldap-perl, libpve-common-perl, pve-cluster, libauthen-pam-perl Maintainer: Proxmox Support Team Description: Proxmox VE access control library This package contains the role based user management and access