On 12 Apr 2010, at 01:29, Davide Libenzi wrote:
On Thu, 8 Apr 2010, Sabahattin Gucukoglu wrote:
>> #!/usr/bin/tclsh
>> set user "sgucukoglu"
>>
>> set first [string first "-" [lindex $argv 1]]
>> if {$first!=-1} {
>> incr first
>> set last [string last "@" [lindex $argv 1]]
>> if {$last==-1} {
>> set env(EXT) [string range [lindex $argv 1] $first end]
>> } else {
>> incr last -1
>> set env(EXT) [string range [lindex $argv 1] $first $last]
>> }
>> } else {
>> set env(EXT) ""
>> }
>>
>> set env(HOME) "/home/$user"
>> set env(SENDER) [lindex $argv 0]
>> set env(RECIPIENT) [lindex $argv 1]
>
> Oh, TCL! Is likely 10+ years I haven't seen a line of it ;)
Now you're just trolling. Stop it! :-)
I know a lot of people don't have Tcl installed which is annoying, but I just
can't stomach perl. It's too full of warts. Tcl just gets a load of stuff
done really quickly without question.
Cheers,
Sabahattin
_______________________________________________
xmail mailing list
[email protected]
http://xmailserver.org/mailman/listinfo/xmail
