From 2f4ce394d77ced790c9550044a3638df660cc989 Mon Sep 17 00:00:00 2001 From: Frank Lichtenheld Date: Sat, 4 Feb 2006 00:27:17 +0000 Subject: [PATCH] Uups --- cgi-bin/search_packages.pl | 58 +++++++++++++++++++------------------- 1 file changed, 29 insertions(+), 29 deletions(-) diff --git a/cgi-bin/search_packages.pl b/cgi-bin/search_packages.pl index 48fabb4..6497f06 100755 --- 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 %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 ); -- 2.39.2