#!/usr/bin/perl -w

# Получаем и выводим все домены, принадлежащие аккаунту ftp0

use strict;

use dedikit;

# логинимся

my $DB_ID = YOUR_ID;
my $DB_LOGIN = 'admin';
my $DB_PASSWORD = YOUR_PASSWORD;

dedikit::login(id => $DB_ID, login => $DB_LOGIN, password => $DB_PASSWORD);
if($dedikit::ERROR) {
	print "Failed to login ($dedikit::ERROR)\n";
	exit 1;
}

# выбираем id аккаунта с логином ftp0
my @result = dedikit::select(table => 'accounts', 
  columns => [ 'id' ],
  where => [ { op => 'EQ', name => 'login', value => 'ftp0' } ]);
if($dedikit::ERROR) {
	print "Error occured ($dedikit::ERROR)\n";
	exit 1;
}

# так как поле login уникально, то возвращается максимум 1 строка
my $account_id = $result[0]->{id};

# проверяем, нашли ли мы нужное
if(!$account_id) {
	print "Account ftp0 not found in table accounts\n";
	exit 1;
}

# выбираем данные из таблицы hosts

@result = dedikit::select(table => 'hosts', 
  columns => [ 'account_id', 'name' ],
  where => [ { op => 'EQ', name => 'account_id', value => $account_id } ] );
if($dedikit::ERROR) {
	print "Error occured ($dedikit::ERROR)\n";
	exit 1;
}

for my $href (@result) {
	print "Our host $href->{name}\n";
}