1 |
jpp |
1.1 |
diff -Nur --no-dereference smeserver-crontab_manager-2.4.old/root/etc/e-smith/web/functions/cronmanager smeserver-crontab_manager-2.4/root/etc/e-smith/web/functions/cronmanager |
2 |
|
|
--- smeserver-crontab_manager-2.4.old/root/etc/e-smith/web/functions/cronmanager 2005-08-27 08:30:43.000000000 -0400 |
3 |
|
|
+++ smeserver-crontab_manager-2.4/root/etc/e-smith/web/functions/cronmanager 2021-04-09 16:46:49.990000000 -0400 |
4 |
|
|
@@ -243,7 +243,7 @@ |
5 |
|
|
> |
6 |
|
|
<label>USER_RUN_CRON</label> |
7 |
|
|
</field> |
8 |
|
|
- <field type="text" id="command" value="give_numeric(9)" size="50" validation="nonblank"> |
9 |
|
|
+ <field type="text" id="command" value="give_numeric(9)" size="50" validation="nonblank,nocoma"> |
10 |
|
|
<label>COMMAND_LABEL</label> |
11 |
|
|
</field> |
12 |
|
|
<subroutine src="change_cron_entry()" /> |
13 |
|
|
diff -Nur --no-dereference smeserver-crontab_manager-2.4.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/cronmanager.pm smeserver-crontab_manager-2.4/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/cronmanager.pm |
14 |
|
|
--- smeserver-crontab_manager-2.4.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/cronmanager.pm 2021-04-09 16:42:15.313000000 -0400 |
15 |
|
|
+++ smeserver-crontab_manager-2.4/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/cronmanager.pm 2021-04-09 16:45:24.762000000 -0400 |
16 |
|
|
@@ -31,6 +31,7 @@ |
17 |
|
|
use esmith::event; |
18 |
|
|
use esmith::AccountsDB; |
19 |
|
|
|
20 |
|
|
+use HTML::Entities; |
21 |
|
|
use File::Basename; |
22 |
|
|
use Carp; |
23 |
|
|
use Exporter; |
24 |
|
|
@@ -469,7 +470,7 @@ |
25 |
|
|
if ($fld_value eq '*') { |
26 |
|
|
$ret="" |
27 |
|
|
} else { |
28 |
|
|
- $ret=$fld_value; |
29 |
|
|
+ $ret=encode_entities( $fld_value); |
30 |
|
|
} |
31 |
|
|
return($ret); |
32 |
|
|
|
33 |
|
|
@@ -699,5 +700,19 @@ |
34 |
|
|
return(\%existingAccounts); |
35 |
|
|
} |
36 |
|
|
|
37 |
|
|
+=head2 nocoma |
38 |
|
|
+ |
39 |
|
|
+No coma authorized in this field, or it will break things |
40 |
|
|
+ |
41 |
|
|
+=cut |
42 |
|
|
+sub nocoma |
43 |
|
|
+{ |
44 |
|
|
+ my ($fm, $data) = @_; |
45 |
|
|
+ if ($data =~ /,/) |
46 |
|
|
+ { |
47 |
|
|
+ return "NO_COMA_ALLOWED"; |
48 |
|
|
+ } |
49 |
|
|
+ return "OK"; |
50 |
|
|
+} |
51 |
|
|
# never forget the final 1 ;-) |
52 |
|
|
1; |