#!/usr/bin/perl

use warnings;
use strict;
use DBI;
use DBD::Sybase;

my $servername = 'server.domain.de';
my $database = 'NIC';
my $user = "sascha";
my $password = "geheim";

my $dsn = "Class:DBI:Sybase:$database:$servername";


my $dbh = DBI->connect('dbi:Sybase:server=server.domain.de:4100', $user, $password);
unless ($dbh)   {       # Fehlerabfrage
        die "ERROR $dsn: ", DBI-> errstr(), "\n";
}                       # unless


my $sth = $dbh->prepare("
                        select c.names, c.address, c.city, c.postalCode, d.handle
                        FROM NIC..CONTACTS c, NIC..OBJECTLINKS o, NIC..DOMAINS d
                        where c.names like '%irgendwas%'
                        and c.postalCode like '%12345%'
                        and c.handle is null
                        and o.targetType = (select objectTypeId from NIC..OBJECTTYPES where objectType = 'Contact')
                        and o.targetId = c.contactId
                        and o.sourceType = (select objectTypeId from NIC..OBJECTTYPES where objectType = 'Domain')
                        and o.sourceId = d.domainId
                        and o.roleId = (select roleId from NIC..ROLES where text = 'owner')
          ");
          $sth->execute;


my $results = $sth->fetchall_arrayref;


$sth->finish();
$dbh->disconnect();