mirror of https://github.com/fspc/gbootroot.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
1.2 KiB
48 lines
1.2 KiB
24 years ago
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
# make-debian-x11.config
|
||
|
|
# Jonathan Rosenbaum <freesource@users.sourceforge.net>
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Debconf::Client::ConfModule ':all';
|
||
|
|
|
||
|
|
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");
|
||
|
|
input("medium","make-debian-x11/make_debian_x11");
|
||
|
|
go();
|
||
|
|
|
||
|
|
|
||
|
|
my $answer = get("make-debian-x11/make_debian_x11");
|
||
|
|
if ($answer eq "true") {
|
||
|
|
|
||
|
|
# Check to see if the swim databases have ever been made before
|
||
|
|
my $swim = "swim -qf /sbin/init|";
|
||
|
|
my $swim_reply;
|
||
|
|
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");
|
||
|
|
input("medium","make-debian-x11/make_debian_x11-swim");
|
||
|
|
go();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
close(SWIM);
|
||
|
|
|
||
|
|
|
||
|
|
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");
|
||
|
|
input("medium","make-debian-x11/make_debian_x11-zoneinfo");
|
||
|
|
go();
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|