ts-host-install: XXX Stuff to check if it can work and need works

diff --git a/ts-host-install b/ts-host-install
index 076f573277fff6ef0baf2289b399f20e29d99d51..385234fc7c07af4c2daa4835bdf678fd2eb8fa16 100755 (executable)
--- a/ts-host-install
+++ b/ts-host-install
@@ -179,6 +179,7 @@ sub setup_netboot_firstboot($) {
 
     my $kernel;
 
+    # TODO: That's not going to work with CentOS, there will not be a firmware in the $d_i/ dir
     foreach my $fp (keys %{ $ho->{Flags} }) {
         $fp =~ s/^need-firmware-deb-// or next;
         my $cpio= "$ho->{Tftp}{Path}/$d_i/$fp.cpio.gz";
@@ -192,6 +193,7 @@ sub setup_netboot_firstboot($) {
         }
     }
 
+    # TODO: That may not work with CentOS
     di_special_kernel($ho, sub {
         my ($kp, $tp, $k, $cpio) = @_;
         $kernel = $k if defined $k;
@@ -212,6 +214,8 @@ sub setup_netboot_firstboot($) {
     my $ipappend = 2;
     my $wantphysif= get_host_property($ho,'interface force','auto');
     logm("Forcing interface $wantphysif");
+    # That's debian specifix and may not work with CentOS
+    # TODO: move to Debian.pm
     if ($wantphysif ne 'auto') {
        $ipappend = 0;
        die "need Ether for $ho->{Name} ($wantphysif)"
@@ -230,6 +234,7 @@ END
 
     my %xopts;
 
+    # TODO: Will not work with CentOS
     di_special_kernel($ho, sub {
         my ($kp,$tp,$k,$c) = @_;
        $xopts{dtbs} = "/$d_i/$kp-dtbs"