die "need to run $0 as root like this\nsudo $0\n" unless $< == 0;
+our $tftp_dir;
sub tftp_dir {
- my $dir = 'conf/' . readlink('conf/tftp.dir');
- $dir =~ s{[^/]+/\.\./([^/]+)}{$1};
- return $dir;
+ require 'config.pl';
+ warn "# config: ", readlink 'config.pl', " tftp_dir: $tftp_dir\n";
+ return $tftp_dir;
}
-my $tftp_dir = tftp_dir;
+tftp_dir;
die "no $tftp_dir\n" unless -e $tftp_dir;
+++ /dev/null
-../tftp/debian-netboot
\ No newline at end of file
+++ /dev/null
-
-# $file = 'undionly.kpxe';
-#$file = 'pxelinux.0';
-
-$gpxe_file = 'tinycore/tftp.gpxe';
-#$gpxe_file = "http://$server_ip/pxelator/tinycore/http.gpxe";
-#$gpxe_file = "tinycore/http.gpxe";
-#$gpxe_file = "menu.gpxe";
-#$gpxe_file = "debirf.gpxe";
-#$gpxe_file = "dos.gpxe";
-
--- /dev/null
+conf/debian-nfs-root/config.pl
\ No newline at end of file