equal
deleted
inserted
replaced
80 server_reload; # server neu laden |
80 server_reload; # server neu laden |
81 |
81 |
82 } |
82 } |
83 |
83 |
84 sub uniq(@) { |
84 sub uniq(@) { |
|
85 # remove duplicate entries |
85 my %all; |
86 my %all; |
86 @all{@_} = (); |
87 @all{@_} = (); |
87 keys %all; |
88 keys %all; |
88 } |
89 } |
89 |
90 |
106 |
107 |
107 return %config; |
108 return %config; |
108 } |
109 } |
109 |
110 |
110 sub add_argv { |
111 sub add_argv { |
111 |
112 # checked whether the zones in argv are managed zones and |
112 # prueft ob zonen aus ARGV verwaltete zonen sind |
113 #inserted them into the list new_serial |
113 # und fuegt sie, falls ja in die liste @new_serial ein |
|
114 our @new_serial; |
114 our @new_serial; |
115 our $master_dir; |
115 our $master_dir; |
116 my $zone; |
116 my $zone; |
117 |
117 |
118 for (@ARGV) { |
118 for (@ARGV) { |
146 } |
146 } |
147 |
147 |
148 } |
148 } |
149 |
149 |
150 sub sign_end { |
150 sub sign_end { |
151 our $sign_alert_time; # die zeit zwischen dem ende und der neuen |
151 our $sign_alert_time; # the time between the end and the new signing |
152 # signierung (siehe externe konfiguration) |
152 # (see external configuration) |
153 our $master_dir; |
153 our $master_dir; |
154 our @new_serial; |
154 our @new_serial; |
155 |
155 |
156 # erzeugt $time (die zeit ab der neu signiert werden soll) |
156 # erzeugt $time (die zeit ab der neu signiert werden soll) |
157 my $unixtime = time + (3600 * $sign_alert_time); |
157 my $unixtime = time + (3600 * $sign_alert_time); |