/[pxelator]/lib/PXElator/pxe.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /lib/PXElator/pxe.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 95 - (show annotations)
Fri Jul 31 20:08:06 2009 UTC (11 years, 5 months ago) by dpavlin
File size: 896 byte(s)
be less chatty without debug

1 package pxe;
2
3 use warnings;
4 use strict;
5 use autodie;
6
7 use File::Slurp;
8
9 use httpd;
10 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 my $url = $httpd::url;
18 #$url = "tftp://$server::ip/"; # fallback to tftp
19 #$url = "http://$server::ip/pxelator/";
20
21
22 sub config_for_ip {
23
24 my $ip = shift;
25 $ip = uc sprintf "%02x%02x%02x%02x", split /\./,$ip;
26
27 my $config = "$tftpd::dir/pxelinux.cfg";
28 mkdir $config unless -d $config;
29 $config .= '/' . $ip;
30
31 my $squash = $url . tftpd::path('debian-live/*squashfs');
32 write_file $config, qq{
33
34 default linux
35 label linux
36 kernel $url/debian-live/vmlinuz1
37 append initrd=$url/debian-live/initrd1.img boot=live union=aufs noswap noprompt vga=normal fetch=$squash
38
39 };
40
41 warn "config $config ", -s $config if $server::debug;
42
43 }
44
45 warn "loaded";
46
47 1;

  ViewVC Help
Powered by ViewVC 1.1.26