Delete BT.AutoUpdate.tcl

BT.AutoUpdate.tcl

@@ -1,647 +0,0 @@
-#########################################################################
-##          BlackTools - The Ultimate Channel Control Script           ##
-##                    One TCL. One smart Eggdrop                       ##
-#########################################################################
-#########################   AutoUpdate TCL   ############################
-#########################################################################
-##						                       ##
-##   BlackTools  : http://blacktools.tclscripts.net	               ##
-##   Bugs report : http://www.tclscripts.net/	                       ##
-##   GitHub page : https://github.com/tclscripts/BlackToolS-TCL        ##
-##   Online Help : irc://irc.undernet.org/tcl-help 	               ##
-##                 #TCL-HELP / UnderNet                                ##
-##                 You can ask in english or romanian                  ##
-##					                               ##
-#########################################################################
-
-package require tls
-
-set black(backup_dir) "scripts/BT.backup"
-set black(log_file) "scripts/BT.update.log"
-set black(actdir) "scripts"
-
-###
-proc blacktools:check_addons {hand chan} {
-    global black
-if {[catch {package require http} no_http] != 0} {
-    source $black(dirname)/BlackTools/Addons/http.tcl
-    package require http
-    }
-if {[catch {package require json} no_json] != 0} {
-    source $black(dirname)/BlackTools/Addons/json.tcl
-    package require json
-    }
-if {[catch {package require github} no_github] != 0} {
-    source $black(dirname)/BlackTools/Addons/github.tcl
-    package require github
-    }
-    return 1
-}
-
-###
-proc blacktools:update_check {nick hand host chan type} {
-    global black
-    set check_addons [blacktools:check_addons $hand $chan]
-    set status [blacktools:update_verify]
-if {$status == -1} {
-    blacktools:update_put $hand $chan 31 ""
-    blacktools:tell $nick $host $hand $chan $chan autoupdate.31 ""
-    return 0
-}
-    set data [split $status "\n"]
-    set new_version [lindex [lindex $data 0] 1]
-    set last_modify [lindex [lindex $data 1] 2]
-    set status [lindex [lindex $data 2] 1]
-
-if {$black(vers) != $new_version} {
-if {$type == 0} {
-    blacktools:tell $nick $host $hand $chan $chan autoupdate.32 "$new_version"
-} else {
-    return [list $new_version $last_modify]
-}
-} elseif {$last_modify != $black(current_modif)} {
-if {$type == 0} {
-    blacktools:tell $nick $host $hand $chan $chan autoupdate.33 [ctime $last_modify]
-}
-    return [list $new_version $last_modify]
-} else {
-if {$type == 0} {
-    blacktools:tell $nick $host $hand $chan $chan autoupdate.5 ""
-        }
-    return 0
-    }
-}
-
-###
-proc blacktools:update:timer {} {
-    global black
-if {$black(update_type) == 0} {
-if {![info exists black(update_disabled)]} {
-if {![info exists black(backup_update)]} {
-    set update [catch {blacktools:update "" "" ""} error]
-} else {
-    blacktools:update_put "" "" 40 ""  
-    }
-} else {
-    blacktools:update_put "" "" 27 [list [ctime [unixtime]]]
-    blacktools:update_put "" "" 30 [list $black(update_disabled)]
-    }
-} else {
-if {$black(update_note) == 1} {
-if {![info exists black(update_disabled)]} {
-    set check [blacktools:update_check "" "" "" "" 1]
-if {$check != 0} {
-    set found_version [lindex $check 0]
-    set last_modif [lindex $check 1]
-    blacktools:update:note $last_modif $found_version
-            }
-        }
-    }
-}
-    timer [time_return_minute $black(update_time_check)] blacktools:update:timer 
-}
-
-###
-proc blacktools:update:note {num version} {
-    global black botnick
- 	set time [unixtime]
-foreach user [userlist n] {
-	set nonotes [getuser $user XTRA NO_NOTES]
-if {$nonotes == ""} {
-    set check_note [blacktools:update_note_check $user $num]
-if {$check_note == 1} {continue}
-	set getlang [string tolower [getuser $user XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set black(notes:announce:$user) 1
-    set replace(%msg.1%) $version
-	set replace(%msg.2%) [ctime $num]
-	set text [black:color:set $botnick $black(say.$getlang.autoupdate.43)]
-    set text [string map [array get replace] $text]
-	notes:add $botnick "" $user "DB" "INBOX" $text "AUTOUPDATE:$num" 0
-	    }
-    }
-}
-
-###
-proc blacktools:update_note_check {hand num} {
-    global black
-    set found_it 0
-    set file [open $black(notes_file) "r"]
-while {[gets $file line] != -1} {
-    set handle [lindex [split $line] 4]
-if {[string equal -nocase $handle $hand]} {
-    set sender [lindex [split $line] 6]
-    set split_send [split $sender ":"]
-    set last_update [lindex $split_send 1]
-    set sender [lindex $split_send 0]
-if {[string equal -nocase $sender "AUTOUPDATE"] && [string equal -nocase $num $last_update]} {
-    set found_it 1
-    break
-            }
-        }
-    }
-    close $file
-    return $found_it
-}
-
-###
-proc blacktools:update {hand host chan} {
-    global black
-if {[info exists black(backup_update)]} {
-    blacktools:update_put $hand $chan 29 ""
-    return 0
-}
-    set error_b ""
-    set file [open $black(log_file) w]
-    close $file
-    blacktools:update_put $hand $chan 27 [list [ctime [unixtime]]]
-    blacktools:update_put $hand $chan 28 ""
-    set check_addons [blacktools:check_addons $hand $chan]
-if {$check_addons == 0} {
-     blacktools:update_put $hand $chan 1 ""
-     return
-}
-    set status [blacktools:update_verify]
-if {$status == -1} {
-    blacktools:update_put $hand $chan 2 ""
-    return 0
-}
-    set data [split $status "\n"]
-    set new_version [lindex [lindex $data 0] 1]
-    set last_modify [lindex [lindex $data 1] 2]
-    set status [lindex [lindex $data 2] 1]
-
-if {$black(vers) != $new_version} {
-    blacktools:update_put $hand $chan 3 [list $new_version]   
-} elseif {$last_modify != $black(current_modif)} {
-    blacktools:update_put $hand $chan 4 [list $black(vers)]
-} else {
-    blacktools:update_put $hand $chan 5 ""
-    return 0
-}
-
-if {![file isdirectory $black(backup_dir)]} {
-if {[catch {file mkdir $black(backup_dir)} error] != 0} {
-    blacktools:update_put $hand $chan 6 [list $error]
-     return 0
-    }
-}
-
-if {[file exists $black(backup_dir)/BlackTools.tcl]} {
-    blacktools:update_put "" "" 7 ""
-    file delete -force $black(backup_dir)/BlackTools
-    file delete -force $black(backup_dir)/BlackTools.tcl
-}
-if {[catch {file copy -force "$black(dirname)/BlackTools" $black(backup_dir)} error_b] == 0} {
-    blacktools:update_put "" "" 8 ""
-} else {
-    blacktools:update_put $hand $chan 9 [list $error_b]
-    file delete -force $black(backup_dir)
-    return 0
-}
-
-if {[catch {file copy -force $black(tclconfig) $black(backup_dir)} error_b] != 0} {
-    blacktools:update_put $hand $chan 10 ""
-    file delete -force $black(backup_dir)
-    return 0
-} else {
-    blacktools:update_put "" "" 11 ""
-}
-    set black(update_hand) $hand
-    set black(update_version) $new_version
-    set black(update_last_modify) $last_modify
-    set black(update_chan) $chan
-blacktools:every 1000 {
-if {[file isdirectory "$black(backup_dir)/BlackTools"]} {
-    set after_file_num [blacktools:size "$black(backup_dir)/BlackTools"]
-    set current_file_num [blacktools:size "$black(actdir)/BlackTools"]
-if {$current_file_num == $after_file_num} {
-    blacktools:update_backup
-    break
-            }
-        }
-    }
-}
-
-###
-proc blacktools:update_backup {} {
-    global black
-    set hand $black(update_hand)
-    set new_version $black(update_version)
-    set last_modify $black(update_last_modify)
-    set chan $black(update_chan)
-    set black(backup_update) 1
-    set black(start_update) [unixtime]
-    set black(update_file_saved) [llength [glob -nocomplain -directory "$black(dirname)/BlackTools/FILES" "*.txt"]]
-if {[file isdirectory "$black(dirname)/BlackTools/FILES/TOPWORDS"]} {
-    set black(update_file_topwords) 1
-    set black(update_file_saved) [expr $black(update_file_saved) + [llength [glob -nocomplain -directory "$black(dirname)/BlackTools/FILES/TOPWORDS" "*.txt"]]]
-}
-    blacktools:update_put "" "" 12 ""
-    blacktools:update_put "" "" 13 ""
-    blacktools:update_put "" "" 14 ""
-    blacktools:update_put $hand $chan 15 [list $new_version [ctime $last_modify]]
-    blacktools:backup_run $hand $chan $new_version $last_modify
-    unset black(update_version)
-    unset black(update_last_modify)
-    unset black(update_hand)
-    unset black(update_chan)
-}
-
-###
-proc blacktools:backup_run {hand chan new_version last_modify} {
-    global black config
-    set black(update_old_data) [blacktools:update_data 0 ""]
-    set bt_file "$black(dirname)/BlackTools.tcl"
-    set file [open $bt_file r]
-    set data [read -nonewline $file]
-    close $file
-    set regexp_var2 "set black\\(dirname\\) \"(.*?)\""
-    regexp -nocase $regexp_var2 $data found_line
-    regexp -nocase $regexp_var2 $data -> found
-    set found_line [string map [list $black(dirname) $black(backup_dir)] $found_line]
-    regsub $regexp_var2 $data $found_line data
-    blacktools:update_data 1 $data
-    
-    set file [open $config r]
-    set data [read -nonewline $file]
-    close $file
-    set reg "source $black(dirname)/BlackTools.tcl"
-    regsub $reg $data "source $black(dirname)/BlackTools.old.tcl" data
-    set file [open $config w]
-    puts $file $data
-    close $file
-    file rename -force "$black(dirname)/BlackTools.tcl" "$black(dirname)/BlackTools.old.tcl"
-    utimer 5 [list blacktools:update_start_download $hand $chan $new_version $last_modify]
-}
-
-###
-proc blacktools:size {dir} {
-    set files [glob-r $dir]
-    set total 0
-foreach f $files {
-    set size [file size $f]
-    set total [expr $size + $total]
-    }
-    return $total
-}
-
-###
-proc blacktools:update_start_download {hand chan new_version last_modify} {
-    global black
-    rehash
-    set black(update_hand) $hand
-    set black(update_chan) $chan
-    file delete -force "$black(actdir)/BlackTools"
-    ::github::github update tclscripts BlackTools-TCL $black(actdir)
-    blacktools:every 1000 {
-if {[file isdirectory $black(actdir)/BlackTools]} {
-    set size [llength [glob-r "$black(actdir)/BlackTools"]]
-if {$size == $black(current_size)} {
-    blacktools:update_start_restore
-    break
-            }
-        }
-    }
-}
-
-###
-#https://wiki.tcl-lang.org/page/glob
-proc glob-r {{dir .}} {
-    set res {}
-    foreach i [lsort [glob -nocomplain -dir $dir *]] {
-        if {[file type $i] eq {directory}} {
-            eval lappend res [glob-r $i]
-        } else {
-            lappend res $i
-        }
-    }
-    set res
-} ;# RS
-
-###
-proc blacktools:update_unsetflag {} {
-    global black
-if {[info exists black(backup_update)]} {
-    unset black(backup_update)
-    }
-}
-
-###
-proc blacktools:update_start_restore {} {
-    global black
-    set hand $black(update_hand)
-    set chan $black(update_chan)
-    set userlang [blacktools:update_userlang $hand]
-    if {![file isdirectory "$black(actdir)/BlackTools"]} {
-    blacktools:update_put $hand $chan 16 ""
-    file delete -force $black(backup_dir)
-    blacktools:update_unsetflag
-    return
-} elseif {![file exists "$black(actdir)/BlackTools.tcl"]} {
-    blacktools:update_put $hand $chan 16 ""
-    file delete -force $black(backup_dir)
-    blacktools:update_unsetflag
-    return
-}
-    set end_download [unixtime]
-    set dif [expr $end_download - $black(start_update)]
-    blacktools:update_put "" "" 17 [list [return_time $userlang $dif]]
-    set newdata [blacktools:update_data 0 ""]
-    blacktools:update_put $hand $chan 18 ""
-    set restore_config [blacktools:update_restore $black(update_old_data) $newdata]
-    unset black(update_old_data)
-    set newdata [lindex $restore_config 0]
-    set num_var [lindex $restore_config 1]
-if {$num_var > 0} {
-    set newdata [blacktools:update_data 1 $newdata]
-    blacktools:update_put $hand $chan 19 [list $num_var]
-} else {
-    blacktools:update_put "" "" 20 ""
-}
-    blacktools:update_put $hand $chan 21 ""
-    blacktools:update_restore_files
-blacktools:every 1000 {
-    set info_files_num [llength [glob -nocomplain -directory "$black(actdir)/BlackTools/FILES" "*.txt"]]
-if {[file isdirectory "$black(actdir)/BlackTools/FILES/TOPWORDS"]} {
-    set info_files_topwords [llength [glob -nocomplain -directory "$black(actdir)/BlackTools/FILES/TOPWORDS" "*.txt"]]
-    set info_files_num [expr $info_files_num + $info_files_topwords]
-}
-if {$info_files_num == $black(update_file_saved)} {
-    blacktools:update_end $info_files_num
-    break
-        }
-    }
-}
-
-###
-proc blacktools:update_end {num} {
-    global black config
-    set hand $black(update_hand)
-    set chan $black(update_chan)
-    set userlang [blacktools:update_userlang $hand]
-    set end_update [unixtime]
-    set dif [expr $end_update - $black(start_update)]
-    unset black(start_update)
-if {$num == 0} {
-    blacktools:update_put "" "" 22 ""
-} else {
-    blacktools:update_put $hand $chan 23 [list $num]
-}
-    set file [open $config r]
-    set data [read -nonewline $file]
-    close $file
-    set reg "source $black(actdir)/BlackTools.old.tcl"
-    regsub $reg $data "source $black(actdir)/BlackTools.tcl" data
-    set file [open $config w]
-    puts $file $data
-    close $file
-    rehash
-    unset black(update_hand)
-    unset black(update_chan)
-    blacktools:update_unsetflag
-    blacktools:update_put $hand $chan 24 [list [return_time $userlang $dif]]
-    blacktools:update_put $hand $chan 25 [list $black(backup_dir) $black(log_file)]
-    blacktools:update_put $hand $chan 26 ""
-    unset black(update_file_saved)
-    file delete -force "$black(actdir)/BlackTools.old.tcl"
-    setaway "none"
-}
-
-###
-proc blacktools:update_restore_files {} {
-    global black
-    set files ""
-    set counter 0
-    set files [glob -nocomplain -directory "$black(backup_dir)/BlackTools/FILES" "*.txt"]
-if {![file isdirectory "$black(actdir)/BlackTools/FILES"]} {
-    file mkdir "$black(actdir)/BlackTools/FILES"
-}
-foreach f $files {
-    incr counter
-    set filename [file tail $f]
-    file copy -force $f "$black(actdir)/BlackTools/FILES/$filename"
-}
-
-if {[info exists black(update_file_topwords)]} {
-if {![file isdirectory "$black(actdir)/BlackTools/FILES/TOPWORDS"]} {
-    file mkdir "$black(actdir)/BlackTools/FILES/TOPWORDS"
-}
-    set topwords_files [glob -nocomplain -directory "$black(backup_dir)/BlackTools/FILES/TOPWORDS" "*.txt"]
-foreach f $topwords_files {
-    incr counter
-    set filename [file tail $f]
-    file copy -force $f "$black(actdir)/BlackTools/FILES/TOPWORDS/$filename"
-    }
-    unset black(update_file_topwords)
-}
-    return $counter
-}
-
-###
-proc blacktools:update_set_time {num type} {
-    global black
-    set bt_file "$black(dirname)/BlackTools.tcl"
-    set file [open $bt_file r]
-    set data [read -nonewline $file]
-    close $file
-    set regexp_var2 "set black\\(update_time_check\\) \"(.*?)\""
-    regexp -nocase $regexp_var2 $data -> found
-if {$type == 0} {
-    return $found
-} else {
-    regexp -nocase $regexp_var2 $data found_line
-    set found_line [string map [list $found $num] $found_line]
-    regsub $regexp_var2 $data $found_line data
-    blacktools:update_data 1 $data
-    }
-}
-
-
-###
-proc blacktools:update_on_off {type} {
-    global black
-    set regexp_var2 "set black\\(update_type\\) \"(.*?)\""
-    set bt_file "$black(dirname)/BlackTools.tcl"
-    set file [open $bt_file r]
-    set data [read -nonewline $file]
-    close $file
-    regexp -nocase $regexp_var2 $data found_line
-    regexp -nocase $regexp_var2 $data -> found
-if {$type == 0 && $found == 0} {
-    return 0
-}
-if {$type == 1 && $found == 1} {
-    return 1
-}
-    switch $type {
-        0 {
-    set found_line [string map {"1" "0"} $found_line]
-    regsub $regexp_var2 $data $found_line data
-    blacktools:update_data 1 $data
-    return 2
-        }
-        1 {
-    set found_line [string map {"0" "1"} $found_line]
-    regsub $regexp_var2 $data $found_line data
-    blacktools:update_data 1 $data
-    return 3    
-        }
-    }
-}
-
-###
-proc blacktools:update_restore {data newdata} {
-    global black
-    set current_data $newdata
-    set variables [regexp -all -inline  {set black\((.+?)\)} $data]
-    regsub -all {set black\((.+?)\)} $variables "" variables
-    set var_nomodif "name author vers site current_modif current_size"
-    set var_counter 0
-foreach var $variables {
-if {$var == ""} {continue}
-if {[lsearch -nocase $var_nomodif $var] > -1} {continue}
-    set regexp_var "set black\\($var\\) \\{(.*?)\\}"
-    set regexp_var2 "set black\\($var\\) \"(.*?)\""
-    regexp -nocase $regexp_var $data found_old
-    regexp -nocase $regexp_var2 $data found_old_2
-if {[info exists found_old]} {
-    set found_old [concat $found_old]
-    regexp -nocase $regexp_var $newdata found_new
-if {[info exists found_new]} {
-if {[string equal -nocase $found_old $found_new]} {continue}
-    incr var_counter
-    regsub $regexp_var $current_data $found_old current_data
-    unset found_new
-     }
-    unset found_old
-    }
-}
-
-foreach var $variables {
-if {$var == ""} {continue}
-if {[lsearch -nocase $var_nomodif $var] > -1} {continue}
-    set regexp_var2 "set black\\($var\\) \"(.*?)\""
-    regexp -nocase $regexp_var2 $data found_old_2
-if {[info exists found_old_2]} {
-    set found_old_2 [concat $found_old_2]
-    regexp -nocase $regexp_var2 $newdata found_new_2
-if {[info exists found_new_2]} {
-if {[string equal -nocase $found_old_2 $found_new_2]} {continue}
-if {[string equal -nocase "default_away" $var] && [string match -nocase "*www.TCLScripts.Net*" $found_old_2]} {continue}
-    incr var_counter
-    regsub $regexp_var2 $current_data $found_old_2 current_data
-    unset found_new_2
-        }
-    unset found_old_2
-     }
-}
-    return [list $current_data $var_counter]
-}
-
-###
-proc blacktools:update_data {type data} {
-    global black
-    set bt_file "$black(dirname)/BlackTools.tcl"
-if {![file exists $bt_file]} {
-    return 0
-}
-if {$type == 0} {
-    set file [open $bt_file r]
-    set data [read -nonewline $file]
-    close $file
-    return $data
-} else {
-    set file [open $bt_file w]
-    puts $file $data
-    close $file
-    }
-}
-
-###
-proc blacktools:update_verify {} {
-    global black
-    set link "https://raw.githubusercontent.com/tclscripts/BlackTools-TCL/master/VERSION"
-    http::register https 443 [list ::tls::socket -autoservername true]
-    set ipq [http::config -useragent "lynx"]
-	set error [catch {set ipq [::http::geturl $link -timeout 10000]} eror]
-	set status [::http::status $ipq]
-if {$status != "ok"} {
-	::http::cleanup $ipq
-	return -1
-}
-	set getipq [::http::data $ipq]
-	::http::cleanup $ipq
-	return $getipq
-}
-
-###
-proc blacktools:update_userlang {nick} {
-    global black
-if {$nick == ""} {return [string tolower $black(default_lang)]}
-    set hand [nick2hand $nick]
-    set userlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$userlang == ""} { set userlang "[string tolower $black(default_lang)]" }
-    return $userlang
-}
-
-###
-proc blacktools:update_put {nick chan num var} {
-    global black
-    set counter 0
-foreach v $var {
-    incr counter
-    set replace(%msg.${counter}%) $v
-}
-if {$nick != "" && $chan != ""} {
-    set hand [nick2hand $nick]
-    set getmethod [getuser $hand XTRA OUTPUT_TYPE]
-    set userlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$userlang == ""} { set userlang "[string tolower $black(default_lang)]" }
-if {$getmethod == ""} { set getmethod "0" }
-    set text [black:color:set "" $black(say.${userlang}.autoupdate.${num})]
-    set reply [join $text]
-    set reply [string map [array get replace] $reply]
-    switch $getmethod {
-	0 {
-	putserv "NOTICE $nick :$reply"
-}
-	1 {
-	putserv "PRIVMSG $chan :$reply"	
-}
-	2 {
-	putserv "PRIVMSG $nick :$reply"
-		}
-	}
-} else {
-    set lang [string tolower $black(default_lang)]
-    set text [black:color:set "" $black(say.${lang}.autoupdate.${num})]
-    set reply [join $text]
-    set reply [string map [array get replace] $reply]
-}
-    putlog "\[BT\] $reply"
-    set file [open $black(log_file) a]
-    puts $file $reply
-    close $file
-}
-
-###
-#https://wiki.tcl-lang.org/page/every
-proc blacktools:every {interval script} {
-    global everyIds
-    if {$interval eq {cancel}} {
-        after cancel $everyIds($script)
-        return
-    }
-    set everyIds($script) [after $interval [namespace code [info level 0]]]
-    set rc [catch {uplevel #0 $script} result]
-    if {$rc == [catch break]} {
-        after cancel $everyIds($script)
-        set rc 0
-    } elseif {$rc == [catch continue]} {
-        # Ignore - just consume the return code
-        set rc 0
-    }
-    # TODO: Need better handling of errorInfo etc...
-    return -code $rc $result
-}