]>
git.proxmox.com Git - pve-storage.git/blob - PVE/CLI/pvesm.pm
1 package PVE
::CLI
::pvesm
;
12 use PVE
::RPCEnvironment
;
14 use PVE
::API2
::Storage
::Config
;
15 use PVE
::API2
::Storage
::Content
;
16 use PVE
::API2
::Storage
::Status
;
17 use PVE
::API2
::Storage
::Scan
;
18 use PVE
::JSONSchema
qw(get_standard_option);
22 use base
qw(PVE::CLIHandler);
24 my $nodename = PVE
::INotify
::nodename
();
26 sub setup_environment
{
27 PVE
::RPCEnvironment-
>setup_default_cli_env();
30 __PACKAGE__-
>register_method ({
34 description
=> "Get filesystem path for specified volume",
36 additionalProperties
=> 0,
39 description
=> "Volume identifier",
40 type
=> 'string', format
=> 'pve-volume-id',
41 completion
=> \
&PVE
::Storage
::complete_volume
,
45 returns
=> { type
=> 'null' },
50 my $cfg = PVE
::Storage
::config
();
52 my $path = PVE
::Storage
::path
($cfg, $param->{volume
});
60 __PACKAGE__-
>register_method ({
61 name
=> 'extractconfig',
62 path
=> 'extractconfig',
64 description
=> "Extract configuration from vzdump backup archive.",
66 description
=> "The user needs 'VM.Backup' permissions on the backed up guest ID, and 'Datastore.AllocateSpace' on the backup storage.",
71 additionalProperties
=> 0,
74 description
=> "Volume identifier",
76 completion
=> \
&PVE
::Storage
::complete_volume
,
80 returns
=> { type
=> 'null' },
83 my $volume = $param->{volume
};
85 my $rpcenv = PVE
::RPCEnvironment
::get
();
86 my $authuser = $rpcenv->get_user();
88 my $storage_cfg = PVE
::Storage
::config
();
89 PVE
::Storage
::check_volume_access
($rpcenv, $authuser, $storage_cfg, undef, $volume);
91 my $config_raw = PVE
::Storage
::extract_vzdump_config
($storage_cfg, $volume);
93 print "$config_raw\n";
97 my $print_content = sub {
101 foreach my $info (@$list) {
103 my $volid = $info->{volid
};
104 my $sidlen = length ($volid);
105 $maxlenname = $sidlen if $sidlen > $maxlenname;
108 foreach my $info (@$list) {
109 next if !$info->{vmid
};
110 my $volid = $info->{volid
};
112 printf "%-${maxlenname}s %5s %10d %d\n", $volid,
113 $info->{format
}, $info->{size
}, $info->{vmid
};
116 foreach my $info (sort { $a->{format
} cmp $b->{format
} } @$list) {
117 next if $info->{vmid
};
118 my $volid = $info->{volid
};
120 printf "%-${maxlenname}s %5s %10d\n", $volid,
121 $info->{format
}, $info->{size
};
125 my $print_status = sub {
129 foreach my $res (@$res) {
130 my $storeid = $res->{storage
};
131 $maxlen = length ($storeid) if length ($storeid) > $maxlen;
135 foreach my $res (sort { $a->{storage
} cmp $b->{storage
} } @$res) {
136 my $storeid = $res->{storage
};
138 my $sum = $res->{used
} + $res->{avail
};
139 my $per = $sum ?
(0.5 + ($res->{used
}*100)/$sum) : 100;
141 printf "%-${maxlen}s %5s %1d %15d %15d %15d %.2f%%\n", $storeid,
142 $res->{type
}, $res->{active
},
143 $res->{total
}/1024, $res->{used}/1024, $res->{avail
}/1024, $per;
148 add
=> [ "PVE::API2::Storage::Config", 'create', ['type', 'storage'] ],
149 set
=> [ "PVE::API2::Storage::Config", 'update', ['storage'] ],
150 remove
=> [ "PVE::API2::Storage::Config", 'delete', ['storage'] ],
151 status
=> [ "PVE::API2::Storage::Status", 'index', [],
152 { node
=> $nodename }, $print_status ],
153 list
=> [ "PVE::API2::Storage::Content", 'index', ['storage'],
154 { node
=> $nodename }, $print_content ],
155 alloc
=> [ "PVE::API2::Storage::Content", 'create', ['storage', 'vmid', 'filename', 'size'],
156 { node
=> $nodename }, sub {
158 print "successfully created '$volid'\n";
160 free
=> [ "PVE::API2::Storage::Content", 'delete', ['volume'],
161 { node
=> $nodename } ],
162 nfsscan
=> [ "PVE::API2::Storage::Scan", 'nfsscan', ['server'],
163 { node
=> $nodename }, sub {
167 foreach my $rec (@$res) {
168 my $len = length ($rec->{path
});
169 $maxlen = $len if $len > $maxlen;
171 foreach my $rec (@$res) {
172 printf "%-${maxlen}s %s\n", $rec->{path
}, $rec->{options
};
175 glusterfsscan
=> [ "PVE::API2::Storage::Scan", 'glusterfsscan', ['server'],
176 { node
=> $nodename }, sub {
179 foreach my $rec (@$res) {
180 printf "%s\n", $rec->{volname
};
183 iscsiscan
=> [ "PVE::API2::Storage::Scan", 'iscsiscan', ['server'],
184 { node
=> $nodename }, sub {
188 foreach my $rec (@$res) {
189 my $len = length ($rec->{target
});
190 $maxlen = $len if $len > $maxlen;
192 foreach my $rec (@$res) {
193 printf "%-${maxlen}s %s\n", $rec->{target
}, $rec->{portal
};
196 lvmscan
=> [ "PVE::API2::Storage::Scan", 'lvmscan', [],
197 { node
=> $nodename }, sub {
199 foreach my $rec (@$res) {
200 printf "$rec->{vg}\n";
203 lvmthinscan
=> [ "PVE::API2::Storage::Scan", 'lvmthinscan', ['vg'],
204 { node
=> $nodename }, sub {
206 foreach my $rec (@$res) {
207 printf "$rec->{lv}\n";
210 zfsscan
=> [ "PVE::API2::Storage::Scan", 'zfsscan', [],
211 { node
=> $nodename }, sub {
214 foreach my $rec (@$res) {
215 printf "$rec->{pool}\n";
218 path
=> [ __PACKAGE__
, 'path', ['volume']],
219 extractconfig
=> [__PACKAGE__
, 'extractconfig', ['volume']],