Koozali.org: home of the SME Server

Help Perl

Offline Smallbox

  • 16
  • +0/-0
Help Perl
« on: October 03, 2013, 11:42:30 AM »
I wrote perl script which create new domain

#! /bin/usr/perl
use esmith::DomainsDB;
$name = "standards.styleok.ru";
my $db = esmith::DomainsDB->open or die "Couldn't open AccountsDB\n";
my $standard = $db->get("standard.styleok.ru");
my $new_domain = $db->get($name) || $db->new_record($name, { type => "domain" });
$new_domain->merge_props($standard->props);
print $new_domain->show();

but I don't know how create hosts for this domain.

Please help me.