oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Basic regexp checking for submitted rules.

Browse source 
Checks the rules as they are entered or edited, and provides feedback
from perl about any errors.
This commit is contained in:
Colin Kuskie 2009-02-09 15:53:40 -08:00 • committed by Patrick Donelan
parent 338c828a88
commit 9a5127fb7e
1 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lib/WebGUI/PassiveAnalytics/Flow.pm
View file

@ -175,9 +175,12 @@ Displays a form to edit the properties rule.
=cut
sub www_editRule {
my $session = shift;
my ($session, $error) = @_;
return $session->privilege->insufficient() unless canView($session);
if ($error) {
$error = qq|<div class="error">$error</div>\n|;
}
##Make a PassiveAnalytics rule to use to populate the form.
my $ruleId = $session->form->get('ruleId');
my $rule;
@ -204,7 +207,7 @@ sub www_editRule {
if ($ruleId eq 'new') {
$rule->delete;
}
return $ac->render($form->print,$i18n->get('Edit Rule'));
return $ac->render($error.$form->print,$i18n->get('Edit Rule'));
}
#-------------------------------------------------------------------
@ -217,8 +220,19 @@ Saves the results of www_editRule().
sub www_editRuleSave {
my $session = shift;
my $form = $session->form;
return $session->privilege->insufficient() unless canView($session);
my $ruleId = $session->form->get('ruleId');
my $regexp = $form->get('regexp');
eval {
'fooBarBaz' =~ qr/$regexp/;
};
if ($@) {
$session->log->warn("Error: $@");
my $error = $@;
$error =~ s/at \S+?\.pm line \d+.*$//;
return www_editRule($session, $error);
}
my $ruleId = $form->get('ruleId');
my $rule;
if ($ruleId eq 'new') {
$rule = WebGUI::PassiveAnalytics::Rule->create($session, {});