From bb23e1abb478ada4f1d06a0638be54b283cbead3 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 19 Aug 2009 23:12:18 +0000 Subject: [PATCH] cache response into $mounted --- lib/PXElator/config.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/PXElator/config.pm b/lib/PXElator/config.pm index 7692e28..7f452e5 100644 --- 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 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; -- 2.20.1