No OneTemporary
Actions

Size

2 KB

Referenced Files

None

Subscribers

None

View Options

	diff --git a/Daeghrefn/Tools.tcl b/Daeghrefn/Tools.tcl
	index 335c48c..0d9a021 100644
	--- a/Daeghrefn/Tools.tcl
	+++ b/Daeghrefn/Tools.tcl
	@@ -1,53 +1,53 @@
	# Collection of tools and gadgets, to boost
	# your productivity or to have fun.

	bind dcc - genpass dcc:genpass
	bind dcc - strlen dcc:strlen
	bind dcc - unixtime dcc:unixtime

	#
	-# .genpass <master password> <domain name>
	+# .genpass <main password> <domain name>
	# www.supergenpass.com/genpass legacy generator
	#

	-proc genpass {master domain} {
	- string range [md5 "$master:$domain"] 0 7
	+proc genpass {main domain} {
	+ string range [md5 "$main:$domain"] 0 7
	}

	proc dcc:genpass {handle idx arg} {
	if {[llength $arg] != 2} {
	- putdcc $idx "Usage: .genpass <master password> <domain name>"
	+ putdcc $idx "Usage: .genpass <main password> <domain name>"
	} {
	putcmdlog "#$handle# genpass ..."
	putdcc $idx [genpass [lindex $arg 0] [lindex $arg 1]]
	}
	return 0
	}

	#
	# .strlen <string>
	# Gets the specified string's length
	#

	proc dcc:strlen {handle idx arg} {
	putdcc $idx [string length $arg]
	putcmdlog "#$handle# strlen ..."
	return 0
	}

	#
	# .unixtime [value]
	# Display current unixtime, convert a unixtime to a date or get specified date's unixtime
	#

	proc dcc:unixtime {handle idx arg} {
	if {$arg == ""} {
	putdcc $idx [unixtime]
	} elseif [isnumber $arg] {
	putdcc $idx [clock format $arg -format "%Y-%m-%d %H:%M:%S"]
	} {
	if [catch {putdcc $idx [clock scan $arg]} err] {
	putdcc $idx $err
	}
	}
	}
	diff --git a/TC2/Time.tcl b/TC2/Time.tcl
	index 46bc8ae..84c4987 100644
	--- a/TC2/Time.tcl
	+++ b/TC2/Time.tcl
	@@ -1,49 +1,49 @@
	utimer 5 onload
	bind cron - "* * * * *" cron:minute
	bind cron - "/5 * * *" cron:often
	bind cron - "0 * * * *" cron:hourly
	bind cron - "0 4 * * *" cron:daily

	proc onload {} {
	sqlconnect sql7
	}

	proc launch {} {
	#This proc, called on startup, causes the eggdrop
	#to die on "unloadmodule server"
	#.tcl launch manually will work

	#Drops IRC support
	unloadmodule irc
	unloadmodule ctcp
	unloadmodule channels
	unloadmodule server

	- #Links to master bot
	+ #Links to primary bot
	link Daeghrefn
	}

	#Every minute
	proc cron:minute {minute hour day month weekday} {
	}

	#Every 5 minutes
	proc cron:often {minute hour day month weekday} {
	#Reconnects to sql, sql2
	sqlrehash

	#Sends a no-op command to keep sql7 alive
	if [catch {
	sql7 "SELECT 666"
	}] {
	putcmdlog "Warning: not connected to sql7 - mysql won't work."
	}
	}

	#Every hour
	proc cron:hourly {minute hour day month weekday} {
	}

	#Every day, at 4am
	proc cron:daily {minute hour day month weekday} {
	}

File Metadata

Mime Type: text/x-diff
Expires: Sun, Nov 24, 23:26 (15 h, 14 m)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 2259163
Default Alt Text: (2 KB)

No OneTemporaryActions

View Options

File Metadata

Event Timeline

No OneTemporary
Actions