RepoMirrors/mars
1
0
Fork 0
mirror of https://github.com/schoebel/mars synced 2025-04-24 20:28:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

marsadm: new command 'set-link'

Browse Source
This commit is contained in:
Thomas Schoebel-Theuer 2013-05-29 14:01:21 +02:00
parent cacea6d673
commit dab34fa2f6
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
userspace/marsadm
View File

@ -715,6 +715,20 @@ sub is_module_loaded {
return $res; return $res;
} }
sub set_link_cmd {
my $cmd = shift;
for (;;) {
my $src = shift || last;
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:^/:;
check_userspace($dst);
my $dir = `dirname "$dst"` or ldie "path '$dst' has no dirname\n";
chomp $dir;
ldie "directory '$dir' does not exist\n" unless -d $dir;
set_link($src, $dst);
}
}
sub _create_cluster { sub _create_cluster {
my ($cmd) = @_; my ($cmd) = @_;
system("mkdir $mars") unless -d $mars; system("mkdir $mars") unless -d $mars;
@ -1559,6 +1573,7 @@ my %cmd_table =
"log-delete" => \&logdelete_res, "log-delete" => \&logdelete_res,
"log-delete-all" => \&logdelete_res, "log-delete-all" => \&logdelete_res,
"fake-sync" => \&fake_local_res, "fake-sync" => \&fake_local_res,
"set-link" => \&set_link_cmd,
"delete-file" => \&delete_file_cmd, "delete-file" => \&delete_file_cmd,
"cat" => \&cat_cmd, "cat" => \&cat_cmd,
"show" => \&show_cmd, "show" => \&show_cmd,
@ -1708,8 +1723,8 @@ sub do_one_res {
my $func = shift; my $func = shift;
my ($cmd, $res) = @_; my ($cmd, $res) = @_;
$res = check_res($res) unless $cmd =~ m/^(join|create|leave|wait)-cluster|create-resource|show|cat|[a-z]+-file$/; $res = check_res($res) unless $cmd =~ m/^(join|create|leave|wait)-cluster|create-resource|show|cat|[a-z]+-file|set-link$/;
check_res_member($res) unless $cmd =~ m/^(join|create)-(cluster|resource)|(leave|wait)-cluster|show|cat|[a-z]+-file$/; check_res_member($res) unless $cmd =~ m/^(join|create)-(cluster|resource)|(leave|wait)-cluster|show|cat|[a-z]+-file|set-link$/;
&{$func}(@_); &{$func}(@_);
} }