#!/usr/local/bin/tclsh #rR attention a ce que le debut soit toujours comme dans RenommePhotos package require Tk proc SourceGscopeOutils {} { if {[info exists env(GSCOPEDIR)]} { set GscopeDir [set env(GSCOPEDIR)] set FichierGscopeOutils "$GscopeDir/gscope_outils.tcl" if {[file exists $FichierGscopeOutils]} { source $FichierGscopeOutils return $FichierGscopeOutils } } set Script [info script] while {[file type $Script]=="link"} { set Script [file readlink $Script] puts $Script } set ScriptDir [file dirname $Script] set FichierGscopeOutils "$ScriptDir/../gscope/gscope_outils.tcl" if {[file exists $FichierGscopeOutils]} { source $FichierGscopeOutils return $FichierGscopeOutils } set FichierGscopeOutils "./gscope_outils.tcl" if {[file exists $FichierGscopeOutils]} { source $FichierGscopeOutils return $FichierGscopeOutils } set FichierGscopeOutils "../gscope_outils.tcl" if {[file exists $FichierGscopeOutils]} { source $FichierGscopeOutils return $FichierGscopeOutils } set FichierGscopeOutils "../gscope/gscope_outils.tcl" if {[file exists $FichierGscopeOutils]} { source $FichierGscopeOutils return $FichierGscopeOutils } return "" } set GO [SourceGscopeOutils] set GE "" regsub "gscope_outils.tcl" $GO "gscope_export.tcl" GE if {[file exists $GE]} { source $GE } set GST "" regsub "gscope_outils.tcl" $GO "genoret_showtools.tcl" GST if {[file exists $GST]} { source $GST } proc AnneeAlpha A { set iA [expr $A - 2010] set alphabet "abcdefghijklmnopqrstuvwxyz" return [string index $alphabet $iA] } proc MoisAlpha M { set M [Base10 $M] set Alphabet ".ABCDEFGHIJKLMNOPQRSTUVWXYZ" return [string index $Alphabet $M] } proc EditeHtmlPourWiosna {{Dir ""} } { global env set Minuscule 1 FaireLire "Bonjour, \ Ce programme permet de rajouter un titre et de modifier les AvecDia et AvecBig" if {$Dir==""} { set Dir "/kinotiko/www/WwwWiosnaStrasbourg/SaintPetersbourg/Select" } set Rep "" while {$Rep==""} { if {$Dir==""} { set Possible "./" if { ! [file exists $Possible]} { set Possible "~/dwhelper" } set Dir "$Possible" set Rep [ChoixDuRepertoire "$Dir"] if {$Rep!=""} { break } if {[OuiOuNon "On se quitte ?"]} { return "" } continue } else { if { ! [file exists $Dir]} { FaireLire "$Dir\n n'existe pas. Il faut choisir le repertoire qui contient les photos a renommer" continue } set Rep $Dir break } } NousAllonsAuBoulot $Rep set Date [Date] set Annee [string range $Date 0 3] set Mois [string range $Date 4 5] set Jour [string range $Date 6 7] set LeTitreSecondaire {} lappend LeTitreSecondaire "