1 #! /usr/bin/perl

     1 #! /usr/bin/perl

     2 

     2 

     3 use v5.10;

     3 use v5.10;

     4 use warnings;

     4 use warnings;

     5 use strict;

     5 use strict;

     7 use File::Temp;

     6 use File::Temp;

     8 use Getopt::Long;

     7 use Getopt::Long;

     9 use Pod::Usage;

     8 use Pod::Usage;

    10 use File::Basename;

     9 use File::Basename;

    11 use if $ENV{DEBUG} => "Smart::Comments";

    10 use if $ENV{DEBUG} => "Smart::Comments";

    21 sub create_zsk($@);

    20 sub create_zsk($@);

    22 sub post_create($@);

    21 sub post_create($@);

    23 

    22 

    24 MAIN: {

    23 MAIN: {

    25     ### reading config

    24     ### reading config

    27 

    26 

    28     my ($cmd, @zones) = read_argv($conf{master_dir});

    27     my ($cmd, @zones) = read_argv($conf{master_dir});

    29 

    28 

    30     given ($cmd) {

    29     given ($cmd) {

    31         when ("rm") { rm_keys($conf{master_dir}, @zones); exit }

    30         when ("rm") { rm_keys($conf{master_dir}, @zones); exit }