#!/usr/bin/perl
use lib "/opt/vyatta/share/perl5/";
use VyattaConfig;
use VyattaMisc;
use NetAddr::IP;
use Getopt::Long;

GetOptions("check-prefix-boundry=s" => \$prefix,
           "not-exists=s"           => \$notexists,
	   "exists=s"		    => \$exists,
	   "check-ospf-area=s"      => \$area,
);

if (defined $prefix)    { check_prefix_boundry($prefix); }
if (defined $notexists) { check_not_exists($notexists); }
if (defined $exists)    { check_exists($exists); }
if (defined $area)      { check_ospf_area($area); }

exit 0;

sub check_prefix_boundry() {
  my $prefix = shift;
  my $net, $cidr;

  $net = new NetAddr::IP $prefix;
  $cidr = $net->network();
  if ( "$cidr" ne "$prefix" ) {
    print "Your prefix must fall on a natural network boundry.  Did you mean $cidr?\n";
    exit 1;
  }
  
  exit 0;
}

sub check_exists() {
  my $node = shift;
  my $config = new VyattaConfig;

  if ( $config->exists("$node") ) {
    exit 0;
  }

  exit 1;
}

sub check_not_exists() {
  my $node = shift;
  my $config = new VyattaConfig;

  if (! $config->exists("$node") ) {
    exit 0;
  }

  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 $octet ($1, $2, $3, $4) {
	    if (($octet < 0) || ($octet > 255)) { exit 1; }
	}
	exit 0
    }
    exit 1;
}