# loadall.tcl v1.02fr [1 August 2000]
# Copyright (C) 2000 Teemu Hjelt <temex@iki.fi>
#
# Latest version can be found from http://www.iki.fi/temex/eggdrop/
# 
# If you have any suggestions, questions or you want to report 
# bugs, please feel free to send me email to temex@iki.fi
#
# This script loads all scripts from the directory 
# you have specified.
#
# Note: This script doesn't probably work with 
# TCL 7.6 because of the bug in glob function.
#
# Tested on eggdrop1.4.4 with TCL 8.0
#
# Version history:
# v1.00 - The very first version!
# v1.01 - Now this script doesn't load itself. (Found by Pimeys)
# v1.02fr - Variable de configuration pour permettre de prévenir sur un chan en cas d'erreur (ToM)

### Settings ###

## From what directory do you want to load the scripts?
set la_directory "scripts/"

## What pattern should be used?
set la_pattern "*.tcl"

## [0/1] Do you want this script to inform what script it is currently loading?
set la_inform 1

## [0/1] si le bot doit prévenir sur un chan en cas d'erreur, mettre à 1
set la_error_warning 1
## et sur quel chan ?
set la_error_warning_chan "#oiseau_de_feu"

###### You don't need to edit below this ######



### Misc Things ###

set la_ver "1.02fr"
set la_num 0

if {[string range $la_directory [expr [string length $la_directory] -1] end] != "/"} {
	set la_directory "$la_directory/"
} 

### Procs ###

if {(![file exists $la_directory]) || (![file isdirectory $la_directory]) || (![file readable $la_directory])} {
	putlog "\0034- loadall \003$la_directory n'est pas un répertoire valide."
} elseif {[catch {glob "${la_directory}${la_pattern}"} la_allscripts]} {
	putlog "\0034- loadall \003Aucun fichier correspondant à $la_pattern trouvé."
} else { 
	if {[string match "*[info script]*" $la_allscripts]} {
		set la_amount [expr [llength $la_allscripts] -1]
	} else {
		set la_amount [llength $la_allscripts]
	}
	putlog "- loadall \003essaie de charger $la_amount scripts..."
	foreach la_script $la_allscripts {
		if {([file exists $la_script]) && ([file isfile $la_script]) && ([file readable $la_script]) && ($la_script != [info script])} {
			if {$la_inform} {
				putlog "- loadall \003Charge $la_script ([file size $la_script] octets)... \[[expr $la_num +1]/$la_amount\]"
			}
			if {[catch {source $la_script} la_error]} { 
				putlog "\0034- loadall \003Impossible de charger $la_script (error: $la_error)"
				if {$la_error_warning} { 
					putserv "privmsg $la_error_warning_chan :\0034- loadall \003Impossible de charger $la_script (error: $la_error)"
				}
			} else {
				incr la_num
			}
		} 
	}
	if {$la_num == $la_amount} {
		putlog "\0033- loadall \003 a chargé avec succès $la_num/$la_amount scripts."
		if {$la_error_warning} { 
			putserv "privmsg $la_error_warning_chan :\0033- loadall \003 a chargé avec succès $la_num/$la_amount scripts."
		}
	} else {
		putlog "\0034 ERREUR !! - loadall\003 a chargé\0034 $la_num/$la_amount\003 scripts !!!"
		if {$la_error_warning} { 
			putserv "privmsg $la_error_warning_chan :\0034 ERREUR !! - loadall\003 a chargé\0034 $la_num/$la_amount\003 scripts !!!"
		}
	}
} 

### End ###

# putlog "\002LoadAll\002 v$la_ver by Sup <temex@iki.fi>"
putlog "\002LoadAll\002 v$la_ver by Sup - FR & miscs par ToM"