configure network if needed

1 files changed, 10 insertions, 0 deletions

diff --git a/rescue/partimage_whole_disk b/rescue/partimage_whole_disk
index 15878505e..2fcd2ee25 100755
--- a/rescue/partimage_whole_disk
+++ b/rescue/partimage_whole_disk
@@ -37,6 +37,11 @@ my @partimage_cmd = ('partimage', if_($server, '-s', $server));
 
 @ARGV == 1 or usage();
 
+if ($server && !is_network_configured()) {
+    run_program::run('drvinst', 'NETWORK'); 
+    run_program::run('dhcp-client');
+}
+
 run_program::run('drvinst', 'STORAGE_SCSI', 'STORAGE_IDE');
 
 my $all_hds = fsedit::get_hds({});
@@ -255,3 +260,8 @@ sub error {
     log::l($msg);
     die "$msg\n";
 }
+
+sub is_network_configured() {
+    my (undef, @l) = cat_('/proc/net/route');
+    find { /^(\S+)/ && $1 ne 'lo' } @l;
+}