Split section (main, etc.) from subsection (admin, etc.) on db generation

[deb/packages.git] / bin / parse-packages

diff --git a/bin/parse-packages b/bin/parse-packages
index 6caf5cfa42d5f7a5a60f722c3fdda917c2b18407..b5c2cebac67eddae65c50ceafc1ca4a3d743736c 100755 (executable)
--- a/bin/parse-packages
+++ b/bin/parse-packages
@@ -91,8 +91,13 @@ for my $suite (@suites) {
 
                my $sdescr = $descr;
                $sdescr =~ s/\n.*//s;
+               my $section = 'main';
+               my $subsection = $data{section};
+               if ($data{section} && ($data{section} =~ m=/=o)) {
+                   ($section, $subsection) = split m=/=o, $data{section}, 2;
+               }
                $packages_small{$data{'package'}} .= "$suite $data{'architecture'} ".
-                       "$data{'section'} $data{'priority'} $data{'version'} $sdescr\000";
+                       "$section $subsection $data{'priority'} $data{'version'} $sdescr\000";
                $sources_packages{$src} .=
                        "$data{'package'} $data{'architecture'} $data{'version'}\000";
        }