Peppermint
/
debian-cd-clone
mirror of https://salsa.debian.org/images-team/debian-cd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Cosmetic changes to listcds

This commit is contained in:
Steve McIntyre 2006-12-10 15:13:12 +00:00
parent 60eef836ce
commit f6e24e76fa
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
tools/list2cds
View File

@ -48,17 +48,21 @@ my %included;
my %excluded; my %excluded;
my %packages; my %packages;
msg(0, "====================================================================== msg(0, "Running list2cds to sort packages for $arch:\n");
msg(1, "======================================================================
Here are the settings you've chosen for making the list: Here are the settings you've chosen for making the list:
Architecture: $arch Architecture: $arch
List of prefered packages: $list List of prefered packages: $list
Exclude file: $exclude Exclude file: $exclude
Output file: $dir/packages.$arch Output file: $dir/packages.$arch
"); ");
msg(0, "Complete selected packages with all the rest: "); msg(0, yesno($complete)."\n"); msg(1, "Complete selected packages with all the rest: ");
msg(0, "Include non-free packages: "); msg(0, yesno($nonfree)."\n"); msg(1, yesno($complete)."\n");
msg(0, "Include non-US packages: "); msg(0, yesno($nonus)."\n"); msg(1, "Include non-free packages: ");
msg(0, "====================================================================== msg(1, yesno($nonfree)."\n");
msg(1, "Include non-US packages: ");
msg(1, yesno($nonus)."\n");
msg(1, "======================================================================
"); ");
# Get the information on all packages # Get the information on all packages
@ -119,7 +123,7 @@ if (not $nonus) {
} }
} }
msg(0, "Statistics: msg(1, "Statistics:
Number of packages: @{ [scalar(keys %packages)] } Number of packages: @{ [scalar(keys %packages)] }
Number of excluded: $count_excl of @{ [scalar(keys %excluded)] } Number of excluded: $count_excl of @{ [scalar(keys %excluded)] }
====================================================================== ======================================================================
@ -138,7 +142,7 @@ my ($total_size, $cd_size, $size, $cd) = (0, 0, 0, 1);
my %cds; my %cds;
# Generate a dependency tree for each package # Generate a dependency tree for each package
msg(0, "-- Generating dependencies tree with apt-cache depends...\n"); msg(0, " Generating dependency tree with apt-cache depends...\n");
my (@list) = keys %packages; my (@list) = keys %packages;
while (@list) { while (@list) {
my (@pkg) = splice(@list,0,200); my (@pkg) = splice(@list,0,200);
@ -163,8 +167,7 @@ while (@list) {
} }
msg(0, "-- Adding standard, required, important and base packages \n" . msg(0, " Adding standard, required, important and base packages first\n");
" on the first CD ...\n");
# Automatically include packages listed in the status file # Automatically include packages listed in the status file
open(STATUS, "< $adir/status") || die "Can't open status file $adir/status: $!\n"; open(STATUS, "< $adir/status") || die "Can't open status file $adir/status: $!\n";
while (defined($_ = <STATUS>)) { while (defined($_ = <STATUS>)) {
@ -181,10 +184,10 @@ while (defined($_ = <STATUS>)) {
add_package($p, ! $norecommends, ! $nosuggests); add_package($p, ! $norecommends, ! $nosuggests);
} }
close STATUS; close STATUS;
msg(0, " Standard system already takes $cd_size bytes on the first CD.\n"); msg(0, " S/R/I/B packages take $cd_size bytes\n");
# Now start to look for packages wanted by the user ... # Now start to look for packages wanted by the user ...
msg(0, "-- Starting to add packages to the CDs ...\n"); msg(0, " Adding the rest of the requested packages\n");
open (LIST, "< $list") || die "Can't open $list : $!\n"; open (LIST, "< $list") || die "Can't open $list : $!\n";
while (defined($_=<LIST>)) { while (defined($_=<LIST>)) {
chomp; chomp;
@ -210,10 +213,11 @@ while (defined($_=<LIST>)) {
} }
close LIST; close LIST;
msg(0, " Now up to $cd_size bytes\n");
# All requested packages have been included # All requested packages have been included
# But we'll continue to add if $complete was requested # But we'll continue to add if $complete was requested
if ($complete) { if ($complete) {
msg(0, "-- Now we'll add all the packages not yet included ...\n"); msg(0, " COMPLETE=1; add all remaining packages\n");
# Try to sort them by section even if packages from # Try to sort them by section even if packages from
# other sections will get in through dependencies # other sections will get in through dependencies
# With some luck, most of them will already be here # With some luck, most of them will already be here
@ -223,7 +227,6 @@ if ($complete) {
add_package (lc $p, 0, 0); add_package (lc $p, 0, 0);
} }
} }
msg(0, "CD $cd will only be filled with $cd_size bytes ...\n");
# Now select the non-free packages for an extra CD # Now select the non-free packages for an extra CD
if ($extranonfree and (! $nonfree)) if ($extranonfree and (! $nonfree))
@ -283,7 +286,7 @@ if ($extranonfree and (! $nonfree))
} }
} }
msg(0, "CD $cd will only be filled with $cd_size bytes ...\n"); # msg(0, "CD $cd will only be filled with $cd_size bytes ...\n");
} }
# Remove old files # Remove old files
@ -308,7 +311,7 @@ foreach (sort { $a <=> $b } keys %cds) {
$count++; $count++;
} }
close CDLIST; close CDLIST;
msg(0, "CD $_ will have $count packages.\n"); msg(0, "Done: processed/sorted $count packages, total size $cd_size bytes.\n");
} }
close LOG; close LOG;