sub add_entry {
    $log->print("Entering add_entry.", 3);
    my ($md5, $method, $key, $exists, $children) = @_;
    my ($parent, $parentmd5, $parentchildren);

    unless ( $children ) { $children = ''; }

    $urldb->db_put($md5, (join(' ', $key, $exists, $children)));

    # It's an old entry--it already has parents.  Can leave.
    if ( $children =~ ':' ) {
        return;
    }

    $parent = find_parent($key);

    # No more parents, or can't parent ourselves...
    if ( $parent eq "http:/" or $parent eq $key ) {
        return;
    }

    $parentmd5 = uc(md5_hex($method, $parent));

    if ( $urldb->db_get($parentmd5, $object)==0 ) {
        $parentchildren = (split (' ', $object))[2];
    }
    else {
        $parentchildren = '';
    }

    unless ( $md5 ) { $md5 = ''; $log->print("What, I say, what?!", 3); }
    # Is this child already listed?
    unless ( $parentchildren =~ $md5 ) {
        if ( $parentchildren ) {
            $log->print("Inserting parent: $parent with children: $parentchildren:$md5", 3);
            add_entry($parentmd5, $method, $parent, 0, "$parentchildren:$md5");
        }
        else {
            $log->print("Inserting parent: $parent with child: $md5", 3);
            add_entry($parentmd5, $method, $parent, 0, $md5);
        }
    }
    return;
}