summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/pxe.pm13
1 files changed, 9 insertions, 4 deletions
diff --git a/perl-install/network/pxe.pm b/perl-install/network/pxe.pm
index a75aa18eb..ec0d1de53 100644
--- a/perl-install/network/pxe.pm
+++ b/perl-install/network/pxe.pm
@@ -239,16 +239,21 @@ sub list_pxelinux_profiles {
sort(uniq(map { keys %{$profiles_conf->{profiles}{$_}} } qw(boot install)));
}
+sub profiles_exist {
+ my ($profiles_conf, $profile) = @_;
+ member($profile, network::pxe::list_pxelinux_profiles($profiles_conf));
+}
+
sub find_next_profile_name {
my ($profiles_conf, $prefix) = @_;
- my $i = 1;
- /^$prefix(\d+)$/ && $1 >= $i and $i = $1 + 1 foreach network::pxe::list_pxelinux_profiles($profiles_conf);
+ my $i = undef;
+ /^$prefix(\d*)$/ && $1 >= $i and $i = $1 + 1 foreach network::pxe::list_pxelinux_profiles($profiles_conf);
"$prefix$i";
}
sub add_empty_profile {
- my ($profiles_conf) = @_;
- my $profile = find_next_profile_name($profiles_conf, "profile_");
+ my ($profiles_conf, $profile, $to_install) = @_;
+ $to_install and $profiles_conf->{profiles}{install}{$profile} = 1;
$profiles_conf->{profiles}{boot}{$profile} = 1;
}