Browse Source

Works nicely with debconf now.

master
freesource 23 years ago
parent
commit
d64ab13ad5
  1. 21
      add-ons/yard/make-debian-X11/make_debian-X11

21
add-ons/yard/make-debian-X11/make_debian-X11

@ -326,11 +326,11 @@ while (<CHECK>) {
close (CHECK); close (CHECK);
if (@rpc) { if (@rpc) {
print "There are the required packages which were specified:\n\n"; print STDERR "These are the required packages which were specified:\n\n";
$, = " "; $, = " ";
print @required_packages, "\n\n"; print STDERR @required_packages, "\n\n";
print "This is what wasn't installed on your system:\n\n"; print STDERR "This is what wasn't installed on your system:\n\n";
print @rpc , "\n\n"; print STDERR @rpc , "\n\n";
$, = ""; $, = "";
} }
@ -347,11 +347,11 @@ while (<CHECK>) {
close (CHECK); close (CHECK);
if (@epc) { if (@epc) {
print "There are the extra packages which were specified:\n\n"; print STDERR "These are the extra packages which were specified:\n\n";
$, = " "; $, = " ";
print @extra_packages, "\n\n"; print STDERR @extra_packages, "\n\n";
print "This is what wasn't installed on your system:\n\n"; print STDERR "This is what wasn't installed on your system:\n\n";
print @epc , "\n\n"; print STDERR @epc , "\n\n";
$, = ""; $, = "";
} }
@ -367,6 +367,7 @@ my $doc_reply = "nothing";
print "The default is to remove /usr/share/{doc,man,info}? [yes or no]: "; print "The default is to remove /usr/share/{doc,man,info}? [yes or no]: ";
while (<STDIN>) { while (<STDIN>) {
$doc_reply = $_; $doc_reply = $_;
print $doc_reply;
last if $doc_reply eq "yes\n"; last if $doc_reply eq "yes\n";
last if $doc_reply eq "no\n"; last if $doc_reply eq "no\n";
if ($doc_reply eq "\n") { $doc_reply = "yes\n"; last; } if ($doc_reply eq "\n") { $doc_reply = "yes\n"; last; }
@ -376,7 +377,7 @@ while (<STDIN>) {
} }
print "\nThe default is to remove everything in /usr/share/zoneinfo\n" . print "\nThe default is to remove everything in /usr/share/zoneinfo\n" .
"except for your local settings found in /etc/locatime? [yes or no]: "; "except for your local settings found in /etc/localtime? [yes or no]: ";
my $localtime_reply = "nothing"; my $localtime_reply = "nothing";
while (<STDIN>) { while (<STDIN>) {
$localtime_reply = $_; $localtime_reply = $_;
@ -460,7 +461,7 @@ foreach (@alternatives) {
} }
close(DEBIAN); close(DEBIAN);
print "All done making your $debian_yard template.\n"; print STDERR "All done making your $debian_yard template.\n";
######################### #########################
# END TEMPLATE CREATION # # END TEMPLATE CREATION #

Loading…
Cancel
Save