From ba46c304bdffdce0b6019a47f6759ce6abbeef90 Mon Sep 17 00:00:00 2001
From: Stefan Ritter <xeno@thehappy.de>
Date: Tue, 16 Aug 2011 10:51:41 +0200
Subject: Initial commit

---
 compat.tcl | 138 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 138 insertions(+)
 create mode 100644 compat.tcl

(limited to 'compat.tcl')

diff --git a/compat.tcl b/compat.tcl
new file mode 100644
index 0000000..1093da8
--- /dev/null
+++ b/compat.tcl
@@ -0,0 +1,138 @@
+# compat.tcl
+#   This script just quickly maps old Tcl commands to the new ones.
+#   Use this if you are too lazy to get off your butt and update your scripts :D
+#
+# Copyright (C) 2002 - 2010 Eggheads Development Team
+#
+# Wiktor    31Mar2000: added binds and chnick proc
+# Tothwolf  25May1999: cleanup
+# Tothwolf  06Oct1999: optimized
+# rtc       10Oct1999: added [set|get][dn|up]loads functions
+# pseudo    04Oct2009: added putdccraw
+# Pixelz    08Apr2010: changed [time] to be compatible with Tcl [time]
+#
+# $Id: compat.tcl,v 1.19 2010/07/02 21:56:44 pseudo Exp $
+
+proc gethosts {hand} {
+  getuser $hand HOSTS
+}
+
+proc addhost {hand host} {
+  setuser $hand HOSTS $host
+}
+
+proc chpass {hand pass} {
+  setuser $hand PASS $pass
+}
+
+
+proc chnick {oldnick newnick} { 
+  chhandle $oldnick $newnick
+}
+
+# setxtra is no longer relevant 
+
+proc getxtra {hand} {
+  getuser $hand XTRA
+}
+
+proc setinfo {hand info} {
+  setuser $hand INFO $info
+}
+
+proc getinfo {hand} {
+  getuser $hand INFO
+}
+
+proc getaddr {hand} {
+  getuser $hand BOTADDR
+}
+
+proc setaddr {hand addr} {
+  setuser $hand BOTADDR $addr
+}
+
+proc getdccdir {hand} {
+  getuser $hand DCCDIR
+}
+
+proc setdccdir {hand dccdir} {
+  setuser $hand DCCDIR $dccdir
+}
+
+proc getcomment {hand} {
+  getuser $hand COMMENT
+}
+
+proc setcomment {hand comment} {
+  setuser $hand COMMENT $comment
+}
+
+proc getemail {hand} {
+  getuser $hand XTRA email
+}
+
+proc setemail {hand email} {
+  setuser $hand XTRA EMAIL $email
+}
+
+proc getchanlaston {hand} {
+  lindex [getuser $hand LASTON] 1
+}
+
+if {![llength [info commands {TCLTIME}]] && [llength [info commands {time}]]} {
+  rename time TCLTIME
+}
+
+proc time {args} {
+  if {([llength $args] != 0) && [llength [info commands {TCLTIME}]]} {
+    if {[llength [info commands {uplevel}]]} {
+      uplevel 1 TCLTIME $args
+    } else {
+      eval TCLTIME $args
+    }
+  } else {
+    strftime "%H:%M"
+  }
+}
+
+proc date {} {
+  strftime "%d %b %Y"
+}
+
+proc setdnloads {hand {c 0} {k 0}} {
+  setuser $hand FSTAT d $c $k
+}
+
+proc getdnloads {hand} {
+  getuser $hand FSTAT d
+}
+
+proc setuploads {hand {c 0} {k 0}} {
+  setuser $hand FSTAT u $c $k
+}
+
+proc getuploads {hand} {
+  getuser $hand FSTAT u
+}
+
+proc putdccraw {idx size text} {
+  if {!$idx} {
+    putloglev o * "Warning! putdccraw is deprecated. Use putnow instead!"
+    putnow $text
+    return -code ok
+  }
+  putloglev o * "Warning! putdccraw is deprecated. Use putdcc instead!"
+  if {![valididx $idx]} {return -code error "invalid idx"}
+  putdcc $idx $text -raw
+}
+
+# as you can see it takes a lot of effort to simulate all the old commands
+# and adapting your scripts will take such an effort you better include
+# this file forever and a day :D
+
+# Following are some TCL global variables that are obsolete now and have been removed
+# but are still defined here so not to break older scripts
+
+set strict-servernames 0
+
-- 
cgit v1.2.3