[eggheads-patches] PATCH: morecompat.patch

Peter 'Rattacresh' Backes rtc at rhrk.uni-kl.de
Sun Oct 10 19:56:33 CST 1999


Adds functions to compat.tcl that have been removed by rmoldtcl.patch


-- Peter 'Rattacresh' Backes, rtc at rhrk.uni-kl.de

-------------- next part --------------
diff -urN eggdrop1.3.29/scripts/compat.tcl eggdrop1.3.29+morecompat/scripts/compat.tcl
--- eggdrop1.3.29/scripts/compat.tcl	Sun Oct 10 14:22:32 1999
+++ eggdrop1.3.29+morecompat/scripts/compat.tcl	Sun Oct 10 14:23:55 1999
@@ -3,6 +3,7 @@
 # use this is you are to lazy to get of your butt and update your scripts :D
 #
 # cleanup by Tothwolf 25May1999
+# added g/setdn/uploads functions by rtc 10Oct1999
 
 proc gethosts {hand} {
   return [getuser $hand HOSTS]
@@ -74,6 +75,23 @@
   return [strftime "%d %b %Y"]
 }
 
+proc setdnloads {hand {c 0} {k 0}} {
+  return [setuser $hand FSTAT d $c $k]
+}
+
+proc getdnloads {hand} {
+  return [getuser $hand FSTAT d]
+}
+
+proc setuploads {hand {c 0} {k 0}} {
+  return [setuser $hand FSTAT u $c $k]
+}
+
+proc getuploads {hand} {
+  return [getuser $hand FSTAT u]
+}
+
 # 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
+


More information about the Patches mailing list