<commit_before>
proc updateCallsAndSummits {} {
    
    global cwd updated
    
    .cfg.ok configure -state disabled
    .cfg.cancel configure -state disabled
    .cfg.update configure -state disabled
    .cfg.call configure -state disabled
    .cfg.okrprt configure -state disabled
    
    if  {[catch {
        set t [::http::geturl http://sota.hb9tvk.org/sotalog/summits.thm -timeout 30000]
        set su [::http::data $t]
        ::http::cleanup $t
    } msg]} {
        tk_messageBox -icon error -message "Error updating summits: $msg" -type ok
    } else {
        set fh [open [file join $cwd summits.thm] w]
        fconfigure $fh -encoding iso8859-15
        puts $fh $su
        close $fh
    }
    if  {[catch {
        set t [::http::geturl http://sota.hb9tvk.org/sotalog/sotacalls.txt -timeout 30000]
        set sc [::http::data $t]
        ::http::cleanup $t
    } msg]} {
        tk_messageBox -icon error -message "Error updating calls: $msg" -type ok
    } else {
        set fh [open [file join $cwd sotacalls.txt] w]
        puts $fh $sc
        close $fh
    }
    
    tk_messageBox -icon info -message "Summits and calls updated successfully" -type ok
    set updated 1
    .cfg.ok configure -state normal
    .cfg.cancel configure -state normal
    .cfg.update configure -state normal
    .cfg.call configure -state normal
    .cfg.okrprt configure -state normal
}<commit_msg>- increased timeout for downloading the summit list to 120s<commit_after>
proc updateCallsAndSummits {} {
    
    global cwd updated
    
    .cfg.ok configure -state disabled
    .cfg.cancel configure -state disabled
    .cfg.update configure -state disabled
    .cfg.call configure -state disabled
    .cfg.okrprt configure -state disabled
    
    if  {[catch {
        set t [::http::geturl http://sota.hb9tvk.org/sotalog/summits.thm -timeout 120000]
        set su [::http::data $t]
        ::http::cleanup $t
    } msg]} {
        tk_messageBox -icon error -message "Error updating summits: $msg" -type ok
    } else {
        set fh [open [file join $cwd summits.thm] w]
        fconfigure $fh -encoding iso8859-15
        puts $fh $su
        close $fh
    }
    if  {[catch {
        set t [::http::geturl http://sota.hb9tvk.org/sotalog/sotacalls.txt -timeout 30000]
        set sc [::http::data $t]
        ::http::cleanup $t
    } msg]} {
        tk_messageBox -icon error -message "Error updating calls: $msg" -type ok
    } else {
        set fh [open [file join $cwd sotacalls.txt] w]
        puts $fh $sc
        close $fh
    }
    
    tk_messageBox -icon info -message "Summits and calls updated successfully" -type ok
    set updated 1
    .cfg.ok configure -state normal
    .cfg.cancel configure -state normal
    .cfg.update configure -state normal
    .cfg.call configure -state normal
    .cfg.okrprt configure -state normal
}

{'fraction_non_alphanumeric': 0.10609243697478991, 'fraction_numerical': 0.014705882352941176, 'mean_word_length': 2.1957494407158835, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 1, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '568026', 'n_tokens_mistral': 967, 'n_tokens_neox': 901, 'n_words': 293}