From 2c772ad9f6d65a8a682aefc6294da67891e85d3d Mon Sep 17 00:00:00 2001
From: steve <none@none>
Date: Thu, 1 Mar 2007 10:17:50 +0000
Subject: [PATCH] 2007-03-01 10:17:50 by steve

  Commit the correct core.
---
 bin/xt-install-image | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/bin/xt-install-image b/bin/xt-install-image
index 6c08b9c..8df7f69 100755
--- a/bin/xt-install-image
+++ b/bin/xt-install-image
@@ -80,7 +80,7 @@ Untar a .tar file into the new installation location.  This tarfile is assumed t
  --
  http://www.steve.org.uk/
 
- $Id: xt-install-image,v 1.50 2007-03-01 10:12:59 steve Exp $
+ $Id: xt-install-image,v 1.51 2007-03-01 10:17:50 steve Exp $
 
 =cut
 
@@ -414,7 +414,7 @@ sub parseCommandLineArguments
 
     if ( $VERSION )
     {
-        my $REVISION      = '$Revision: 1.50 $';
+        my $REVISION      = '$Revision: 1.51 $';
         if ( $REVISION =~ /1.([0-9.]+) / )
         {
             $REVISION = $1;
@@ -779,7 +779,17 @@ sub do_image_server
     #
     my $request = $CONFIG{'install-source'} . "/create.cgi?submit=1";
 
-    foreach my $k ( keys %ENV )
+    #
+    #  Some parameters are hard-wired.
+    #
+    $request .= "&arch=xen";
+    $request .= "&root_device=/dev/sda";
+    $request .= "&ip1=" . $ENV{'ip'};
+
+    #
+    #  We only care about some keys
+    #
+    foreach my $k ( qw/ dhcp broadcast gateway hostname netmask  / )
     {
         # Skip values which aren't defined.
         next unless defined $ENV{$k};