Parent Directory
| 
Revision Log
quite huge refactoring - config is now place to define client configuration - upstream provide mirroring - pxelinux creates per-client specific configurations - various tweaks and cleanups
| 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 | 129 | sub webconverger { |
| 20 | dpavlin | 138 | my $ip = shift; |
| 21 | dpavlin | 129 | |
| 22 | dpavlin | 138 | upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' ); |
| 23 | dpavlin | 129 | |
| 24 | dpavlin | 138 | pxelinux::config_for_ip( $ip, qq{ |
| 25 | dpavlin | 129 | |
| 26 | dpavlin | 138 | default webconverger |
| 27 | dpavlin | 135 | label webconverger |
| 28 | kernel iso/live/vmlinuz-2.6.30-backports.1-486 | ||
| 29 | 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 | ||
| 30 | |||
| 31 | dpavlin | 138 | }); |
| 32 | |||
| 33 | dpavlin | 129 | } |
| 34 | |||
| 35 | dpavlin | 110 | sub for_ip { |
| 36 | my $ip = shift; | ||
| 37 | dpavlin | 129 | # debian_live(); |
| 38 | dpavlin | 138 | webconverger($ip); |
| 39 | dpavlin | 129 | # $tftp::dir = "$server::base_dir/tftp/$pxelinux::path_prefix"; |
| 40 | dpavlin | 110 | } |
| 41 | |||
| 42 | dpavlin | 135 | warn 'loaded'; |
| 43 | |||
| 44 | dpavlin | 74 | 1; |
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |