1 use std
::collections
::{HashSet, HashMap}
;
3 use chrono
::{TimeZone, Local}
;
6 use hyper
::http
::request
::Parts
;
7 use hyper
::{header, Body, Response, StatusCode}
;
8 use serde_json
::{json, Value}
;
10 use proxmox
::{sortable, identity}
;
11 use proxmox
::api
::{http_err, list_subdirs_api_method}
;
12 use proxmox
::api
::{ApiFuture, ApiHandler, ApiMethod, Router, RpcEnvironment, RpcEnvironmentType}
;
13 use proxmox
::api
::router
::SubdirMap
;
14 use proxmox
::api
::schema
::*;
15 use proxmox
::tools
::{try_block, fs::file_get_contents, fs::file_set_contents}
;
17 use crate::api2
::types
::*;
19 use crate::config
::datastore
;
20 use crate::server
::WorkerTask
;
23 fn read_backup_index(store
: &DataStore
, backup_dir
: &BackupDir
) -> Result
<Value
, Error
> {
25 let mut path
= store
.base_path();
26 path
.push(backup_dir
.relative_path());
27 path
.push("index.json.blob");
29 let raw_data
= file_get_contents(&path
)?
;
30 let data
= DataBlob
::from_raw(raw_data
)?
.decode(None
)?
;
31 let index_size
= data
.len();
32 let mut result
: Value
= serde_json
::from_reader(&mut &data
[..])?
;
34 let mut result
= result
["files"].take();
36 if result
== Value
::Null
{
37 bail
!("missing 'files' property in backup index {:?}", path
);
40 result
.as_array_mut().unwrap().push(json
!({
41 "filename": "index.json.blob",
48 fn group_backups(backup_list
: Vec
<BackupInfo
>) -> HashMap
<String
, Vec
<BackupInfo
>> {
50 let mut group_hash
= HashMap
::new();
52 for info
in backup_list
{
53 let group_id
= info
.backup_dir
.group().group_path().to_str().unwrap().to_owned();
54 let time_list
= group_hash
.entry(group_id
).or_insert(vec
![]);
64 _rpcenv
: &mut dyn RpcEnvironment
,
65 ) -> Result
<Value
, Error
> {
67 let store
= param
["store"].as_str().unwrap();
69 let datastore
= DataStore
::lookup_datastore(store
)?
;
71 let backup_list
= BackupInfo
::list_backups(&datastore
.base_path())?
;
73 let group_hash
= group_backups(backup_list
);
75 let mut groups
= vec
![];
77 for (_group_id
, mut list
) in group_hash
{
79 BackupInfo
::sort_list(&mut list
, false);
82 let group
= info
.backup_dir
.group();
85 "backup-type": group
.backup_type(),
86 "backup-id": group
.backup_id(),
87 "last-backup": info
.backup_dir
.backup_time().timestamp(),
88 "backup-count": list
.len() as u64,
96 fn list_snapshot_files (
99 _rpcenv
: &mut dyn RpcEnvironment
,
100 ) -> Result
<Value
, Error
> {
102 let store
= tools
::required_string_param(¶m
, "store")?
;
103 let backup_type
= tools
::required_string_param(¶m
, "backup-type")?
;
104 let backup_id
= tools
::required_string_param(¶m
, "backup-id")?
;
105 let backup_time
= tools
::required_integer_param(¶m
, "backup-time")?
;
107 let datastore
= DataStore
::lookup_datastore(store
)?
;
108 let snapshot
= BackupDir
::new(backup_type
, backup_id
, backup_time
);
110 let mut files
= read_backup_index(&datastore
, &snapshot
)?
;
112 let info
= BackupInfo
::new(&datastore
.base_path(), snapshot
)?
;
114 let file_set
= files
.as_array().unwrap().iter().fold(HashSet
::new(), |mut acc
, item
| {
115 acc
.insert(item
["filename"].as_str().unwrap().to_owned());
119 for file
in info
.files
{
120 if file_set
.contains(&file
) { continue; }
121 files
.as_array_mut().unwrap().push(json
!({ "filename": file }
));
127 fn delete_snapshots (
130 _rpcenv
: &mut dyn RpcEnvironment
,
131 ) -> Result
<Value
, Error
> {
133 let store
= tools
::required_string_param(¶m
, "store")?
;
134 let backup_type
= tools
::required_string_param(¶m
, "backup-type")?
;
135 let backup_id
= tools
::required_string_param(¶m
, "backup-id")?
;
136 let backup_time
= tools
::required_integer_param(¶m
, "backup-time")?
;
138 let snapshot
= BackupDir
::new(backup_type
, backup_id
, backup_time
);
140 let datastore
= DataStore
::lookup_datastore(store
)?
;
142 datastore
.remove_backup_dir(&snapshot
)?
;
150 _rpcenv
: &mut dyn RpcEnvironment
,
151 ) -> Result
<Value
, Error
> {
153 let store
= tools
::required_string_param(¶m
, "store")?
;
154 let backup_type
= param
["backup-type"].as_str();
155 let backup_id
= param
["backup-id"].as_str();
157 let datastore
= DataStore
::lookup_datastore(store
)?
;
159 let base_path
= datastore
.base_path();
161 let backup_list
= BackupInfo
::list_backups(&base_path
)?
;
163 let mut snapshots
= vec
![];
165 for info
in backup_list
{
166 let group
= info
.backup_dir
.group();
167 if let Some(backup_type
) = backup_type
{
168 if backup_type
!= group
.backup_type() { continue; }
170 if let Some(backup_id
) = backup_id
{
171 if backup_id
!= group
.backup_id() { continue; }
174 let mut result_item
= json
!({
175 "backup-type": group
.backup_type(),
176 "backup-id": group
.backup_id(),
177 "backup-time": info
.backup_dir
.backup_time().timestamp(),
181 if let Ok(index
) = read_backup_index(&datastore
, &info
.backup_dir
) {
182 let mut backup_size
= 0;
183 for item
in index
.as_array().unwrap().iter() {
184 if let Some(item_size
) = item
["size"].as_u64() {
185 backup_size
+= item_size
;
188 result_item
["size"] = backup_size
.into();
191 snapshots
.push(result_item
);
198 const API_METHOD_STATUS
: ApiMethod
= ApiMethod
::new(
199 &ApiHandler
::Sync(&status
),
201 "Get datastore status.",
203 ("store", false, &DATASTORE_SCHEMA
),
211 _rpcenv
: &mut dyn RpcEnvironment
,
212 ) -> Result
<Value
, Error
> {
214 let store
= param
["store"].as_str().unwrap();
216 let datastore
= DataStore
::lookup_datastore(store
)?
;
218 let base_path
= datastore
.base_path();
220 let mut stat
: libc
::statfs64
= unsafe { std::mem::zeroed() }
;
224 let res
= base_path
.with_nix_path(|cstr
| unsafe { libc::statfs64(cstr.as_ptr(), &mut stat) }
)?
;
225 nix
::errno
::Errno
::result(res
)?
;
227 let bsize
= stat
.f_bsize
as u64;
229 "total": stat
.f_blocks
*bsize
,
230 "used": (stat
.f_blocks
-stat
.f_bfree
)*bsize
,
231 "avail": stat
.f_bavail
*bsize
,
236 macro_rules
! add_common_prune_prameters
{
237 ( [ $
( $list1
:tt
)* ] ) => {
238 add_common_prune_prameters
!([$
( $list1
)* ] , [])
240 ( [ $
( $list1
:tt
)* ] , [ $
( $list2
:tt
)* ] ) => {
246 &IntegerSchema
::new("Number of daily backups to keep.")
253 &IntegerSchema
::new("Number of hourly backups to keep.")
260 &IntegerSchema
::new("Number of backups to keep.")
267 &IntegerSchema
::new("Number of monthly backups to keep.")
274 &IntegerSchema
::new("Number of weekly backups to keep.")
281 &IntegerSchema
::new("Number of yearly backups to keep.")
290 const API_METHOD_PRUNE
: ApiMethod
= ApiMethod
::new(
291 &ApiHandler
::Sync(&prune
),
293 "Prune the datastore.",
294 &add_common_prune_prameters
!([
295 ("backup-id", false, &BACKUP_ID_SCHEMA
),
296 ("backup-type", false, &BACKUP_TYPE_SCHEMA
),
297 ("dry-run", true, &BooleanSchema
::new(
298 "Just show what prune would do, but do not delete anything.")
302 ("store", false, &DATASTORE_SCHEMA
),
310 _rpcenv
: &mut dyn RpcEnvironment
,
311 ) -> Result
<Value
, Error
> {
313 let store
= param
["store"].as_str().unwrap();
315 let backup_type
= tools
::required_string_param(¶m
, "backup-type")?
;
316 let backup_id
= tools
::required_string_param(¶m
, "backup-id")?
;
318 let dry_run
= param
["dry-run"].as_bool().unwrap_or(false);
320 let group
= BackupGroup
::new(backup_type
, backup_id
);
322 let datastore
= DataStore
::lookup_datastore(store
)?
;
324 let prune_options
= PruneOptions
{
325 keep_last
: param
["keep-last"].as_u64(),
326 keep_hourly
: param
["keep-hourly"].as_u64(),
327 keep_daily
: param
["keep-daily"].as_u64(),
328 keep_weekly
: param
["keep-weekly"].as_u64(),
329 keep_monthly
: param
["keep-monthly"].as_u64(),
330 keep_yearly
: param
["keep-yearly"].as_u64(),
333 // We use a WorkerTask just to have a task log, but run synchrounously
334 let worker
= WorkerTask
::new("prune", Some(store
.to_owned()), "root@pam", true)?
;
335 let result
= try_block
! {
336 if !prune_options
.keeps_something() {
337 worker
.log("No prune selection - keeping all files.");
341 worker
.log(format
!("Testing prune on store {}", store
));
343 worker
.log(format
!("Starting prune on store {}", store
));
347 let list
= group
.list_backups(&datastore
.base_path())?
;
349 let mut prune_info
= compute_prune_info(list
, &prune_options
)?
;
351 prune_info
.reverse(); // delete older snapshots first
353 for (info
, keep
) in prune_info
{
354 let backup_time
= info
.backup_dir
.backup_time();
355 let timestamp
= BackupDir
::backup_time_to_string(backup_time
);
356 let group
= info
.backup_dir
.group();
363 if keep { "keep" }
else { "remove" }
,
368 if !(dry_run
|| keep
) {
369 datastore
.remove_backup_dir(&info
.backup_dir
)?
;
376 worker
.log_result(&result
);
378 if let Err(err
) = result
{
379 bail
!("prune failed - {}", err
);
382 Ok(json
!(worker
.to_string())) // return the UPID
386 pub const API_METHOD_START_GARBAGE_COLLECTION
: ApiMethod
= ApiMethod
::new(
387 &ApiHandler
::Sync(&start_garbage_collection
),
389 "Start garbage collection.",
391 ("store", false, &DATASTORE_SCHEMA
),
396 fn start_garbage_collection(
399 rpcenv
: &mut dyn RpcEnvironment
,
400 ) -> Result
<Value
, Error
> {
402 let store
= param
["store"].as_str().unwrap().to_string();
404 let datastore
= DataStore
::lookup_datastore(&store
)?
;
406 println
!("Starting garbage collection on store {}", store
);
408 let to_stdout
= if rpcenv
.env_type() == RpcEnvironmentType
::CLI { true }
else { false }
;
410 let upid_str
= WorkerTask
::new_thread(
411 "garbage_collection", Some(store
.clone()), "root@pam", to_stdout
, move |worker
|
413 worker
.log(format
!("starting garbage collection on store {}", store
));
414 datastore
.garbage_collection(worker
)
421 pub const API_METHOD_GARBAGE_COLLECTION_STATUS
: ApiMethod
= ApiMethod
::new(
422 &ApiHandler
::Sync(&garbage_collection_status
),
424 "Garbage collection status.",
426 ("store", false, &DATASTORE_SCHEMA
),
431 fn garbage_collection_status(
434 _rpcenv
: &mut dyn RpcEnvironment
,
435 ) -> Result
<Value
, Error
> {
437 let store
= param
["store"].as_str().unwrap();
439 let datastore
= DataStore
::lookup_datastore(&store
)?
;
441 println
!("Garbage collection status on store {}", store
);
443 let status
= datastore
.last_gc_status();
445 Ok(serde_json
::to_value(&status
)?
)
449 fn get_datastore_list(
452 _rpcenv
: &mut dyn RpcEnvironment
,
453 ) -> Result
<Value
, Error
> {
455 let config
= datastore
::config()?
;
457 Ok(config
.convert_to_array("store"))
461 pub const API_METHOD_DOWNLOAD_FILE
: ApiMethod
= ApiMethod
::new(
462 &ApiHandler
::AsyncHttp(&download_file
),
464 "Download single raw file from backup snapshot.",
466 ("store", false, &DATASTORE_SCHEMA
),
467 ("backup-type", false, &BACKUP_TYPE_SCHEMA
),
468 ("backup-id", false, &BACKUP_ID_SCHEMA
),
469 ("backup-time", false, &BACKUP_TIME_SCHEMA
),
470 ("file-name", false, &StringSchema
::new("Raw file name.")
471 .format(&FILENAME_FORMAT
)
483 _rpcenv
: Box
<dyn RpcEnvironment
>,
487 let store
= tools
::required_string_param(¶m
, "store")?
;
489 let datastore
= DataStore
::lookup_datastore(store
)?
;
491 let file_name
= tools
::required_string_param(¶m
, "file-name")?
.to_owned();
493 let backup_type
= tools
::required_string_param(¶m
, "backup-type")?
;
494 let backup_id
= tools
::required_string_param(¶m
, "backup-id")?
;
495 let backup_time
= tools
::required_integer_param(¶m
, "backup-time")?
;
497 println
!("Download {} from {} ({}/{}/{}/{})", file_name
, store
,
498 backup_type
, backup_id
, Local
.timestamp(backup_time
, 0), file_name
);
500 let backup_dir
= BackupDir
::new(backup_type
, backup_id
, backup_time
);
502 let mut path
= datastore
.base_path();
503 path
.push(backup_dir
.relative_path());
504 path
.push(&file_name
);
506 let file
= tokio
::fs
::File
::open(path
)
507 .map_err(|err
| http_err
!(BAD_REQUEST
, format
!("File open failed: {}", err
)))
510 let payload
= tokio_util
::codec
::FramedRead
::new(file
, tokio_util
::codec
::BytesCodec
::new())
511 .map_ok(|bytes
| hyper
::body
::Bytes
::from(bytes
.freeze()));
512 let body
= Body
::wrap_stream(payload
);
514 // fixme: set other headers ?
515 Ok(Response
::builder()
516 .status(StatusCode
::OK
)
517 .header(header
::CONTENT_TYPE
, "application/octet-stream")
524 pub const API_METHOD_UPLOAD_BACKUP_LOG
: ApiMethod
= ApiMethod
::new(
525 &ApiHandler
::AsyncHttp(&upload_backup_log
),
527 "Download single raw file from backup snapshot.",
529 ("store", false, &DATASTORE_SCHEMA
),
530 ("backup-type", false, &BACKUP_TYPE_SCHEMA
),
531 ("backup-id", false, &BACKUP_ID_SCHEMA
),
532 ("backup-time", false, &BACKUP_TIME_SCHEMA
),
537 fn upload_backup_log(
542 _rpcenv
: Box
<dyn RpcEnvironment
>,
546 let store
= tools
::required_string_param(¶m
, "store")?
;
548 let datastore
= DataStore
::lookup_datastore(store
)?
;
550 let file_name
= "client.log.blob";
552 let backup_type
= tools
::required_string_param(¶m
, "backup-type")?
;
553 let backup_id
= tools
::required_string_param(¶m
, "backup-id")?
;
554 let backup_time
= tools
::required_integer_param(¶m
, "backup-time")?
;
556 let backup_dir
= BackupDir
::new(backup_type
, backup_id
, backup_time
);
558 let mut path
= datastore
.base_path();
559 path
.push(backup_dir
.relative_path());
560 path
.push(&file_name
);
563 bail
!("backup already contains a log.");
566 println
!("Upload backup log to {}/{}/{}/{}/{}", store
,
567 backup_type
, backup_id
, BackupDir
::backup_time_to_string(backup_dir
.backup_time()), file_name
);
570 .map_err(Error
::from
)
571 .try_fold(Vec
::new(), |mut acc
, chunk
| {
572 acc
.extend_from_slice(&*chunk
);
573 future
::ok
::<_
, Error
>(acc
)
577 let blob
= DataBlob
::from_raw(data
)?
;
578 // always verify CRC at server side
580 let raw_data
= blob
.raw_data();
581 file_set_contents(&path
, raw_data
, None
)?
;
583 // fixme: use correct formatter
584 Ok(crate::server
::formatter
::json_response(Ok(Value
::Null
)))
589 const DATASTORE_INFO_SUBDIRS
: SubdirMap
= &[
593 .download(&API_METHOD_DOWNLOAD_FILE
)
600 &ApiHandler
::Sync(&list_snapshot_files
),
602 "List snapshot files.",
604 ("store", false, &DATASTORE_SCHEMA
),
605 ("backup-type", false, &BACKUP_TYPE_SCHEMA
),
606 ("backup-id", false, &BACKUP_ID_SCHEMA
),
607 ("backup-time", false, &BACKUP_TIME_SCHEMA
),
616 .get(&API_METHOD_GARBAGE_COLLECTION_STATUS
)
617 .post(&API_METHOD_START_GARBAGE_COLLECTION
)
624 &ApiHandler
::Sync(&list_groups
),
626 "List backup groups.",
627 &sorted
!([ ("store", false, &DATASTORE_SCHEMA
) ]),
635 .post(&API_METHOD_PRUNE
)
642 &ApiHandler
::Sync(&list_snapshots
),
644 "List backup groups.",
646 ("store", false, &DATASTORE_SCHEMA
),
647 ("backup-type", true, &BACKUP_TYPE_SCHEMA
),
648 ("backup-id", true, &BACKUP_ID_SCHEMA
),
655 &ApiHandler
::Sync(&delete_snapshots
),
657 "Delete backup snapshot.",
659 ("store", false, &DATASTORE_SCHEMA
),
660 ("backup-type", false, &BACKUP_TYPE_SCHEMA
),
661 ("backup-id", false, &BACKUP_ID_SCHEMA
),
662 ("backup-time", false, &BACKUP_TIME_SCHEMA
),
671 .get(&API_METHOD_STATUS
)
676 .upload(&API_METHOD_UPLOAD_BACKUP_LOG
)
680 const DATASTORE_INFO_ROUTER
: Router
= Router
::new()
681 .get(&list_subdirs_api_method
!(DATASTORE_INFO_SUBDIRS
))
682 .subdirs(DATASTORE_INFO_SUBDIRS
);
685 pub const ROUTER
: Router
= Router
::new()
688 &ApiHandler
::Sync(&get_datastore_list
),
689 &ObjectSchema
::new("Directory index.", &[])
692 .match_all("store", &DATASTORE_INFO_ROUTER
);