| Server IP : 162.213.251.212 / Your IP : 18.118.140.27 [ Web Server : LiteSpeed System : Linux business55.web-hosting.com 4.18.0-553.lve.el8.x86_64 #1 SMP Mon May 27 15:27:34 UTC 2024 x86_64 User : allssztx ( 535) PHP Version : 8.1.31 Disable Function : NONE Domains : 1 Domains MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /lib64/tcl8.6/Tix8.4.3/bitmaps/ |
Upload File : |
#
# $Id: mktransgif.tcl,v 1.1.1.1 2000/05/17 11:08:46 idiscovery Exp $
#
#!/usr/local/bin/tclsh
set dont(plusarm.gif) 1
set dont(minusarm.gif) 1
foreach file [glob *.gif] {
if ![info exists dont($file)] {
puts "giftool -1 -B $file"
}
}