|
|
@ -6,11 +6,13 @@ |
|
|
|
use strict; |
|
|
|
use Debconf::Client::ConfModule ':all'; |
|
|
|
|
|
|
|
fset("make-debian-x11/close_gbootroot_down","seen","false"); |
|
|
|
# fset is just used for testing |
|
|
|
|
|
|
|
#fset("make-debian-x11/close_gbootroot_down","seen","false"); |
|
|
|
input("medium","make-debian-x11/close_gbootroot_down"); |
|
|
|
go(); |
|
|
|
|
|
|
|
fset("make-debian-x11/make_debian_x11","seen","false"); |
|
|
|
#fset("make-debian-x11/make_debian_x11","seen","false"); |
|
|
|
input("medium","make-debian-x11/make_debian_x11"); |
|
|
|
go(); |
|
|
|
|
|
|
@ -24,7 +26,7 @@ if ($answer eq "true") { |
|
|
|
open(SWIM,$swim) or warn "Had trouble using swim: $!\n"; |
|
|
|
while (<SWIM>) { |
|
|
|
if ($_ eq "file init is not owned by any package\n") { |
|
|
|
fset("make-debian-x11/make_debian_x11-swim","seen","false"); |
|
|
|
#fset("make-debian-x11/make_debian_x11-swim","seen","false"); |
|
|
|
input("medium","make-debian-x11/make_debian_x11-swim"); |
|
|
|
go(); |
|
|
|
} |
|
|
@ -32,16 +34,16 @@ if ($answer eq "true") { |
|
|
|
close(SWIM); |
|
|
|
|
|
|
|
|
|
|
|
fset("make-debian-x11/make_debian_x11-doc","seen","false"); |
|
|
|
#fset("make-debian-x11/make_debian_x11-doc","seen","false"); |
|
|
|
input("medium","make-debian-x11/make_debian_x11-doc"); |
|
|
|
go(); |
|
|
|
|
|
|
|
fset("make-debian-x11/make_debian_x11-zoneinfo","seen","false"); |
|
|
|
#fset("make-debian-x11/make_debian_x11-zoneinfo","seen","false"); |
|
|
|
input("medium","make-debian-x11/make_debian_x11-zoneinfo"); |
|
|
|
go(); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
stop(); |
|
|
|
|
|
|
|
|
|
|
|