%
% check for proper ip address
%
% stack: ip-addr
%
false exch
length 1 gt
{
%
% check for 3 periods
%
 "." second Str.Found
"dotfnd" log)(
 3 eq
 {
  dup "192.168.1.1" eq$
  {
   pop
  }
  {
   dup "0.0.0.0" eq$
   {
    pop
   }
   {
    pop2nd true
   } ifelse
  } ifelse
 }
 {
%
% not three periods
%
  pop
 } ifelse
}
{
 pop
} ifelse
%
% stack: [ ip-addr ] proper-ip
%