my $announce = 0;
my $defaultdist = 'sid';
-my $refresh = &::getChanConfDefault('debianRefreshInterval', 7, $chan) * 60 * 60 * 24;
+my $refresh = &::getChanConfDefault('debianRefreshInterval', 7, $::chan) * 60 * 60 * 24;
my $debug = 0;
my $debian_dir = $::bot_state_dir . 'debian';
my $country = 'us'; # well .config it yourself then. ;-)
# format: "alias=real".
my %dists = (
'unstable' => 'sid',
- 'testing' => 'sarge',
- 'stable' => 'woody',
- 'oldstable' => 'potato',
+ 'testing' => 'etch',
+ 'stable' => 'sarge',
+ 'oldstable' => 'woody',
'incoming' => 'incoming',
);
my @results = sort &searchPackage($str);
if (!scalar @results) {
- &::Forker("debian", sub { &searchContents($str); } );
+ &::Forker("Debian", sub { &searchContents($str); } );
} elsif (scalar @results == 1) {
&::status("searchPackage returned one result; getting info of package instead!");
- &::Forker("debian", sub { &infoPackages("info", "$results[0] $dist"); } );
+ &::Forker("Debian", sub { &infoPackages("info", "$results[0] $dist"); } );
} else {
my $prefix = "Debian Package Listing of '$query' ";
&::performStrictReply( &::formListReply(0, $prefix, @results) );