
###################################################################################
#
#   Embperl - Copyright (c) 1997-2002 Gerald Richter / ecos gmbh   www.ecos.de
#
#   You may distribute under the terms of either the GNU General Public
#   License or the Artistic License, as specified in the Perl README file.
#
#   THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
#   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
#   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
###################################################################################


package Embperl::Form::Validate::IPAddr_orRange ;

use base qw(Embperl::Form::Validate::Default);

my %error_messages =
(
    de =>
    {
	validate_ipaddr_or_range => 'Feld %0: "%1" ist kein gültiger IP-Adressbereich. Geben Sie die IP-Adress Bereich in der Form nnn.nnn.nnn.nnn-nnn oder nnn.nnn.nnn.nnn ein.',
    },

    en =>
    {
	validate_ipaddr_or_range => 'Field %0: "%1" isn\\\'t a valid ip-address-range. Please enter the ip-address range as nnn.nnn.nnn.nnn-nnn or nnn.nnn.nnn.nnn.',
    }
 );

# --------------------------------------------------------------

sub getmsg
    {
    my ($self, $id, $language, $default_language) = @_ ;

    return $error_messages{$language}{$id} ||
           $error_messages{$default_language}{$id} ||
           $self -> SUPER::getmsg ($id, $language, $default_language) ;
    }


# --------------------------------------------------------------

sub validate
    {
    my ($self, $key, $value, $fdat, $pref) = @_ ;

    if ($value =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)-(\d+)$/)
	    {
	    if ($1 < 0 || $1 > 255 ||
	        $2 < 0 || $2 > 255 ||
	        $3 < 0 || $3 > 255 ||
	        $4 < 0 || $4 > 255 ||
	        $5 < 0 || $5 > 255 ||
            $5 <= $4)
	        {
            return ['validate_ipaddr_or_range', $value] ;
	        }
	    return undef ;
	    }
    elsif ($value =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/)
	    {
	    if ($1 < 0 || $1 > 255 ||
	        $2 < 0 || $2 > 255 ||
	        $3 < 0 || $3 > 255 ||
	        $4 < 0 || $4 > 255)
	        {
            return ['validate_ipaddr_or_range', $value] ;
	        }
	    return undef ;
	    }

    return ['validate_ipaddr_or_range', $value] ;
    }

# --------------------------------------------------------------

sub getscript_validate
    {
    my ($self, $arg, $pref) = @_ ;

    return ('obj.value.search(/(^\d+\.\d+.\d+.\d+\-\d+$)|(^\d+\.\d+.\d+.\d+$)/) >= 0', ['validate_ipaddr_or_range', "'+obj.value+'"]) ;
    }


1;
