]>
Commit | Line | Data |
---|---|---|
a19d93a2 FG |
1 | package PVE::VZDump::Plugin; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | use PVE::VZDump; | |
6 | ||
7 | sub set_logfd { | |
8 | my ($self, $logfd) = @_; | |
9 | ||
10 | $self->{logfd} = $logfd; | |
11 | } | |
12 | ||
13 | sub cmd { | |
14 | my ($self, $cmdstr, %param) = @_; | |
15 | ||
16 | return PVE::VZDump::run_command($self->{logfd}, $cmdstr, %param); | |
17 | } | |
18 | ||
19 | sub cmd_noerr { | |
20 | my ($self, $cmdstr, %param) = @_; | |
21 | ||
22 | my $res; | |
23 | eval { $res = $self->cmd($cmdstr, %param); }; | |
24 | $self->logerr ($@) if $@; | |
25 | return $res; | |
26 | } | |
27 | ||
28 | sub loginfo { | |
29 | my ($self, $msg) = @_; | |
30 | ||
31 | PVE::VZDump::debugmsg('info', $msg, $self->{logfd}, 0); | |
32 | } | |
33 | ||
34 | sub logerr { | |
35 | my ($self, $msg) = @_; | |
36 | ||
37 | PVE::VZDump::debugmsg('err', $msg, $self->{logfd}, 0); | |
38 | } | |
39 | ||
40 | sub type { | |
41 | return 'unknown'; | |
42 | }; | |
43 | ||
44 | sub vmlist { | |
45 | my ($self) = @_; | |
46 | ||
47 | return [ keys %{$self->{vmlist}} ] if $self->{vmlist}; | |
48 | ||
49 | return []; | |
50 | } | |
51 | ||
52 | sub vm_status { | |
53 | my ($self, $vmid) = @_; | |
54 | ||
55 | die "internal error"; # implement in subclass | |
56 | } | |
57 | ||
58 | sub prepare { | |
59 | my ($self, $task, $vmid, $mode) = @_; | |
60 | ||
61 | die "internal error"; # implement in subclass | |
62 | } | |
63 | ||
64 | sub lock_vm { | |
65 | my ($self, $vmid) = @_; | |
66 | ||
67 | die "internal error"; # implement in subclass | |
68 | } | |
69 | ||
70 | sub unlock_vm { | |
71 | my ($self, $vmid) = @_; | |
72 | ||
73 | die "internal error"; # implement in subclass | |
74 | } | |
75 | ||
76 | sub stop_vm { | |
77 | my ($self, $task, $vmid) = @_; | |
78 | ||
79 | die "internal error"; # implement in subclass | |
80 | } | |
81 | ||
82 | sub start_vm { | |
83 | my ($self, $task, $vmid) = @_; | |
84 | ||
85 | die "internal error"; # implement in subclass | |
86 | } | |
87 | ||
88 | sub suspend_vm { | |
89 | my ($self, $task, $vmid) = @_; | |
90 | ||
91 | die "internal error"; # implement in subclass | |
92 | } | |
93 | ||
94 | sub resume_vm { | |
95 | my ($self, $task, $vmid) = @_; | |
96 | ||
97 | die "internal error"; # implement in subclass | |
98 | } | |
99 | ||
100 | sub snapshot { | |
101 | my ($self, $task, $vmid) = @_; | |
102 | ||
103 | die "internal error"; # implement in subclass | |
104 | } | |
105 | ||
106 | sub copy_data_phase2 { | |
107 | my ($self, $task, $vmid) = @_; | |
108 | ||
109 | die "internal error"; # implement in subclass | |
110 | } | |
111 | ||
112 | sub assemble { | |
113 | my ($self, $task, $vmid) = @_; | |
114 | ||
115 | die "internal error"; # implement in subclass | |
116 | } | |
117 | ||
118 | sub archive { | |
119 | my ($self, $task, $vmid, $filename, $comp) = @_; | |
120 | ||
121 | die "internal error"; # implement in subclass | |
122 | } | |
123 | ||
124 | sub cleanup { | |
125 | my ($self, $task, $vmid) = @_; | |
126 | ||
127 | die "internal error"; # implement in subclass | |
128 | } | |
129 | ||
130 | 1; |