/[smeserver]/rpms/e-smith-base/sme10/e-smith-base-5.8.0-bz6536-bz10974-validate_subnet.patch
ViewVC logotype

Annotation of /rpms/e-smith-base/sme10/e-smith-base-5.8.0-bz6536-bz10974-validate_subnet.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Sun Jun 28 02:45:31 2020 UTC (4 years, 4 months ago) by jpp
Branch: MAIN
CVS Tags: e-smith-base-5_8_0-46_el7_sme
* Sat Jun 27 2020 Jean-Philipe Pialasse <tests@pialasse.com> 5.8.0-46.sme
- validate submask on remote access panel [SME: 6536]
  accept netmask bit and convert it
- validate subnet mask on local network panel [SME: 10974]
  accept netmask bit and convert it

1 jpp 1.1 diff -Nur e-smith-base-5.8.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/localnetworks.pm e-smith-base-5.8.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/localnetworks.pm
2     --- e-smith-base-5.8.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/localnetworks.pm 2006-03-14 11:20:43.000000000 -0500
3     +++ e-smith-base-5.8.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/localnetworks.pm 2020-06-27 22:39:20.952000000 -0400
4     @@ -18,6 +18,7 @@
5     use Exporter;
6     use Carp;
7     use Net::IPv4Addr;
8     +use Net::Netmask;
9    
10     our @ISA = qw(esmith::FormMagick Exporter);
11    
12     @@ -287,14 +288,14 @@
13     sub subnet_mask
14     {
15     my ( $fm, $data ) = @_;
16     - if ( CGI::FormMagick::Validator::ip_number( $fm, $data ) eq "OK" )
17     + # we test for a valid mask or bit mask
18     + my $tip="192.168.50.1";
19     + my $block = new Net::Netmask("$tip/$data") or return "INVALID_SUBNET_MASK";
20     + if ($block->{'ERROR'} eq "" && ($block->mask() eq "$data" || $block->bits() eq "$data"))
21     {
22     return "OK";
23     }
24     - else
25     - {
26     - return "INVALID_SUBNET_MASK";
27     - }
28     + return "INVALID_SUBNET_MASK";
29     }
30    
31     =head1 ADDING AND REMOVING NETWORKS
32     @@ -308,6 +309,10 @@
33     my ($fm) = @_;
34     my $networkAddress = $fm->{cgi}->param('networkAddress');
35     my $networkMask = $fm->{cgi}->param('networkMask');
36     + # we transform bit mask to regular mask
37     + my $block = new Net::Netmask("$networkAddress/$networkMask");
38     + $networkMask = $block->mask();
39     +
40     my $networkRouter = $fm->{cgi}->param('networkRouter');
41    
42     my $network_db = esmith::NetworksDB->open()
43     diff -Nur e-smith-base-5.8.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/remoteaccess.pm e-smith-base-5.8.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/remoteaccess.pm
44     --- e-smith-base-5.8.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/remoteaccess.pm 2016-02-04 18:14:13.000000000 -0500
45     +++ e-smith-base-5.8.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/remoteaccess.pm 2020-06-27 22:39:20.948000000 -0400
46     @@ -32,6 +32,7 @@
47     use Exporter;
48     use Carp;
49     use Socket qw( inet_aton );
50     +use Net::Netmask;
51    
52     our @ISA = qw(esmith::FormMagick Exporter);
53    
54     @@ -450,8 +451,15 @@
55     sub subnet_mask_or_blank
56     {
57     my ($self, $mask) = @_;
58     -
59     - if ($self->ip_number_or_blank($mask) eq 'OK')
60     + if (!defined($mask) || $mask eq "")
61     + {
62     + return "OK";
63     + }
64     + chomp $mask ;
65     + # we test for a valid mask or bit mask
66     + my $tip="192.168.50.1";
67     + my $block = new Net::Netmask("$tip/$mask") or return "INVALID_SUBNET_MASK";
68     + if ($block->{'ERROR'} eq "" && ($block->mask() eq "$mask" || $block->bits() eq "$mask"))
69     {
70     return "OK";
71     }
72     @@ -479,6 +487,10 @@
73     my $net = $q->param('validFromNetwork');
74     my $mask = $q->param('validFromMask');
75    
76     + # we transform bit mask to regular mask
77     + my $block = new Net::Netmask("$net/$mask");
78     + $mask = $block->mask();
79     +
80     # do nothing if no network was added
81     return 1 unless ($net && $mask);
82    

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed