scripts/policy/vyatta-check-as-prepend.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl
@as_list = split(' ',$ARGV[0]);
foreach $as (@as_list) {
    if ($as =~ /[^\d\s]/ || $as < 1 || $as > 4294967294) { exit 1;}
}
if (scalar(@as_list) > 24) {
    print "Error: max 24 as paths";
    exit 1;
}
exit 0;