sub webconverger {
my ($ip) = @_;
- $mounted->{$ip} ||= upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' );
+ $mounted->{"webconverger/$ip"} ||= upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' );
my $homepage = client::conf( $ip => 'homepage', default => "http://${server::ip}:7777/client" );
my $hostname = client::conf( $ip => 'hostname' ) || 'webconverger';
}
sub nfsroot {
- my $ip = shift;
+ my $ip = shift || die "no ip?";
my $nfsroot = "$server::base_dir/tftp/nfsroot";
my $debian_mirror = server::conf_default( 'debian_mirror', 'http://ftp.debian.org/debian' );
file::change("$debootstrap/etc/initramfs-tools/initramfs.conf", 'BOOT=local' => 'BOOT=nfs' ) &&
in_chroot $debootstrap => 'update-initramfs -u';
- file::append "$debootstrap/etc/rsyslog.d/pxelator.conf", "*.*\t\@$server::ip\n";
- file::append "$debootstrap/etc/network/interfaces", qq{
-
-auto lo
-iface lo inet loopback
-
-allow-hotplug eth0
-iface eth0 inet dhcp
-
- };
-
}
my $export = "$nfsroot/$ip";
my $br = "$nfsroot/br/$ip";
- my $m = $mounted->{$ip} ||= `mount | grep $export`;
- if ( ! $m ) {
+ $mounted->{"nfsroot/$ip"} ||= `mount | grep $export`;
+
+ if ( ! $mounted->{"nfsroot/$ip"} ) {
warn "mounting $export";
mkdir "$nfsroot/br" unless -e "$nfsroot/br";
system "sudo mount -t aufs -o br:$br:$debootstrap none $export";
system "sudo exportfs -i -o rw,async,no_root_squash,no_subtree_check,fsid=999 $ip:$export";
- my $hostname = client::conf( $ip => 'hostname' ) || 'nfsroot';
- write_file "$export/etc/hostname", $hostname;
- file::append "$export/hosts", '127.0.0.1';
}
+ my $hostname = client::conf( $ip => 'hostname' ) || 'nfsroot';
+ file::replace "$export/etc/hostname", $hostname;
+ file::replace "$export/etc/hosts", "127.0.0.1\tlocalhost $hostname\n";
+ file::replace "$export/etc/resolv.conf", "domain $server::domain_name\nnameserver $server::ip\n";
+ file::replace "$export/etc/rsyslog.d/pxelator.conf", "*.*\t\@$server::ip\n";
+
+ file::append "$debootstrap/etc/network/interfaces", qq{
+
+auto lo
+iface lo inet loopback
+
+allow-hotplug eth0
+iface eth0 inet dhcp
+
+ };
+
pxelinux::config_for_ip( $ip, qq{
use strict;
use autodie;
-use Test::More tests => 10;
+use Test::More tests => 11;
use Data::Dump qw/dump/;
use_ok 'file';
cmp_ok( -s $file, '>', $size, 'size bigger' );
ok( ! file::change( $file, 'test' => 'foobar' ), 'change again' );
+ok( file::replace( $file, 'replaced content' ), 'replace' );
+
ok( unlink($file), 'unlink' );