cache response into $mounted

diff --git a/lib/PXElator/config.pm b/lib/PXElator/config.pm
index 7692e28..7f452e5 100644 (file)
--- a/lib/PXElator/config.pm
+++ b/lib/PXElator/config.pm
@@ -11,6 +11,8 @@ use file;
 
 use File::Slurp;
 
+our $mounted;
+
 sub available { qw/debian_live webconverger debirf tinycore nfsroot/ };
 
 sub debian_live {
@@ -48,7 +50,7 @@ L<http://webconverger.org/>
 sub webconverger {
        my ($ip) = @_;
 
-       upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' );
+       $mounted->{$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';
@@ -106,8 +108,6 @@ sub in_chroot {
        system "sudo chroot $dir sh -x /tmp/inside.sh";
 }
 
-our $mounted;
-
 sub nfsroot {
        my $ip = shift;