From 4ce7b7a0783ba79f808ee9c523fa699ef056dcd1 Mon Sep 17 00:00:00 2001
From: steve <none@none>
Date: Mon, 9 Apr 2007 09:10:51 +0000
Subject: [PATCH] 2007-04-09 09:10:51 by steve   Allow --mirror to work for
 rpmstrap.

---
 bin/xt-install-image | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/bin/xt-install-image b/bin/xt-install-image
index 7722727..0a78159 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.55 2007-03-20 20:49:59 steve Exp $
+ $Id: xt-install-image,v 1.56 2007-04-09 09:10:51 steve Exp $
 
 =cut
 
@@ -414,7 +414,7 @@ sub parseCommandLineArguments
 
     if ( $VERSION )
     {
-        my $REVISION      = '$Revision: 1.55 $';
+        my $REVISION      = '$Revision: 1.56 $';
         if ( $REVISION =~ /1.([0-9.]+) / )
         {
             $REVISION = $1;
@@ -915,10 +915,16 @@ sub do_rpmstrap
         $EXTRA .= " --arch $CONFIG{'arch'}";
     }
 
+    #
+    #  Setup mirror if present.
+    #
+    my $mirror = "";
+    $mirror    = $CONFIG{'mirror'} if ( $CONFIG{'mirror'} );
+
     #
     #  The command we're going to run.
     #
-    my $command = "rpmstrap $EXTRA $CONFIG{'dist'} $CONFIG{'location'}";
+    my $command = "rpmstrap $EXTRA $CONFIG{'dist'} $CONFIG{'location'} $mirror";
     runCommand( $command );
 }