FM / siteguardlite

/opt/jp-secure/siteguardlite

Name	Size	Mode	Actions
bak/	-	0755	rm
conf/	-	0755	rm
databases_waf/	-	0755	rm
doc/	-	0755	rm
java/	-	0755	rm
logs/	-	0755	rm
misc/	-	0755	rm
modules/	-	0755	rm
notify/	-	0777	rm
statistics/	-	0777	rm
tmp/	-	0777	rm
tomcat/	-	0755	rm
update_waf/	-	0755	rm
check_pcre	173158	0755	edit dl rm
configured.module	6	0644	edit dl rm
cromtab_tmp	0	0644	edit dl rm
dbupdate_waf	5888	0755	edit dl rm
dbupdate_waf.bak	5888	0755	edit dl rm
license_check	178688	0755	edit dl rm
Makefile	27216	0644	edit dl rm
Makefile.bak	27133	0644	edit dl rm
Makefile.vars	2359	0644	edit dl rm
Makefile.vars.bak	2353	0644	edit dl rm
Makefile.verup-config	9035	0755	edit dl rm
make_conf_log.sh	1140	0755	edit dl rm
pid.siteguardlite_notify	5	0644	edit dl rm
pid.tomcat	5	0644	edit dl rm
rc.siteguardlite_admin	6194	0755	edit dl rm
rc.siteguardlite_admin.bak	6185	0755	edit dl rm
rc.siteguardlite_notify	3495	0755	edit dl rm
rc.siteguardlite_notify.bak	3495	0755	edit dl rm
setup.sh	13318	0755	edit dl rm
set_secontext.sh	4755	0755	edit dl rm
siteguardlite_notify	344519	0755	edit dl rm
siteguardlite_statistics.sh	949	0755	edit dl rm
siteguardlite_statistics.sh.bak	949	0755	edit dl rm
statistics_collect.awk	1714	0644	edit dl rm
waf_sig_merge.pl	1111	0755	edit dl rm

Edit: /opt/jp-secure/siteguardlite/waf_sig_merge.pl (1111B)

#!/usr/bin/perl

sub usage
{
	print "usage: waf_sig_merge.pl [current-db] [new-db]\n";
	print "  Update db file keeping current judge.\n";
	print "ex) ./waf_sig_merge.pl conf/waf/sig_official.txt conf/waf/sig_official_base.txt > conf/waf/sig_official_new.txt \n";
}
while($_ = $ARGV[0]){
	if(/^--use-dbsettings=(yes|no)/){
		$use_dbsettings=$1;
	}elsif(/^--add-monitor=(yes|no)/){
		$add_monitor=$1;
	}elsif(/^-/){
		&usage; exit(1);
	}else{
		last;
	}
	shift;
}
if(@ARGV != 2){ &usage; exit(1);}
$curfile = $ARGV[0];
$newfile = $ARGV[1];

open(FH, "<${curfile}") || die "cannot open [$curfile]:$!";
while(<FH>){
	if(/^(\S+\t\S+)\t\S+\t(\S+)\t/){
		$currule{$2} = $1;
	}
}
close(FH);

open(FH, "<${newfile}") || die "cannot open [$newfile]:$!";
while(<FH>){
	if(/^(\S+)\t(\S+)\t(\S+)\t(\S+)\t(.*)/){
		$enable = $1;
		$action = $2;
		if(defined $currule{$4}){
			print "$currule{$4}\t$3\t$4\t$5\n";
		}else{
			if($use_dbsettings eq "no"){
				$enable = "OFF";
			}
			if($add_monitor eq "yes" && $action ne "NONE"){
				$action = "MONITOR";
			}
			print "$enable\t$action\t$3\t$4\t$5\n";
		}
	}
}
close(FH);

cmd: