No OneTemporary
Actions

Size

1 KB

Referenced Files

None

Subscribers

None

View Options

	diff --git a/Nasqueron/Tools.tcl b/Nasqueron/Tools.tcl
	--- a/Nasqueron/Tools.tcl
	+++ b/Nasqueron/Tools.tcl
	@@ -1,35 +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 - genpass dcc:genpass
	+bind dcc - strlen dcc:strlen
	+bind dcc - unixtime dcc:unixtime

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

	proc genpass {master domain} {
	string range [md5 "$master:$domain"] 0 8
	}

	proc dcc:genpass {handle idx arg} {
	if {[llength $arg] != 2} {
	putdcc $idx "Usage: .genpass <master 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
	+ }
	+ }
	+}