blob: c59bc87e6678a9d8bf23ede7accff704d928cc57 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/usr/bin/perl
use strict;
use lib "/opt/vyatta/share/perl5/";
use Vyatta::Config;
use Vyatta::Misc;
use NetAddr::IP;
use Getopt::Long;
GetOptions("check-prefix-boundry=s" => sub { check_prefix_boundry( $_[1] ); },
"not-exists=s" => sub { check_not_exists($_[1]); },
"exists=s" => sub { check_exists($_[1]); },
"check-ospf-area=s" => sub { check_ospf_area($_[1]); },
);
exit 0;
sub check_prefix_boundry {
my $prefix = shift;
my ($net, $network, $cidr);
$net = new NetAddr::IP $prefix;
$network = $net->network()->cidr();
$cidr = $net->cidr();
die "Your prefix must fall on a natural network boundry. ",
"Did you mean $network?\n"
if ($cidr ne $network);
exit 0;
}
sub check_exists {
my $node = shift;
my $config = new Vyatta::Config;
exit 0 if $config->exists($node);
exit 1;
}
sub check_not_exists {
my $node = shift;
my $config = new Vyatta::Config;
exit 0 if ! $config->exists($node);
exit 1;
}
sub check_ospf_area {
my $area = shift;
#
# allow both decimal or dotted decimal
#
if ($area =~ m/^\d+$/) {
if ($area >= 0 && $area <= 4294967295) {
exit 0;
}
}
if ($area =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {
foreach my $octet ($1, $2, $3, $4) {
if (($octet < 0) || ($octet > 255)) { exit 1; }
}
exit 0
}
exit 1;
}
|
