blob: 32c07ce9550bbe19f9a283b33721a1a87694bf6a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
--- tkcron.tcl.orig 2013-09-25 00:48:19.068508511 -0700
+++ tkcron.tcl 2013-09-25 06:10:06.670101791 -0700
@@ -1,4 +1,6 @@
-#!/usr/local/bin/wish
+#! /bin/sh
+# the next line restarts using wish \
+exec %%WISH%% $0 ${1+"$@"}
# A simple interface to ease the creation of crontab jobs
# Cedric BEUST (beust@sophia.inria.fr)
@@ -281,6 +283,7 @@
# Return the crontab string as a list
proc parseCrontabFile {str} {
+ set result ""
set crontablist [split $str \n]
set listlength [llength $crontablist]
for {set i 0} {$i < $listlength} {incr i 1} {
|
