lib/PXElator/pxe.pm

package pxe;

use warnings;
use strict;

use File::Slurp;

use server;
use tftpd;

our $file = 'gpxelinux.0';
my $path = "$tftpd::dir/$file";
symlink '/usr/lib/syslinux/gpxelinux.0', $path unless -l $path;
warn "file $path ", -s $path;

my $url = "http://$server::ip/pxelator/debian-live/";
my $squash = tftpd::path('debian-live/*squashfs');


my $config = "$ftpd::dir/pxelinux.cfg/default";

write_file $config, qq{

default linux
label linux
        kernel $url/vmlinuz1
        append initrd=$url/initrd1.img boot=live union=aufs noswap noprompt vga=normal fetch=$url/$squash

};

warn "config $config ", -s $config;

warn "loaded";

1;
1	package pxe;
2
3	use warnings;
4	use strict;
5
6	use File::Slurp;
7
8	use server;
9	use tftpd;
10
11	our $file = 'gpxelinux.0';
12	my $path = "$tftpd::dir/$file";
13	symlink '/usr/lib/syslinux/gpxelinux.0', $path unless -l $path;
14	warn "file $path ", -s $path;
15
16	my $url = "http://$server::ip/pxelator/debian-live/";
17	my $squash = tftpd::path('debian-live/*squashfs');
18
19
20	my $config = "$ftpd::dir/pxelinux.cfg/default";
21
22	write_file $config, qq{
23
24	default linux
25	label linux
26	kernel $url/vmlinuz1
27	append initrd=$url/initrd1.img boot=live union=aufs noswap noprompt vga=normal fetch=$url/$squash
28
29	};
30
31	warn "config $config ", -s $config;
32
33	warn "loaded";
34
35	1;