update-serial.pl
branchhs12
changeset 53 291588cb5e84
parent 50 3b469e9bda9e
parent 52 53c95f2ff0ac
child 55 ee22798cf2c3
equal deleted inserted replaced
50:3b469e9bda9e 53:291588cb5e84
    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);