mirror of
https://git.proxmox.com/git/qemu-server
synced 2025-04-30 22:59:14 +00:00
use Digest::SHA instead of Digest::SHA1
This commit is contained in:
parent
30f6cd84a2
commit
fc1ddcdcae
2
Makefile
2
Makefile
@ -2,7 +2,7 @@ RELEASE=2.0
|
||||
|
||||
VERSION=2.0
|
||||
PACKAGE=qemu-server
|
||||
PKGREL=27
|
||||
PKGREL=28
|
||||
|
||||
DESTDIR=
|
||||
PREFIX=/usr
|
||||
|
@ -11,7 +11,7 @@ use File::Basename;
|
||||
use File::Path;
|
||||
use File::stat;
|
||||
use Getopt::Long;
|
||||
use Digest::SHA1;
|
||||
use Digest::SHA;
|
||||
use Fcntl ':flock';
|
||||
use Cwd 'abs_path';
|
||||
use IPC::Open3;
|
||||
@ -1486,7 +1486,7 @@ sub parse_vm_config {
|
||||
return undef if !defined($raw);
|
||||
|
||||
my $res = {
|
||||
digest => Digest::SHA1::sha1_hex($raw),
|
||||
digest => Digest::SHA::sha1_hex($raw),
|
||||
};
|
||||
|
||||
$filename =~ m|/qemu-server/(\d+)\.conf$|
|
||||
|
@ -1,3 +1,9 @@
|
||||
qemu-server (2.0-28) unstable; urgency=low
|
||||
|
||||
* use Digest::SHA instead of Digest::SHA1
|
||||
|
||||
-- Proxmox Support Team <support@proxmox.com> Tue, 20 Mar 2012 12:24:01 +0100
|
||||
|
||||
qemu-server (2.0-27) unstable; urgency=low
|
||||
|
||||
* make startall wait up to 10 seconds for quorum
|
||||
|
@ -3,7 +3,7 @@ Version: @@VERSION@@-@@PKGRELEASE@@
|
||||
Section: admin
|
||||
Priority: optional
|
||||
Architecture: @@ARCH@@
|
||||
Depends: libc6 (>= 2.7-18), perl (>= 5.10.0-19), libterm-readline-gnu-perl, libdigest-sha1-perl, pve-qemu-kvm (>= 0.11.1) | pve-qemu-kvm-2.6.18, netcat-traditional, libpve-storage-perl, pve-cluster, redhat-cluster-pve
|
||||
Depends: libc6 (>= 2.7-18), perl (>= 5.10.0-19), libterm-readline-gnu-perl, pve-qemu-kvm (>= 0.11.1) | pve-qemu-kvm-2.6.18, netcat-traditional, libpve-storage-perl, pve-cluster, redhat-cluster-pve
|
||||
Conflicts: netcat-openbsd
|
||||
Maintainer: Proxmox Support Team <support@proxmox.com>
|
||||
Description: Qemu Server Tools
|
||||
|
4
qmupdate
4
qmupdate
@ -2,7 +2,7 @@
|
||||
|
||||
use strict;
|
||||
use IO::File;
|
||||
use Digest::SHA1;
|
||||
use Digest::SHA;
|
||||
|
||||
# script to upgrade V0.9.1 to V0.9.2 format
|
||||
|
||||
@ -78,7 +78,7 @@ sub parse_network_0_9_1 {
|
||||
|
||||
sub random_ether_addr {
|
||||
|
||||
my $rand = Digest::SHA1::sha1_hex (rand(), time());
|
||||
my $rand = Digest::SHA::sha1_hex (rand(), time());
|
||||
|
||||
my $mac = '';
|
||||
for (my $i = 0; $i < 6; $i++) {
|
||||
|
Loading…
Reference in New Issue
Block a user