(.+?)

#!/usr/bin/perl # (c) Fluffy Clouds Ltd # http://www.fluffy.co.uk/ # author: Ben Summers # Fluffy Search Home page at http://www.fluffy.co.uk/fs/ # email: fluffysearch@fluffy.co.uk # Launch your web graphics... fast! http://www.ignite-it.co.uk/ require 'search.config'; &parse_form; print "Content-Type: text/html\n\n"; if(!open(FL, $page_model)) {print "Couldn't open page model\n"; exit(1);} read FL,$model,-s $page_model; close FL; ($model_top, $model_bot) = split /#####/, $model; $extra = ''; $title = ''; @words = (); if(exists $form{'q'}) { $search_words = $form{'q'}; if($form{'wt'} eq 'be') {$search_wb = ' checked'; $search_ew = '';} else {$search_wb = ''; $search_ew = ' checked';} if($form{'bl'} eq 'or') {$search_bOR = ' checked'; $search_bAND = ''; $search_bPHR = '';} elsif($form{'bl'} eq 'ph') {$search_bOR = ''; $search_bAND = ''; $search_bPHR = ' checked';} else {$search_bOR = ''; $search_bAND = ' checked'; $search_bPHR = '';} $wl = lc $search_words; $wl =~ tr/a-z0-9/ /c; $wl =~ s/(\A\s+)|(\s+\Z)//g; @words = split /\s+/, $wl; if($wl eq '' || $#words < 0) { $extra = "Please enter some words in the search box.
"; @words = (); } else { $title = join ' ', @words , 'web feeds - FeedSee'; } $search_q = $ENV{'QUERY_STRING'}; $search_q =~ s/\&pg=\d+//; } else { $search_words = ''; $search_wb = ' checked'; $search_ew = ''; $search_bAND = ''; $search_bOR = ' checked'; $search_bPHR = ''; } if($title ne '') {$model_top =~ s~(.+?)~$title~si;} print $model_top; if($#words >= 0) { %pages = (); $go = 1; for($word = 0; $word <= $#words && $go; $word++) { ($i,$gs) = split //, $words[$word], 3; $g = $grains[ord($gs)]; if(open(FL, "$index_loc/$i.$g")) { $found = 0; $pat = "\\A$words[$word]"; if($search_wb eq '') { $pat .= '\\s'; } %pages2 = (); while() { if(m/$pat/) { $found = 1; ($wd, $pg) = split / /, $_, 2; @vp = split /#/, $pg; $mul = ($#words + 1) - $word; if($word > 0 && $search_bOR eq '') { for(@vp) { /\A(.+):(\d+?)\Z/; if(exists $pages{"I$1"}) { $pages2{"I$1"} = $pages{"I$1"} * ($2 * $mul); } } } else { for(@vp) { /\A(.+):(\d+?)\Z/; if(exists $pages{"I$1"}) { $pages{"I$1"} *= ($2 * $mul); } else { $pages{"I$1"} = ($2 * $mul); } } } } } if($word > 0 && $search_bOR eq '') { %pages = %pages2; %pages2 = (); } close FL; } else { if($search_bAND ne '' || $search_bPHR ne '') { $pages = (); $go = 0; } } } if($search_bPHR ne '' && $#words > 0) { if($search_wb ne '') { $pat = '\b' . join('\w*?\s+', @words); } else { $pat = '\b' . join('\s+', @words) . '\b'; } @ps = keys %pages; for $pg (@ps) { if($pg =~ m/I(.+)/) { if(open FL, "$docroot_disc/$1") { read FL,$pt,-s "$docroot_disc/$1"; close FL; $pt =~ s/<.+?>//gs; if(!($pt =~ m/$pat/gis)) { delete $pages{$pg}; } } else { delete $pages{$pg}; } } } } @pages = sort {$pages{$b} <=> $pages{$a}} keys %pages; $found = $#pages + 1; $page_begin = 0; $this_page = 0; if($res_per_page != -1) { $end = ($res_per_page - 1); if(exists $form{'pg'}) { $this_page = $form{'pg'}; $this_page =~ tr/0-9//cd; if($this_page eq '') {$this_page = 0} $page_begin = $this_page * $res_per_page; $end = ($page_begin + $res_per_page - 1); } if($end > $#pages) {$end = $#pages} @pages = @pages[$page_begin .. $end]; } $shown = $#pages + 1; if($high_results) { $disp_root = "$page_script?$search_q&d="; } else { $disp_root = $docroot_web; } if($search_words eq '3g') { print "

$\"3G\"$

\n"; } elsif($search_words eq '360') { print "

$\"360\"$

\n"; } elsif($search_words eq 'academic') { print "

$\"Academic\"$

\n"; } elsif($search_words eq 'academic') { print "

$\"Academic\"$

\n"; } elsif($search_words eq 'accessibility') { print "

$\"Accessibility\"$

\n"; } elsif($search_words eq 'activities') { print "

$\"Activities\"$

\n"; } elsif($search_words eq 'address') { print "

$\"Address\"$

\n"; } elsif($search_words eq 'administration') { print "

$\"Administration\"$

\n"; } elsif($search_words eq 'administrator') { print "

$\"Administrator\"$

\n"; } elsif($search_words eq 'adobe') { print "

$\"Adobe\"$

\n"; } elsif($search_words eq 'ads') { print "

$\"Ads\"$

\n"; } elsif($search_words eq 'adventure') { print "

$\"Adventure\"$

\n"; } elsif($search_words eq 'advertising') { print "

$\"Advertising\"$

\n"; } elsif($search_words eq 'africa') { print "

$\"Africa\"$

\n"; } elsif($search_words eq 'alcohol') { print "

$\"Alcohol\"$

\n"; } elsif($search_words eq 'alert') { print "

$\"Alert\"$

\n"; } elsif($search_words eq 'alternative') { print "

$\"Alternative\"$

\n"; } elsif($search_words eq 'amazon') { print "

$\"Amazon\"$

\n"; } elsif($search_words eq 'american') { print "

$\"American\"$

\n"; } elsif($search_words eq 'analysts') { print "

$\"Analysts\"$

\n"; } elsif($search_words eq 'animation') { print "

$\"Animation\"$

\n"; } elsif($search_words eq 'anime') { print "

$\"Anime\"$

\n"; } elsif($search_words eq 'apache') { print "

$\"Apache\"$

\n"; } elsif($search_words eq 'apparel') { print "

$\"Apparel\"$

\n"; } elsif($search_words eq 'apple') { print "

$\"Apple\"$

\n"; } elsif($search_words eq 'application') { print "

$\"Application\"$

\n"; } elsif($search_words eq 'applications') { print "

$\"Applications\"$

\n"; } elsif($search_words eq 'art') { print "

$\"Art\"$

\n"; } elsif($search_words eq 'arthritis') { print "

$\"Arthritis\"$

\n"; } elsif($search_words eq 'artist') { print "

$\"Artist\"$

\n"; } elsif($search_words eq 'asbestos') { print "

$\"Asbestos\"$

\n"; } elsif($search_words eq 'asia') { print "

$\"Asia\"$

\n"; } elsif($search_words eq 'astronomy') { print "

$\"Astronomy\"$

\n"; } elsif($search_words eq 'auction') { print "

$\"Auction\"$

\n"; } elsif($search_words eq 'audio') { print "

$\"Audio\"$

\n"; } elsif($search_words eq 'audit') { print "

$\"Audit\"$

\n"; } elsif($search_words eq 'australia') { print "

$\"Australia\"$

\n"; } elsif($search_words eq 'australian') { print "

$\"Australian\"$

\n"; } elsif($search_words eq 'authentication') { print "

$\"Authentication\"$

\n"; } elsif($search_words eq 'auto') { print "

$\"Auto\"$

\n"; } elsif($search_words eq 'autos') { print "

$\"Autos\"$

\n"; } elsif($search_words eq 'bankruptcy') { print "

$\"Bankruptcy\"$

\n"; } elsif($search_words eq 'baseball') { print "

$\"Baseball\"$

\n"; } elsif($search_words eq 'beauty') { print "

$\"Beauty\"$

\n"; } elsif($search_words eq 'beta') { print "

$\"Beta\"$

\n"; } elsif($search_words eq 'beverages') { print "

$\"Beverages\"$

\n"; } elsif($search_words eq 'binding') { print "

$\"Binding\"$

\n"; } elsif($search_words eq 'birds') { print "

$\"Birds\"$

\n"; } elsif($search_words eq 'blogging') { print "

$\"Blogging\"$

\n"; } elsif($search_words eq 'bluetooth') { print "

$\"Bluetooth\"$

\n"; } elsif($search_words eq 'board') { print "

$\"Board\"$

\n"; } elsif($search_words eq 'boat') { print "

$\"Boats\"$

\n"; } elsif($search_words eq 'book') { print "

$\"Book\"$

\n"; } elsif($search_words eq 'books') { print "

$\"Books\"$

\n"; } elsif($search_words eq 'boxing') { print "

$\"Boxing\"$

\n"; } elsif($search_words eq 'brand') { print "

$\"Brand\"$

\n"; } elsif($search_words eq 'branding') { print "

$\"Branding\"$

\n"; } elsif($search_words eq 'british politics') { print "

$\"British$

\n"; } elsif($search_words eq 'broadband') { print "

$\"Broadband\"$

\n"; } elsif($search_words eq 'broadcast') { print "

$\"Broadcast\"$

\n"; } elsif($search_words eq 'bush') { print "

$\"Bush\"$

\n"; } elsif($search_words eq 'business') { print "

$\"Business\"$

\n"; } elsif($search_words eq 'cabinet') { print "

$\"Cabinet\"$

\n"; } elsif($search_words eq 'california') { print "

$\"California\"$

\n"; } elsif($search_words eq 'camera') { print "

$\"Camera\"$

\n"; } elsif($search_words eq 'cancer') { print "

$\"Cancer\"$

\n"; } elsif($search_words eq 'candle') { print "

$\"Candle\"$

\n"; } elsif($search_words eq 'cannes') { print "

$\"Cannes\"$

\n"; } elsif($search_words eq 'car') { print "

$\"Car\"$

\n"; } elsif($search_words eq 'carb') { print "

$\"Low$

\n"; } elsif($search_words eq 'cards') { print "

$\"Cards\"$

\n"; } elsif($search_words eq 'career') { print "

$\"Career\"$

\n"; } elsif($search_words eq 'cat') { print "

$\"Cat\"$

\n"; } elsif($search_words eq 'catholic') { print "

$\"Catholic\"$

\n"; } elsif($search_words eq 'cats') { print "

$\"Cat\"$

\n"; } elsif($search_words eq 'chess') { print "

$\"Chess\"$

\n"; } elsif($search_words eq 'china') { print "

$\"China\"$

\n"; } elsif($search_words eq 'chipset') { print "

$\"Chipset\"$

\n"; } elsif($search_words eq 'chocolate') { print "

$\"Chocolate\"$

\n"; } elsif($search_words eq 'cisco') { print "

$\"Cisco\"$

\n"; } elsif($search_words eq 'classes') { print "

$\"Classes\"$

\n"; } elsif($search_words eq 'climate') { print "

$\"Climate\"$

\n"; } elsif($search_words eq 'collaboration') { print "

$\"Collaboration\"$

\n"; } elsif($search_words eq 'collecting') { print "

$\"Collecting\"$

\n"; } elsif($search_words eq 'collection') { print "

$\"Collection\"$

\n"; } elsif($search_words eq 'commentary') { print "

$\"Commentary\"$

\n"; } elsif($search_words eq 'commerce') { print "

$\"Commerce\"$

\n"; } elsif($search_words eq 'computer hardware') { print "

$\"Computer$

\n"; } elsif($search_words eq 'transportation') { print "

$\"Transportation\"$

\n"; } elsif($search_words eq 'computer virus') { print "

$\"Computer$

\n"; } elsif($search_words eq 'computer') { print "

$\"Computer\"$

\n"; } elsif($search_words eq 'computers') { print "

$\"Computers\"$

\n"; } elsif($search_words eq 'conference') { print "

$\"Conference\"$

\n"; } elsif($search_words eq 'configuration') { print "

$\"Configuration\"$

\n"; } elsif($search_words eq 'congress') { print "

$\"Congress\"$

\n"; } elsif($search_words eq 'conservative') { print "

$\"Conservative\"$

\n"; } elsif($search_words eq 'construction') { print "

$\"Construction\"$

\n"; } elsif($search_words eq 'consumer') { print "

$\"Consumer\"$

\n"; } elsif($search_words eq 'content management') { print "

$\"Content\"$

\n"; } elsif($search_words eq 'content') { print "

$\"Content\"$

\n"; } elsif($search_words eq 'conversations') { print "

$\"Conversations\"$

\n"; } elsif($search_words eq 'copyright') { print "

$\"Copyright\"$

\n"; } elsif($search_words eq 'core') { print "

$\"Core\"$

\n"; } elsif($search_words eq 'counseling') { print "

$\"Counseling\"$

\n"; } elsif($search_words eq 'court') { print "

$\"Court\"$

\n"; } elsif($search_words eq 'cream') { print "

$\"Cream\"$

\n"; } elsif($search_words eq 'credit') { print "

$\"Credit\"$

\n"; } elsif($search_words eq 'crm') { print "

$\"CRM\"$

\n"; } elsif($search_words eq 'customers') { print "

$\"Customers\"$

\n"; } elsif($search_words eq 'cyber alerts') { print "

$\"Cyber$

\n"; } elsif($search_words eq 'dartmouth') { print "

$\"Dartmouth\"$

\n"; } elsif($search_words eq 'data management') { print "

$\"Data$

\n"; } elsif($search_words eq 'data mining') { print "

$\"Mining\"$

\n"; } elsif($search_words eq 'data') { print "

$\"Data\"$

\n"; } elsif($search_words eq 'database') { print "

$\"Database\"$

\n"; } elsif($search_words eq 'dating') { print "

$\"Dating\"$

\n"; } elsif($search_words eq 'democrat') { print "

$\"Democrat\"$

\n"; } elsif($search_words eq 'design') { print "

$\"Design\"$

\n"; } elsif($search_words eq 'designer') { print "

$\"Designer\"$

\n"; } elsif($search_words eq 'designers') { print "

$\"Designers\"$

\n"; } elsif($search_words eq 'developer') { print "

$\"Developer\"$

\n"; } elsif($search_words eq 'diabetes') { print "

$\"Diabetes\"$

\n"; } elsif($search_words eq 'diet') { print "

$\"Diet\"$

\n"; } elsif($search_words eq 'digg') { print "

$\"Digg\"$

\n"; } elsif($search_words eq 'digital camera') { print "

$\"Digital$

\n"; } elsif($search_words eq 'digital video') { print "

$\"Digital$

\n"; } elsif($search_words eq 'digital') { print "

$\"Digital\"$

\n"; } elsif($search_words eq 'digital-cameras') { print "

$\"Digital$

\n"; } elsif($search_words eq 'direct marketing') { print "

$\"Direct\"$

\n"; } elsif($search_words eq 'discourse') { print "

$\"Discourse\"$

\n"; } elsif($search_words eq 'documents') { print "

$\"Documents\"$

\n"; } elsif($search_words eq 'dog') { print "

$\"Dog\"$

\n"; } elsif($search_words eq 'dogs') { print "

$\"Dogs\"$

\n"; } elsif($search_words eq 'domino') { print "

$\"Domino\"$

\n"; } elsif($search_words eq 'download') { print "

$\"Download\"$

\n"; } elsif($search_words eq 'dress') { print "

$\"Dress\"$

\n"; } elsif($search_words eq 'drinking') { print "

$\"Drinking\"$

\n"; } elsif($search_words eq 'drm') { print "

$\"Drm\"$

\n"; } elsif($search_words eq 'dvd') { print "

$\"DVD\"$

\n"; } elsif($search_words eq 'eating') { print "

$\"Eating\"$

\n"; } elsif($search_words eq 'ebay') { print "

$\"Ebay\"$

\n"; } elsif($search_words eq 'ecosystem') { print "

$\"Ecosystem\"$

\n"; } elsif($search_words eq 'education') { print "

$\"Education\"$

\n"; } elsif($search_words eq 'electronics') { print "

$\"Electronics\"$

\n"; } elsif($search_words eq 'email') { print "

$\"Email\"$

\n"; } elsif($search_words eq 'embedded') { print "

$\"Embedded\"$

\n"; } elsif($search_words eq 'emissions') { print "

$\"Emissions\"$

\n"; } elsif($search_words eq 'employment') { print "

$\"Employment\"$

\n"; } elsif($search_words eq 'energy') { print "

$\"Energy\"$

\n"; } elsif($search_words eq 'enforcement') { print "

$\"Enforcement\"$

\n"; } elsif($search_words eq 'engage') { print "

$\"Engage\"$

\n"; } elsif($search_words eq 'engineer') { print "

$\"Engineer\"$

\n"; } elsif($search_words eq 'engineering') { print "

$\"Engineering\"$

\n"; } elsif($search_words eq 'enterprise') { print "

$\"Enterprise\"$

\n"; } elsif($search_words eq 'environment') { print "

$\"Environment\"$

\n"; } elsif($search_words eq 'enzyme') { print "

$\"Enzyme\"$

\n"; } elsif($search_words eq 'ethical') { print "

$\"Ethical\"$

\n"; } elsif($search_words eq 'eurekalert') { print "

$\"Eureka\"$

\n"; } elsif($search_words eq 'exercise') { print "

$\"Exercise\"$

\n"; } elsif($search_words eq 'faculty') { print "

$\"Faculty\"$

\n"; } elsif($search_words eq 'fantasy football') { print "

$\"Fantasy$

\n"; } elsif($search_words eq 'fantasy') { print "

$\"Fantasy\"$

\n"; } elsif($search_words eq 'fashion') { print "

$\"Fashion\"$

\n"; } elsif($search_words eq 'fat') { print "

$\"Fat\"$

\n"; } elsif($search_words eq 'fedora') { print "

$\"Fedora\"$

\n"; } elsif($search_words eq 'file') { print "

$\"File\"$

\n"; } elsif($search_words eq 'film') { print "

$\"Film\"$

\n"; } elsif($search_words eq 'finance') { print "

$\"Finance\"$

\n"; } elsif($search_words eq 'financial') { print "

$\"Finance\"$

\n"; } elsif($search_words eq 'firefox') { print "

$\"Firefox\"$

\n"; } elsif($search_words eq 'firewire') { print "

$\"Firewire\"$

\n"; } elsif($search_words eq 'fitness') { print "

$\"Fitness\"$

\n"; } elsif($search_words eq 'florida') { print "

$\"Florida\"$

\n"; } elsif($search_words eq 'food') { print "

$\"Food\"$

\n"; } elsif($search_words eq 'foreign') { print "

$\"Foreign\"$

\n"; } elsif($search_words eq 'framework') { print "

$\"Framework\"$

\n"; } elsif($search_words eq 'franchise') { print "

$\"Franchise\"$

\n"; } elsif($search_words eq 'fraud') { print "

$\"Fraud\"$

\n"; } elsif($search_words eq 'freeware') { print "

$\"Freeware\"$

\n"; } elsif($search_words eq 'fuel') { print "

$\"Fuel\"$

\n"; } elsif($search_words eq 'fun') { print "

$\"Fun\"$

\n"; } elsif($search_words eq 'function') { print "

$\"Function\"$

\n"; } elsif($search_words eq 'funds') { print "

$\"Funds\"$

\n"; } elsif($search_words eq 'funny') { print "

$\"Funny\"$

\n"; } elsif($search_words eq 'future') { print "

$\"Future\"$

\n"; } elsif($search_words eq 'gadgets') { print "

$\"Gadgets\"$

\n"; } elsif($search_words eq 'gadgets') { print "

$\"Gadgets\"$

\n"; } elsif($search_words eq 'gallery') { print "

$\"Gallery\"$

\n"; } elsif($search_words eq 'gambling') { print "

$\"Gambling\"$

\n"; } elsif($search_words eq 'game systems') { print "

$\"Game$

\n"; } elsif($search_words eq 'game') { print "

$\"Game\"$

\n"; } elsif($search_words eq 'gamers') { print "

$\"Gamers\"$

\n"; } elsif($search_words eq 'games') { print "

$\"Games\"$

\n"; } elsif($search_words eq 'gaming') { print "

$\"Gaming\"$

\n"; } elsif($search_words eq 'garden') { print "

$\"Garden\"$

\n"; } elsif($search_words eq 'gardener') { print "

$\"Gardener\"$

\n"; } elsif($search_words eq 'gardening') { print "

$\"Gardening\"$

\n"; } elsif($search_words eq 'geek') { print "

$\"Geek\"$

\n"; } elsif($search_words eq 'geometry') { print "

$\"Geometry\"$

\n"; } elsif($search_words eq 'german') { print "

$\"German\"$

\n"; } elsif($search_words eq 'golf') { print "

$\"Golf\"$

\n"; } elsif($search_words eq 'google') { print "

$\"Google\"$

\n"; } elsif($search_words eq 'gop') { print "

$\"Gop\"$

\n"; } elsif($search_words eq 'government') { print "

$\"Government\"$

\n"; } elsif($search_words eq 'gpl') { print "

$\"Gpl\"$

\n"; } elsif($search_words eq 'gps') { print "

$\"Gps\"$

\n"; } elsif($search_words eq 'greece') { print "

$\"Greece\"$

\n"; } elsif($search_words eq 'green') { print "

$\"Green\"$

\n"; } elsif($search_words eq 'grid computing') { print "

$\"Grid$

\n"; } elsif($search_words eq 'grid') { print "

$\"Grid\"$

\n"; } elsif($search_words eq 'guitar') { print "

$\"Guitar\"$

\n"; } elsif($search_words eq 'guitar') { print "

$\"Guitar\"$

\n"; } elsif($search_words eq 'gun') { print "

$\"Gun\"$

\n"; } elsif($search_words eq 'handheld computers') { print "

$\"Handheld$

\n"; } elsif($search_words eq 'handheld') { print "

$\"Handheld\"$

\n"; } elsif($search_words eq 'hd') { print "

$\"Hd\"$

\n"; } elsif($search_words eq 'hdv') { print "

$\"HDV\"$

\n"; } elsif($search_words eq 'health') { print "

$\"Health\"$

\n"; } elsif($search_words eq 'healthcare') { print "

$\"Healthcare\"$

\n"; } elsif($search_words eq 'heart') { print "

$\"Heart\"$

\n"; } elsif($search_words eq 'herbal') { print "

$\"Herbal\"$

\n"; } elsif($search_words eq 'historic') { print "

$\"Historic\"$

\n"; } elsif($search_words eq 'historical') { print "

$\"Historical\"$

\n"; } elsif($search_words eq 'history') { print "

$\"History\"$

\n"; } elsif($search_words eq 'home') { print "

$\"Home\"$

\n"; } elsif($search_words eq 'horse') { print "

$\"Horse$

\n"; } elsif($search_words eq 'hospital') { print "

$\"Hospital\"$

\n"; } elsif($search_words eq 'hot') { print "

$\"Hot\"$

\n"; } elsif($search_words eq 'human') { print "

$\"Human\"$

\n"; } elsif($search_words eq 'humor') { print "

$\"Humor\"$

\n"; } elsif($search_words eq 'humor') { print "

$\"Humor\"$

\n"; } elsif($search_words eq 'hurricane') { print "

$\"Hurricane\"$

\n"; } elsif($search_words eq 'ibm') { print "

$\"IBM\"$

\n"; } elsif($search_words eq 'ideas') { print "

$\"Ideas\"$

\n"; } elsif($search_words eq 'illegal') { print "

$\"Illegal\"$

\n"; } elsif($search_words eq 'images') { print "

$\"Images\"$

\n"; } elsif($search_words eq 'immigration') { print "

$\"Immigration\"$

\n"; } elsif($search_words eq 'indulgence') { print "

$\"Indulgence\"$

\n"; } elsif($search_words eq 'industry') { print "

$\"Industry\"$

\n"; } elsif($search_words eq 'information') { print "

$\"Information\"$

\n"; } elsif($search_words eq 'inspiration') { print "

$\"Inspiration\"$

\n"; } elsif($search_words eq 'insurance') { print "

$\"Insurance\"$

\n"; } elsif($search_words eq 'intel') { print "

$\"Intel\"$

\n"; } elsif($search_words eq 'intellectual property') { print "

$\"Intellectual$

\n"; } elsif($search_words eq 'intelligence') { print "

$\"Intelligence\"$

\n"; } elsif($search_words eq 'interviews') { print "

$\"Interviews\"$

\n"; } elsif($search_words eq 'investigation') { print "

$\"Investigation\"$

\n"; } elsif($search_words eq 'investing') { print "

$\"Investing\"$

\n"; } elsif($search_words eq 'ipod') { print "

$\"Ipod\"$

\n"; } elsif($search_words eq 'ireland') { print "

$\"Ireland\"$

\n"; } elsif($search_words eq 'islam') { print "

$\"Islam\"$

\n"; } elsif($search_words eq 'italian') { print "

$\"Italian\"$

\n"; } elsif($search_words eq 'italy') { print "

$\"Italy\"$

\n"; } elsif($search_words eq 'itunes') { print "

$\"Itunes\"$

\n"; } elsif($search_words eq 'japan') { print "

$\"Japan\"$

\n"; } elsif($search_words eq 'java') { print "

$\"Java\"$

\n"; } elsif($search_words eq 'javascript') { print "

$\"Javascript\"$

\n"; } elsif($search_words eq 'jewelry') { print "

$\"Jewelry\"$

\n"; } elsif($search_words eq 'job search') { print "

$\"Job$

\n"; } elsif($search_words eq 'job') { print "

$\"Job\"$

\n"; } elsif($search_words eq 'joke') { print "

$\"Joke\"$

\n"; } elsif($search_words eq 'journalism') { print "

$\"Journalism\"$

\n"; } elsif($search_words eq 'knowledge') { print "

$\"Knowledge\"$

\n"; } elsif($search_words eq 'language') { print "

$\"Language\"$

\n"; } elsif($search_words eq 'las vegas') { print "

$\"Las$

\n"; } elsif($search_words eq 'laugh') { print "

$\"Laugh\"$

\n"; } elsif($search_words eq 'law') { print "

$\"Law\"$

\n"; } elsif($search_words eq 'ldap') { print "

$\"Ldap\"$

\n"; } elsif($search_words eq 'legal') { print "

$\"Legal\"$

\n"; } elsif($search_words eq 'librarian') { print "

$\"Librarian\"$

\n"; } elsif($search_words eq 'libraries') { print "

$\"Libraries\"$

\n"; } elsif($search_words eq 'library') { print "

$\"Library\"$

\n"; } elsif($search_words eq 'license') { print "

$\"License\"$

\n"; } elsif($search_words eq 'lingerie') { print "

$\"Lingerie\"$

\n"; } elsif($search_words eq 'linguistics') { print "

$\"Linguistics\"$

\n"; } elsif($search_words eq 'links') { print "

$\"Links\"$

\n"; } elsif($search_words eq 'linux') { print "

$\"Linux\"$

\n"; } elsif($search_words eq 'live') { print "

$\"Live\"$

\n"; } elsif($search_words eq 'liver') { print "

$\"Liver\"$

\n"; } elsif($search_words eq 'loans') { print "

$\"Loans\"$

\n"; } elsif($search_words eq 'los angeles') { print "

$\"Los$

\n"; } elsif($search_words eq 'love') { print "

$\"Love\"$

\n"; } elsif($search_words eq 'luxury') { print "

$\"Luxury\"$

\n"; } elsif($search_words eq 'lyrics') { print "

$\"Lyrics\"$

\n"; } elsif($search_words eq 'mac') { print "

$\"Mac\"$

\n"; } elsif($search_words eq 'macbook') { print "

$\"Macbook\"$

\n"; } elsif($search_words eq 'macintosh') { print "

$\"Macintosh\"$

\n"; } elsif($search_words eq 'mail') { print "

$\"Mail\"$

\n"; } elsif($search_words eq 'maine') { print "

$\"Maine\"$

\n"; } elsif($search_words eq 'malaysia') { print "

$\"Malaysia\"$

\n"; } elsif($search_words eq 'manufacturing') { print "

$\"Manufacturing\"$

\n"; } elsif($search_words eq 'mappoint') { print "

$\"Mappoint\"$

\n"; } elsif($search_words eq 'market') { print "

$\"Market\"$

\n"; } elsif($search_words eq 'marketing') { print "

$\"Marketing\"$

\n"; } elsif($search_words eq 'mars') { print "

$\"Mars\"$

\n"; } elsif($search_words eq 'martial arts') { print "

$\"Martial$

\n"; } elsif($search_words eq 'math') { print "

$\"Math\"$

\n"; } elsif($search_words eq 'math') { print "

$\"Math\"$

\n"; } elsif($search_words eq 'mathematics') { print "

$\"Mathematics\"$

\n"; } elsif($search_words eq 'media') { print "

$\"Media\"$

\n"; } elsif($search_words eq 'medical') { print "

$\"Medical\"$

\n"; } elsif($search_words eq 'medicine') { print "

$\"Medicine\"$

\n"; } elsif($search_words eq 'meditation') { print "

$\"Meditation\"$

\n"; } elsif($search_words eq 'megapixel') { print "

$\"Megapixel\"$

\n"; } elsif($search_words eq 'memory') { print "

$\"Memory\"$

\n"; } elsif($search_words eq 'messaging') { print "

$\"Messaging\"$

\n"; } elsif($search_words eq 'miami') { print "

$\"Miami\"$

\n"; } elsif($search_words eq 'microphone') { print "

$\"Microphone\"$

\n"; } elsif($search_words eq 'microsoft') { print "

$\"Microsoft\"$

\n"; } elsif($search_words eq 'military') { print "

$\"Military\"$

\n"; } elsif($search_words eq 'mining') { print "

$\"Mining\"$

\n"; } elsif($search_words eq 'mobile') { print "

$\"Mobile\"$

\n"; } elsif($search_words eq 'mobility') { print "

$\"Mobility\"$

\n"; } elsif($search_words eq 'model') { print "

$\"Model\"$

\n"; } elsif($search_words eq 'models') { print "

$\"Models\"$

\n"; } elsif($search_words eq 'modern') { print "

$\"Modern\"$

\n"; } elsif($search_words eq 'motorcycle') { print "

$\"Motorcycle\"$

\n"; } elsif($search_words eq 'motorcycles') { print "

$\"Motorcycles\"$

\n"; } elsif($search_words eq 'motorola') { print "

$\"Motorola\"$

\n"; } elsif($search_words eq 'movie') { print "

$\"Movie\"$

\n"; } elsif($search_words eq 'movies') { print "

$\"Movies\"$

\n"; } elsif($search_words eq 'mozilla') { print "

$\"Mozilla\"$

\n"; } elsif($search_words eq 'mp3') { print "

$\"Mp3\"$

\n"; } elsif($search_words eq 'mp3') { print "

$\"MP3\"$

\n"; } elsif($search_words eq 'msdn') { print "

$\"MSDN\"$

\n"; } elsif($search_words eq 'multiplayer') { print "

$\"Multiplayer\"$

\n"; } elsif($search_words eq 'museum') { print "

$\"Museum\"$

\n"; } elsif($search_words eq 'music') { print "

$\"Music\"$

\n"; } elsif($search_words eq 'music') { print "

$\"Music\"$

\n"; } elsif($search_words eq 'mutual') { print "

$\"Mutual\"$

\n"; } elsif($search_words eq 'mysql') { print "

$\"MySQL\"$

\n"; } elsif($search_words eq 'nab') { print "

$\"Nab\"$

\n"; } elsif($search_words eq 'nanotechnology') { print "

$\"Nanotechnology\"$

\n"; } elsif($search_words eq 'nascar') { print "

$\"Nascar\"$

\n"; } elsif($search_words eq 'nation') { print "

$\"Nation\"$

\n"; } elsif($search_words eq 'nations') { print "

$\"Nations\"$

\n"; } elsif($search_words eq 'native') { print "

$\"Native\"$

\n"; } elsif($search_words eq 'nature') { print "

$\"Nature\"$

\n"; } elsif($search_words eq 'network') { print "

$\"Network\"$

\n"; } elsif($search_words eq 'networking') { print "

$\"Networking\"$

\n"; } elsif($search_words eq 'new media') { print "

$\"New$

\n"; } elsif($search_words eq 'nintendo') { print "

$\"Nintendo\"$

\n"; } elsif($search_words eq 'nokia') { print "

$\"Nokia\"$

\n"; } elsif($search_words eq 'notebook') { print "

$\"Notebook\"$

\n"; } elsif($search_words eq 'novell') { print "

$\"Novell\"$

\n"; } elsif($search_words eq 'nvidia') { print "

$\"Nvidia\"$

\n"; } elsif($search_words eq 'office') { print "

$\"Office\"$

\n"; } elsif($search_words eq 'office') { print "

$\"Office\"$

\n"; } elsif($search_words eq 'oil') { print "

$\"Oil\"$

\n"; } elsif($search_words eq 'olympics') { print "

$\"Olympics\"$

\n"; } elsif($search_words eq 'olympics') { print "

$\"Olympics\"$

\n"; } elsif($search_words eq 'online') { print "

$\"Online\"$

\n"; } elsif($search_words eq 'open source') { print "

$\"Open$

\n"; } elsif($search_words eq 'open') { print "

$\"Open\"$

\n"; } elsif($search_words eq 'operators') { print "

$\"Operators\"$

\n"; } elsif($search_words eq 'optimization') { print "

$\"Optimization\"$

\n"; } elsif($search_words eq 'oracle') { print "

$\"Oracle\"$

\n"; } elsif($search_words eq 'outsourcing') { print "

$\"Outsourcing\"$

\n"; } elsif($search_words eq 'pagoda') { print "

$\"Pagoda\"$

\n"; } elsif($search_words eq 'painting') { print "

$\"Painting\"$

\n"; } elsif($search_words eq 'palm') { print "

$\"Palm\"$

\n"; } elsif($search_words eq 'panasonic') { print "

$\"Panasonic\"$

\n"; } elsif($search_words eq 'patch') { print "

$\"Patch\"$

\n"; } elsif($search_words eq 'patches') { print "

$\"Patches\"$

\n"; } elsif($search_words eq 'patent') { print "

$\"Patent\"$

\n"; } elsif($search_words eq 'paypal') { print "

$\"Paypal\"$

\n"; } elsif($search_words eq 'pda') { print "

$\"Pda\"$

\n"; } elsif($search_words eq 'people') { print "

$\"People\"$

\n"; } elsif($search_words eq 'performance') { print "

$\"Performance\"$

\n"; } elsif($search_words eq 'perl') { print "

$\"Perl\"$

\n"; } elsif($search_words eq 'pet') { print "

$\"Pet\"$

\n"; } elsif($search_words eq 'petz') { print "

$\"Petz\"$

\n"; } elsif($search_words eq 'philosophy') { print "

$\"Philosophy\"$

\n"; } elsif($search_words eq 'phone') { print "

$\"Phone\"$

\n"; } elsif($search_words eq 'photography') { print "

$\"Photography\"$

\n"; } elsif($search_words eq 'photonics') { print "

$\"Photonics\"$

\n"; } elsif($search_words eq 'photos') { print "

$\"Photos\"$

\n"; } elsif($search_words eq 'photoshop') { print "

$\"Photoshop\"$

\n"; } elsif($search_words eq 'plants') { print "

$\"Plants\"$

\n"; } elsif($search_words eq 'platform') { print "

$\"Platform\"$

\n"; } elsif($search_words eq 'player') { print "

$\"Player\"$

\n"; } elsif($search_words eq 'playstation') { print "

$\"Playstation\"$

\n"; } elsif($search_words eq 'podcast') { print "

$\"Podcast\"$

\n"; } elsif($search_words eq 'podcasting') { print "

$\"Podcasting\"$

\n"; } elsif($search_words eq 'pokemon') { print "

$\"Pokemon\"$

\n"; } elsif($search_words eq 'political') { print "

$\"Political\"$

\n"; } elsif($search_words eq 'politics') { print "

$\"Politics\"$

\n"; } elsif($search_words eq 'poll') { print "

$\"Poll\"$

\n"; } elsif($search_words eq 'pop culture') { print "

$\"Pop$

\n"; } elsif($search_words eq 'pop culture') { print "

$\"Pop$

\n"; } elsif($search_words eq 'pope') { print "

$\"Pope\"$

\n"; } elsif($search_words eq 'portable') { print "

$\"Portable\"$

\n"; } elsif($search_words eq 'powerpoint') { print "

$\"Powerpoint\"$

\n"; } elsif($search_words eq 'predictions') { print "

$\"Predictions\"$

\n"; } elsif($search_words eq 'pregnancy') { print "

$\"Pregnancy\"$

\n"; } elsif($search_words eq 'pregnant') { print "

$\"Pregnant\"$

\n"; } elsif($search_words eq 'presentation') { print "

$\"Presentation\"$

\n"; } elsif($search_words eq 'president') { print "

$\"President\"$

\n"; } elsif($search_words eq 'press releases') { print "

$\"Press$

\n"; } elsif($search_words eq 'press') { print "

$\"Press\"$

\n"; } elsif($search_words eq 'print') { print "

$\"Print\"$

\n"; } elsif($search_words eq 'printer') { print "

$\"Printer\"$

\n"; } elsif($search_words eq 'printing') { print "

$\"Printing\"$

\n"; } elsif($search_words eq 'processor') { print "

$\"Processor\"$

\n"; } elsif($search_words eq 'product') { print "

$\"Product\"$

\n"; } elsif($search_words eq 'profit') { print "

$\"Profit\"$

\n"; } elsif($search_words eq 'programmer') { print "

$\"Programmer\"$

\n"; } elsif($search_words eq 'programming') { print "

$\"Programming\"$

\n"; } elsif($search_words eq 'programming') { print "

$\"Programming\"$

\n"; } elsif($search_words eq 'property') { print "

$\"Property\"$

\n"; } elsif($search_words eq 'protein') { print "

$\"Protein\"$

\n"; } elsif($search_words eq 'ps3') { print "

$\"PS3\"$

\n"; } elsif($search_words eq 'psychology') { print "

$\"Psychology\"$

\n"; } elsif($search_words eq 'public') { print "

$\"Public\"$

\n"; } elsif($search_words eq 'publish') { print "

$\"Publish\"$

\n"; } elsif($search_words eq 'publishing') { print "

$\"Publishing\"$

\n"; } elsif($search_words eq 'pvr') { print "

$\"Pvr\"$

\n"; } elsif($search_words eq 'python') { print "

$\"Python\"$

\n"; } elsif($search_words eq 'quality') { print "

$\"Quality\"$

\n"; } elsif($search_words eq 'radio') { print "

$\"Radio\"$

\n"; } elsif($search_words eq 'real estate') { print "

$\"Real$

\n"; } elsif($search_words eq 'real-estate') { print "

$\"Real$

\n"; } elsif($search_words eq 'recording') { print "

$\"Recording\"$

\n"; } elsif($search_words eq 'red sox') { print "

$\"Red$

\n"; } elsif($search_words eq 'reference') { print "

$\"Reference\"$

\n"; } elsif($search_words eq 'released') { print "

$\"Released\"$

\n"; } elsif($search_words eq 'religion') { print "

$\"Religion\"$

\n"; } elsif($search_words eq 'report') { print "

$\"Report\"$

\n"; } elsif($search_words eq 'republican') { print "

$\"Republican\"$

\n"; } elsif($search_words eq 'research') { print "

$\"Research\"$

\n"; } elsif($search_words eq 'restaurant') { print "

$\"Restaurant\"$

\n"; } elsif($search_words eq 'retail') { print "

$\"Retail\"$

\n"; } elsif($search_words eq 'retirement') { print "

$\"Retirement\"$

\n"; } elsif($search_words eq 'rfid') { print "

$\"Rfid\"$

\n"; } elsif($search_words eq 'rss') { print "

$\"Rss\"$

\n"; } elsif($search_words eq 'sailing') { print "

$\"Sailing\"$

\n"; } elsif($search_words eq 'sales') { print "

$\"Sales\"$

\n"; } elsif($search_words eq 'samsung') { print "

$\"Samsung\"$

\n"; } elsif($search_words eq 'satellite') { print "

$\"Satellite\"$

\n"; } elsif($search_words eq 'satellites') { print "

$\"Satellites\"$

\n"; } elsif($search_words eq 'scam') { print "

$\"Scam\"$

\n"; } elsif($search_words eq 'scandal') { print "

$\"Scandal\"$

\n"; } elsif($search_words eq 'school') { print "

$\"School\"$

\n"; } elsif($search_words eq 'science fiction') { print "

$\"Science$

\n"; } elsif($search_words eq 'science') { print "

$\"Science\"$

\n"; } elsif($search_words eq 'search engine') { print "

$\"Search$

\n"; } elsif($search_words eq 'search') { print "

$\"Search\"$

\n"; } elsif($search_words eq 'security') { print "

$\"Security\"$

\n"; } elsif($search_words eq 'semiconductor') { print "

$\"Semiconductor\"$

\n"; } elsif($search_words eq 'senate') { print "

$\"Senate\"$

\n"; } elsif($search_words eq 'sensors') { print "

$\"Sensors\"$

\n"; } elsif($search_words eq 'seo') { print "

$\"SEO\"$

\n"; } elsif($search_words eq 'server') { print "

$\"Server\"$

\n"; } elsif($search_words eq 'service') { print "

$\"Service\"$

\n"; } elsif($search_words eq 'services') { print "

$\"Services\"$

\n"; } elsif($search_words eq 'share') { print "

$\"Share\"$

\n"; } elsif($search_words eq 'shipping') { print "

$\"Shipping\"$

\n"; } elsif($search_words eq 'shoes') { print "

$\"Shoes\"$

\n"; } elsif($search_words eq 'shopping') { print "

$\"Shopping\"$

\n"; } elsif($search_words eq 'show') { print "

$\"Show\"$

\n"; } elsif($search_words eq 'singapore') { print "

$\"Singapore\"$

\n"; } elsif($search_words eq 'singing') { print "

$\"Singing\"$

\n"; } elsif($search_words eq 'sip') { print "

$\"SIP\"$

\n"; } elsif($search_words eq 'smoking') { print "

$\"Smoking\"$

\n"; } elsif($search_words eq 'social') { print "

$\"Social\"$

\n"; } elsif($search_words eq 'society') { print "

$\"Society\"$

\n"; } elsif($search_words eq 'society') { print "

$\"Society\"$

\n"; } elsif($search_words eq 'software') { print "

$\"Software\"$

\n"; } elsif($search_words eq 'solaris') { print "

$\"Solaris\"$

\n"; } elsif($search_words eq 'solutions') { print "

$\"Solutions\"$

\n"; } elsif($search_words eq 'sony') { print "

$\"Sony\"$

\n"; } elsif($search_words eq 'space') { print "

$\"Space\"$

\n"; } elsif($search_words eq 'spam') { print "

$\"Spam\"$

\n"; } elsif($search_words eq 'spectrum') { print "

$\"Spectrum\"$

\n"; } elsif($search_words eq 'spinach') { print "

$\"Spinach\"$

\n"; } elsif($search_words eq 'spirits') { print "

$\"Spirits\"$

\n"; } elsif($search_words eq 'sports') { print "

$\"Sports\"$

\n"; } elsif($search_words eq 'spring') { print "

$\"Spring\"$

\n"; } elsif($search_words eq 'sql') { print "

$\"SQL\"$

\n"; } elsif($search_words eq 'stlouiscardinals') { print "

$\"Stlouiscardinals\"$

\n"; } elsif($search_words eq 'stock') { print "

$\"Stock$

\n"; } elsif($search_words eq 'storage') { print "

$\"Storage\"$

\n"; } elsif($search_words eq 'streaming') { print "

$\"Streaming\"$

\n"; } elsif($search_words eq 'studio') { print "

$\"Studio\"$

\n"; } elsif($search_words eq 'study') { print "

$\"Study\"$

\n"; } elsif($search_words eq 'style') { print "

$\"Style\"$

\n"; } elsif($search_words eq 'sun') { print "

$\"Sun\"$

\n"; } elsif($search_words eq 'surveillance') { print "

$\"Surveillance\"$

\n"; } elsif($search_words eq 'systems') { print "

$\"Systems\"$

\n"; } elsif($search_words eq 'tablet') { print "

$\"Tablet\"$

\n"; } elsif($search_words eq 'talking') { print "

$\"Talking\"$

\n"; } elsif($search_words eq 'tasting') { print "

$\"Tasting\"$

\n"; } elsif($search_words eq 'tattoos') { print "

$\"Tattoos\"$

\n"; } elsif($search_words eq 'tax') { print "

$\"Tax\"$

\n"; } elsif($search_words eq 'tech events') { print "

$\"Tech$

\n"; } elsif($search_words eq 'tech') { print "

$\"Tech\"$

\n"; } elsif($search_words eq 'technical') { print "

$\"Technical\"$

\n"; } elsif($search_words eq 'technology') { print "

$\"Technology\"$

\n"; } elsif($search_words eq 'technology') { print "

$\"Technology\"$

\n"; } elsif($search_words eq 'telecom') { print "

$\"Telecom\"$

\n"; } elsif($search_words eq 'telecommunications') { print "

$\"Telecommunications\"$

\n"; } elsif($search_words eq 'telephone') { print "

$\"Telephone\"$

\n"; } elsif($search_words eq 'television') { print "

$\"Television\"$

\n"; } elsif($search_words eq 'texas') { print "

$\"Texas\"$

\n"; } elsif($search_words eq 'theory') { print "

$\"Theory\"$

\n"; } elsif($search_words eq 'tobacco') { print "

$\"Tobacco\"$

\n"; } elsif($search_words eq 'trade') { print "

$\"Trade\"$

\n"; } elsif($search_words eq 'trademark') { print "

$\"Trademark\"$

\n"; } elsif($search_words eq 'trading') { print "

$\"Trading\"$

\n"; } elsif($search_words eq 'travel') { print "

$\"Travel\"$

\n"; } elsif($search_words eq 'travel') { print "

$\"Travel\"$

\n"; } elsif($search_words eq 'trends') { print "

$\"Trends\"$

\n"; } elsif($search_words eq 'trends') { print "

$\"Trends\"$

\n"; } elsif($search_words eq 'tv') { print "

$\"TV\"$

\n"; } elsif($search_words eq 'ubuntu') { print "

$\"Ubuntu\"$

\n"; } elsif($search_words eq 'underground') { print "

$\"Underground\"$

\n"; } elsif($search_words eq 'union') { print "

$\"Union\"$

\n"; } elsif($search_words eq 'university') { print "

$\"University\"$

\n"; } elsif($search_words eq 'usability') { print "

$\"Usability\"$

\n"; } elsif($search_words eq 'usb') { print "

$\"Usb\"$

\n"; } elsif($search_words eq 'user') { print "

$\"User\"$

\n"; } elsif($search_words eq 'utility computing') { print "

$\"Utility$

\n"; } elsif($search_words eq 'version') { print "

$\"Version\"$

\n"; } elsif($search_words eq 'video games') { print "

$\"Video$

\n"; } elsif($search_words eq 'video') { print "

$\"Video\"$

\n"; } elsif($search_words eq 'viral') { print "

$\"Viral\"$

\n"; } elsif($search_words eq 'virus') { print "

$\"Virus\"$

\n"; } elsif($search_words eq 'vista') { print "

$\"Vista\"$

\n"; } elsif($search_words eq 'visual') { print "

$\"Visual\"$

\n"; } elsif($search_words eq 'voip') { print "

$\"Voip\"$

\n"; } elsif($search_words eq 'wardriving') { print "

$\"Wardriving\"$

\n"; } elsif($search_words eq 'warming') { print "

$\"Warming\"$

\n"; } elsif($search_words eq 'washington dc') { print "

$\"Washington$

\n"; } elsif($search_words eq 'water') { print "

$\"Water\"$

\n"; } elsif($search_words eq 'weather') { print "

$\"Weather\"$

\n"; } elsif($search_words eq 'web services') { print "

$\"Web-Services\"$

\n"; } elsif($search_words eq 'web work') { print "

$\"Web$

\n"; } elsif($search_words eq 'web') { print "

$\"Web\"$

\n"; } elsif($search_words eq 'webmaster') { print "

$\"Webmaster\"$

\n"; } elsif($search_words eq 'weight loss') { print "

$\"Weight$

\n"; } elsif($search_words eq 'weight') { print "

$\"Weight\"$

\n"; } elsif($search_words eq 'wi-fi') { print "

$\"Wi-Fi\"$

\n"; } elsif($search_words eq 'wifi') { print "

$\"Wifi\"$

\n"; } elsif($search_words eq 'wii') { print "

$\"Wii\"$

\n"; } elsif($search_words eq 'wimax') { print "

$\"Wimax\"$

\n"; } elsif($search_words eq 'windows') { print "

$\"Windows\"$

\n"; } elsif($search_words eq 'wine') { print "

$\"Wine\"$

\n"; } elsif($search_words eq 'wireless') { print "

$\"Wireless\"$

\n"; } elsif($search_words eq 'women') { print "

$\"Women\"$

\n"; } elsif($search_words eq 'workout') { print "

$\"Workout\"$

\n"; } elsif($search_words eq 'writer') { print "

$\"Writer\"$

\n"; } elsif($search_words eq 'writers') { print "

$\"Writers\"$

\n"; } elsif($search_words eq 'writing') { print "

$\"Writing\"$

\n"; } elsif($search_words eq 'xbox') { print "

$\"Xbox\"$

\n"; } elsif($search_words eq 'yenra') { print "

$\"Yenra\"$

\n"; } elsif($search_words eq 'yoga') { print "

$\"Yoga\"$

\n"; } elsif($search_words eq 'zune') { print "

$\"Zune\"$

\n"; } else { print "

$\"FeedSee\"$

\n"; } if($#pages >= 0) { print "

$shown feeds and articles mention @words

\n"; $n = $page_begin + 1; for $pg (@pages) { if($pg =~ m/(\w)(.+)/) { if($1 eq 'I') { $fn = $2; if(open FL, "$docroot_disc/$fn") { read FL,$pt,1024; close FL; if($pt =~ m~title" value="(.+?)"-->~gis) {$title = $1} else {$title = '(no title)'} print qq~$n - $title
\n~; } } else { print "(result type not known)
\n"; } } $n++; } print "

\n"; } else { print "Feeds about @words are listed on one page

\n"; } if($res_per_page != -1) { if($found != $shown) { $pages = int(($found / $res_per_page) + 1); print "\n"; if($this_page != 0) { $p = $this_page - 1; print qq~ See the feeds that mention ~; } else { print "< "; } for($p = 0; $p < $pages; $p++) { $n = $p+1; if($p == $this_page) { print " $n "; } else { print qq~ @words ~; } } if($this_page != ($pages - 1)) { $p = $this_page + 1; print qq~ \n~; } else { print " >

\n"; } } else { print "\n"; } } } print <<__EOF; __EOF print $model_bot; exit(0); sub parse_form { %form = (); my $buffer; if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $form{$name} = $value; } }