- make search packages case insensitive.
- non-US fixed... about time.
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@218
c11ca15a-4712-0410-83d8-
924469b57eb5
my $announce = 0;
my $defaultdist = "woody";
my %dists = (
my $announce = 0;
my $defaultdist = "woody";
my %dists = (
+ "unstable" => "sid",
+ "testing" => "woody, # new since 20001219.
"stable" => "potato",
"incoming" => "incoming",
"stable" => "potato",
"incoming" => "incoming",
+### the following don't work. too much effort to get 3 types of distros
+### to work harmoniously :-)
"slink" => "archive-2.1",
"hamm" => "archive-2.0",
"rex" => "archive-1.?",
"slink" => "archive-2.1",
"hamm" => "archive-2.0",
"rex" => "archive-1.?",
"debian/Contents-##DIST-i386.gz" =>
"ftp://ftp.us.debian.org".
"/debian/dists/##DIST/Contents-i386.gz",
"debian/Contents-##DIST-i386.gz" =>
"ftp://ftp.us.debian.org".
"/debian/dists/##DIST/Contents-i386.gz",
-### BROKEN!!!
-# "debian/Contents-##DIST-i386-non-US.gz" =>
-# "ftp://ftp.ca.debian.org".
-# "/debian-non-US/dists/##DIST/non-US/Contents-i386.gz",
-###
+### APPEARS TO BE FIXED?
+# => strip control chars just to be safe.
+ "debian/Contents-##DIST-i386-non-US.gz" =>
+ "ftp://ftp.ca.debian.org".
+ "/debian-non-US/dists/##DIST/non-US/Contents-i386.gz",
+ ### TODO: don't count ppl with multiple email addresses.
+
&main::performStrictReply(
"Debian Distro Stats on $dist... ".
"\002$total{'count'}\002 packages, ".
&main::performStrictReply(
"Debian Distro Stats on $dist... ".
"\002$total{'count'}\002 packages, ".
my ($dist, $query) = &getDistroFromStr($_[0]);
my $file = "debian/Packages-$dist.idx";
my @files;
my ($dist, $query) = &getDistroFromStr($_[0]);
my $file = "debian/Packages-$dist.idx";
my @files;
+ my $error = 0;
+ my $warn = 0;
+
+ if ($query =~ tr/A-Z/a-z/) {
+ $warn++;
+ }
&main::status("Debian: Search package matching '$query' in '$dist'.");
unlink $file if ( -z $file);
&main::status("Debian: Search package matching '$query' in '$dist'.");
unlink $file if ( -z $file);
+ if (scalar @files and $warn) {
+ &main::msg($main::who, "searching for package name should be fully lowercase!");
+ }
+