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";
    }
}