Lines 72-78
my $branch = $input->param('branch');
Link Here
|
72 |
my $op = $input->param('op'); |
72 |
my $op = $input->param('op'); |
73 |
|
73 |
|
74 |
my @errors = (); |
74 |
my @errors = (); |
75 |
if ( defined $delay and not $delay =~ /^\d{1,3}$/ ) { |
75 |
if ( $delay and not $delay =~ /^\d{1,3}$/ ) { |
76 |
push @errors, {delay_digits => 1, bad_delay => $delay}; |
76 |
push @errors, {delay_digits => 1, bad_delay => $delay}; |
77 |
} |
77 |
} |
78 |
|
78 |
|
Lines 85-91
if ($op and $op eq "send_alert"){
Link Here
|
85 |
}; |
85 |
}; |
86 |
if ( $@ ) { |
86 |
if ( $@ ) { |
87 |
$template->param(error_claim => $@); |
87 |
$template->param(error_claim => $@); |
88 |
} elsif ( defined $err->{error} and $err->{error} eq "no_email" ) { |
88 |
} elsif ( ref $err and exists $err->{error} and $err->{error} eq "no_email" ) { |
89 |
$template->{VARS}->{'error_claim'} = "no_email"; |
89 |
$template->{VARS}->{'error_claim'} = "no_email"; |
90 |
} else { |
90 |
} else { |
91 |
$template->{VARS}->{'info_claim'} = 1; |
91 |
$template->{VARS}->{'info_claim'} = 1; |
92 |
- |
|
|