--- lib/PXElator/config.pm	2009/08/02 02:04:00	110
+++ lib/PXElator/config.pm	2009/08/04 13:19:08	135
@@ -2,8 +2,10 @@
 
 use warnings;
 use strict;
+use autodie;
 
 use server;
+use pxelinux;
 use File::Slurp;
 
 sub shared {
@@ -18,10 +20,60 @@
 	return $value;
 }
 
+sub debian_live {
+	$dhcpd::file = "pxelinux.0";
+	$pxelinux::path_prefix = 'live-helper/tftpboot/';
+	$pxelinux::config_file = 'pxelinux.cfg/default';
+}
+
+use LWP::Simple qw/mirror RC_NOT_MODIFIED/;
+sub webconverger {
+	$dhcpd::file = "pxelinux.0";
+	$pxelinux::path_prefix = 'webconverger/';
+
+	my $dir = "$server::base_dir/tftp/$pxelinux::path_prefix";
+
+	mkdir $dir unless -d $dir;
+
+	my $cfg = "$dir/pxelinux.cfg";
+	return 1 if -e $cfg;
+
+	mkdir $cfg;
+
+	my $iso = '/srv/pxelator/iso/webc-5.2.iso';
+	my $url = 'http://download.webconverger.com/webc-5.2.iso';
+
+	print STDERR "mirror $url";
+	mirror( $url, $iso)
+		== RC_NOT_MODIFIED
+		&& warn(" not modified\n")
+		|| warn(" done ", -s $iso, " bytes\n")
+		;
+
+	mkdir "$dir/iso" unless -e "$dir/iso";
+
+	system "mount -t iso9660 | grep webc-5.2 || sudo mount $iso $dir/iso/ -o loop -t iso9660 -v";
+
+	symlink "/usr/lib/syslinux/pxelinux.0", "$dir/$dhcpd::file";
+
+	$cfg .= '/default';
+
+	write_file $cfg, qq{
+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
+	};
+
+#	$pxelinux::config_file = $cfg;
+}
+
 sub for_ip {
 	my $ip = shift;
-	$tftp::dir = "$server::base_dir/tftp/live-helper/tftpboot";
-	$dhcpd::file = "pxelinux.0";
+#	debian_live();
+	webconverger();
+#	$tftp::dir = "$server::base_dir/tftp/$pxelinux::path_prefix";
 }
 
+warn 'loaded';
+
 1;