Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
      print FH "zone \"$formdata{domain}\" in \{\n\ttype slave\;\n\tfile\"
    +$client\/db.$formdata{domain}\"\;\n\tallow-query \{ any\; \}\; \}\;\n
    +\n";
      close FH;
    }
    
  2. or download this
    #!/usr/bin/perl -w
    
    ...
           die "Can't get lock\n" if ++$count > $timeout;
       }
    }