my @known_types = ('deb');
my @known_access = ('http', 'ftp', 'file');
-my @typical_distributions = ('stable', 'unstable', 'frozen', 'non-US');
+my @typical_distributions = ('stable', 'unstable', 'testing', 'non-US');
my @typical_components = ('main', 'contrib', 'non-free');
my %known_access = map {($_,$_)} @known_access;
}
$type = 'deb';
- $urn = "http://llug.sep.bnl.gov/debian" unless $urn;
+ $urn = "http://http.us.debian.org/debian" unless $urn;
$distribution = "stable" unless $distribution;
$components = "main contrib non-free" unless $components;
print "-" x 72, "\n";
&print_config('Config' => \@Oldconfig);
print "-" x 72, "\n";
- print "$boldon Do you wish to change it?[y/N]$boldoff ";
+ print "$boldon Do you wish to overwrite it? [y/N]$boldoff ";
my $answer = <STDIN>;
chomp ($answer);
$answer =~ s/\s+/ /og;