sub build_url_index {
# --------------------------------------------------------


    my $time   = time();
    my @values = ();
    my $count  = 0;
    
    open (DB,  "<$db_file_name") or &cgierr("Kann die Datei bzw. Verzeichnis nicht öffnen: $db_file_name.\nGrund: $!");
    open (URL, ">$db_url_name")  or &cgierr("Kann die Datei bzw. Verzeichnis nicht öffnen: $db_url_name. Grund: $!");
    if ($db_use_flock) { flock (URL, 2) or &cgierr ("Allgemeiner Fehler. Grund: $!"); }
    LINE: while (<DB>) {
        /^#/      and next LINE;
        /^\s*$/   and next LINE;
        chomp;
        @values = &split_decode($_);
        print URL "$values[$db_key_pos]$db_delim$values[$db_url]\n";
        $count++;
    }
    close DB;
    close URL;


    open (CNT, ">$db_hits_path/index.count") or &cgierr("Kann die Datei bzw. Verzeichnis nicht öffnen: '$db_hits_path/index.count'. Grund: $!");
    if ($db_use_flock) { flock (CNT, 2) or &cgierr ("Kann die Datei bzw. Verzeichnis nicht öffnen: $db_hits_path/index.count. Grund: $!"); }
    print CNT $count;
    close CNT;
}