diff options
author | Antoine Ginies <aginies@mandriva.com> | 2005-09-01 14:58:13 +0000 |
---|---|---|
committer | Antoine Ginies <aginies@mandriva.com> | 2005-09-01 14:58:13 +0000 |
commit | 78d54215950fd0ac72c486185b9a291d270fea36 (patch) | |
tree | f50d5f7ec81ad0b110cfa35b756a8e1e5dd0543b /drakpxelinux.pl | |
parent | f0f87613b457ce85ec95621f72aba9645c6f873d (diff) | |
download | drakpxelinux-78d54215950fd0ac72c486185b9a291d270fea36.tar drakpxelinux-78d54215950fd0ac72c486185b9a291d270fea36.tar.gz drakpxelinux-78d54215950fd0ac72c486185b9a291d270fea36.tar.bz2 drakpxelinux-78d54215950fd0ac72c486185b9a291d270fea36.tar.xz drakpxelinux-78d54215950fd0ac72c486185b9a291d270fea36.zip |
ipdate data systems from file and from SimpleList
Diffstat (limited to 'drakpxelinux.pl')
-rw-r--r-- | drakpxelinux.pl | 22 |
1 files changed, 17 insertions, 5 deletions
diff --git a/drakpxelinux.pl b/drakpxelinux.pl index d8d6ba7..f4cd7fa 100644 --- a/drakpxelinux.pl +++ b/drakpxelinux.pl @@ -955,11 +955,22 @@ sub get_profile2_from_mac { } sub update_systems_data { -# my ($systems) = @_; - my ($mac , $name, $entry); + my ($mac , $name, $profile2, $entry); print Dumper($systems); foreach $a (@{$systems->{data}}) { $mac = $a->[0]; + $name = $a->[3]; + $profile2 = $a->[2]; + $entry = [ $mac ]; + $profile2 and $a->[2] = $profile2; + $name and $a->[3] = $name; + } +} + +sub update_systems_data_from_file { + my ($mac , $entry); + foreach $a (@{$systems->{data}}) { + $mac = $a->[0]; $entry = [ $mac ]; my $profile2 = get_profile2_from_mac($mac); my $name = get_name_from_mac($mac); @@ -969,6 +980,7 @@ sub update_systems_data { } } + sub add_configured_mac_addresses() { my ($name); while (my ($mac_address, $conf) = each %{$profiles_conf->{per_mac}}) { @@ -1117,6 +1129,7 @@ my $okcancel = create_okcancel({ cancel_clicked => sub { ugtk2->exit }, ok_clicked => sub { write_conf(get_pxelinux_conf_from_profile(), $treeview); + write_profile_conf(); ugtk2->exit }, }, ); @@ -1203,7 +1216,7 @@ gtkpack($w->{window}, gtknew('VBox', spacing => 0, children => [ }), gtksignal_connect(gtknew('Button', text => N("Set Profile 2")), clicked => sub { my $profile = $profiles_combo->get_active_text; - my $to_install = exists $profiles_conf->{profiles}{install}{$profile}; + #my $to_install = exists $profiles_conf->{profiles}{install}{$profile}; foreach ($systems->get_selected_indices) { my $entry = $systems->{data}[$_]; system_entry_set_profile2($entry, $profile); @@ -1224,8 +1237,7 @@ gtkpack($w->{window}, gtknew('VBox', spacing => 0, children => [ ); add_configured_mac_addresses(); -update_systems_data(); -write_profile_conf(); +update_systems_data_from_file(); get_mac_addresses_from_dhcp_log(); Glib::Timeout->add(60000, \&get_mac_addresses_from_dhcp_log); refresh_profiles(); |