svk/projman
svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Исправлено рег. выпражение определения mime типа файла

Browse Source
This commit is contained in:
svkalinin 2022-11-14 09:27:15 +03:00
parent 276cc63097
commit 19156c252b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/files.tcl
View File

@ -33,7 +33,7 @@ namespace eval FileOper {
lappend cmd $fileFullPath lappend cmd $fileFullPath
catch $cmd pipe catch $cmd pipe
# puts $pipe # puts $pipe
if [regexp -nocase -- {(\w+)/([[:alnum:]-]+); charset=([[:alnum:]-]+)} $pipe m fType fExt fCharset] { if [regexp -nocase -- {(\w+)/([\w\-_\.]+); charset=([[:alnum:]-]+)} $pipe m fType fExt fCharset] {
puts "$fType $fExt $fCharset" puts "$fType $fExt $fCharset"
} }
switch $opt { switch $opt {