#------------------------------------------------------------------------
# Copyright (C) 2000 Michael Grubits.
#
# This file is part of DHCPStatus.
#
# DHCPStatus is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# DHCPStatus is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with DHCPStatus; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#------------------------------------------------------------------------

sub ip2num {
   my $ip = shift;
   my @hex = split('\.',$ip);
   my $num = $hex[0];
   foreach $i (1, 2, 3) {
      $num <<= 8;
      $num += $hex[$i];
   }
   return($num);
}

sub num2ip {
   my $num = shift;
   my @hex;
   $hex[3] = $num & 255;
   foreach my $i (2, 1, 0) {
      $num >>= 8;
      $hex[$i] = $num & 255;
   }
   my $ip = join(".",@hex);
   return($ip);
}

1;
