#!/usr/bin/perl # lsetlist.pl, distributed as part of Snortsnarf v020516.1 # Author: James Hoagland, Silicon Defense (hoagland@SiliconDefense.com) # copyright (c) 2000 by Silicon Defense (http://www.silicondefense.com/) # Released under GNU General Public License, see the COPYING file included # with the distribution or http://www.silicondefense.com/software/snortsnarf/ # for details. # lsetlist.pl is a CGI script to generate a HTML list of labeled sets given a # SISR configuration file. This simply redirects to a pipeline submit # with appropriate args. This is provided as something easy to link to # by programs that do not wish to know much about how SISR works. # If a file is given in the 'setfile' field, that is the file to view. # Otherwise the current one from the config file is used. # Please send complaints, kudos, and especially improvements and bugfixes to # hoagland@SiliconDefense.com. As described in GNU General Public License, no # warranty is expressed for this program. use CGI; require "sisr_utils.pl"; # get parameters of the invocation $input= new CGI; foreach (@ARGV) { # simulate field input if running on command line $input->param(split('=',$_,2)); } $configfile= $input->param('configfile'); $setfile= $input->param('setfile'); $path= &get_config_field($configfile,'module-path'); if (defined($setfile)) { $url= &pipeline_submit_url("set_list_view.pl $setfile",$path,'configfile' => $configfile); } else { $url= &pipeline_submit_url("config_alert_set_db.pl $configfile \$setfile | set_list_view.pl \$setfile",$path,'configfile' => $configfile); } print $input->redirect($url); 1; # $Id: lsetlist.pl,v 1.11 2001/10/18 21:42:54 jim Exp $