Page Menu
Home
DevCentral
Search
Configure Global Search
Log In
Files
F3938539
Tools.tcl
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Flag For Later
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
}
}
}
File Metadata
Details
Attached
Mime Type
text/plain
Expires
Thu, Dec 26, 03:00 (1 d, 8 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2314189
Default Alt Text
Tools.tcl (1 KB)
Attached To
Mode
rVIPERSERV ViperServ scripts [legacy Mercurial repo]
Attached
Detach File
Event Timeline
Log In to Comment