Uups

diff --git a/cgi-bin/search_packages.pl b/cgi-bin/search_packages.pl
index 48fabb4c35f3ebac80cdecff2f5e25d2ab7ed241..6497f0610250cf8b6bbeeb201e001758e6a07837 100755 (executable)
--- a/cgi-bin/search_packages.pl
+++ b/cgi-bin/search_packages.pl
@@ -102,35 +102,35 @@ if (my $path = $input->param('path')) {
 my ( $format, $keyword, $case, $subword, $exact, $searchon,
      @suites, @sections, @archives, @archs );
 
 my ( $format, $keyword, $case, $subword, $exact, $searchon,
      @suites, @sections, @archives, @archs );
 

-# my %params_def = ( keywords => { default => undef,
-#                               match => '^\s*([-+\@\w\/.:]+)\s*$',
-#                               var => \$keyword },
-#                 suite => { default => 'stable', match => '^([\w-]+)$',
-#                            alias => 'version', array => ',',
-#                            var => \@suites,
-#                            replace => { all => \@SUITES } },
-#                 archive => { default => 'all', match => '^([\w-]+)$',
-#                              array => ',', var => \@archives,
-#                              replace => { all => \@ARCHIVES } },
-#                 case => { default => 'insensitive', match => '^(\w+)$',
-#                           var => \$case },
-#                 official => { default => 0, match => '^(\w+)$' },
-#                 subword => { default => 0, match => '^(\w+)$',
-#                              var => \$subword },
-#                 exact => { default => undef, match => '^(\w+)$',
-#                            var => \$exact },
-#                 searchon => { default => 'all', match => '^(\w+)$',
-#                               var => \$searchon },
-#                 section => { default => 'all', match => '^([\w-]+)$',
-#                              alias => 'release', array => ',',
-#                              var => \@sections,
-#                              replace => { all => \@SECTIONS } },
-#                 arch => { default => 'any', match => '^(\w+)$',
-#                           array => ',', var => \@archs, replace =>
-#                           { any => \@ARCHITECTURES } },
-#                 format => { default => 'html', match => '^(\w+)$',
-#                                var => \$format },
-#                 );
+my %params_def = ( keywords => { default => undef,
+                                match => '^\s*([-+\@\w\/.:]+)\s*$',
+                                var => \$keyword },
+                  suite => { default => 'stable', match => '^([\w-]+)$',
+                             alias => 'version', array => ',',
+                             var => \@suites,
+                             replace => { all => \@SUITES } },
+                  archive => { default => 'all', match => '^([\w-]+)$',
+                               array => ',', var => \@archives,
+                               replace => { all => \@ARCHIVES } },
+                  case => { default => 'insensitive', match => '^(\w+)$',
+                            var => \$case },
+                  official => { default => 0, match => '^(\w+)$' },
+                  subword => { default => 0, match => '^(\w+)$',
+                               var => \$subword },
+                  exact => { default => undef, match => '^(\w+)$',
+                             var => \$exact },
+                  searchon => { default => 'all', match => '^(\w+)$',
+                                var => \$searchon },
+                  section => { default => 'all', match => '^([\w-]+)$',
+                               alias => 'release', array => ',',
+                               var => \@sections,
+                               replace => { all => \@SECTIONS } },
+                  arch => { default => 'any', match => '^(\w+)$',
+                            array => ',', var => \@archs, replace =>
+                            { any => \@ARCHITECTURES } },
+                  format => { default => 'html', match => '^(\w+)$',
+                               var => \$format },
+                  );

 my %opts;
 my %params = Packages::Search::parse_params( $input, \%params_def, \%opts );
 
 my %opts;
 my %params = Packages::Search::parse_params( $input, \%params_def, \%opts );