2005-12-21 03:15:40 by steve
Always clear the screen when we're finished. (Unless under --debug). BUGFIX: Setup the hostname correctly.
This commit is contained in:
@@ -226,7 +226,7 @@ suffixed with either Mb, or Gb.
|
||||
--
|
||||
http://www.steve.org.uk/
|
||||
|
||||
$Id: xen-create-image,v 1.46 2005-12-21 03:02:31 steve Exp $
|
||||
$Id: xen-create-image,v 1.47 2005-12-21 03:15:40 steve Exp $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -651,6 +651,18 @@ close( XEN );
|
||||
print "Done\n";
|
||||
|
||||
|
||||
#
|
||||
# Clear screen before printing success message, unless
|
||||
# we're running under '--debug'.
|
||||
#
|
||||
$TERMINAL_HEIGHT *= 2;
|
||||
while( $TERMINAL_HEIGHT )
|
||||
{
|
||||
printWideMessage( "\n" ) unless $CONFIG{'debug'};
|
||||
$TERMINAL_HEIGHT -= 1;
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# Give status message
|
||||
#
|
||||
@@ -669,21 +681,16 @@ if ( $CONFIG{'boot'} )
|
||||
}
|
||||
else
|
||||
{
|
||||
system( "$CONFIG{'xm'} create $CONFIG{'hostname'}.cfg" );
|
||||
#
|
||||
# Start Xen instance in our forked process. Avoid annoying
|
||||
# output.
|
||||
#
|
||||
#
|
||||
system( "$CONFIG{'xm'} create $CONFIG{'hostname'}.cfg >/dev/null 2>/dev/null" );
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
#
|
||||
# Clear screen before printing success message.
|
||||
#
|
||||
$TERMINAL_HEIGHT *= 2;
|
||||
while( $TERMINAL_HEIGHT )
|
||||
{
|
||||
printWideMessage( "\n" );
|
||||
$TERMINAL_HEIGHT -= 1;
|
||||
}
|
||||
|
||||
print <<EOEND;
|
||||
|
||||
New Image Created
|
||||
@@ -974,7 +981,7 @@ sub setupNetworking
|
||||
{
|
||||
my ( $prefix ) = ( @_ );
|
||||
|
||||
runCommand ("/bin/echo '$CONFIG{'hostname'}' > $prefix/etc/hostname" );
|
||||
runCommand ("echo '$CONFIG{'hostname'}' > $prefix/etc/hostname" );
|
||||
|
||||
open( IP, ">", $prefix . "/etc/network/interfaces" );
|
||||
|
||||
|
||||
Reference in New Issue
Block a user