RepoMirrors
/
mars
mirror of https://github.com/schoebel/mars
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

marsadm: split off get_template_files()

This commit is contained in:
Thomas Schoebel-Theuer 2019-11-27 10:02:48 +01:00
parent a4f37dfdf0
commit 55350da932
1 changed files with 27 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
userspace/marsadm
View File

@ -335,6 +335,30 @@ sub systemd_unlock {
unlink($lock_file); unlink($lock_file);
} }
my %template_names;
my %template_files;
sub get_template_files {
if (!%template_files) {
foreach my $dir (@MARS_PATH) {
my $subdir = "$dir/$systemd_subdir";
$subdir = $dir unless -d $subdir;
next unless -d $subdir;
foreach my $template_file (glob("$subdir/*.{$systemd_suffixes}")) {
my $template_name = `basename '$template_file'`;
chomp $template_name;
next unless $template_name;
# Only the first hit will win when the same template is in multiple dirs.
next if defined($template_files{$template_name});
$template_names{$template_file} = $template_name;
$template_files{$template_name} = $template_file;
lprint "== found template '$template_name' at '$template_file'\n" if $verbose;
}
}
}
return sort(keys(%template_names));
}
sub systemctl { sub systemctl {
my ($args) = @_; my ($args) = @_;
my $cmd = "$systemctl $args"; my $cmd = "$systemctl $args";
@ -660,22 +684,8 @@ sub systemd_trigger {
$old_instances{$file} = 1; $old_instances{$file} = 1;
} }
# Determine all template files. # Determine all template files.
my %templates; get_template_files();
my %unit; my %unit = %template_files;
foreach my $dir (@MARS_PATH) {
my $subdir = "$dir/$systemd_subdir";
$subdir = $dir unless -d $subdir;
next unless -d $subdir;
foreach my $template (glob("$subdir/*.{$systemd_suffixes}")) {
my $name = `basename '$template'`;
chomp $name;
$templates{$name} = 1;
# Only the first hit will win when the same template is in multiple dirs.
next if defined($unit{$name});
lprint "== found template '$template'\n" if $verbose;
$unit{$name} = $template;
}
}
# Determine all participating resource names. # Determine all participating resource names.
my @res_list = glob("$mars/resource-*/{data,systemd}-$host"); my @res_list = glob("$mars/resource-*/{data,systemd}-$host");
map { s:^$mars/resource-(.*?)/.*:$1:; } @res_list; map { s:^$mars/resource-(.*?)/.*:$1:; } @res_list;
@ -715,7 +725,7 @@ sub systemd_trigger {
my $found = 0; my $found = 0;
my $name = $file; my $name = $file;
$name =~ s:^.*/::; $name =~ s:^.*/::;
foreach my $template (keys(%templates)) { foreach my $template (get_template_files()) {
$template =~ s:^.*/::; $template =~ s:^.*/::;
if ($template eq $name) { if ($template eq $name) {
lprint " '$name' equals '$template'\n" if $verbose > 1; lprint " '$name' equals '$template'\n" if $verbose > 1;