set_serverid {
    my $self = shift;
    if (@_) {
        $self->{SERVER} = shift;
    }
    else {
        die "No argument passed to set_serverid!\n";
    }
}

get_serverid {
    my $self = shift;
    $self->{SERVER};
}

##</code><code>##

set_serverid {
    my ($self,$id) = @_;
    if (defined $id) {
        die "Invalid value for id '$id' in set_serverid!\n"
            unless $id > 0 and $id < 255;
        $self->{SERVER} = $id;
    }
    else {
        die "No argument passed to set_serverid!\n";
    }
}

##</code><code>##

sub get_serverid  { $_[0]->{SERVER} }
sub set_serverid  { $_[0]->{SERVER} = $_[1] }

sub get_requestip { $_[0]->{REQIP} }
sub set_requestip { $_[0]->{REQIP} = $_[1] }