bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-22 16:43:23 -05:00
Code Issues Projects Releases Wiki Activity

Added a check to show the user what packages aren't installed on the system,

Browse Source 
but let the user decide what to do next.  Obviously required packages are a
more important consideration.
This commit is contained in:
freesource 2001-09-14 02:45:53 +00:00
parent dbb1ae9e1e
commit aacb3559a9
1 changed files with 52 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
yard/scripts/make_debian
View File

@ -67,8 +67,6 @@ open(SWIM,$swim_packages) or die "Couldn't open swim_packages: $?\n";
my @required_packages = <SWIM>; chomp @required_packages; my @required_packages = <SWIM>; chomp @required_packages;
close(SWIM); close(SWIM);
push(@required_packages,@extra_packages);
# All the files # All the files
open(SWIM,$swim_list) or die "Couldn't open swim_list: $!\n"; open(SWIM,$swim_list) or die "Couldn't open swim_list: $!\n";
my @required_files = <SWIM>; chomp @required_files; my @required_files = <SWIM>; chomp @required_files;
@ -250,6 +248,58 @@ return $stuff;
################################################################# #################################################################
################################################################# #################################################################
###################
## Package Check ##
###################
# Better tell the user what required and extra packages don't exist.
my $required_packages_check = "swim -q @required_packages|";
open (CHECK,$required_packages_check)
or die "Couldn't find any required packages: $?\n";
my @rpc;
while (<CHECK>) {
if (/^package/) {
my $rpc = (split(/\s/))[1];
push(@rpc,$rpc);
}
}
close (CHECK);
if (@rpc) {
print "There are the required packages which were specified:\n\n";
$, = " ";
print @required_packages, "\n\n";
print "This is what wasn't installed on your system:\n\n";
print @rpc , "\n\n";
$, = "";
}
my $extra_packages_check = "swim -q @extra_packages|";
open (CHECK,$extra_packages_check)
or die "Couldn't find any required packages: $?\n";
my @epc;
while (<CHECK>) {
if (/^package/) {
my $epc = (split(/\s/))[1];
push(@epc,$epc);
}
}
close (CHECK);
if (@epc) {
print "There are the extra packages which were specified:\n\n";
$, = " ";
print @extra_packages, "\n\n";
print "This is what wasn't installed on your system:\n\n";
print @epc , "\n\n";
$, = "";
}
push(@required_packages,@extra_packages);
####################### #######################
## Template Creation ## ## Template Creation ##
####################### #######################