lib/PXElator/config.pm

package config;

use warnings;
use strict;
use autodie;

use server;
use pxelinux;
use File::Slurp;

sub debian_live {
        $dhcpd::file = "pxelinux.0";
        $pxelinux::path_prefix = 'live-helper/tftpboot/';
        $pxelinux::config_file = 'pxelinux.cfg/default';
}

use upstream;

=head1 webconverger

Webconverger - the opensource Web Kiosk

L<http://webconverger.org/>

=cut

sub webconverger {
        my $ip = shift;

        upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' );

        pxelinux::config_for_ip( $ip, qq{

default webconverger
label webconverger
        kernel iso/live/vmlinuz-2.6.30-backports.1-486
        append initrd=iso/live/initrd.img-2.6.30-backports.1-486 fetch=http://172.16.10.1:7777/webconverger/iso/live/filesystem.squashfs boot=live quiet homepage=http://172.16.10.1:7777/ nonetworking nosudo splash video=vesa:ywrap,mtrr vga=788 nopersistent username=webc hostname=webconverger union=aufs

        });

}

=head1 debirf

debirf is a system that will create diskless, all-in-ram images (kernel and initramfs) that boot entirely into ram and leave the user in a fully functional Debian system. 

L<http://cmrg.fifthhorseman.net/wiki/debirf>

=cut

sub debirf {
        my $ip = shift;

        upstream::iso( 'http://cmrg.mayfirst.org/debirf/debirf-rescue_lenny_2.6.26-1-686.iso' );

        pxelinux::config_for_ip( $ip, qq{

default linux
label linux
        kernel iso/vmlinuz-2.6.26-1-686
        append initrd=iso//debirf-rescue_lenny_2.6.26-1-686.cgz

        });
}

sub for_ip {
        my $ip = shift;
#       debian_live($ip);
        webconverger($ip);
#       debirf($ip);
#       $tftp::dir = "$server::base_dir/tftp/$pxelinux::path_prefix";
}

warn 'loaded';

1;
1	package config;
2
3	use warnings;
4	use strict;
5	use autodie;
6
7	use server;
8	use pxelinux;
9	use File::Slurp;
10
11	sub debian_live {
12	$dhcpd::file = "pxelinux.0";
13	$pxelinux::path_prefix = 'live-helper/tftpboot/';
14	$pxelinux::config_file = 'pxelinux.cfg/default';
15	}
16
17	use upstream;
18
19	=head1 webconverger
20
21	Webconverger - the opensource Web Kiosk
22
23	L<http://webconverger.org/>
24
25	=cut
26
27	sub webconverger {
28	my $ip = shift;
29
30	upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' );
31
32	pxelinux::config_for_ip( $ip, qq{
33
34	default webconverger
35	label webconverger
36	kernel iso/live/vmlinuz-2.6.30-backports.1-486
37	append initrd=iso/live/initrd.img-2.6.30-backports.1-486 fetch=http://172.16.10.1:7777/webconverger/iso/live/filesystem.squashfs boot=live quiet homepage=http://172.16.10.1:7777/ nonetworking nosudo splash video=vesa:ywrap,mtrr vga=788 nopersistent username=webc hostname=webconverger union=aufs
38
39	});
40
41	}
42
43	=head1 debirf
44
45	debirf is a system that will create diskless, all-in-ram images (kernel and initramfs) that boot entirely into ram and leave the user in a fully functional Debian system.
46
47	L<http://cmrg.fifthhorseman.net/wiki/debirf>
48
49	=cut
50
51	sub debirf {
52	my $ip = shift;
53
54	upstream::iso( 'http://cmrg.mayfirst.org/debirf/debirf-rescue_lenny_2.6.26-1-686.iso' );
55
56	pxelinux::config_for_ip( $ip, qq{
57
58	default linux
59	label linux
60	kernel iso/vmlinuz-2.6.26-1-686
61	append initrd=iso//debirf-rescue_lenny_2.6.26-1-686.cgz
62
63	});
64	}
65
66	sub for_ip {
67	my $ip = shift;
68	# debian_live($ip);
69	webconverger($ip);
70	# debirf($ip);
71	# $tftp::dir = "$server::base_dir/tftp/$pxelinux::path_prefix";
72	}
73
74	warn 'loaded';
75
76	1;