mirror of
https://github.com/schoebel/mars
synced 2024-12-14 02:35:14 +00:00
marsadm: new get-link
This commit is contained in:
parent
2fc05b5373
commit
084e56bc96
@ -1114,6 +1114,11 @@ sub set_link_cmd {
|
|||||||
my $cmd = shift;
|
my $cmd = shift;
|
||||||
for (;;) {
|
for (;;) {
|
||||||
my $src = shift || last;
|
my $src = shift || last;
|
||||||
|
if ($cmd =~ m/^get-/) {
|
||||||
|
my $value = get_link($src);
|
||||||
|
lprint "$value\n";
|
||||||
|
next;
|
||||||
|
}
|
||||||
my $dst = shift || ldie "you did not supply a symlink destination for source '$src'\n";
|
my $dst = shift || ldie "you did not supply a symlink destination for source '$src'\n";
|
||||||
ldie "symlink target '$dst' is not an absolute path\n" unless $dst =~ m:^/:;
|
ldie "symlink target '$dst' is not an absolute path\n" unless $dst =~ m:^/:;
|
||||||
check_userspace($dst);
|
check_userspace($dst);
|
||||||
@ -2080,6 +2085,7 @@ my %cmd_table =
|
|||||||
"log-purge-all" => \&log_purge_res,
|
"log-purge-all" => \&log_purge_res,
|
||||||
"fake-sync" => \&fake_local_res,
|
"fake-sync" => \&fake_local_res,
|
||||||
"set-link" => \&set_link_cmd,
|
"set-link" => \&set_link_cmd,
|
||||||
|
"get-link" => \&set_link_cmd,
|
||||||
"set-sync-pref-list"=> \&set_sync_pref_list,
|
"set-sync-pref-list"=> \&set_sync_pref_list,
|
||||||
"get-sync-pref-list"=> \&set_sync_pref_list,
|
"get-sync-pref-list"=> \&set_sync_pref_list,
|
||||||
"set-sync-limit-value"=> \&set_sync_limit_value,
|
"set-sync-limit-value"=> \&set_sync_limit_value,
|
||||||
|
Loading…
Reference in New Issue
Block a user