smf/search_instance.cgi

   1 #!/usr/local/bin/perl
   2 # search instance
   3 # Display a form for searching for a service using keywords/browse
   4
   5 require './smf-lib.pl';
   6 &ReadParse();
   7
   8 $got_results = -1;
   9 $original_searchstring = "";
  10 $searchstring = "";
  11 # get search term
  12 if (defined($in{'searchstring'})) {
  13         $original_searchstring = $in{'searchstring'};
  14         $searchstring = $in{'searchstring'};
  15         if ($searchstring =~ /svc:\/.*/) {
  16                 $searchstring = "$searchstring";
  17         } elsif ($searchstring =~ /.+/) {
  18                 $searchstring = "\*$searchstring";
  19                 }
  20         @svcs_info = &svcs_listing("$searchstring");
  21         if (@svcs_info > 0) {
  22                 $got_results = 1;
  23         } else {
  24                 $got_results = 0;
  25                 }
  26
  27 }
  28
  29 &ui_print_header(undef, $text{'search_instance_title'}, "", undef);
  30
  31 print "<h2>";
  32 &text_and_whats_this("search_instance_detail");
  33 print "</h2>";
  34
  35 print "<form  method=\"POST\" action=\"search_instance.cgi\">\n";
  36 print
  37     "<input size=60 name=\"searchstring\" value=\"$original_searchstring\">\n";
  38 &print_svc_chooser("searchstring", 0, "$text{'search_instance_browse'}",
  39         "both", "0");
  40 print "&nbsp;<input type=submit value=\"$text{'search_instance_go'}\">\n";
  41 print "</form>\n";
  42 if ($got_results == 1) {
  43         print &ui_hr();
  44         for $svc_info (@svcs_info) {
  45                 $fmri = $svc_info->{'FMRI'};
  46                 print "<p>\n";
  47                 print "<a href=\"instance_viewer.cgi?fmri='$fmri'\">$fmri</a>";
  48                 print "</p>\n";
  49                 }
  50 } elsif ($got_results == 0) {
  51         print &ui_hr();
  52         print "<p>$text{'search_instance_noresults'}</p>\n";
  53         }
  54
  55 &print_cmds_run();
  56
  57 &ui_print_footer("index.cgi", $text{'index'});
  58