1#!/usr/local/bin/perl
2# Add some zone to the open list
3use strict;
4use warnings;
5our (%in);
6
7require './bind8-lib.pl';
8&ReadParse();
9my @heiropen = &get_heiropen();
10push(@heiropen, $in{'what'});
11&save_heiropen(\@heiropen);
12&redirect("index.cgi#$in{'what'}");
13
14