search.cgi¸¦ ¿­¾îº¸¼¼¿ä.
1. sub main¿¡¼­
Äڵ带 Ãß°¡Çϼ¼¿ä.
# Set boolean connector and next hits page.
my $bool = $in{
bool
} &pip;&pip;
and
;
my $nh = $in{
nh
} &pip;&pip; 1;
my $search_subcategories = $in{
subcategories
} &pip;&pip; 0;
if ($in{
where
}) {
my $status = &catsearch(@search_terms, $bool, $search_subcategories);
if ($status ne "ok") { &site_html_search_failure ($status); return; }
2. sub catsearch ¿¡¼­
¾Æ·¡ºÎºÐÀ»
my ($search_terms, $bool, $search_subcategories) = @_;
¾Æ·¡ ºÎºÐÀ¸·Î ¹Ù²Ù¼¼¿ä.
if ($in{
where
} eq $category){
6 times with:
if ( ($search_subcategories && ($category =~ /$in{
where
}/. /)) or ($in{
where
} eq $category) ){
2. ¼­Ä¡ÆûÀ» ¼öÁ¤Çϼ¼¿ä.