39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
[$keyPair KeyPairType] eq "DSA"} then {
$certificate HashAlgorithm SHA1
}
}
proc isScriptFile { fileName } {
switch -exact -- [file extension $fileName] {
.tcl -
.tk -
.test -
.eagle {
return true
}
.xml {
|
>
>
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
[$keyPair KeyPairType] eq "DSA"} then {
$certificate HashAlgorithm SHA1
}
}
proc isScriptFile { fileName } {
switch -exact -- [file extension $fileName] {
.eeagle -
.etcl -
.tcl -
.tk -
.test -
.eagle {
return true
}
.xml {
|