github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-01-19 17:18:39 +00:00
Code Releases Activity

2005-12-19 20:54:00 by steve

Browse Source 
Show the progress when copying files to and from the host system.
This commit is contained in:
steve 2005-12-19 20:54:00 +00:00
parent e2baca711d
commit bd6c0fbb78
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
xen-create-image
View File

@ -193,7 +193,7 @@ broadcast = 255.255.255.0
--
http://www.steve.org.uk/
$Id: xen-create-image,v 1.31 2005-12-19 20:43:18 steve Exp $
$Id: xen-create-image,v 1.32 2005-12-19 20:54:00 steve Exp $
=cut
@ -399,11 +399,18 @@ if ( ! $mount =~ /$image/) {
# Copy any local .deb files into the debootstrap archive as a potential
# speedup.
#
print "Copying files from host to image.\n";
`mkdir -p $dir/var/cache/apt/archives`;
foreach my $file ( glob( "/var/cache/apt/archives/*.deb" ) )
{
my $t = $file;
while( length( $t ) < 80 ) { $t .= " "; }
print "\r" . $t;
File::Copy::cp( $file, "$dir/var/cache/apt/archives" );
}
print "Done ......... \n";
#
# Install the base system - with a simple sense of progress.
@ -416,10 +423,18 @@ print "Done\n";
#
# Copy these files as a speed boost for the next run.
#
print "Caching debootstrap files upon the host system\n\n";
foreach my $file ( glob( "$dir/var/cache/apt/archives/*.deb" ) )
{
my $t = $file;
while( length( $t ) < 80 ) { $t .= " "; }
print "\r" . $t;
File::Copy::cp( $file, "/var/cache/apt/archives" );
}
print "Done ......... \n";
#
# If the debootstrap failed then we'll setup the output directories