167         print TO <FROM>;

   167         print TO <FROM>;

   168         close(FROM);

   168         close(FROM);

   169     }

   169     }

   170     close(TO);

   170     close(TO);

   171 

   171 

   173     print "** execute dnssec-killkey for keyrollover **\n";

   173     print "** execute dnssec-killkey for keyrollover **\n";

   174     system "$dnssec_killkey";

   174     system "$dnssec_killkey";

   175     die "$dnssec_killkey not found ($!)" if $? == -1;

   175     die "$dnssec_killkey not found ($!)" if $? == -1;

   176     exit 1 if $?;

   176     exit 1 if $?;

   177     

   177     

   179     print "** execute dnssec-creatkey for keyrollover **\n";

   179     print "** execute dnssec-creatkey for keyrollover **\n";

   180     system "$dnssec_creatkey";

   180     system "$dnssec_creatkey";

   181     die "$dnssec_creatkey not found ($!)" if $? == -1;

   181     die "$dnssec_creatkey not found ($!)" if $? == -1;

   182     exit 1 if $?;

   188     exit 1 if $?;

   183 

   189 

   184     # update-serial

   190     # update-serial

   185     print "** update serial **\n";

   191     print "** update serial **\n";

   186     foreach ( $dd, $mm ) { s/^\d$/0$&/; }

   192     foreach ( $dd, $mm ) { s/^\d$/0$&/; }