#!/usr/bin/perl -w

use strict;
use Fcntl ':flock';

sub add {
open FH, ">>$file" or die "Cant open config file $!\n";
  lock();
  print FH "zone \"$formdata{domain}\" in \{\n\ttype slave\;\n\tfile\"$client\/db.$formdata{domain}\"\;\n\tallow-query \{ any\; \}\; \}\;\n\n";
  unlock();
close FH;
}
sub lock {
  flock(FH,LOCK_EX);
}

sub unlock {
  flock(FH,LOCK_UN);
}