mirror of
https://git.proxmox.com/git/pve-manager
synced 2025-05-17 20:09:06 +00:00
aaeeeebe40
We want to share code and use new PVE 2 framework features. So it is no longer possible to distribute this a separate packages.
150 lines
3.0 KiB
Perl
150 lines
3.0 KiB
Perl
package PVE::VZDump::Plugin;
|
|
|
|
# Copyright (C) 2007-2009 Proxmox Server Solutions GmbH
|
|
#
|
|
# Copyright: vzdump is under GNU GPL, the GNU General Public License.
|
|
#
|
|
# 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 dated June, 1991.
|
|
#
|
|
# 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-1301, USA.
|
|
#
|
|
# Author: Dietmar Maurer <dietmar@proxmox.com>
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub set_logfd {
|
|
my ($self, $logfd) = @_;
|
|
|
|
$self->{logfd} = $logfd;
|
|
}
|
|
|
|
sub cmd {
|
|
my ($self, $cmdstr, %param) = @_;
|
|
|
|
return PVE::VZDump::run_command($self->{logfd}, $cmdstr, %param);
|
|
}
|
|
|
|
sub cmd_noerr {
|
|
my ($self, $cmdstr, %param) = @_;
|
|
|
|
my $res;
|
|
eval { $res = $self->cmd($cmdstr, %param); };
|
|
$self->logerr ($@) if $@;
|
|
return $res;
|
|
}
|
|
|
|
sub loginfo {
|
|
my ($self, $msg) = @_;
|
|
|
|
PVE::VZDump::debugmsg ('info', $msg, $self->{logfd}, 0);
|
|
}
|
|
|
|
sub logerr {
|
|
my ($self, $msg) = @_;
|
|
|
|
PVE::VZDump::debugmsg ('err', $msg, $self->{logfd}, 0);
|
|
}
|
|
|
|
sub type {
|
|
return 'unknown';
|
|
};
|
|
|
|
sub vmlist {
|
|
my ($self) = @_;
|
|
|
|
return [ keys %{$self->{vmlist}} ] if $self->{vmlist};
|
|
|
|
return [];
|
|
}
|
|
|
|
sub vm_status {
|
|
my ($self, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub prepare {
|
|
my ($self, $task, $vmid, $mode) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub lock_vm {
|
|
my ($self, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub unlock_vm {
|
|
my ($self, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub stop_vm {
|
|
my ($self, $task, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub start_vm {
|
|
my ($self, $task, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub suspend_vm {
|
|
my ($self, $task, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub resume_vm {
|
|
my ($self, $task, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub snapshot {
|
|
my ($self, $task, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub copy_data_phase2 {
|
|
my ($self, $task, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub assemble {
|
|
my ($self, $task, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub archive {
|
|
my ($self, $task, $vmid, $filename) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
sub cleanup {
|
|
my ($self, $task, $vmid) = @_;
|
|
|
|
die "internal error"; # implement in subclass
|
|
}
|
|
|
|
1;
|