cidr

i didn't realize that anybody else was working on an IP address
data type or i'd've posted this six months ago when i first wrote
it.  it lacks only the stuff needed to make it usable as a UNIQUE
KEY.  it depends on BIND-8's libraries.

#!/bin/sh
# This is a shell archive (produced by GNU sharutils 4.2).
# To extract the files from this archive, save it to some FILE, remove
# everything before the `!/bin/sh' line above, then type `sh FILE'.
#
# Made on 1998-07-19 12:25 PDT by <vixie@bb.rc.vix.com>.
# Source directory was `/tmp_mnt/mb/mb0/user/vixie/src/postgres-cidrtype'.
#
# Existing files will *not* be overwritten unless `-c' is specified.
#
# This shar contains:
# length mode       name
# ------ ---------- ------------------------------------------
#    671 -r--r--r-- Makefile
#   4572 -r--r--r-- cidr.c
#   2877 -r--r--r-- cidr.source
#   3068 -r--r--r-- cidr.sql
#
save_IFS="${IFS}"
IFS="${IFS}:"
gettext_dir=FAILED
locale_dir=FAILED
first_param="$1"
for dir in $PATH
do
  if test "$gettext_dir" = FAILED && test -f $dir/gettext \
     && ($dir/gettext --version >/dev/null 2>&1)
  then
    set `$dir/gettext --version 2>&1`
    if test "$3" = GNU
    then
      gettext_dir=$dir
    fi
  fi
  if test "$locale_dir" = FAILED && test -f $dir/shar \
     && ($dir/shar --print-text-domain-dir >/dev/null 2>&1)
  then
    locale_dir=`$dir/shar --print-text-domain-dir`
  fi
done
IFS="$save_IFS"
if test "$locale_dir" = FAILED || test "$gettext_dir" = FAILED
then
  echo=echo
else
  TEXTDOMAINDIR=$locale_dir
  export TEXTDOMAINDIR
  TEXTDOMAIN=sharutils
  export TEXTDOMAIN
  echo="$gettext_dir/gettext -s"
fi
touch -am 1231235999 $$.touch >/dev/null 2>&1
if test ! -f 1231235999 && test -f $$.touch; then
  shar_touch=touch
else
  shar_touch=:
  echo
  $echo 'WARNING: not restoring timestamps.  Consider getting and'
  $echo "installing GNU \`touch', distributed in GNU File Utilities..."
  echo
fi
rm -f 1231235999 $$.touch
#
if mkdir _sh17086; then
  $echo 'x -' 'creating lock directory'
else
  $echo 'failed to create lock directory'
  exit 1
fi
# ============= Makefile ==============
if test -f 'Makefile' && test "$first_param" != -c; then
  $echo 'x -' SKIPPING 'Makefile' '(file already exists)'
else
  $echo 'x -' extracting 'Makefile' '(text)'
  sed 's/^X//' << 'SHAR_EOF' > 'Makefile' &&
ifndef PGDIR
PGDIR= /db0/local/postgresql-6.2
endif
X
SRCDIR= $(PGDIR)/src
X
include $(SRCDIR)/Makefile.global
X
CFLAGS+= -I$(PGDIR)/include -I$(PGDIR)/src/include -I$(LIBPQDIR)
CFLAGS+= -I/usr/local/bind/include
X
CLIBS+= -L/usr/local/bind/lib -lbind
X
TARGETS= cidr.sql cidr${DLSUFFIX}
X
DLSUFFIX=.so
X
all:    $(TARGETS)
X
cidr${DLSUFFIX}: cidr.o
X    shlicc2 -r -o cidr${DLSUFFIX} cidr.o -L/usr/local/bind/lib -lbind
X
install:
X    $(MAKE) all
X    cp -p cidr$(DLSUFFIX) $(LIBDIR)
X
%.sql: %.source
X    rm -f $@; C=`pwd`; O=$$C; \
X    if [ -d ${LIBDIR} ]; then O=${LIBDIR}; fi; \
X    sed -e "s:_OBJWD_:$$O:g" \
X        -e "s:_DLSUFFIX_:$(DLSUFFIX):g" \
X        < $< > $@
X
clean:
X    rm -f $(TARGETS) cidr.o
X
SHAR_EOF
  $shar_touch -am 1108213897 'Makefile' &&
  chmod 0444 'Makefile' ||
  $echo 'restore of' 'Makefile' 'failed'
  if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
    md5sum -c << SHAR_EOF >/dev/null 2>&1 \
    || $echo 'Makefile:' 'MD5 check failed'
ecb325bcab4a92f4fd5657cdc29a9f63  Makefile
SHAR_EOF
  else
    shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'Makefile'`"
    test 671 -eq "$shar_count" ||
    $echo 'Makefile:' 'original size' '671,' 'current size' "$shar_count!"
  fi
fi
# ============= cidr.c ==============
if test -f 'cidr.c' && test "$first_param" != -c; then
  $echo 'x -' SKIPPING 'cidr.c' '(file already exists)'
else
  $echo 'x -' extracting 'cidr.c' '(text)'
  sed 's/^X//' << 'SHAR_EOF' > 'cidr.c' &&
/*
X * cidr.c - Internal Classless InterDomain Routing entities for PostGreSQL
X *
X * Paul Vixie <paul@vix.com>, Internet Software Consortium, October 1997.
X *
X * $Id: cidr.c,v 1.4 1998/07/15 19:36:56 vixie Exp $
X */
X
/* Import. */
X
#include <sys/types.h>
#include <sys/socket.h>
X
#include <ctype.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
X
#include <netinet/in.h>
#include <arpa/inet.h>
#include <isc/misc.h>
X
#include "postgres.h"
#include "utils/palloc.h"
X
/* Define. */
X
#define cidr_min(a, b) (((a) < (b)) ? (a) : (b))
X
typedef struct {
X    unsigned char    family;
X    unsigned char    bits;
X    unsigned char    bytes[1];    /* This is really an open array. */
} cidr;
X
#define    cidr_addrsize(fam) ((fam) == AF_INET ? 4 : -1)
#define cidr_size(addrsize) (sizeof(cidr) - sizeof(unsigned char) + addrsize)
X
/* Export. */
X
cidr *    cidr_in(const char *);
char *    cidr_out(const cidr *);
X
bool    cidr_eq(const cidr *, const cidr *);
bool    cidr_ne(const cidr *, const cidr *);
bool    cidr_lt(const cidr *, const cidr *);
bool    cidr_gt(const cidr *, const cidr *);
bool    cidr_le(const cidr *, const cidr *);
bool    cidr_ge(const cidr *, const cidr *);
bool    cidr_sub(const cidr *, const cidr *);
bool    cidr_subeq(const cidr *, const cidr *);
bool    cidr_sup(const cidr *, const cidr *);
bool    cidr_supeq(const cidr *, const cidr *);
int4    cidr_span(const cidr *, const cidr *);
int4    cidr_cmp(const cidr *, const cidr *);
X
/* Functions. */
X
cidr *
cidr_in(const char *src) {
X    int bits, bytes;
X    cidr *dst;
X
X    bytes = cidr_addrsize(AF_INET);
X    if (bytes == -1) {
X        elog(WARN, "Programming error in cidr_in()");
X        return (NULL);
X    }
X    dst = palloc(cidr_size(bytes));
X    if (dst == NULL) {
X        elog(WARN, "Unable to allocate memory in cidr_in()");
X        return (NULL);
X    }
X    bits = inet_net_pton(AF_INET, src, &dst->bytes, bytes);
X    if (bits < 0 || bits > 32) {
X        elog(WARN, "Bad CIDR expression (%s)", src);
X        pfree(dst);
X        return (NULL);
X    }
X    dst->bits = (unsigned char)bits;
X    return (dst);
}
X
char *
cidr_out(const cidr *src) {
X    char *dst, tmp[sizeof "255.255.255.255/32"];
X
X    if (inet_net_ntop(AF_INET, &src->bytes, src->bits,
X              tmp, sizeof tmp) < 0) {
X        elog(WARN, "Unable to format CIDR (%s)", strerror(errno));
X        pfree(dst);
X        return (NULL);
X    }
X    dst = palloc(strlen(tmp) + 1);
X    if (dst == NULL) {
X        elog(WARN, "Unable to allocate memory in cidr_out()");
X        return (NULL);
X    }
X    strcpy(dst, tmp);
X    return (dst);
}
X
/* Equality. */
X
bool
cidr_eq(const cidr *lhs, const cidr *rhs) {
X    return (lhs->bits == rhs->bits &&
X        bitncmp(lhs->bytes, rhs->bytes, lhs->bits) == 0);
}
X
bool
cidr_ne(const cidr *lhs, const cidr *rhs) {
X    return (!cidr_eq(lhs, rhs));
}
X
/* Ordering. */
X
bool
cidr_lt(const cidr *lhs, const cidr *rhs) {
X    int x = bitncmp(lhs->bytes, rhs->bytes,
X            cidr_min(lhs->bits, rhs->bits));
X
X    return (x < 0 || (x == 0 && lhs->bits < rhs->bits));
}
X
bool
cidr_le(const cidr *lhs, const cidr *rhs) {
X    return (cidr_lt(lhs, rhs) || cidr_eq(lhs, rhs));
}
X
bool
cidr_gt(const cidr *lhs, const cidr *rhs) {
X    int x = bitncmp(lhs->bytes, rhs->bytes,
X            cidr_min(lhs->bits, rhs->bits));
X
X    return (x > 0 || (x == 0 && lhs->bits > rhs->bits));
}
X
bool
cidr_ge(const cidr *lhs, const cidr *rhs) {
X    return (cidr_gt(lhs, rhs) || cidr_eq(lhs, rhs));
}
X
/* Subnetting. */
X
bool
cidr_sub(const cidr *lhs, const cidr *rhs) {
X    return (lhs->bits > rhs->bits &&
X        bitncmp(lhs->bytes, rhs->bytes, rhs->bits) == 0);
}
X
bool
cidr_subeq(const cidr *lhs, const cidr *rhs) {
X    return (lhs->bits >= rhs->bits &&
X        bitncmp(lhs->bytes, rhs->bytes, rhs->bits) == 0);
}
X
/* Supernetting. */
X
bool
cidr_sup(const cidr *lhs, const cidr *rhs) {
X    return (lhs->bits < rhs->bits &&
X        bitncmp(lhs->bytes, rhs->bytes, lhs->bits) == 0);
}
X
bool
cidr_supeq(const cidr *lhs, const cidr *rhs) {
X    return (lhs->bits <= rhs->bits &&
X        bitncmp(lhs->bytes, rhs->bytes, lhs->bits) == 0);
}
X
int4
cidr_span(const cidr *lhs, const cidr *rhs) {
X    const u_char *l = lhs->bytes, *r = rhs->bytes;
X    int n = cidr_min(lhs->bits, rhs->bits);
X    int b = n >> 3;
X    int4 result = 0;
X    u_int lb, rb;
X
X    /* Find out how many full octets match. */
X    while (b > 0 && *l == *r)
X        b--, l++, r++, result += 8;
X    /* Find out how many bits to check. */
X    if (b == 0)
X        b = n & 07;
X    else
X        b = 8;
X    /* Find out how many bits match. */
X    lb = *l, rb = *r;
X    while (b > 0 && (lb & 0x80) == (rb & 0x80))
X        b--, lb <<= 1, rb <<= 1, result++;
X    return (result);
}
X
int4
cidr_cmp(const cidr *lhs, const cidr *rhs) {
X    int x = bitncmp(lhs->bytes, rhs->bytes,
X            cidr_min(lhs->bits, rhs->bits));
X
X    if (x < 0)
X        return (-1);
X    if (x > 0)
X        return (1);
X    return (0);
}
SHAR_EOF
  $shar_touch -am 0715123698 'cidr.c' &&
  chmod 0444 'cidr.c' ||
  $echo 'restore of' 'cidr.c' 'failed'
  if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
    md5sum -c << SHAR_EOF >/dev/null 2>&1 \
    || $echo 'cidr.c:' 'MD5 check failed'
f8fd720dbffa7ab05d594c9953b75170  cidr.c
SHAR_EOF
  else
    shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'cidr.c'`"
    test 4572 -eq "$shar_count" ||
    $echo 'cidr.c:' 'original size' '4572,' 'current size' "$shar_count!"
  fi
fi
# ============= cidr.source ==============
if test -f 'cidr.source' && test "$first_param" != -c; then
  $echo 'x -' SKIPPING 'cidr.source' '(file already exists)'
else
  $echo 'x -' extracting 'cidr.source' '(text)'
  sed 's/^X//' << 'SHAR_EOF' > 'cidr.source' &&
---------------------------------------------------------------------------
--
-- cidr.sql-
--    This file defines operators Classless InterDomain Routing entities.
--
---------------------------------------------------------------------------
X
LOAD '_OBJWD_/cidr_DLSUFFIX_';
X
CREATE FUNCTION cidr_in(opaque)
X    RETURNS cidr
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE FUNCTION cidr_out(opaque)
X    RETURNS opaque
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE TYPE cidr (
X    internallength = 6,
X    input = cidr_in,
X    output = cidr_out
);
X
CREATE FUNCTION cidr_cmp(cidr, cidr)
X    RETURNS int4
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
-----------------------------
-- Create operators
-----------------------------
X
-- equality (=)
X
CREATE FUNCTION cidr_eq(cidr, cidr)
X    RETURNS bool
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE OPERATOR = (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_eq,
X    commutator = =
);
X
-- inequality (<>)
X
CREATE FUNCTION cidr_ne(cidr, cidr)
X    RETURNS bool
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE OPERATOR <> (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_ne,
X    commutator = <>
);
X
-- less (<, <=)
X
CREATE FUNCTION cidr_lt(cidr, cidr)
X    RETURNS bool
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE OPERATOR < (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_lt
);
X
CREATE FUNCTION cidr_le(cidr, cidr)
X    RETURNS bool
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE OPERATOR <= (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_le
);
X
-- greater (>, >=)
X
CREATE FUNCTION cidr_gt(cidr, cidr)
X    RETURNS bool
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE OPERATOR > (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_gt
);
X
CREATE FUNCTION cidr_ge(cidr, cidr)
X    RETURNS bool
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE OPERATOR >= (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_ge
);
X
-- subnet (<<, <<=)
X
CREATE FUNCTION cidr_sub(cidr, cidr)
X    RETURNS bool
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE OPERATOR << (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_sub
);
X
CREATE FUNCTION cidr_subeq(cidr, cidr)
X    RETURNS bool
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE OPERATOR <<= (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_subeq
);
X
-- supernet (>>, >>=)
X
CREATE FUNCTION cidr_sup(cidr, cidr)
X    RETURNS bool
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE OPERATOR >> (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_sup
);
X
CREATE FUNCTION cidr_supeq(cidr, cidr)
X    RETURNS bool
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE OPERATOR >>= (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_supeq
);
X
-- spanning (length of prefix match)
X
CREATE FUNCTION cidr_span(cidr, cidr)
X    RETURNS int4
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
X
CREATE FUNCTION cidr_masklen(cidr)
X    RETURNS int2
X    AS '_OBJWD_/cidr_DLSUFFIX_'
X    LANGUAGE 'c';
SHAR_EOF
  $shar_touch -am 0719122498 'cidr.source' &&
  chmod 0444 'cidr.source' ||
  $echo 'restore of' 'cidr.source' 'failed'
  if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
    md5sum -c << SHAR_EOF >/dev/null 2>&1 \
    || $echo 'cidr.source:' 'MD5 check failed'
dca27b8d433d030e5049bb04ad15df03  cidr.source
SHAR_EOF
  else
    shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'cidr.source'`"
    test 2877 -eq "$shar_count" ||
    $echo 'cidr.source:' 'original size' '2877,' 'current size' "$shar_count!"
  fi
fi
# ============= cidr.sql ==============
if test -f 'cidr.sql' && test "$first_param" != -c; then
  $echo 'x -' SKIPPING 'cidr.sql' '(file already exists)'
else
  $echo 'x -' extracting 'cidr.sql' '(text)'
  sed 's/^X//' << 'SHAR_EOF' > 'cidr.sql' &&
---------------------------------------------------------------------------
--
-- cidr.sql-
--    This file defines operators Classless InterDomain Routing entities.
--
---------------------------------------------------------------------------
X
LOAD '/var/home/vixie/postgres-cidrtype/cidr.so';
X
CREATE FUNCTION cidr_in(opaque)
X    RETURNS cidr
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE FUNCTION cidr_out(opaque)
X    RETURNS opaque
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE TYPE cidr (
X    internallength = 5,
X    input = cidr_in,
X    output = cidr_out
);
X
CREATE FUNCTION cidr_cmp(cidr, cidr)
X    RETURNS int4
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
-----------------------------
-- Create operators
-----------------------------
X
-- equality (=)
X
CREATE FUNCTION cidr_eq(cidr, cidr)
X    RETURNS bool
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE OPERATOR = (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_eq,
X    commutator = =
);
X
-- inequality (<>)
X
CREATE FUNCTION cidr_ne(cidr, cidr)
X    RETURNS bool
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE OPERATOR <> (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_ne,
X    commutator = <>
);
X
-- less (<, <=)
X
CREATE FUNCTION cidr_lt(cidr, cidr)
X    RETURNS bool
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE OPERATOR < (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_lt
);
X
CREATE FUNCTION cidr_le(cidr, cidr)
X    RETURNS bool
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE OPERATOR <= (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_le
);
X
-- greater (>, >=)
X
CREATE FUNCTION cidr_gt(cidr, cidr)
X    RETURNS bool
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE OPERATOR > (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_gt
);
X
CREATE FUNCTION cidr_ge(cidr, cidr)
X    RETURNS bool
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE OPERATOR >= (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_ge
);
X
-- subnet (<<, <<=)
X
CREATE FUNCTION cidr_sub(cidr, cidr)
X    RETURNS bool
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE OPERATOR << (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_sub
);
X
CREATE FUNCTION cidr_subeq(cidr, cidr)
X    RETURNS bool
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE OPERATOR <<= (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_subeq
);
X
-- supernet (>>, >>=)
X
CREATE FUNCTION cidr_sup(cidr, cidr)
X    RETURNS bool
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE OPERATOR >> (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_sup
);
X
CREATE FUNCTION cidr_supeq(cidr, cidr)
X    RETURNS bool
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
X
CREATE OPERATOR >>= (
X    leftarg = cidr,
X    rightarg = cidr,
X    procedure = cidr_supeq
);
X
-- spanning (length of prefix match)
X
CREATE FUNCTION cidr_span(cidr, cidr)
X    RETURNS int4
X    AS '/var/home/vixie/postgres-cidrtype/cidr.so'
X    LANGUAGE 'c';
SHAR_EOF
  $shar_touch -am 1201183797 'cidr.sql' &&
  chmod 0444 'cidr.sql' ||
  $echo 'restore of' 'cidr.sql' 'failed'
  if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
    md5sum -c << SHAR_EOF >/dev/null 2>&1 \
    || $echo 'cidr.sql:' 'MD5 check failed'
097a4f0f2b5915fc5478976233c714f3  cidr.sql
SHAR_EOF
  else
    shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'cidr.sql'`"
    test 3068 -eq "$shar_count" ||
    $echo 'cidr.sql:' 'original size' '3068,' 'current size' "$shar_count!"
  fi
fi
rm -fr _sh17086
exit 0