/[pxelator]/conf/debian-live/config.pl
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 /conf/debian-live/config.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 26 - (show annotations)
Wed Jul 29 00:44:31 2009 UTC (11 years, 10 months ago) by dpavlin
File MIME type: text/plain
File size: 876 byte(s)
example configuration for Debian Live

1
2 use warnings;
3
4 $tftp_dir = 'tftp/debian-live';
5 $file = 'gpxelinux.0';
6 symlink '/usr/lib/syslinux/gpxelinux.0', "$tftp_dir/$file" unless -l "$tftp_dir/$file";
7
8 sub path {
9 my $glob = shift;
10 my $path = glob("$tftp_dir/$glob");
11 die "can't find anything for $tftp_dir/$glob" unless $path;
12 warn $path;
13 $path =~ s{^$tftp_dir}{};
14 return "/$path";
15 }
16
17 my $pxelinux = "$tftp_dir/pxelinux.cfg";
18
19 if ( $server_ip ) { # FIXME refresh only from dhcpd
20 mkdir $pxelinux;
21 $pxelinux .= '/default';
22
23 my $url = "http://$server_ip/pxelator/debian-live/";
24 $url = '';
25
26 my $squash = path '*squashfs';
27
28 use File::Slurp qw/write_file/;
29 write_file $pxelinux, qq{
30 default linux
31 label linux
32 kernel $url/vmlinuz1
33 append initrd=$url/initrd1.img boot=live union=aufs noswap noprompt vga=normal fetch=$url/$squash
34 };
35
36 warn "created $pxelinux $squash\n";
37 } else {
38 warn "using $pxelinux";
39 }
40
41 1;

  ViewVC Help
Powered by ViewVC 1.1.26