lib/PXElator/pxe.pm

package pxe;

use warnings;
use strict;
use autodie;

use File::Slurp;

use httpd;
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 = $httpd::url;
$url = "tftp://$server::ip/"; # fallback to tftp
$url = "http://$server::ip/pxelator/";

my $squash = tftpd::path('debian-live/*squashfs');

my $config = "$tftpd::dir/pxelinux.cfg";
mkdir $config unless -d $config;
$config .= '/default';

write_file $config, qq{

default linux
label linux
        kernel $url/debian-live/vmlinuz1
        append initrd=$url/debian-live/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	dpavlin	46	use autodie;
6	dpavlin	45
7			use File::Slurp;
8
9	dpavlin	60	use httpd;
10	dpavlin	45	use tftpd;
11
12			our $file = 'gpxelinux.0';
13			my $path = "$tftpd::dir/$file";
14			symlink '/usr/lib/syslinux/gpxelinux.0', $path unless -l $path;
15			warn "file $path ", -s $path;
16
17	dpavlin	60	my $url = $httpd::url;
18	dpavlin	46	$url = "tftp://$server::ip/"; # fallback to tftp
19	dpavlin	60	$url = "http://$server::ip/pxelator/";
20	dpavlin	46
21	dpavlin	45	my $squash = tftpd::path('debian-live/*squashfs');
22
23	dpavlin	52	my $config = "$tftpd::dir/pxelinux.cfg";
24			mkdir $config unless -d $config;
25			$config .= '/default';
26	dpavlin	45
27			write_file $config, qq{
28
29			default linux
30			label linux
31	dpavlin	46	kernel $url/debian-live/vmlinuz1
32	dpavlin	60	append initrd=$url/debian-live/initrd1.img boot=live union=aufs noswap noprompt vga=normal fetch=$url/$squash
33	dpavlin	45
34			};
35
36			warn "config $config ", -s $config;
37
38			warn "loaded";
39
40			1;