sub suck
{
    # read any message from the LCDd,
    # discard listen / ignore messages and return
    # value indicating a successful or failed operation


    my $sock=shift;
    my $message="";
    my $answer="";
    SUCKLOOP:
    # We need a point to jump back when we recieve a listen/ignore message
    recv ( $sock,$message,512,0); # 512 Bytes enough?
    chomp ($message);
    if ( index($message,"listen") >=0 ) { debug ("Discarded listen message ($message)");goto SUCKLOOP;}
    if ( index($message,"ignore") >=0 ) { debug ("Discarded ignore message ($message)");goto SUCKLOOP;}
    if ( index($message,"connect") >=0 ) { debug ("successfully registered as a client ($message)");return 1;}
    if ( index($message,"huh?") >=0 ) { debug("error ($message)");return $message;}
    if ( index($message,"success") >=0 ) { debug("success");return 1;}


    return 1;
}