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/pxelator/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();
#       webconverger($ip);
        debirf($ip);
#       $tftp::dir = "$server::base_dir/tftp/$pxelinux::path_prefix";
}

warn 'loaded';

1;
1	dpavlin	74	package config;
2
3			use warnings;
4			use strict;
5	dpavlin	135	use autodie;
6	dpavlin	74
7			use server;
8	dpavlin	129	use pxelinux;
9	dpavlin	74	use File::Slurp;
10
11	dpavlin	129	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	dpavlin	138	use upstream;
18
19	dpavlin	142	=head1 webconverger
20
21			Webconverger - the opensource Web Kiosk
22
23			L<http://webconverger.org/>
24
25			=cut
26
27	dpavlin	129	sub webconverger {
28	dpavlin	138	my $ip = shift;
29	dpavlin	129
30	dpavlin	138	upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' );
31	dpavlin	129
32	dpavlin	138	pxelinux::config_for_ip( $ip, qq{
33	dpavlin	129
34	dpavlin	138	default webconverger
35	dpavlin	135	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/pxelator/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	dpavlin	138	});
40
41	dpavlin	129	}
42
43	dpavlin	142	=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	dpavlin	110	sub for_ip {
67			my $ip = shift;
68	dpavlin	129	# debian_live();
69	dpavlin	142	# webconverger($ip);
70			debirf($ip);
71	dpavlin	129	# $tftp::dir = "$server::base_dir/tftp/$pxelinux::path_prefix";
72	dpavlin	110	}
73
74	dpavlin	135	warn 'loaded';
75
76	dpavlin	74	1;