<?

	if ( $cgi->param( 'load' ) )
	{
		print "<input type=\"hidden\" name=\"load\" value=\"".$cgi->param( 'load' )."\">";
	}

	if ( $cgi->param( 'valA' ) )
	{
	print "<input type=\"hidden\" name=\"valA\" value=\"".$cgi->param( 'valA' )."\">";
	}

?>

<table class="bordered" width="95%" cellpadding="2" align="center" border="0">
  <tr>
    <td rowspan="5" width="8%">&nbsp;</td>
    <td><b>Severity filter</b></td>
    <td><b>Sort by</b></td>
    <td><b>Results per page</b></td>
    <td>
<?

if ($User->priv_list()->[0])
{
  my %label=('delete' => 'Delete', 'process' => 'Process', 'ack' => 'Acknowledge', 'user' => 'Account creation');

  print "<b>Action : </b><select name=\"priv_name\">\n";
  print "<option value=nothing>Do nothing\n";
  foreach my $key (@{$User->priv_list()})
  {
    print "<option value=$key>$label{$key}\n";
  }
  print '</select>';
}
else
{
  print '&nbsp;';
}

?>
    </td>
    <td rowspan="5" width="1%"><input type="submit" value="submit"></td>
  </tr>

  <tr>
   <td>
    <input type="checkbox" name="show_high"<?if ($cgi->param( 'show_high' ) ) {print ' checked';};?>> high<br>
    <input type="checkbox" name="show_medium"<?if ($cgi->param( 'show_medium' ) ) {print ' checked';};?>> medium<br>
    <input type="checkbox" name="show_low"<?if ($cgi->param( 'show_low' ) ) {print ' checked';};?>> low
   </td>

   <td>
    <? if (! $cgi->param( 'sortby' ) ) {$cgi->param( 'sortby', 'time' );}; ?>
    <input type="radio" name="sortby" value="time"
    <? if ($cgi->param( 'sortby' ) eq 'time') {print ' checked';};?>> timestamp<br>
    <input type="radio" name="sortby" value="groupkey"
    <? if ($cgi->param( 'sortby' ) eq 'groupkey') {print ' checked';};?>> group by key
   </td>

   <td>
    <input name="by_page" type="text" size="4" value="<?print $cgi->param( 'by_page' );?>">
   </td>
   <td>

<? 
if ( $User->priv_list()->[0] )
{
print<<"EOB";
      <input type="radio" name="priv_value" value="checked" checked>selected alerts<br>
      <input type="radio" name="priv_value" value="filter">alerts matched by filter<br>
EOB

  if ( $User->priv_process() eq 'all' )
  {
    print "&nbsp;&nbsp;process :\n";
    print "<select name=\"process\">";
    print "<option value=\"\">None";

    local *DIRECTORY;
    opendir(DIRECTORY,'generated/Processing/');
    foreach my $DirEntry (sort readdir(DIRECTORY))
    {
      if ($DirEntry =~ m/^(.*)\.proc$/)
      {
        my $ProcessName=$1;
        print "<option value=\"$ProcessName\"";
        print ">$ProcessName\n";
      }
    }
    closedir(DIRECTORY);

    print "</select>";
  }
}
else
{
  print "&nbsp;\n";
}
?>
    </td>
  </tr>

  <tr><td colspan="4">&nbsp;</td></tr>

  <tr>
    <td><b>Group by</b></td>
    <td><b>Order</b></td>
    <td><b>Since</b></td>
    <td><ICI>&nbsp;</td>
  </tr>
  <tr>
    <td>

<?
  if ( ! defined( $cgi->param( 'groupby' ) ) )
  {
    $cgi->param( 'groupby', '' );
  } else {
	my $groupby = join( '', $cgi->param( 'groupby' ) );
	$cgi->param( 'groupby', $groupby );
  }
?>
<select multiple size="4" name="groupby">
  <option value="Cn"<?GroupBy(Cn)?>> Classification
  <option value="Sa"<?GroupBy(Sa)?>> Source address
  <option value="Ta"<?GroupBy(Ta)?>> Target address
  <option value="Tp"<?GroupBy(Tp)?>> Target port
  <option value="Is"<?GroupBy(Is)?>> Severity
  <option value="Am"<?GroupBy(Am)?>> Sensor type
  <option value="Ai"<?GroupBy(Ai)?>> Sensor Id
</select>

    </td>
    <td>
  <input name="desc" type="radio" value="1"<?if ( $cgi->param( 'desc' ) ) {print ' checked';};?>> Desc.<br>
  <input name="desc" type="radio" value="0"<?if ( ! $cgi->param( 'desc' ) ) {print ' checked';};?>> Asc.<br>
    </td>
    <td>
  <select name="timelimit">
   <option value="1D">1 day
   <option value="7D"<?if ( $cgi->param( 'timelimit' ) eq '7D') {print ' selected';}?>>1 week
   <option value="1M"<?if ( $cgi->param( 'timelimit' ) eq '1M') {print ' selected';}?>>1 month
   <option value="1Y"<?if ( $cgi->param( 'timelimit' ) eq '1Y') {print ' selected';}?>>1 year
   <option value="10Y"<?if ( $cgi->param( 'timelimit' ) eq '10Y') {print ' selected';}?>>All
  </select>
    </td>
    <td><ICI>&nbsp;</td>
  </tr>
</table>

