- if ($query eq "info") {
- if (scalar keys %pkg > 5) {
- $pkg{'info'} = "\002(\002". $pkg{'desc'} ."\002)\002";
- $pkg{'info'} .= ", section ".$pkg{'section'};
- $pkg{'info'} .= ", is ".$pkg{'priority'};
- $pkg{'info'} .= ". Version: \002$pkg{'version'}\002";
- $pkg{'info'} .= ", Packaged size: \002". int($pkg{'size'}/1024) ."\002 kB";
- $pkg{'info'} .= ", Installed size: \002$pkg{'installed'}\002 kB";
-
- if ($incoming) {
- &main::status("iP: info requested and pkg is in incoming, too.");
- my %incpkg = &getPackageInfo($query, "debian/Packages-incoming");
-
- if (scalar keys %incpkg) {
- $pkg{'info'} .= ". Is in incoming ($incpkg{'file'}).";
- } else {
- &main::ERROR("iP: pkg $query is in incoming but we couldn't get any info?");
- }
- }
- } else {
- &main::DEBUG("running debianCheck() due to problems (".scalar(keys %pkg).").");
- &debianCheck();
- &main::DEBUG("end of debianCheck()");
-
- &main::msg($main::who,"Debian: Package appears to exist but I could not retrieve info about it...");
- return;
- }
- }
-
- if ($dist eq "incoming") {
- $pkg{'info'} .= "Version: \002$pkg{'version'}\002";
- $pkg{'info'} .= ", Packaged size: \002". int($pkg{'size'}/1024) ."\002 kB";
- $pkg{'info'} .= ", is in incoming!!!";
- }
-
- if (!exists $pkg{$query}) {
- if ($query eq "suggests") {
- $pkg{$query} = "has no suggestions";
- } elsif ($query eq "conflicts") {
- $pkg{$query} = "does not conflict with any other package";
- } elsif ($query eq "depends") {
- $pkg{$query} = "does not depend on anything";
- } elsif ($query eq "maint") {
- $pkg{$query} = "has no maintainer";
- } else {
- $pkg{$query} = "has nothing about $query";
- }
- }
-
- &main::performStrictReply("$package: $pkg{$query}");
+ if ( $query eq "info" ) {
+ if ( scalar keys %pkg <= 5 ) {
+ &::DEBUG( "deb: running debianCheck() due to problems ("
+ . scalar( keys %pkg )
+ . ")." );
+ &debianCheck();
+ &::DEBUG("deb: end of debianCheck()");
+
+ &::msg( $::who,
+"Debian: Package appears to exist but I could not retrieve info about it..."
+ );
+ return;
+ }
+
+ $pkg{'info'} = "\002(\002" . $pkg{'desc'} . "\002)\002";
+ $pkg{'info'} .= ", section " . $pkg{'section'};
+ $pkg{'info'} .= ", is " . $pkg{'priority'};
+
+ # $pkg{'info'} .= ". Version: \002$pkg{'version'}\002";
+ $pkg{'info'} .= ". Version: \002$pkg{'version'}\002 ($dist)";
+ $pkg{'info'} .=
+ ", Packaged size: \002" . int( $pkg{'size'} / 1024 ) . "\002 kB";
+ $pkg{'info'} .= ", Installed size: \002$pkg{'installed'}\002 kB";
+
+ if ($incoming) {
+ &::status("iP: info requested and pkg is in incoming, too.");
+ my %incpkg =
+ &getPackageInfo( $query, $debian_dir . "/Packages-incoming" );
+
+ if ( scalar keys %incpkg ) {
+ $pkg{'info'} .= ". Is in incoming ($incpkg{'file'}).";
+ }
+ else {
+ &::ERROR(
+"iP: pkg $query is in incoming but we couldn't get any info?"
+ );
+ }
+ }
+ }
+
+ if ( $dist eq "incoming" ) {
+ $pkg{'info'} .= "Version: \002$pkg{'version'}\002";
+ $pkg{'info'} .=
+ ", Packaged size: \002" . int( $pkg{'size'} / 1024 ) . "\002 kB";
+ $pkg{'info'} .= ", is in incoming!!!";
+ }
+
+ if ( !exists $pkg{$query} ) {
+ if ( $query eq "suggests" ) {
+ $pkg{$query} = "has no suggestions";
+ }
+ elsif ( $query eq "conflicts" ) {
+ $pkg{$query} = "does not conflict with any other package";
+ }
+ elsif ( $query eq "depends" ) {
+ $pkg{$query} = "does not depend on anything";
+ }
+ elsif ( $query eq "maint" ) {
+ $pkg{$query} = "has no maintainer";
+ }
+ else {
+ $pkg{$query} = "has nothing about $query";
+ }
+ }
+
+ &::performStrictReply("$package: $pkg{$query}");