summaryrefslogtreecommitdiff
path: root/scripts/policy/vyatta-check-as-prepend.pl
blob: 0da3d8d65af585ebe92247514e5554e1dba685dc (plain)
1
2
3
4
5
6
#!/usr/bin/perl
@as_list = split(' ',$ARGV[0]);
foreach $as (@as_list) {
    if ($as =~ /[^\d\s]/ || $as < 1 || $as > 65535) { exit 1;}
}
exit 0;