Scripts posted recently tagged to tcl in Kelpi

1- 3 of 3.

expect code for automatic remote ssh login and erasing a file

to TCL expect erase remote by jonbaine 

#!/usr/bin/expect -f
if {$argc < 4 || $argc > 5} {
   puts "Usage: sshErase <file> <user> <passwd> <ip> <port(optional)>"
   exit
 }

SB5: FFXI Profile

to stormbot5 tcl ffxi by demonicpagan 

SB:registercommand FFXI 1
proc SB:proc_ffxi {nick host handle chan arg} {
	set ffxi [l1 $arg]
	set ffxiend [l1e $arg]
	set ffxi2 [l2 $arg]

Multi-language hello world

to c c++ bash perl tcl perl4 perl5 hello-world by nando.quintana 

#define NAME			hello.c
#define DESCRIP 		many languages at once (tcl, perl 4 & 5, sh, C) http://www.ee.ryerson.ca/~elf/hack/multilang.html
#define AUTHOR			Jeremy Dilatush
#define DATE			7/31/96
#define dummy \
hits counter