# Replace sample with the name of your extension
wget -qO- http://core.tcl.tk/sampleextension/tarball/sample.tar.gz | tar xzv
cd sample
wget -qO- http://core.tcl.tk/tclconfig/tarball/tclconfig.tar.gz | tar xzv
# Write your source files
# Edit configure.in
autoconf
# And then the usual:
./configure
make
%packager test <test@gmail.com>
%_topdir /home/test/rpm
%_tmppath /var/tmp
%_rpmtopdir %{_topdir}
%_builddir %{_rpmtopdir}/BUILD
%_rpmdir %{_rpmtopdir}/RPMS
%_sourcedir %{_rpmtopdir}/SOURCES
%_specdir %{_rpmtopdir}/SPECS
%_srcrpmdir %{_rpmtopdir}/SRPMS
package require time
set timeserver "time.stdtime.gov.tw"
proc NetTime {server} {
set tok [time::getsntp $server] ;# or gettime to use the TIME protocol
time::wait $tok
if {[time::status $tok] eq "ok"} {
set result [time::unixtime $tok]
set code ok
} else {
set result [time::error $tok]
set code error
}
time::cleanup $tok
return -code $code $result
}
exec cmd.exe /c time [clock format [NetTime $timeserver] -format %H:%M:%S]
/CGI/ {
domain CGI
root $Wub::docroot/cgi
# windows tcl executor
executors {.TCL C:/Tcl/bin/tclsh86.exe .PHP C:/php/php-cgi.exe}
}
application/x-php php
<?php
phpinfo();
?>
proc is_threaded {} {
return [expr {[info exists ::tcl_platform(threaded)] && $::tcl_platform(threaded)}]
}
#!/usr/local/bin/tclsh
#
# This file is used to backup my homepage
#
proc is_threaded {} {
return [expr {[info exists ::tcl_platform(threaded)] && $::tcl_platform(threaded)}]
}
set support [is_threaded]
proc backup_to_7z {} {
set backupfile $::env(HOME)
append backupfile "/Homepage-"
append backupfile [clock format [clock seconds] -format %Y%m%d]
append backupfile ".7z"
set backupdir $::env(HOME)
append backupdir "/public_html"
set fileExist [file exists $backupfile]
if {$fileExist > 0} {
puts "Now try to remove old backup file."
file delete $backupfile
}
set var [list 7z -p12345 a $backupfile $backupdir]
exec {*}$var
}
if {$support == 1} {
package require Tk
package require Thread
set ::gThread [thread::create {thread::wait} ]
tsv::set body_backup_to_7z shared [info body backup_to_7z]
label .greetings -text "Now backup my homepage..." -bd 4 -relief ridge
pack .greetings -fill both
wm title . "Backup"
thread::send -async $::gThread {
set command [tsv::get body_backup_to_7z shared]
eval $command
} result
vwait result
} else {
puts "No thread support..., so this script can't use Thread."
backup_to_7z
}
exit
#!/bin/sh
mkdir -p /src
mkdir -p /opt/tcl
mkdir -p /build/tcl
mkdir -p /build/tk
[ -e /src/tcl ] && {
cd /build/tcl
/src/tcl/win/configure --prefix=/opt/tcl --enable-threads && make && make install && {
[ -e /src/tk ] && {
cd /build/tk
/src/tk/win/configure --prefix=/opt/tcl --enable-threads --with-tcl=/build/tcl \
&& make && make install
}
}
}
set backupfile $env(HOME)
append backupfile "\\My Documents"
append backupfile "\\Homepage-"
append backupfile [clock format [clock seconds] -format %Y%m%d]
append backupfile ".7z"
set backupdir $env(HOME)
append backupdir "\\My Documents"
append backupdir "\\public_html"
set fileExist [file exists $backupfile]
if {$fileExist > 0} {
puts "Now try to remove old backup file."
file delete $backupfile
}
set var [list 7z -ppassword a $backupfile $backupdir]
exec {*}$var
#!/usr/bin/tclsh
#
# Rename script
#
# argument 1: folder location (option)
#
package require jpeg
puts "########## Start ##########"
if {$argc >= 1} {
cd [lindex $argv 0]
} elseif {$argc == 0} {
cd "c:/tmp"
}
foreach filename [glob *.jpg] {
array set exif [::jpeg::getExif $filename]
set today [clock format [clock scan $exif(DateTimeOriginal) \
-format {%Y:%m:%d %H:%M:%S}] -format %Y%m%d]
set today2 $today
append today2 "_"
regsub -all {\mIMG} $filename $today newFileName
regsub -all {\mCAM0} $filename $today2 newFileName
file rename $filename $newFileName
}
puts "########## End ##########"
exit
#!c:/tcl/bin/tclsh86.exe
package require http
package require vfs::zip
########################################################################
# Now download file from network
########################################################################
set day [clock format [clock seconds] -format {%d}]
set now [clock seconds]
if {$day > 7} {
set value [clock format [clock add $now -30 day] -format {%Y%m}]
} else {
set value [clock format [clock add $now -60 day] -format {%Y%m}]
}
set remoteFile "http://www.twse.com.tw/ch/statistics/download/04/001/"
append remoteFile $value
append remoteFile "_C04001.zip"
puts "======================================================"
puts "URL: $remoteFile"
set localFile $value
append localFile "_C04001.zip"
puts "Download File name: $localFile"
puts "======================================================"
set token [::http::geturl $remoteFile -binary 1]
set data [::http::data $token]
set channel [open $localFile w+]
fconfigure $channel -encoding binary -translation binary
puts -nonewline $channel $data
close $channel
::http::cleanup $token
########################################################################
# Now handle zip file
########################################################################
set mnt_file [vfs::zip::Mount $localFile $localFile]
file copy -force [glob $localFile/*] ./
vfs::zip::Unmount $mnt_file $localFile
file delete $localFile
set DIR [pwd]
set DOCS [glob *.xls]
foreach file $DOCS {
set inputFile $DIR
append inputFile "/" $file
set exeList [list "C:\\Program Files\\LibreOffice 4.0\\program\\soffice.exe" "macro:///Standard.Module1.AutoFindGoodMan($inputFile)"]
exec {*}$exeList
}
exit
REM ***** BASIC *****
Option Explicit
Sub AutoFindGoodMan(cFile)
Dim Doc As Object
Dim Dummy()
Dim Sheet As Object
Dim Cell As Object
Dim Cell2 As Object
Dim Cell3 As Object
Dim Cell4 As Object
Dim Cell5 As Object
Dim Count As Integer
Doc = StarDesktop.loadComponentFromURL(ConvertToUrl(cFile), "_default", 0, Dummy())
Sheet = Doc.Sheets(0)
dim document as object
dim dispatcher as object
rem ---------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Zoom.Value"
args1(0).Value = 100
args1(1).Name = "Zoom.ValueSet"
args1(1).Value = 28703
args1(2).Name = "Zoom.Type"
args1(2).Value = 0
dispatcher.executeDispatch(document, ".uno:Zoom", "", 0, args1())
Dim CellRange As Object
CellRange = Sheet.getCellRangeByName("A66:J845")
CellRange.CellBackColor = RGB(255, 255, 255)
For Count = 66 To 950 Step 1
Cell = Sheet.getCellByPosition(0, Count)
IF Cell.Value > 1000 Then
Cell.CellBackColor = RGB(0, 0, 255)
Cell2 = Sheet.getCellByPosition(3, Count)
Cell3 = Sheet.getCellByPosition(5, Count)
Cell4 = Sheet.getCellByPosition(7, Count)
Cell5 = Sheet.getCellByPosition(9, Count)
IF Cell3.Type = com.sun.star.table.CellContentType.EMPTY Then
IF Cell4.Value = 0.00 Then
Cell3.CellBackColor = RGB(255, 0, 0)
Cell4.CellBackColor = RGB(255, 0, 0)
ENDIF
ELSE
IF Cell3.Value < 10 Then
IF Cell2.Value <= 15 Then
Cell2.CellBackColor = RGB(255, 255, 0)
ELSEIF Cell2.Value > 15 AND Cell2.Value <= 40 THEN
Cell2.CellBackColor = RGB(0, 255, 0)
ELSEIF Cell2.Value > 40 THEN
Cell2.CellBackColor = RGB(0, 255, 255)
END IF
Cell3.CellBackColor = RGB(0, 255, 0)
IF Cell4.Value > 7 THEN
Cell4.CellBackColor = RGB(0, 255, 0)
END IF
ELSEIF Cell3.Value >= 75 Then
Cell3.CellBackColor = RGB(0, 255, 255)
End IF
End IF
IF Cell5.Value <= 2.0 Then
Cell5.CellBackColor = RGB(0, 255, 255)
END IF
End IF
Next Count
If (Doc.isModified) Then
If (Doc.hasLocation And (Not Doc.isReadOnly)) Then
Doc.store()
End If
End If
Doc.close(True)
End Sub