#!/usr/local/bin/perl # search instance # Display a form for searching for a service using keywords/browse require './smf-lib.pl'; &ReadParse(); $got_results = -1; $original_searchstring = ""; $searchstring = ""; # get search term if (defined($in{'searchstring'})) { $original_searchstring = $in{'searchstring'}; $searchstring = $in{'searchstring'}; if ($searchstring =~ /svc:\/.*/) { $searchstring = "$searchstring"; } elsif ($searchstring =~ /.+/) { $searchstring = "\*$searchstring"; } @svcs_info = &svcs_listing("$searchstring"); if (@svcs_info > 0) { $got_results = 1; } else { $got_results = 0; } } &ui_print_header(undef, $text{'search_instance_title'}, "", undef); print "
\n"; print "$fmri"; print "
\n"; } } elsif ($got_results == 0) { print &ui_hr(); print "$text{'search_instance_noresults'}
\n"; } &print_cmds_run(); &ui_print_footer("index.cgi", $text{'index'});