Tools.tcl
No OneTemporary
Actions

Size

1 KB

Referenced Files

None

Subscribers

None

Tools.tcl
View Options

	# 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>
	# www.supergenpass.com/genpass legacy generator
	#

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

	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
	}
	}
	}