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	dpavlin	45	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;