itsecur-firewall/save_search.cgi

   1 #!/usr/bin/perl
   2 # Save the current search
   3
   4 require './itsecur-lib.pl';
   5 &can_edit_error("report");
   6 &ReadParse();
   7
   8 # Validate inputs
   9 $in{'save_name'} =~ /\S/ && $in{'save_name'} !~ /\.\./ ||
  10         &error($text{'report_esave'});
  11 %search = ( 'save_name', $in{'save_name'} );
  12 foreach $f (@search_fields) {
  13         foreach $i (keys %in) {
  14                 if ($i =~ /^\Q$f\E_/) {
  15                         $search{$i} = $in{$i};
  16                         }
  17                 }
  18         }
  19 &save_search(\%search);
  20 &redirect("list_report.cgi?save_name=".&urlize($in{'save_name'}));
  21