From ba46c304bdffdce0b6019a47f6759ce6abbeef90 Mon Sep 17 00:00:00 2001 From: Stefan Ritter Date: Tue, 16 Aug 2011 10:51:41 +0200 Subject: Initial commit --- CONTENTS | 78 ++ action.fix.tcl | 26 + alltools.tcl | 441 ++++++++++ autobotchk | 377 ++++++++ botchk | 103 +++ cmd_resolve.tcl | 48 + commands.tcl | 5 + compat.tcl | 138 +++ dccwhois.tcl | 167 ++++ decision.tcl | 104 +++ eggdrop-pisg.tcl | 47 + file.pl | 91 ++ file.tcl | 15 + fileextensions.txt | 2334 +++++++++++++++++++++++++++++++++++++++++++++++++ firstseen.pl | 40 + firstseen.tcl | 17 + getops.tcl | 371 ++++++++ google.tcl | 73 ++ klined.tcl | 179 ++++ lastseen.pl | 64 ++ lastseen.tcl | 76 ++ lastspoke.pl | 52 ++ name.tcl | 20 + names.txt | 37 + names_nick.txt | 48 + notes2.tcl | 218 +++++ parse-fileext-wiki.pl | 42 + parse-fileext.pl | 30 + pong.tcl | 34 + ques5.tcl | 370 ++++++++ quotepass.tcl | 41 + quotepong.tcl | 288 ++++++ sentinel.tcl | 1442 ++++++++++++++++++++++++++++++ services.tcl | 78 ++ test.pl | 7 + time.tcl | 26 + tinyurl.tcl | 99 +++ userinfo.tcl | 285 ++++++ weed | 593 +++++++++++++ whoisd.tcl | 232 +++++ whoisd.tcl_old | 155 ++++ wiki.pl | 100 +++ wiki.pl.down | 3 + wiki.tcl | 50 ++ wiki2.pl | 100 +++ 45 files changed, 9144 insertions(+) create mode 100644 CONTENTS create mode 100644 action.fix.tcl create mode 100644 alltools.tcl create mode 100755 autobotchk create mode 100755 botchk create mode 100644 cmd_resolve.tcl create mode 100644 commands.tcl create mode 100644 compat.tcl create mode 100644 dccwhois.tcl create mode 100644 decision.tcl create mode 100644 eggdrop-pisg.tcl create mode 100644 file.pl create mode 100644 file.tcl create mode 100644 fileextensions.txt create mode 100644 firstseen.pl create mode 100644 firstseen.tcl create mode 100644 getops.tcl create mode 100644 google.tcl create mode 100644 klined.tcl create mode 100644 lastseen.pl create mode 100644 lastseen.tcl create mode 100644 lastspoke.pl create mode 100644 name.tcl create mode 100644 names.txt create mode 100644 names_nick.txt create mode 100644 notes2.tcl create mode 100644 parse-fileext-wiki.pl create mode 100644 parse-fileext.pl create mode 100644 pong.tcl create mode 100644 ques5.tcl create mode 100644 quotepass.tcl create mode 100644 quotepong.tcl create mode 100644 sentinel.tcl create mode 100644 services.tcl create mode 100644 test.pl create mode 100644 time.tcl create mode 100644 tinyurl.tcl create mode 100644 userinfo.tcl create mode 100755 weed create mode 100644 whoisd.tcl create mode 100644 whoisd.tcl_old create mode 100644 wiki.pl create mode 100644 wiki.pl.down create mode 100644 wiki.tcl create mode 100644 wiki2.pl diff --git a/CONTENTS b/CONTENTS new file mode 100644 index 0000000..36f6225 --- /dev/null +++ b/CONTENTS @@ -0,0 +1,78 @@ +$Id: CONTENTS,v 1.17 2010/01/03 13:27:31 pseudo Exp $ + +Directory Contents - scripts/ +Last revised: August 08, 2004 + _____________________________________________________________________ + + Directory Contents - scripts/ + + These are the example scripts that come with eggdrop. They're meant to be + useful AND to introduce Tcl to those who haven't dealt with it before. Even + people who program in Tcl may be confused by Eggdrop's implementation at + first, because so many commands were added to interface with the bot. + + action.fix.tcl + Gets rid of those ugly /me's people do instead of a .me. + + alltools.tcl + Several useful procs for use in scripts. + + autobotchk + Tcl script used to crontab your Eggdrop. Type 'scripts/autobotchk' from the + Eggdrop's root directory for help. + + botchk + A shell script which can be used for auto-starting the bot via 'cron'. + + cmd_resolve.tcl + Adds a dcc command called '.resolve' which can be used to resolve hostnames + or IP addresses via the partyline. + + compat.tcl + Maps old Tcl functions to new ones, for lazy people who can't be bothered + updating their scripts. + + dccwhois.tcl + Enhances Eggdrop's built-in dcc '.whois' command to allow all + users to '.whois' their own handle. + + getops.tcl + A way for bots to get ops from other bots on the botnet (if they're on the + same channel). + + klined.tcl + Removes servers from your server list that your bot has been k-lined on, to + prevent admins getting peeved with constant connects from your bot's host. + + notes2.tcl + Check your notes on every shared bot of the hub. + + ques5.tcl + Makes web pages of who's on each channel, updated periodically (requires + alltools.tcl). + + quotepass.tcl + Some servers on the Undernet will make you send 'PASS ' before + you can connect if you did not return an identd response. This script will + handle sending that for you. + + quotepong.tcl + Some EFnet servers require the user to type /quote pong : + when identd is broken or disabled. This will send pong : to + the server when connecting. + + sentinel.tcl (by slennox) + Flood protection script for Eggdrop with integrated BitchX CTCP simulation. + This script is designed to provide strong protection for your bot and + channels against large floodnets and proxy floods. + + userinfo.tcl + Cute user info settings things. + + weed + Weed out certain undesirables from an Eggdrop userlist. Type 'scripts/weed' + from the Eggdrop's root directory for help. + + _____________________________________________________________________ + + Copyright (C) 2001 - 2010 Eggheads Development Team diff --git a/action.fix.tcl b/action.fix.tcl new file mode 100644 index 0000000..1030fd7 --- /dev/null +++ b/action.fix.tcl @@ -0,0 +1,26 @@ +# action.fix.tcl +# +# Copyright (C) 2002 - 2010 Eggheads Development Team +# +# Tothwolf 25May1999: cleanup +# Tothwolf 04Oct1999: changed proc names slightly +# poptix 07Dec2001: handle irssi (and some others) "correct" messages for DCC CTCP +# +# $Id: action.fix.tcl,v 1.12 2010/01/03 13:27:31 pseudo Exp $ + +# Fix for mIRC dcc chat /me's: +bind filt - "\001ACTION *\001" filt:dcc_action +bind filt - "CTCP_MESSAGE \001ACTION *\001" filt:dcc_action2 +proc filt:dcc_action {idx text} { + return ".me [string trim [join [lrange [split $text] 1 end]] \001]" +} + +proc filt:dcc_action2 {idx text} { + return ".me [string trim [join [lrange [split $text] 2 end]] \001]" +} + +# Fix for telnet session /me's: +bind filt - "/me *" filt:telnet_action +proc filt:telnet_action {idx text} { + return ".me [join [lrange [split $text] 1 end]]" +} diff --git a/alltools.tcl b/alltools.tcl new file mode 100644 index 0000000..36cbfa6 --- /dev/null +++ b/alltools.tcl @@ -0,0 +1,441 @@ +# +# All-Tools TCL, includes toolbox.tcl, toolkit.tcl and moretools.tcl +# toolbox was originally authored by cmwagner +# toolkit was originally authored by Robey Pointer +# moretools was originally authored by David Sesno +# modified for 1.3.0 bots by TG +# +# Copyright (C) 1999, 2003 - 2010 Eggheads Development Team +# +# Tothwolf 02May1999: rewritten and updated +# guppy 02May1999: updated even more +# Tothwolf 02May1999: fixed what guppy broke and updated again +# Tothwolf 24/25May1999: more changes +# rtc 20Sep1999: added isnumber, changes +# dw 20Sep1999: use regexp for isnumber checking +# Tothwolf 06Oct1999: optimized completely +# krbb 09Jun2000: added missing return to randstring +# Tothwolf 18Jun2000: added ispermowner +# Sup 02Apr2001: added matchbotattr +# Tothwolf 13Jun2001: updated/modified several commands +# Hanno 28Sep2001: fixed testip +# guppy 03Mar2002: optimized +# Souperman 05Nov2002: added ordnumber +# Tothwolf 27Dec2003: added matchbotattrany, optimized ordnumber, +# more minor changes +# +# $Id: alltools.tcl,v 1.23 2010/01/03 13:27:31 pseudo Exp $ +# +######################################## +# +# Descriptions of available commands: +# +## +## (toolkit): +## +# +# putmsg +# send a privmsg to the given nick or channel +# +# putchan +# send a privmsg to the given nick or channel +# (for compat only, this is the same as 'putmsg' above) +# +# putnotc +# send a notice to the given nick or channel +# +# putact +# send an action to the given nick or channel +# +# +## +## (toolbox): +## +# +# strlwr +# string tolower +# +# strupr +# string toupper +# +# strcmp +# string compare +# +# stricmp +# string compare (case insensitive) +# +# strlen +# string length +# +# stridx +# string index +# +# iscommand +# if the given command exists, return 1 +# else return 0 +# +# timerexists +# if the given command is scheduled by a timer, return its timer id +# else return empty string +# +# utimerexists +# if the given command is scheduled by a utimer, return its utimer id +# else return empty string +# +# inchain +# if the given bot is connected to the botnet, return 1 +# else return 0 +# (for compat only, same as 'islinked') +# +# randstring +# returns a random string of the given length +# +# putdccall +# send the given text to all dcc users +# +# putdccbut +# send the given text to all dcc users except for the given idx +# +# killdccall +# kill all dcc user connections +# +# killdccbut +# kill all dcc user connections except for the given idx +# +# +## +## (moretools): +## +# +# iso +# if the given nick has +o access on the given channel, return 1 +# else return 0 +# +# realtime [format] +# 'time' returns the current time in 24 hour format '14:15' +# 'date' returns the current date in the format '21 Dec 1994' +# not specifying any format will return the current time in +# 12 hour format '1:15 am' +# +# testip +# if the given ip is valid, return 1 +# else return 0 +# +# number_to_number +# if the given number is between 1 and 15, return its text representation +# else return the number given +# +# +## +## (other commands): +## +# +# isnumber +# if the given string is a valid number, return 1 +# else return 0 +# +# ispermowner +# if the given handle is a permanent owner, return 1 +# else return 0 +# +# matchbotattr +# if the given bot has all the given flags, return 1 +# else return 0 +# +# matchbotattrany +# if the given bot has any the given flags, return 1 +# else return 0 +# +# ordnumber +# if the given string is a number, returns the +# "ordinal" version of that number, i.e. 1 -> "1st", +# 2 -> "2nd", 3 -> "3rd", 4 -> "4th", etc. +# else return +# +######################################## + +# So scripts can see if allt is loaded. +set alltools_loaded 1 +set allt_version 206 + +# For backward compatibility. +set toolbox_revision 1007 +set toolbox_loaded 1 +set toolkit_loaded 1 + +# +# toolbox: +# + +proc putmsg {dest text} { + puthelp "PRIVMSG $dest :$text" +} + +proc putchan {dest text} { + puthelp "PRIVMSG $dest :$text" +} + +proc putnotc {dest text} { + puthelp "NOTICE $dest :$text" +} + +proc putact {dest text} { + puthelp "PRIVMSG $dest :\001ACTION $text\001" +} + +# +# toolkit: +# + +proc strlwr {string} { + string tolower $string +} + +proc strupr {string} { + string toupper $string +} + +proc strcmp {string1 string2} { + string compare $string1 $string2 +} + +proc stricmp {string1 string2} { + string compare [string tolower $string1] [string tolower $string2] +} + +proc strlen {string} { + string length $string +} + +proc stridx {string index} { + string index $string $index +} + +proc iscommand {command} { + if {[string compare "" [info commands $command]]} then { + return 1 + } + return 0 +} + +proc timerexists {command} { + foreach i [timers] { + if {![string compare $command [lindex $i 1]]} then { + return [lindex $i 2] + } + } + return +} + +proc utimerexists {command} { + foreach i [utimers] { + if {![string compare $command [lindex $i 1]]} then { + return [lindex $i 2] + } + } + return +} + +proc inchain {bot} { + islinked $bot +} + +proc randstring {length {chars abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789}} { + if {([string compare "" $length]) && \ + (![regexp \[^0-9\] $length])} then { + set count [string length $chars] + if {$count} then { + for {set index 0} {$index < $length} {incr index} { + append result [string index $chars [rand $count]] + } + } else { + error "empty character string" + } + } else { + error "invalid random string length" + } + return $result +} + +proc putdccall {text} { + foreach i [dcclist CHAT] { + putdcc [lindex $i 0] $text + } +} + +proc putdccbut {idx text} { + foreach i [dcclist CHAT] { + set j [lindex $i 0] + if {$j != $idx} then { + putdcc $j $text + } + } +} + +proc killdccall {} { + foreach i [dcclist CHAT] { + killdcc [lindex $i 0] + } +} + +proc killdccbut {idx} { + foreach i [dcclist CHAT] { + set j [lindex $i 0] + if {$j != $idx} then { + killdcc $j + } + } +} + +# +# moretools: +# + +proc iso {nick chan} { + matchattr [nick2hand $nick $chan] o|o $chan +} + +proc realtime {args} { + switch -exact -- [lindex $args 0] { + time { + return [strftime %H:%M] + } + date { + return [strftime "%d %b %Y"] + } + default { + return [strftime "%I:%M %P"] + } + } +} + +proc testip {ip} { + set tmp [split $ip .] + if {[llength $tmp] != 4} then { + return 0 + } + set index 0 + foreach i $tmp { + if {(([regexp \[^0-9\] $i]) || ([string length $i] > 3) || \ + (($index == 3) && (($i > 254) || ($i < 1))) || \ + (($index <= 2) && (($i > 255) || ($i < 0))))} then { + return 0 + } + incr index + } + return 1 +} + +proc number_to_number {number} { + switch -exact -- $number { + 0 { + return Zero + } + 1 { + return One + } + 2 { + return Two + } + 3 { + return Three + } + 4 { + return Four + } + 5 { + return Five + } + 6 { + return Six + } + 7 { + return Seven + } + 8 { + return Eight + } + 9 { + return Nine + } + 10 { + return Ten + } + 11 { + return Eleven + } + 12 { + return Twelve + } + 13 { + return Thirteen + } + 14 { + return Fourteen + } + 15 { + return Fifteen + } + default { + return $number + } + } +} + +# +# other commands: +# + +proc isnumber {string} { + if {([string compare "" $string]) && \ + (![regexp \[^0-9\] $string])} then { + return 1 + } + return 0 +} + +proc ispermowner {hand} { + global owner + + if {([matchattr $hand n]) && \ + ([lsearch -exact [split [string tolower $owner] ", "] \ + [string tolower $hand]] != -1)} then { + return 1 + } + return 0 +} + +proc matchbotattr {bot flags} { + foreach flag [split $flags ""] { + if {[lsearch -exact [split [botattr $bot] ""] $flag] == -1} then { + return 0 + } + } + return 1 +} + +proc matchbotattrany {bot flags} { + foreach flag [split $flags ""] { + if {[string first $flag [botattr $bot]] != -1} then { + return 1 + } + } + return 0 +} + +proc ordnumber {string} { + if {[isnumber $string]} then { + set last [string index $string end] + if {[string index $string [expr [string length $string] - 2]] != 1} then { + if {$last == 1} then { + return ${string}st + } elseif {$last == 2} then { + return ${string}nd + } elseif {$last == 3} then { + return ${string}rd + } + } + return ${string}th + } + return $string +} diff --git a/autobotchk b/autobotchk new file mode 100755 index 0000000..7a12d68 --- /dev/null +++ b/autobotchk @@ -0,0 +1,377 @@ +#! /bin/sh +# This trick is borrowed from Tothwolf's Wolfpack \ +# Check for working 'grep -E' before using 'egrep' \ +if echo a | (grep -E '(a|b)') >/dev/null 2>&1; \ +then \ + egrep="grep -E"; \ +else \ + egrep=egrep; \ +fi; \ +# Search for tclsh[0-9].[0-9] in each valid dir in PATH \ +for dir in $(echo $PATH | sed 's/:/ /g'); \ +do \ + if test -d $dir; \ + then \ + files=$(/bin/ls $dir | $egrep '^tclsh[0-9]\.[0-9]$'); \ + if test "$files" != ""; \ + then \ + versions="${versions:+$versions }$(echo $files | sed 's/tclsh//g')"; \ + fi; \ + fi; \ +done; \ +for ver in $versions; \ +do \ + tmpver=$(echo $ver | sed 's/\.//g'); \ + if test "$lasttmpver" != ""; \ + then \ + if test "$tmpver" -gt "$lasttmpver"; \ + then \ + lastver=$ver; \ + lasttmpver=$tmpver; \ + fi; \ + else \ + lastver=$ver; \ + lasttmpver=$tmpver; \ + fi; \ +done; \ +exec tclsh$lastver "$0" ${1+"$@"} +# +# AutoBotchk - An eggdrop utility to autogenerate botchk/crontab entries +# +# Copyright (C) 1999, 2000, 2001, 2002 Jeff Fisher (guppy@eggheads.org) +# +# How to use +# ---------- +# +# Most people begin to use AutoBotchk by moving it from the script +# directory to their Eggdrop directory -- this will save you from having to +# use the -dir option. +# +# If you run AutoBotchk without any arguments, it will present you with +# a list of valid ones. Most people run AutoBotchk by doing: +# +# ./autobotchk +# +# This will setup crontab to check every 10 minutes to see whether or not +# your bot needs to be restarted and it will e-mail if a restart was +# performed. A lot of people turn off crontab e-mail support; however, I do +# not recommend this since you will be unable to see any errors that might +# happen. +# +# Updates +# ------- +# 27Sep2001: added new pidfile setting +# 14Nov2001: removed old autobotchk update entries and updated the help +# section a little bit. also made autobotchk move down one +# directory if being run from the scripts directory. +# 15Apr2003: cleaned up a few things, fixed a few bugs, and made a little +# love! j/k +# +# $Id: autobotchk,v 1.12 2008/06/18 10:12:22 tothwolf Exp $ +# + +if {$argc == 0} { + puts "\nusage: $argv0 \[options\]" + puts " -dir (directory to run autobotchk in)" + puts " -noemail (discard crontab e-mails)" + puts " -5 (5 minute checks)" + puts " -10 (10 minute checks)" + puts " -15 (15 minute checks)" + puts " -30 (30 minute checks)" + puts "" + exit +} + +fconfigure stdout -buffering none + +proc newsplit {text {split " "}} { + upvar $text ours + append ours $split + set index [string first $split $ours] + if {$index == -1} { + set ours "" + return "" + } + set tmp [string trim [string range $ours 0 $index]] + set ours [string trim [string range $ours [expr $index + [string length $split]] end]] + return $tmp +} + +puts "\nautobotchk 1.10, (C) 2003 Jeff Fisher (guppy@eggheads.org)" +puts "------------------------------------------------------------\n" + +set config [newsplit argv] +set dir [pwd] +set delay 10 +set email 1 + +# If you renamed your eggdrop binary, you should change this variable +set binary "eggdrop" + +while {[set opt [newsplit argv]] != ""} { + switch -- $opt { + "-time" - + "-1" { set delay 1 } + "-5" { set delay 5 } + "-10" { set delay 10 } + "-15" { set delay 15 } + "-20" { set delay 20 } + "-30" { set delay 30 } + "-nomail" - + "-noemail" {set email 0} + "-dir" { + set dir [newsplit argv] + if {[string match -* $dir]} { + puts "*** ERROR: you did not supply a directory name" + puts "" + exit + } + if {![file isdirectory $dir]} { + puts "*** ERROR: the directory you supplied is not a directory" + puts "" + exit + } + } + } +} + +switch -- $delay { + "30" { set minutes "0,30" } + "20" { set minutes "0,20,40" } + "15" { set minutes "0,15,30,45" } + "5" { set minutes "0,5,10,15,20,25,30,35,40,45,50,55" } + "1" { set minutes "*" } + default { set minutes "0,10,20,30,40,50" } +} + +if {[string match "*/scripts" $dir]} { + set dir [string range $dir 0 [expr [string length $dir] - 8]] +} + +set dir [string trimright $dir /] + +if {![file exists $dir/help] || ![file isdirectory $dir/help]} { + puts "*** ERROR: are you sure you are running from a bot directory?" + puts "" + exit +} elseif {![file exists $dir/$binary]} { + puts "*** ERROR: are you sure you are running from a bot directory?" + puts "" + exit +} + +puts -nonewline "Opening '$config' for processing ... " + +if {[catch {open $dir/$config r} fd]} { + puts "error:" + puts " $fd\n" + exit +} else { + puts "done" +} + +set count 0 +puts -nonewline "Scanning the config file " + +while {![eof $fd]} { + incr count + if {$count == 100} { + puts -nonewline "." + set count 0 + } + set line [gets $fd] + if {[set blarg [newsplit line]] != "set"} { + continue + } + switch -- [set opt [newsplit line]] { + "pidfile" - + "nick" - + "userfile" - + "botnet-nick" { + set $opt [string trim [newsplit line] " \""] + } + } +} +close $fd + +if {$count != 0} { + puts -nonewline "." +} + +puts " done" + + if {![info exists {botnet-nick}] && [info exists nick]} { + puts " Defaulting \$botnet-nick to \"$nick\"" + set botnet-nick $nick + } + if {![info exists pidfile]} { + puts " Defaulting \$pidfile to \"pid.${botnet-nick}\"" + set pidfile "pid.${botnet-nick}" + } + if {![info exists {botnet-nick}] || ![info exists userfile]} { + puts " *** ERROR: could not find either \$userfile or \$botnet-nick" + puts "" + puts " Are you sure this is a valid eggdrop config file?" + puts "" + exit + } + if {[catch {open $dir/${botnet-nick}.botchk w} fd]} { + puts " *** ERROR: unable to open '${botnet-nick}.botchk' for writing" + puts "" + exit + } + puts $fd "#! /bin/sh +# +# ${botnet-nick}.botchk (generated on [clock format [clock seconds] -format "%B %d, %Y @ %I:%M%p"]) +# +# Generated by AutoBotchk 1.10 +# Copyright (C) 1999, 2000, 2001, 2002, 2003 Jeff Fisher +# + +# change this to the directory you run your bot from: +botdir=\"$dir\" + +# change this to the name of your bot's script in that directory: +botscript=\"$binary $config\" + +# change this to the nickname of your bot (capitalization COUNTS) +botname=\"${botnet-nick}\" + +# change this to the name of your bot's userfile (capitalization COUNTS) +userfile=\"$userfile\" + +# change this to the name of your bot's pidfile (capitalization COUNTS) +pidfile=\"$pidfile\" + +########## you probably don't need to change anything below here ########## + +cd \$botdir + +# is there a pid file? +if test -r \$pidfile +then + # there is a pid file -- is it current? + botpid=`cat \$pidfile` + if `kill -CHLD \$botpid >/dev/null 2>&1` + then + # it's still going -- back out quietly + exit 0 + fi + echo \"\" + echo \"Stale \$pidfile file, erasing...\" + rm -f \$pidfile +fi + +if test -r CANTSTART.\$botname +then + if test -r \$userfile || test -r \$userfile~new || test -r \$userfile~bak + then + echo \"\" + echo \"Userfile found, removing check file 'CANTSTART.\$botname'...\" + rm -f CANTSTART.\$botname + fi +fi + +# test if we have run botchk previously and didn't find a userfile +if test ! -f CANTSTART.\$botname +then + echo \"\" + echo \"Couldn't find bot '\$botname' running, reloading...\" + echo \"\" + # check for userfile and reload bot if found + if test -r \$userfile + then + # It's there, load the bot + ./\$botscript + exit 0 + else + if test -r \$userfile~new + then + # Bot f*@!ed up while saving the userfile last time. Move it over. + echo \"Userfile missing. Using last saved userfile...\" + mv -f \$userfile~new \$userfile + ./\$botscript + exit 0 + else + if test -r \$userfile~bak + then + # Userfile is missing, use backup userfile. + echo \"Userfile missing. Using backup userfile...\" + cp -f \$userfile~bak \$userfile + ./\$botscript + exit 0 + else + # Well, nothing to work with... + echo \"No userfile. Could not reload the bot...\" + echo \"no userfile\" > CANTSTART.\$botname + exit 1 + fi + fi + fi +fi + +exit 0 + " + close $fd + puts "Wrote '${botnet-nick}.botchk' successfully ([file size $dir/${botnet-nick}.botchk] bytes)" + if {[catch {exec chmod u+x $dir/${botnet-nick}.botchk} 0]} { + puts " *** ERROR: unable to 'chmod u+x' the output file" + puts "" + exit + } + puts -nonewline "Scanning crontab entries ... " + +set tmp ".autobotchk[clock clicks].[pid]" +if {$email} { + set line "$minutes \* \* \* \* $dir/${botnet-nick}.botchk" +} { + set line "$minutes \* \* \* \* $dir/${botnet-nick}.botchk >\/dev\/null 2>&1" +} + +if {[catch {exec crontab -l > $tmp} error ]} { + if {![string match "*no*cron*" [string tolower $error]] && + ![string match "*can't open*" [string tolower $error]]} { + catch {file delete -force $tmp} 0 + puts "error: unable to get crontab listing" + puts "" + puts $error + puts "" + exit + } +} + +set fd [open $tmp r] +while {![eof $fd]} { + set z [gets $fd] + if {[string match "*$dir/${botnet-nick}.botchk*" $z] || + [string match "*$dir//${botnet-nick}.botchk*" $z]} { + puts "found an existing entry, we're done now" + puts "" + exit + } +} + +close $fd + +puts "done" + +puts -nonewline "Adding the new crontab entry ... " +set fd [open $tmp a] +puts $fd $line +close $fd + +if {[catch {exec crontab $tmp} error]} { + puts "error: unable to do 'crontab $tmp'" + puts "" + puts $error + puts "" + exit +} else { + catch {file delete -force $tmp} 0 +} + +puts "done" +puts "" +puts "Use 'crontab -l' to view all your current crontab entries" +puts " 'crontab -r' to remove all your crontab entries" +puts "" diff --git a/botchk b/botchk new file mode 100755 index 0000000..e66f94b --- /dev/null +++ b/botchk @@ -0,0 +1,103 @@ +#! /bin/sh +# +# botchk +# +# $Id: botchk,v 1.6 2002/02/27 18:21:46 guppy Exp $ +# +# This is a script suitable for use in a crontab. It checks to make sure +# your bot is running. YOU NEED A SEPARATE CRON JOB FOR EACH BOT. If your +# bot isn't found, it'll try to start it back up. +# +# You'll need to edit this script for your bot. +# +# To check for your bot every 10 minutes, put the following line in your +# crontab: +# 0,10,20,30,40,50 * * * * /home/mydir/mybot/botchk +# And if you don't want to get email from crontab when it checks you bot, +# put the following in your crontab: +# 0,10,20,30,40,50 * * * * /home/mydir/mybot/botchk >/dev/null 2>&1 +# + +# change this to the directory you run your bot from (capitalization COUNTS): +botdir="/home/mydir/mybot" + +# change this to the name of your bot's config file (capitalization COUNTS): +botscript="mybot" + +# change this to the botnet-nick of your bot (capitalization COUNTS): +botname="LamestBot" + +# change this to the name of your bot's userfile (capitalization COUNTS): +userfile="LamestBot.user" + +# change this to the name of your bot's pidfile (capitalization COUNTS): +pidfile="pid.LamestBot" + +########## you probably don't need to change anything below here ########## + +cd $botdir + +# is there a pid file? +if test -r $pidfile +then + # there is a pid file -- is it current? + botpid=`cat $pidfile` + if `kill -CHLD $botpid >/dev/null 2>&1` + then + # it's still going -- back out quietly + exit 0 + fi + echo "" + echo "Stale $pidfile file, erasing..." + rm -f $pidfile +fi + +if test -r CANTSTART.$botname +then + if test -r $userfile || test -r $userfile~new || test -r $userfile~bak + then + echo "" + echo "Userfile found, removing check file 'CANTSTART.$botname'..." + rm -f CANTSTART.$botname + fi +fi + +# test if we have run botchk previously and didn't find a userfile +if test ! -f CANTSTART.$botname +then + echo "" + echo "Couldn't find bot '$botname' running, reloading..." + echo "" + # check for userfile and reload bot if found + if test -r $userfile + then + # It's there, load the bot + ./$botscript + exit 0 + else + if test -r $userfile~new + then + # Bot f*@!ed up while saving the userfile last time. Move it over. + echo "Userfile missing. Using last saved userfile..." + mv -f $userfile~new $userfile + ./$botscript + exit 0 + else + if test -r $userfile~bak + then + # Userfile is missing, use backup userfile. + echo "Userfile missing. Using backup userfile..." + cp -f $userfile~bak $userfile + ./$botscript + exit 0 + else + # Well, nothing to work with... + echo "No userfile. Could not reload the bot..." + echo "no userfile" > CANTSTART.$botname + exit 1 + fi + fi + fi +fi + +exit 0 diff --git a/cmd_resolve.tcl b/cmd_resolve.tcl new file mode 100644 index 0000000..36ccb4e --- /dev/null +++ b/cmd_resolve.tcl @@ -0,0 +1,48 @@ +# +# cmd_resolve.tcl +# written by Jeff Fisher (guppy@eggheads.org) +# +# This script adds the commands '.resolve' and '.dns' which can be used to +# lookup hostnames or ip addresses in the partyline without causing the bot +# to block while doing so thanks to the dns module. +# +# updates +# ------- +# 15Apr2003: fixed a logging bug and stop using regexp incorrectly +# 05Nov2000: fixed a nasty security hole, .resolve [die] +# 04Nov2000: first version +# +# $Id: cmd_resolve.tcl,v 1.4 2003/04/16 01:03:04 guppy Exp $ + +bind dcc -|- resolve resolve_cmd +bind dcc -|- dns resolve_cmd + +proc resolve_cmd {hand idx arg} { + global lastbind + if {[scan $arg "%s" hostip] != 1} { + putidx $idx "Usage: $lastbind " + } else { + putidx $idx "Looking up $hostip ..." + set hostip [split $hostip] + dnslookup $hostip resolve_callback $idx $hostip $lastbind + } + return 0 +} + +proc resolve_callback {ip host status idx hostip cmd} { + if {![valididx $idx]} { + return 0 + } elseif {!$status} { + putidx $idx "Unable to resolve $hostip" + } elseif {[string tolower $ip] == [string tolower $hostip]} { + putidx $idx "Resolved $ip to $host" + } else { + putidx $idx "Resolved $host to $ip" + } + putcmdlog "#[idx2hand $idx]# $cmd $hostip" + return 0 +} + +loadhelp cmd_resolve.help + +putlog "Loaded cmd_resolve.tcl successfully." diff --git a/commands.tcl b/commands.tcl new file mode 100644 index 0000000..86ba8a8 --- /dev/null +++ b/commands.tcl @@ -0,0 +1,5 @@ +#bind pub - np proc_np + +proc proc_np {nick host hand chan args} { +# putserv "PRIVMSG $chan :-> supportboard!" +} diff --git a/compat.tcl b/compat.tcl new file mode 100644 index 0000000..1093da8 --- /dev/null +++ b/compat.tcl @@ -0,0 +1,138 @@ +# compat.tcl +# This script just quickly maps old Tcl commands to the new ones. +# Use this if you are too lazy to get off your butt and update your scripts :D +# +# Copyright (C) 2002 - 2010 Eggheads Development Team +# +# Wiktor 31Mar2000: added binds and chnick proc +# Tothwolf 25May1999: cleanup +# Tothwolf 06Oct1999: optimized +# rtc 10Oct1999: added [set|get][dn|up]loads functions +# pseudo 04Oct2009: added putdccraw +# Pixelz 08Apr2010: changed [time] to be compatible with Tcl [time] +# +# $Id: compat.tcl,v 1.19 2010/07/02 21:56:44 pseudo Exp $ + +proc gethosts {hand} { + getuser $hand HOSTS +} + +proc addhost {hand host} { + setuser $hand HOSTS $host +} + +proc chpass {hand pass} { + setuser $hand PASS $pass +} + + +proc chnick {oldnick newnick} { + chhandle $oldnick $newnick +} + +# setxtra is no longer relevant + +proc getxtra {hand} { + getuser $hand XTRA +} + +proc setinfo {hand info} { + setuser $hand INFO $info +} + +proc getinfo {hand} { + getuser $hand INFO +} + +proc getaddr {hand} { + getuser $hand BOTADDR +} + +proc setaddr {hand addr} { + setuser $hand BOTADDR $addr +} + +proc getdccdir {hand} { + getuser $hand DCCDIR +} + +proc setdccdir {hand dccdir} { + setuser $hand DCCDIR $dccdir +} + +proc getcomment {hand} { + getuser $hand COMMENT +} + +proc setcomment {hand comment} { + setuser $hand COMMENT $comment +} + +proc getemail {hand} { + getuser $hand XTRA email +} + +proc setemail {hand email} { + setuser $hand XTRA EMAIL $email +} + +proc getchanlaston {hand} { + lindex [getuser $hand LASTON] 1 +} + +if {![llength [info commands {TCLTIME}]] && [llength [info commands {time}]]} { + rename time TCLTIME +} + +proc time {args} { + if {([llength $args] != 0) && [llength [info commands {TCLTIME}]]} { + if {[llength [info commands {uplevel}]]} { + uplevel 1 TCLTIME $args + } else { + eval TCLTIME $args + } + } else { + strftime "%H:%M" + } +} + +proc date {} { + strftime "%d %b %Y" +} + +proc setdnloads {hand {c 0} {k 0}} { + setuser $hand FSTAT d $c $k +} + +proc getdnloads {hand} { + getuser $hand FSTAT d +} + +proc setuploads {hand {c 0} {k 0}} { + setuser $hand FSTAT u $c $k +} + +proc getuploads {hand} { + getuser $hand FSTAT u +} + +proc putdccraw {idx size text} { + if {!$idx} { + putloglev o * "Warning! putdccraw is deprecated. Use putnow instead!" + putnow $text + return -code ok + } + putloglev o * "Warning! putdccraw is deprecated. Use putdcc instead!" + if {![valididx $idx]} {return -code error "invalid idx"} + putdcc $idx $text -raw +} + +# 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 + +# Following are some TCL global variables that are obsolete now and have been removed +# but are still defined here so not to break older scripts + +set strict-servernames 0 + diff --git a/dccwhois.tcl b/dccwhois.tcl new file mode 100644 index 0000000..c334a0d --- /dev/null +++ b/dccwhois.tcl @@ -0,0 +1,167 @@ +############################################################################### +## +## dccwhois.tcl - Enhanced '.whois' dcc command for Eggdrop +## Copyright (C) 2009 Tothwolf +## +## This program is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 2 of the License, or +## (at your option) any later version. +## +## This program is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with this program; if not, write to the Free Software +## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +## +############################################################################### +## +## $Id: dccwhois.tcl,v 1.1 2009/01/22 03:12:45 tothwolf Exp $ +## +############################################################################### +## +## Description: +## +## This script enhances Eggdrop's built-in dcc '.whois' command to allow all +## users to '.whois' their own handle. +## +## Users without the correct flags who attempt to '.whois' other users will +## instead see the message: "You do not have access to whois handles other +## than your own." +## +## To load this script, add a source command to your bot's config file: +## +## source scripts/dccwhois.tcl +## +## This script stores and checks against the flags that are used for +## Eggdrop's built-in dcc '.whois' command at load time. If you wish to use +## flags other than the default "to|o", etc, you should unbind and rebind +## the built-in '.whois' command in your bot's config file before loading +## this script. +## +## Example of how to rebind Eggdrop's built-in '.whois' command: +## +## unbind dcc to|o whois *dcc:whois +## bind dcc to|m whois *dcc:whois +## +## Note: if you modify the default flags for '.whois' you may also wish to +## modify the defaults for '.match'. +## +############################################################################### +## +## This script has no settings and does not require any configuration. +## You should not need to edit anything below. +## +############################################################################### + + +# This script should not be used with Eggdrop versions 1.6.16 - 1.6.19. +catch {set numversion} +if {([info exists numversion]) && + ($numversion >= 1061600) && ($numversion <= 1061900)} then { + putlog "Error: dccwhois.tcl is not compatible with Eggdrop version [lindex $version 0]. Please upgrade to 1.6.20 or later." + return +} + + +# +# dcc:whois -- +# +# Wrapper proc command for Eggdrop's built-in *dcc:whois +# +# Arguments: +# hand - handle of user who used this command +# idx - dcc idx of user who used this command +# arg - arguments passed to this command +# +# Results: +# Calls Eggdrop's built-in *dcc:whois with the given arguments if user has +# access, otherwise tells the user they don't have access. +# +proc dcc:whois {hand idx arg} { + global dccwhois_flags + + set arg [split [string trimright $arg]] + set who [lindex $arg 0] + + # Did user gave a handle other than their own? + if {([string compare "" $who]) && + ([string compare [string toupper $hand] [string toupper $who]])} then { + + # Get user's current .console channel; check the same way Eggdrop does. + set chan [lindex [console $idx] 0] + + # User isn't allowed to '.whois' handles other than their own. + if {![matchattr $hand $dccwhois_flags $chan]} then { + putdcc $idx "You do not have access to whois handles other than your own." + + return 0 + } + } + + # Call built-in whois command. + *dcc:whois $hand $idx $arg + + # Return 0 so we don't log command twice. + return 0 +} + + +# +# init_dccwhois -- +# +# Initialize dccwhois script-specific code when script is loaded +# +# Arguments: +# (none) +# +# Results: +# Set up command bindings and store command access flags. +# +proc init_dccwhois {} { + global dccwhois_flags + + putlog "Loading dccwhois.tcl..." + + # Sanity check... + if {[array exists dccwhois_flags]} then { + array unset dccwhois_flags + } + + # Search binds for built-in '*dcc:whois' and loop over each bind in list + foreach bind [binds "\\*dcc:whois"] { + + # dcc to|o whois 0 *dcc:whois + foreach {type flags name count command} $bind {break} + + # We only want to unbind dcc '.whois' + if {[string compare $name "whois"]} then { + continue + } + + # Store $flags so we can reuse them later + set dccwhois_flags $flags + + # Unbind built-in *dcc:whois + unbind $type $flags $name $command + } + + # Make sure $dccwhois_flags exists and isn't empty, + # otherwise set to Eggdrop's default "to|o" + if {(![info exists dccwhois_flags]) || + (![string compare "" $dccwhois_flags])} then { + set dccwhois_flags "to|o" + } + + # Add bind for dcc:whois wrapper proc + bind dcc -|- whois dcc:whois + + putlog "Loaded dccwhois.tcl" + + return +} + +init_dccwhois diff --git a/decision.tcl b/decision.tcl new file mode 100644 index 0000000..8b7ad94 --- /dev/null +++ b/decision.tcl @@ -0,0 +1,104 @@ +# decision.tcl by lookshe (v 1.1) +# +# todo: little bit better coding style +# +# Changelog: +# +# 1.0 +# - first working version +# +# 1.1 +# - remember answers for 60 minutes (doesn't work atm) +# mask arguments! + + +bind pub - \[ proc_decision + +proc proc_decision {nick host hand chan arguments} { + +global do_dec +if {[info exists do_dec($nick:$chan)]} { + if {$nick == "lookshe"} { + unset do_dec($nick:$chan) + } else { + set act_do_dec $do_dec($nick:$chan) + if {$act_do_dec < 3} { + incr act_do_dec + set do_dec($nick:$chan) $act_do_dec + } else { + putserv "NOTICE $nick :no flooding!" + return 0 + } + } +} else { + if {$nick != "lookshe"} { + set do_dec($nick:$chan) 1 + timer 10 "unset do_dec($nick:$chan)" + } +} + + set allargs $arguments + set arguments [split $arguments] + set count 1 + set klammer_count 0 + if {([lindex $arguments 0] == "]") || ([string first "]" [lindex $arguments 0]] == 0)} { + incr klammer_count + } else { + return + } + while {$count != [llength $arguments]} { + if {[lindex $arguments $count] == "\["} { + set tmp $count + incr tmp + if {([lindex $arguments $tmp] == "]") || ([string first "]" [lindex $arguments $tmp]] == 0)} { + incr klammer_count + } + } + incr count + } + if {$klammer_count == 1} { + return + } + set count 0 + set myrand [rand $klammer_count] + # if {[info exists do_dec($allargs)]} { + # set myrand $do_dec($allargs) + # } else { + # set do_dec($allargs) $myrand + # timer 60 "unset do_dec($allargs)" + # } + set klammer_count 0 + if {$myrand == 0} { + set output "\[X" + while {$count != [llength $arguments]} { + set output "$output[lindex $arguments $count] " + incr count + } + } else { + set output "\[" + while {$count != [llength $arguments]} { + if {[lindex $arguments $count] == "\["} { + set tmp $count + incr tmp + if {([lindex $arguments $tmp] == "]") || ([string first "]" [lindex $arguments $tmp]] == 0)} { + incr klammer_count + } + } + if {$klammer_count == $myrand} { + if {([lindex $arguments $count] == "]") || ([string first "]" [lindex $arguments $count]] == 0)} { + set output "[string range $output 0 end]X" + } else { + set output "$output " + } + } else { + set output "$output " + } + set output "$output[lindex $arguments $count]" + incr count + } + + } + putserv "PRIVMSG $chan :$output" +} + +putlog "decision by lookshe loaded" diff --git a/eggdrop-pisg.tcl b/eggdrop-pisg.tcl new file mode 100644 index 0000000..3069682 --- /dev/null +++ b/eggdrop-pisg.tcl @@ -0,0 +1,47 @@ +#pisg.tcl v0.15 by HM2K - auto stats script for pisg (perl irc statistics generator) +#based on a script by Arganan + +# WARNING - READ THIS +# +# If you use this script, PLEASE read the documentation about the "Silent" +# option. If you get the message "an error occured: Pisg v0.67 - perl irc +# statistics generator" in the channel, you are NOT running silent. Fix it. + +set pisgver "0.15" + +#Location of pisg execuitable perl script +set pisgexe "/home/eggdrop/eggdrop/pisg/pisg" + +#URL of the generated stats +set pisgurl "http://www.thehappy.de/habo/stats" + +#channel that the stats are generated for +set pisgchan "#hackerboard" + +#Users with these flags can operate this function +set pisgflags "nm" + +#How often the stats will be updated in minutes, ie: 30 - stats will be updated every 30 minutes +set pisgtime "1440" + +bind pub $pisgflags !stats pub:pisgcmd + +proc pub:pisgcmd {nick host hand chan arg} { + global pisgexe pisgurl pisgchan + append out "PRIVMSG $pisgchan :" ; if {[catch {exec $pisgexe} error]} { append out "$pisgexe an error occured: [string totitle $error]" } else { append out "Stats Updated: $pisgurl" } + # puthelp $out +} + +proc pisgcmd_timer {} { + global pisgexe pisgurl pisgchan pisgtime + append out "PRIVMSG $pisgchan :" ; if {[catch {exec $pisgexe} error]} { append out "$pisgexe an error occured: [string totitle $error]" } else { append out "Stats Updated: $pisgurl" } + # puthelp $out + timer $pisgtime pisgcmd_timer +} + +if {![info exists {pisgset}]} { + set pisgset 1 + timer 2 pisgcmd_timer +} + +putlog "pisg.tcl $pisgver loaded" diff --git a/file.pl b/file.pl new file mode 100644 index 0000000..6bc1faa --- /dev/null +++ b/file.pl @@ -0,0 +1,91 @@ +#!/usr/bin/perl + +#use strict; +#use warnings; +use Web::Scraper; +use URI; +use HTML::Entities; +use Encode; +use URI::Escape; +use LWP::UserAgent; + + +my $type = $ARGV[0]; +my $file = $ARGV[1]; +my $skipFile = $ARGV[2]; + +if ($length !~ /.{0,6}/) { + exit 0; +} + +binmode(STDOUT, ":utf8"); + +if ($type !~ /^\./) { + $type =~ s/^/./; +} + +my $found = 0; + +if ($skipFile !~ /X/i) +{ + open (in,"<$file")||die $!; + while () { + ($ext = $_) =~ s/ .*\n//; + ($des = $_) =~ s/^$ext (.*)\n/$1/; + if ($type =~ /^$ext$/) { + print "$ext is \"$des\"\n"; + $found = 1; + } + } + close in; +} +$type =~ s/^\.//; +if ($found == 0) { + $found = 0; + #my $wikiurl = "http://filext.com/file-extension/$ARGV[0]"; + #my $scrapp = scraper { + # process '//table/tr/td', 'chars[]' => 'TEXT'; + #}; + my $wikiurl = "http://www.file-extensions.org/search/?searchstring=$ARGV[0]"; + my $scrapp = scraper { + process '//table/tr/td', 'chars[]' => 'TEXT'; + process '//div//p', 'results[]' => 'TEXT'; + process '//div[@id="heading"]/h2', 'text[]' => 'TEXT'; + }; + my $url = URI->new($wikiurl); + my $blubb = $scrapp->scrape($url); + my $list = $blubb->{'chars'}; + my $res = $blubb->{'results'}; + my $text = $blubb->{'text'}; + my $morethanone = 0; + for ($i=0; $i <= $#$res; $i++) { + if ($$res[$i] =~ /Database contains .* records./i) { + $morethanone = 1; + } + } + if ($morethanone =~/1/) { + for ($i = 3; $i <= $#$list; $i++) { + if ($$list[$i] =~ /^.$type.+/i) { + last; + } + if ($$list[$i] !~ /^.$type$/i) { + print ".$type is $$list[$i]\n"; + $found = 1; + } + } + } else { + print ".$type is $$text[0]\n"; + $found = 1; + } + #for ($i = 0; $i <= $#$list; $i++) { + # if ($$list[$i] =~ /^Extension: $type$/i) { + # print ".$type is $$list[$i+4]\n"; + # $found = 1; + # } + #} + if ($found == 0) { + print ".$type not in database\n"; + } +} + + diff --git a/file.tcl b/file.tcl new file mode 100644 index 0000000..cde8e03 --- /dev/null +++ b/file.tcl @@ -0,0 +1,15 @@ +bind pub - !filetype proc_file + +proc proc_file {nick host hand chan arg} { + set arg [string trim $arg] + if {$arg == ""} { + return 0 + } + + set output [split "[exec perl /home/eggdrop/eggdrop/scripts/file.pl $arg /home/eggdrop/eggdrop/scripts/fileextensions.txt X]" "\n"] + foreach out $output { + putserv "PRIVMSG $chan :$out" + } +} + +putlog "filetype by lookshe loaded" diff --git a/fileextensions.txt b/fileextensions.txt new file mode 100644 index 0000000..990adba --- /dev/null +++ b/fileextensions.txt @@ -0,0 +1,2334 @@ +.~$~ Temporäre Datei +.~ap AppExpert project database Datei +.~de Project backup Datei +.~mn Menu backup +.~pr Project backup Datei +.0 Data Datei +.000 Komprimierte Datei +.001 NetWare Unicode Rule Table File +.001 Datanorm (Daten) +.04 Data Datei +.05 Data Datei +.06 Data Datei +.07 Data Datei +.1-step Backup Datei +.113 Backup Datei (Daten) +.123 Lotus 123 97 Datei +.12m Smartmaster Datei +.1st Documenting wizard list +.2d 2-dimens. Zeichnung +.2dm 3-dimens. Geländemodell +.3d 3-dimens. Zeichnung +.3dm 3D Model +.3dr 3DMark.Result +.3ds 3D Studio +.3gp Third Generation Partnership +.411 Daten Datei +.4db Structure File +.4dd 4D Data File +.4dr Data Resource file +.4ge Compiled code +.4gl Source code +.4v Musikdatei +.669 Composer 669 +.7z 7-Zip +.8 Source Datei +.8df Plug-in +.8ds Plug-in +.8xp Ti-8x Programm +.a Archiv +.a2l Beschreibungsdatei für Kraftfahrzeug-Steuergeräte +.a3l Authorware 3.x library +.a3m Authorware MacIntosh-Datei +.a3w Authorware Windows-Datei +.a4l Authorware 4.x library +.a4m Authorware MacIntosh-Datei +.a4p Authorware Datei +.a4w Authorware Windows-Datei +.a5l Authorware 5.x library +.a5w Authorware Windows Datei +.aa Audible audio Datei +.aac Advanced Audio Coding +.aam Authorware shocked Datei +.aas Authorware shocked packet +.ab Applix-Builder-Datei +.abf Adobe Binary Screen Font +.abc ABC (Musiknotation) +.abk Backup-Datei +.abk Corel Draw Auto-Backup +.abm Audio-album-Datei +.abo Applix Builder Turbo Datei +.abs MPEG Audio-Sound-Datei +.abs abstract +.abw Abiword-Dokument +.aca HTTP animation Datei +.aca Project Manager Workbench Datei +.acb ACBM Graphic image +.acc DR-DOS Viewmax-Datei +.acc Accessory +.acd Character definition Datei +.acd Acid Song File +.ace ace Archiv +.acf HTTP character Datei +.aci ACI development appraisal +.acl keyboard accelerator Datei +.acm Dynamic Link Library +.acm Interplay compressed sound Datei +.acp Assistant Preview Datei +.acr American College of Radiology +.acs Character structered storage +.act Action Presentation +.act Foxdoc Action Diagram +.act Assistant Actor Datei +.ad After Dark +.ada Ada source text +.adb Ada source text body +.adb Appointment database +.adc Color Bitmap Graphic +.add OS/2 adapter driver +.adf Amiga disk Datei +.adf Adapter Description File +.adi AutoCAD device-independent +.adi Driver Description +.adl QEMM Mca adaptor description library +.adm After Dark MultiModule +.adm Windows NT policy template +.adn Lotus 1-2-3 Add-In-Datei +.adp Astound Dynamite Datei +.adp Access Database Project +.adp Dynamic Page Datei +.adp FaxWorks Faxmodem Setup-Datei +.adr After Dark Randomizer +.adr Smart Address address book +.adr Opera Bookmark +.ads Ada source text specification Datei +.ads ADIS=Animal Data Interchange Syntax +.adt AdTech Fax Datei +.adt datafile for card applications +.adx Archetype Designer Document +.adx Dynazip Active Delivery script +.adx Lotus Approach dBase Index +.adz Packed ADF Datei +.ae Author/Editor Datei +.aep ArcExplorer project +.aep Adobe After Effects project +.af2 ABC FlowCharter 2.0 Flowchart +.af3 ABC Flowchart +.afc Apple Sound-Datei +.afi Truevision Bitmap graphic +.afm Adobe font metrics +.afm Cardfile application +.ag Applix graphic +.agb Game Boy Advance ROM image +.agr Xmgrace Projekt +.ahk Autohotkey +.ai Adobe Illustrator drawing +.ai Corel Trace drawing +.aifc Audio Interchange File Format compressed +.aim AOL Instant Messenger Startdatei +.ain AIN Compressed archive +.aio APL transfer Datei +.ais ACDSee Image Sequence +.ais Velvet Studio Instruments Datei +.ais Array of Intensity Samples +.aix Cardfile Application data +.akz Akzent-Datei +.alaw European Telephony audio +.alb Album +.ale AvidLogExchange +.ali Dokument +.all Arts & Letters Library +.all General printer information +.all Steinberg Cubase +.alo Alamo-Datei +.alt WordPerfect Library Menu +.alt alte Version +.alv (MIS) Alea View +.alz Alzip +.am Applix SHELF Macro +.am App-Magic Datei +.am1 Adventure-Maker Programm +.amdb App-Magic Datenbank +.amf Asylum (module/music) (format/file) +.amf Advanced Module Format +.amg ACTOR System image +.amg AMGC Compressed archive +.ami Annotation Datei +.ampp App-Magic Programm-Paket +.amr Adaptive MultiRate +.ams Extreme's Tracker module +.ams Velvet Studio music module +.an Textdatei +.an8 Anim8or +.anc Canon Computer Pattern Maker +.ani Animierter Cursor +.anim Animation +.anm DeluxPaint Animation +.ann Windows 3.x Help annotation +.ans ANSI Textdatei +.ant SimAnt saved game +.aob Audio Objects +.aol America Online Datei +.aos Add-on software +.aot Application bindery object template +.ap Applix Presents Datei +.ap WHAP Compressed Amiga archive +.apc Compiled application +.apc Druckertreiber +.apd Dynamic application library +.apd Druckertreiber +.ape Ape (engl. für Affe) +.apf Druckertreiber +.apf Allaire Project File +.api Application Program Interface +.api Druckertreiber +.apl APL Workspace Datei +.apl Application library +.app Application Generator Object +.app Executable Application +.app Generated Application +.app Normal mode application +.app Symphony Add-in Application +.apr ArcView Projektdatei +.apr Employee Appraiser Performance Review +.apr Lotus Approach View +.aps Advanced patching systems +.apt Lotus Approach Data view +.apt Text mode application +.apx Appexpert database +.apx Lotus Approach Paradox-Specific information +.aq Applix data +.arf Automatic Response Datei +.ari ARI Compressed archive +.ari Aristotle audio Datei +.arj Archive Robert Jung +.arl AOL v4.0 organizer Datei +.arr Steinberg Cubase +.art AOL Image Datei +.art Canon Crayola art +.art Clip Art +.art First Publisher Raster graphic +.art Ray Tracer Datei +.art Xara Studio drawing +.arx ARX Compressed Archive +.as Applix Spreadsheet +.as ActionScript +.asa Microsoft Visual InterDev Datei +.asc ASCII-Datei +.ascx ASP.NET Control +.asd Astound Presentation +.asd Bildschirmtreiber +.asd AutoSave Datei +.ase Velvet Studio Sample Datei +.asf Bildschirmschriftart +.asf StratGraphics Datafile +.ash Assembly language header +.asi Assembler Include Datei +.asl Style-Datei +.asm Assembler-Quellcode +.asm Pro/E assembly +.asm Solid Edge Assembly +.asmdot Assembly Template +.aso Astound Dynamite Object +.asp Active Server Pages +.asp Astound Presentation +.asp Setup- und Verbindungsscript +.aspx ASP.NET Seite +.ass Advanced SubStation Alpha +.ast Astound multimedia Datei +.ast assistant +.asv DataCAD Autosave Datei +.asv Matlab Autosave Datei +.asx CA BrightStor ARCserve Backup script +.asx Microsoft Advanced Streaming Redirector +.at2 Auto Template +.atf APL Transfer Datei +.atm Adobe Type Manager data/info Datei +.atm Atmosphere +.atn Aktionendatei +.att AT&T Group 4 bitmap +.atw AnyTime Deluxe for Windows +.au Audio U-law +.aud Audio Datei +.aup easyLEARN Author Projekt +.aut AutoIt Script +.aut easyLEARN Author Lernmittelbeschreibung +.au3 AutoIt v3 Script +.aux Auxilliary Dictionary +.aux Auxilliary Reference Datei +.aux Geospatial Imaging ERDAS IMAGINE and LPS Data File +.ava Avagio Publication +.avb Virusinfizierte Datei +.ave Avenue-Script +.avi Audio Video Interleave +.avp Symbolpalette +.avr Audio Visual Research Datei +.avs Application Visualization System +.avs Stardent AVS-X Image +.avx Erweiterung (Extension) +.aw Applix Words +.aw Textdokument +.awd FaxView Document image +.awk AWK Script/Program +.awm Animation Works Movie +.awr Telsis Datei +.aws StatGraphics Data +.axl ArcIMS XML project +.axt ASCII application object template +.b Applause Batch list +.b Spielstand +.b30 printer font +.b4 Helix Nuts and Bolts +.b5t Blind Write 5 +.b64 Base64-Datei +.b8 Raw graphic +.bad Oracle bad Datei +.bag BAG Archiv +.bak Backup-Datei +.bal Ballade Music score +.bar Horizontal menu object +.bas Basic (Source code) +.bat Batch +.bb Papyrus Database backup +.bb Blitz Basic +.bbl Bibliographic reference +.bbm Deluxe Paint Bitmap image +.bbs Bulletin Board System text +.bc! Bittorrent-Client-Datei +.bch Batch Process Object +.bch Daten-Datei +.bcm Communications Datei +.bco Bitstream Outline font description +.bcp Makefile +.bcw Environment settings +.bdb Datenbank +.bdf Egret Datafile +.bdf West Point Bridge Designer File +.bdf Birthday File +.bdf Binary Diff File +.bdl Bundle Datei (2D und 3D CAD Zeichnung) +.bdr Border +.bdsproj Borland Developer Studio Projekt +.bez Bitstream Outline font description +.bf Brainfuck +.bf2 Bradford 2 Font +.bfc Microsoft Windows 95 Briefcase Document +.bfe Blowfish encrypted +.bfm Font Metrics Datei +.bfx Fax document Datei +.bg Microsoft Backgammon Game +.bga OS/2 Graphic array +.bgi Borland Graphics Interface Driver +.bgl Microsoft Flight Simulator Scenery +.bhf pcAnywhere Host Datei +.bhx WinZip file +.bi binary +.bi Basic Include file +.bib Bibliography Datei +.bib Literatur-Datenbank (Bibliografie) +.bif GroupWise initialization Datei +.bif Binary Image b&w graphic +.biff XLITE 3D Datei +.bik bink video +.bin binary (file) +.bio OS/2 Bios Datei +.bit X11 Bitmap +.bk Backup +.bk JetFax Faxbook Datei +.bk! Document backup +.bk$ Backup +.bkp Backup +.bks bookshelf Datei +.bks Spreadsheet Backup +.bkw FontEdit Fontset mirror image +.blb Resource archive +.bld BASIC Bloadable picture +.blend Blender3D +.blib WorkBench++ für C-Control I +.blk Alias Wavefront Image +.blk Temporäre Datei +.bm Bitmap +.bm1 Apogee BioMenace data +.bmf Corel Gallery Datei +.bmk Windows Help bookmark +.bmp Bitmap +.bmp Bitmap +.bmp Bitmap +.bmt Ami Pro Button +.bmx BlitzMax +.bn Instrument Bank Datei +.bnk Instrument Bank Datei +.bnk Sound effects bank Datei +.bol Compressed archive library +.bom Bill of materials +.bom Bill of materials +.boo Compressed archive +.book Book +.bos Optimized Binary File +.box Lotus Notes Datei +.bpc Business Plan Toolkit Chart +.bpl Borland Delphi 4 packed library +.bpr Borland Projekt Datei +.bpp WorkBench++ für C-Control I +.bps Microsoft Works Document +.bpt CorelDraw Bitmap fills Datei +.bpx Truevision Targa Bitmap +.bqy BrioQuery Datei +.br Bridge Script +.brd Board +.brd Board +.brk Brooktrout Fax-Mail Datei +.brush DPaint Grafikdatei +.brz DbBRZ +.bs_ Find Menu shell extension +.bs1 Apogee Blake Stone Datei +.bsa BSARC Compressed archive +.bsc Apple II Compressed archive +.bsc Fortran Pwbrmake Object +.bsc browser information +.bsp Quake-Engine Map Datei +.bst BiblioTex file +.btm Batch-Datei +.btn Makeover Button File +.btr Btrieve-Datenbank +.bud Backup disk for Quicken +.bun CakeWalk Audio Bundle +.bup Backup +.but Button definition +.bw SGI Black and White image +.bwb Spreadsheet application +.bwi BlindWrite Image +.bwr Kermit Beware buglist +.bws Sub-Code BlindWrite +.bwt Blindread Image +.bwv Business Wave Datei +.byu BYU Movie +.bz bzip +.bz2 bzip2 +.c C Source Code File +.c configuration +.cpp C++ +.C C++ +.c00 Ventura Publisher Print Datei +.C01 Typhoon wave +.c2 C-Controll II Modul +.c2d WinOnCD CD-Image +.c2p C-Controll II Projekt +.c4d Cinema4D-Scenefile +.c4d Clonk 4 Objektdefinition +.c4f Clonk 4 Rundenordner +.c4g Clonk 4 Systemdaten +.c4k Clonk 4 Registrierschlüssel +.c4m Clonk 4 Materialdefinition +.c4p Clonk 4 Spielerdatei +.c4s Clonk 4 Szenario +.c4x Clonk 4 Engine +.C86 C86 Quellcode +.ca Cache-Datei +.cab Microsoft Cabinet Datei +.cac Executable Datei +.cad Softdesk Drafix Cad +.cag Catalog Datei +.cal Kalender-Datei +.Crash Absturzmeldung +.cal Cakewalk Application Language +.cal CALS +.cal SuperCalc Spreadsheet +.cam Casio camera Datei +.can Canvas +.cap Capture Datei +.cap Caption +.car AtHome assistant Datei +.car Carrara Datei +.carc Nintendo textur,graphic,platten,course File +.cas Comma-delimited ASCII Datei +.cat Sicherheitskatalog +.cat Catalogue Datei +.cat categorization Datei +.cat Stellarium Star Catalogue +.CATpart Part Datei +.cb clean boot Datei +.cbc CubiCalc Fuzzy Logic +.cbf Atari DOS Chebase Datei +.cbf Chessbase File +.cbf CSDL Dokument +.cbh Chessbase File +.cbi Column binary +.cbl Cobol +.cbm Compiled Bitmap +.cbr Comic book Rar-Archive +.cbt Computer based training +.cbz Comic Book Zip +.cc C++ +.cc custom class +.cc3 CUEcards Datenbank +.cca cc:mail archive +.ccb Animated Button configuration +.ccc Curtain Call Native bitmap +.ccd CloneCD-Image-Control-Datei +.cce Kalender +.ccf Communications Configuration +.ccf Concerto Container File +.ccf CryptLoad Container File +.cch Corel Chart +.ccl Communication Command Language +.ccm Lotus CC:Mail "box" Datei +.cco CyberChat-Datei +.cco XBTX Graphics +.cct Shockwave cast Datei +.cct DesignWorks Datei +.cda CD Audio Track +.cdb CardScan Database +.cdb Clipboard Datei +.cdb Conceptual model backup +.cdb Main database +.cdb Pocket Access Database +.cdf Channel Definition Format +.cdf Netcdf Graphic Datei +.cdfs Compact Disc filing system +.cdi Compact Disc Interactive +.cdk Atari Calamus Document +.cdm Conceptual data model +.cdm Custom data module +.cdm Custom Device Module +.cdr CorelDRAW file +.cdr CD raw data +.cdt CorelDRAW template +.cdx CorelDRAW compressed drawing +.cdx Compound Index +.ce Main CE Datei +.ceg Tempra Show Bitmap graphic +.cel AutoDesk Animator Cel Image +.cel CIMFast Event Language Datei +.cer Certificate Datei +.cf Imake Configuration Datei +.cfb Comptons Multimedia Datei +.cfg Configuration File +.cfl CorelFLOW Chart +.cfm ColdFusion template +.cfm Corel FontMaster Datei +.cfm Creative FM-Music +.cfm Windows customer form +.cfn Atari Calamus Font Datei +.cfo C form object +.cfp Complete Fax Portable +.cgi Common gateway interface script +.cgm Computer Graphics Metafile +.ch Clipper 5 Header +.ch OS/2 Konfigurationsdatei +.ch3 Chart +.ch4 Charisma Presentation +.chd Chameleon Font descriptor +.chf remote control Datei +.chi ChiWriter Document +.chk Checkdisk +.chl Configuration History Log +.chm Compiled HTML Help +.chn Ethnograph Data Datei +.chp Chapter Datei +.chr Character Sets +.cht ChartMaster dBase Interface +.cht ChartViewer Datei +.cht Harvard Graphics Vector Datei +.cif CalTech Intermediate Graphic +.cif Creator Image Datei +.cif caller Datei +.cif Crystallographic Information File +.cil Clip Gallery download packag +.cil Cilea Einheitengruppe +.cim Sim City 2000 Datei +.cix Database Index +.ckb Keyboard mapping Datei +.cl Generic LISP +.cl3 Layout Datei +.class Java .class Datei Format +.clc APROL ChronoLog Container +.clg Disk Catalog Datenbank +.cll Cricket Software Clicker Datei +.clo Cloe Image +.clp Compiler Script +.clp Clip art +.clp Clipboard +.clr color screen image +.clr Color definition +.cls Klassenquelldatei +.cls Klassenquelldatei +.cls Klassendefinition +.clt APROL ChronoLog Template +.clw Class Wizard +.clw Quellcodedatei +.clz Tomb Raider 6 Archive +.cm Craftman Data +.cmd External Command Menu +.cmd Command Datei +.cmd Programmdatei +.cmf Corel Metafile +.cmg Chessmaster saved game +.cmk Card Shop Plus Datei +.cmm CEnvi Batch Datei +.cmp Postscript Printer Header +.cmp User dictionary +.cmp Address Document +.cmr MediaPlayer Movie +.cmv Corel Move animation +.cmx Corel Presentation Exchange image +.cmyk cyan, magenta, yellow, and black +.cnc CNC General Program data +.cnf Configuration +.cnq Compuworks Design Shop +.cnt Contents +.cntl z/OS JCL-Library +.cnv Conversion files +.cnv conversion support Datei +.cnv Temporäre Datei +.cnv Canvas Drawing +.cob Cobol +.cob trueSpace 2 object +.cod Template source Datei +.cod FORTRAN Compiled code +.cod compiled code +.cod Video Text Datei +.col Color Palette +.col Multiplan Spreadsheet +.com Command +.con Konfiguration +.conf Configuration +.config Configuration +.coo Components File +.cp4 Cplan +.cp8 CP8 256 Gray Scale image +.cpc Cartesian Perceptual Compression +.cpd Complaints Desk Script +.cpd Corel PrintOffice Datei +.cpf Complete Fax +.cph Corel Print House +.cpi ColorLab Processed Image +.cpi code page information +.cpio cpio-Archiv +.cpj CD Project +.cpj Track-Abbild +.cpl Compel Presentation +.CPL Corel color palette +.cpl Control Panel Library +.cpo Corel Print Office +.cpp C Plus Plus (C++) +.cpp Cricket Presents presentation +.cpr Corel Presents presentation +.cpr Cubase Project +.cps PC Tools Backup +.cps Coloured postscript +.cpt Cricket Presents Template +.cpt Corel Photo-Paint image +.cpt Encrypted Memo +.cpx Corel Presentation Exchange +.cpy Copy Books +.cpz COMPOZ Music Text +.cr2 Canon RAW Format +.crc Cyclic Redundancy Check +.crc Circular reference Datei +.crd Cardfile +.crf cross-reference +.crf PkZip gepacktes Archiv +.crh Image Datei +.crl Certificate Revocation List +.crp Corel run-time presentation +.crp Encrypted database +.crp custom report +.crs Conversion resource +.crt Certificate +.crt Crontab Datei +.crt Terminal settings information +.crt CaRTridge Image +.cru CRUSH +.crw Canon Raw Image +.cs C-Sharp +.csa Comma deliminated text +.csb Cosmo3D scenegraph binary +.csb Corel script binary +.csb Crashsoft BASIC +.csc Corel script +.csg Statistica/w Graph Datei +.csh C shell script files +.csm Precompiled header +.csm Script Datei +.cso Customer service data + outcome +.csp PC Emcee On-Screen image +.css Statistica/w Datasheet +.css Stats+ Datafile +.css Cascading Style Sheet +.cst Cast +.csv Comma separated values +.csv Adjusted EGA/VGA Palette +.ct Scitex CT bitmap +.ctb color-dependent plot style table +.ctc PC Installer Control +.ctf code translation +.ctg Canon Power Shot Info File +.ctl Control +.ctl control file +.ctx Course Text +.ctx Ciphertext +.ctx User control binary +.cub Cube Datei +.cue CUEcards Datenbank +.cue Cue-sheet +.cul Cursor library +.cup Datenbankdatei +.cur Cursor-Datei +.cursor Cursor +.cut Dr Halo Bitmap +.cutlist Cut Assistant (früher Asfbin Assistant) +.cv Corel Versions archive +.cv information screen +.cv5 Canvas Drawing +.cvi Canvas Drawing +.cvg Image +.cvs Canvas Drawing +.cw I don't know +.cwb Cakewalk Bundle +.cwk Claris Works data +.cwp Cakewalk Project +.cws Claris Works template +.cxt protected Cast +.cxx C++ +.cys CSWgermany CYberSecure-CryptContainer +.czip Encrypted ZIP +.d Directory +.d11 Abrechnungsdaten DA11 +.d2d 2D/3D object Datei +.d64 disk image +.d71 disk image +.d81 disk image +.d81 Leistungsverzeichniss +.d83 Angebotsaufforderung +.d84 Angebotsabgabe +.d85 Nebenangebot +.d86 Auftragserteilung +.d88 Nachtrag +.d89 Rechnung +.daa CD/DVD-Image +.dao Disc At Once +.dap Data access page +.dat Data +.dat Virtuelle Partition +.datatype Datatype +.db Datenbank +.db table database +.dbc database container +.dbc CANdb Datenbank Datei +.dbf Database Datei +.dbf Enable database +.dbf tablespace Datei +.dbk Database Backup +.dbk Schematic backup Datei +.dbl 64-Bit doubles (RAW) +.dbo Compiled program Datei +.dbq Paradox Memo +.dbt Text Memo +.dbv Memo field Datei +.dbw Database Datei +.dbx DataBeam image +.dbx Tabelle +.dc DesignCAD +.dc2 DesignCAD +.dc4 ViaThinkSoft (De)Coder 4.x +.dc5 DataCAD Drawing +.dc6 DataCAD Drawing +.dca Document Content Architecture +.dca Active designer cache +.dcd DIG-CAD +.dcf Dyadic +.dcf Disk Image Datei +.dcim Imaging and Communications +.dci DIG-CAD Ing. +.dcm DICOM-Datei +.dcm DCM module +.dcp Data CodePage +.dcr Shockwave Datei +.dcr Delphi Compiled Resource +.dcs Quark XPress +.dcs Desktop Color Separation +.dct Database Dictionary Datei +.dct Database SpellCheck Dictionary +.dct database container Datei +.dcu Delphi compiled unit +.dcx Bitmap Graphics Datei +.dcx Fax image +.dcx database container Datei +.dd Macintosh DISKDOUBLER +.ddb Bitmap Graphics Datei +.ddf Data Definition Datei +.ddi DISKDUPE +.ddp Device Driver Profile +.dds Direct Draw Surface +.deb Debug Script +.deb Debian Package +.def Assembly Header Datei +.def C++ definition Datei +.def Define Module Datei +.def SmartWare II data +.defi de-install script +.dem Digital Elevation Models +.dem Demo Datei +.dem Graphics Datei +.dep Dependency Datei +.der Certificate Datei +.des Graphics Datei +.desktop KDE .desktop file +.dev Device Driver +.device Device +.dewf recorded instrument +.dez DES ZIP +.dfd Data Flow Diagram Graphic +.dfi Outline Font description +.dfl Default Program Settings +.dfm Delphi-Formular +.dfm Data Flow Diagram model +.dfs Sound Datei +.dfv Printing Form value +.dfw Derive Worksheet +.dgn Microstation CAD drawing +.dgs Diagnostics Report +.dh Dependency Information Datei +.dhp Graphic Datei +.dht Datafile +.dia Diagraph Graphics Datei +.dia diaFile Datei +.dib Device-independent bitmap +.dic Dictionary Datei +.dicm Imaging and Communications +.dif Data Interchange Format +.dif Database Datei +.dig Digilink Datei +.dig Audio +.dim Database Datei +.dip Graphics Datei +.dir Dialing Directory +.dir Directory +.dir Macromedia Director Datei +.dir Director Movie +.dis Distribution Datei +.dis Ray Tracer Datei +.dis Thesaurus Datei +.disabled Disabled startup file +.divx DivX-Media-Format +.diz Description in ZIP +.djv DjVu +.djvu DjVu +.dkb DKBTrace +.dl Image +.dlc Download-Link-Container +.dld Datafile +.dlg C++ Dialogue Script +.dll Dynamic Link Library +.dls Downloadable sound +.dls Interactive music architecture +.dls Setup Datei +.dm3 Demo +.dmd data module +.dmf Disk Image +.dmf music module +.dmg Disk Image +.dmo Demo Datei +.dmp Dump Datei +.dms Amiga DISKMASHER +.dmv DOS4GW Videodatei +.dng Digitales Negativ +.dob User document +.doc Document +.doc Document +.doc Document +.doc Document +.doc Document +.doc Document +.doc Document +.docx Word 2007 XML Document +.docm Word 2007 XML Document with Macros +.doe Arena Model Document +.dog Laughing Dog +.doh Dependency Information +.dos External Command Datei +.dos Network Driver Datei +.dos Local <-> Unicode Translator for code pages +.dot Line-Type definition +.dot Document Template +.dox User document binary form +.doz Description out of Zip +.dp Kalender +.dp DataPhile +.dpg Moonshell MP4 Video +.dpl packed library +.dpr Delphi Projekt +.dpr Project header +.dpt Publication Datei +.dr9 Directory Datei +.draw drawing +.drc Design rules check +.drs Display Resource Datei +.drv Device Driver +.drw Lotus Freelance Image +.drw Pro/E drawing +.drw Micrografx Drawing +.drwdot Drawing Template +.ds4 Designer 4 +.dsc Discard Datei +.dsd Database Datei +.dsf Designer Datei +.dsg DooM saved game +.dsk Disk +.dsk Project Desktop Datei +.dsm Digital Sound Module +.dsm Direct Show Media +.dsm Dynamic Studio music module +.dsm Music module Datei +.dsn Design +.dsn ODBC Data source +.dsn Schematic Datei +.dsp Display parameters +.dsp Graphics Display driver +.dsp Developer Studio project +.dsq Corel QUERY +.dsr Driver Resource +.dsr Active designer Datei +.dss Digital Sound Datei +.dss Screensaver Datei +.dst Distribution Datei +.dst Embroidery machines graphic +.dsw Desktop settings +.dsw workspace Datei +.dsx Active designer binary +.dta Datafile +.dta STARS data +.dtapart DownThemAll!-Segmentdatei +.dtd Document Type Definition +.dted Digital terrain elevation data +.dtf Datenbank +.dtf Datenbank +.dtf Datenbank +.dtm Module Datei +.dtp Desktop layout Datei +.dtp Vorlage +.dtp Text Document +.dt_ Daten-Fork +.dun Dial-up Networking +.dup Duplicate +.dv Digital video +.dvc Datafile +.dvi Device Independent +.dvp Desqview Program information +.dvp Device parameter Datei +.dw2 Drawing Datei +.dwd DiamondWare digitized +.dwf Drawing Web Datei +.dwf Vector graphic +.dwg Drawing +.dwp Dokument +.dws Workspace Datei +.dx Digital Electric Corporation +.dxf Data Exchange Datei +.dxf Drawing Interchange Format +.dxn Fax document +.dxr Macromedia Director protected +.dxt Direct-X Texture +.dylib Dynamic Library +.dyn Datafile +.e00 Coverage Export-Datei +.e00 Exchange-Datei +.eap easyLEARN Autor-Kursprogramm +.eap Enterprise Architect Projekt +.ear Enterprise Application Archive +.easm eDrawings File +.ebd AP Modellbahn Datendatei +.ebj Error Checking Object Datei +.ece Oracle Express Dynamic Web Page +.ecw Enhanced Compressed Wavelet File +.eda ASR disk image +.edb Geneological data +.edd Element Definition document +.ede EPS disk image +.edf (unbek.) +.edl Exercises Developement Language +.edk KT disk image +.edq SQ1/SQ2/KS32 disk image +.edrw eDrawings File +.eds SQ80 disk image +.edt Default settings +.edv VFX-SD disk image +.eeb Equation editor Button Bar +.efa ASR Datei +.efe EPS Datei +.efg Normal Form Game +.efk KT Datei +.efq SQ1/SQ2/KS32 Datei +.efs SQ80 Datei +.eft High Resolution Screen Font +.efv VFX-SD Datei +.efx Faxdokument +.efw  ? +.ega EGA Display font +.el Lisp Source code +.elc Lisp Source code +.elf Executable and Linking Format +.elm Theme-Pack Datei +.elt Event List Text +.emb Embedded bank Datei +.emd ABT Extended MoDule +.emf Windows Enhanced Metafile +.eml E-Mail +.emlx E-Mail +.emm Mindmap +.ems Enhanced Menu System +.emu Terminal Emulation Datei +.emz Compressed Enhanced Metafile +.enc Encoded Datei +.enc Musik-Datei +.enc Video-Datei +.end Arrow-Head Definition Table +.enff Neutral Format +.eng Chart Graphics Datei +.eng Dictionary Engine Datei +.ens EndNote Stil Datei +.env Enveloper Macro +.env Environment Datei +.epd Publication Datei +.ephtml Enhanced Perl-parsed HTML +.epi Dokument +.eprt eDrawings File +.eps Encapsulated PostScript +.epsf Encapsulated PostScript +.eps2 Level 2 EPS +.epsi EPS Interchange +.eqn Equation Datei +.er1 ERWin Datei +.erd Entity Relationship Diagram +.erm Entity Relationship Model +.err Error Log +.err Compilation error Datei +.erx ERWin Datei +.esh Extended Shell Batch +.esl Distributable support library +.esm Elder Scrolls Master +.esp Elder Scrolls Plugin +.esps ESPS audio Datei +.etd EBX Transfer Data File +.eth Dokument +.etx Structure Enhanced text +.eui ESP compacted disk image +.evt Event Log +.evy Dokument +.ewd Text Document +.ewl Microsoft Encarta document +.ex3 Device Driver Datei +.exc Exclude Datei für Optimize +.exc Exclusion Dictionary Datei +.exc Source-Code Datei +.exe Executable +.exec z/OS REXX-Library +.exp Saved chat +.exr OpenEXR +.ext ASCII binary transfer +.ext2 EXT2 Image +.ext3 EXT3 Image +.ezp Edify.zip +.f FREEZE +.f01 Fax document +.f2r Linear music module +.f3r Blocked music module +.f77 FORTRAN 77 +.f96 Faxdokument +.fac Face graphic +.faq Frequently Asked Questions +.far Farandole +.fas Basic module Datei +.fav Navigation bar +.fax FAX Type image +.fb2 FictionBook +.fbk Financials Backup +.fbx 3D Austauschformat +.fc Spell Check dictionary +.fcd Virtual CD-ROM Datei +.fcm Binary Dateipatch +.fd Declaration Datei +.fd Field offsets +.fdb Financials Database +.fdb font definition block +.fdf Formular +.fdw Formular +.feb Figure Editor Button Bar +.fem Finite Element Mesh +.ff Outline Font description +.ffa find fast Datei +.fff Fax document +.fff GUS PnP bank Datei +.ffl Image Datei +.ffl fast find Datei +.ffo fast find Datei +.fft Final Form Text +.ffx fast find Datei +.fh3 Freehand 3 drawing +.fh4 Freehand 4 drawing +.fhmx Freehand MX +.fi Datei Interface +.fif Fractal Image +.fig REND386/AVRIL Datei +.fig FIG image text +.fig SNES ROM image +.fil Datei List Object +.fil Datei template +.fil Overlay +.fil file +.fil file +.fin Print formatted text +.fit Datei index table +.fit Graphic +.fits CCD camera image +.fits Flexible Image Transport System +.fix Patch Datei +.fky Macro +.fla Movie +.flb Format library +.flc FLIC animation +.fld Field define module +.fld Folder +.flf Delived form +.flf Driver +.flf Financials License File +.fli FLIC Animation 320x200 +.fli Font library +.fll dynamic link library +.flm Film Roll +.flo FlowCharter Datei +.flp Flower-Project Leecherdatei +.fls Filelist document +.flst Transparenzreduzierungsvorgabe +.flt Filter +.flt Filter +.flt Graphics filter +.flt Graphics filter support Datei +.flt Music module +.flt Open Flight Datei +.flv Flash Video +.flx Compiled binary Datei +.fm FrameMaker Document +.fm Spreadsheet +.fm1 Spreadsheet +.fm3 Device driver +.fm3 Spreadsheet +.fmb Forms sources +.fmb Datei Manager button bar +.fme FMEA Datei +.fmf Font oder Icon +.fmk MakeFile +.fml Mirror list +.fmo Compiled format +.fmp Document Datei +.fmt Csreen format Datei +.fmt Print Datei +.fmt Style sheet +.fmt Textformat für Form +.fmx Executable form +.fn3 Font +.fnd Find applet +.fnf Notendatei für ForteFree +.fng Font group +.fnk FunkTracker +.fnt Font +.fnx Inactive font +.fog Fontographer font +.fol Saved message folder +.fon Call log +.fon Dialing directory +.fon Font +.font Font +.for Form +.fot Font-related Datei +.fot Installed TrueType font +.fp FoxPro +.fp FileMaker Pro Datei +.fp1 "Flying Pigs" +.fp3 FileMaker Pro Datei +.fp5 FileMaker Pro Datei +.fp7 FileMaker Pro Datei +.fpc Catalog Datei +.fpl Playlisten Datei +.fpt FileMaker Pro Datei +.fpt Memo fields +.fpw Floorplan drawing +.fpx Kodak FlashPix +.fr3 Renamed dBaseIII+ form +.frf Font +.frg Uncompiled report +.frk Zip +.frm Dokument +.frm Executable Datei +.frm Formular-Quelldatei +.frm Formular-Quelldatei +.frm Merge form +.frm Symbol Report +.fro Compiled report +.frp Formular +.frs Screen Font Resource +.frt Report menu +.frx Form stash Datei +.frx Report +.fsf fPrint Audit Tool +.fsl Formular +.fsm Sample Datei +.fst Linkable program +.fsx Data +.fsy FSync Document +.ft Full text index +.ftb Index Datei +.ftg full-text search group +.ftm Font +.ftp File Transfer Protocol +.fts full-text search index +.ftw Dokument +.fw Firmware +.fw Datenbank +.fwb FileWrangler Backup +.fws FileWrangler Data +.fx On-Line guide +.fx4 Pixelkarte +.fxd Phonebook +.fxp Compiled source code +.fxr Fax Received Document +.fxs Fax Transmit graphic +.fzb Bank dump Datei +.fzf Full dump Datei +.fzv Voice dump Datei +.g Data chart +.g64 Disk Image +.g721 Raw CCITT G.721 +.g723 Raw CCITT G.723 +.g8 Raw Graphics +.gadget Gadget +.gal Album +.gam Fax-Dokument +.gam Sammlung von Spielerelevanten Daten (Quake Engine) +.gb Game Boy ROM image +.gba Game Boy Advance ROM image +.gbc Game Boy Color ROM image +.gbl Global definitions +.gbs Gameboy Sound +.gbm Gameboy Movie +.gc1 Lisp source code +.gc3 Lisp source code +.gcd CADD Zeichnung +.gcf Game Cache File +.gcp Ground Control Point +.gdb Database Datei +.gdb Garmin Database +.gdf Dictionary Datei +.ged Genealogical data +.ged Graphic Environment Document +.ged Graphics editor Datei +.ged Graphics editor native format +.gem GEM Metafile +.gen Application Generator +.gen Generated text +.geo Geode +.geo Euklid DynaGeo +.GetRight Unfinished-Download +.gfb Compressed gif image +.gfc flowchart +.gfi Graphics Link presentation +.gft Font +.gfx Graphics Link presentation +.gfx Textverarbeitung Protext +.gfy Got FingerPrints Yet? +.gg Sega Game Gear ROM image +.gho Symantec Ghost Image Datei +.ghs Symantec Ghost Image Datei +.gib Chart +.gid global index +.gif Compuserve Graphics Interchange Format +.gim Graphics Link presentation +.giw Presentation +.gix Graphics Link presentation +.gkh disk image +.gks GripKey document +.gl Animation Datei +.glm Glim +.gls Datafile +.gly Glossary +.gm6 Game Maker Projekt +.gmf CGM Graphics +.gmp Tile map +.gmr Graphical monitor record +.gna Graphics Link presentation +.gno Genealogy Datei +.gnt Generated executable code +.gnx Graphics Link presentation +.goc Goc sorce code +.goh Goc header +.gp Geode parameter Datei +.gp# Guitar Pro Datei (# = 3-5) +.gpg GNU Privacy Guard-Code +.gph Graph +.gpk Program package +.gpk Spitzenpegeldatei (zu WaveLab) +.gpp Graph paper application +.gpx GPS eXchange file +.gr2 Screen driver +.gra Datafile +.gra Graph +.graphml GraphML +.grb Shell Monitor +.grd Image processing grid +.grf Graph +.grf Grapher +.groovy Groovy +.grp Pictures group +.grp Group-Datei +.gry GREY +.gs1 Presentation +.gs3 Daten +.gsd Vector graphic +.gsm GSM 6.10 audio stream +.gsp gsp-Datei +.gsw GraphShow Worksheet +.gt2 Graoumftracker 2 +.gtk Graoumftracker +.guide Amigaguide +.gup Data +.gus Gustav.Gustavson +.gvi Video +.gwp Greetings WorkShop Datei +.gwy Gwyddion Projekt +.gwx Graphics Link presentation +.gwz Graphics Link presentation +.gvp GEOvison³ Project +.gxl Graphics library +.gxt Textdatenbank GTA2 - San Andreas +.i Intermediate +.iam Inventor Assembly +.ian Textdatei +.iax Bitmap +.ibm ARCHDOS +.ica Bitmap graphic +.ica Citrix-Verbindungsdatei +.icb Targa bitmap +.icc Catalog Datei +.icc Printer Datei +.icd Drawing Datei +.icl Icon Library +.icm Image Color Matching profile +.icn Icon source code +.ico Icon +.ics Scene Datei +.ics iCalendar Datei +.id Disk identification Datei +.idb Intermediate Datei +.idd Instrument Definition Data (?) +.ide Project Datei +.idf MIDI Instrument Definition +.idif Identification Datei +.idq Data Query +.idt Exportierte Windows Installer Datenbank Tabelle +.idu Austauschdatei +.idw Vector graphic +.idw Inventor Drawing +.idx Index Datei +.idx Index Datei +.idx Relational database index +.idx Relational database index +.idx Java Applet Cache Index +.ifd Form +.iff Interchange File Format (IFF) +.ifo Information +.ifo Graphic object layer data +.ifp Script Datei +.ifs Compressed fractal image +.ifs Create executable library +.ifs System Datei +.igs Initial Graphics Exchange Specification (IGES) +.igc Segelflug Logger Datei +.igf Metafile +.iif Interchange Datei +.iii Intel I-Phone compatibel +.iim Music module +.ilbm Bitmap +.ildoc Dokument +.ili INTERLIS +.ilk incremental linker +.im8 Raster graphic +.ima Image +.ima DICOM-Bild +.ima Vector graphic +.imf MIDI music Datei +.img DICOM-Bild +.img Bitmap graphic +.img kurz für "Image" +.img Dateiarchiv +.imp Spreadsheet +.imq Image presentation +.ims Create executable library +.imz Win Image +.in$ Installationsdatei +.in3 Input device driver +.inb Test script +.inc Include File +.inc Include File +.ind Index +.ind Shared Database Datei +.indb InDesign Book +.indd InDesign Document +.indl InDesign Library +.indt InDesign Template +.inf Setup-Informationen +.inf Type I LaserJet font information +.info Piktogramm +.ini Bank setup Datei +.ini Setup Datei +.ini Initialisierungsdatei +.ink Pantone reference fills Datei +.inl Inline function Datei +.inp Source code für form, +.inrs INRS-Telecommunications audio +.ins Datafile +.ins Install script +.ins Installation script +.ins Instrument Datei +.ins Instrument music Datei +.ins Sample +.ins Sign-up Datei +.int Interfaced units +.int Intermediate executable code +.inx InDesign Interchange +.inx Index Datei +.io Compressed archive +.iob 3D graphics database +.ioc Organizational chart +.iof Findit document +.ion Datei description +.ipf Interchangeable Preservation Format +.ipl Pantone Spot reference palette +.ips International patching system +.ipt Inventor Part +.iqf Program Data +.iqy Internet inquiry +.iq2 Program Data +.irs Resource Datei +.isd Spell checker dictionary +.ish Compressed archive +.iso ISO +.iso ISO 9660 Dateisystem +.isp Sign-up Datei +.ist Instrument +.isu Uninstall script +.it Impulse Tracker +.it Settings Datei +.itc iTunes Covers +.itf Interface Datei +.itl iTunes Library +.iti Impulse Tracker Instrument +.its Impulse Tracker Sample +.itz Impulse Tracker zipped +.iv Open Inventor Datei +.ivd Microdata dimension or variable-level +.ivp User subset profile +.ivt Table or aggregate data +.ivx Microdata directory +.iw Presentation flowchart +.iw Screensaver +.iwa Text Datei +.iwc Install Watch document +.iwm Start Datei +.iwp Textdokument +.izt Binary token Datei +.j2k JPEG2000 +.j62 Ricoh camera Datei +.jam Java Module +.jar Java Archive +.jas Graphic +.java Source code +.jbd Datafile +.jbf Image browser Datei +.jbx Project Datei +.jff JPEG image +.jfif JPEG File Interchange Format +.jif JPEG image file +.jisp Java Indexed Serialization Package +.jmp Discovery chart-to-statistics +.jn1 Jill of the Jungle data +.jnb Workbook Datei +.jnt Journal Viewer File +.job Vektorgrafik +.jor Journal +.jou Journal backup +.jou Journal backup +.jp2 JPEG2000 +.jpc JPEG2000 +.jpf JPEG2000 file +.js JavaScript code +.jsc Source code +.jsd Jet Suite document +.jsk Skin Datei +.json JavaScript Object Notation +.jsp JavaServer Page +.jt Jupiter Tessellation +.jtf Faxdokument +.jtk Java ToolKit Datei +.jw JustWrite +.jwl JustWrite Library +.jzz Spreadsheet +.k LS-Dyna Keyword file +.k25 Kurzweil 2500 +.k3b K3b Projekt +.kar karaoke +.kb Keyboard script +.kb Program source code +.kbd Keyboard mapping script +.kbm Keyboard mapping script +.kcm K-Cheat Modul +.kcl Kyoto Common Lisp +.kdb Keep-in-Mind-Datenbank +.kex Makro +.key Datafile +.key Icon toolbar +.key Security Datei +.key Keynote +.kfp Acrobat Preflight Profil +.kfx Image +.kgt KGet +.kiz Digital postcard +.kkw K-keywords +.kml Map +.kmp KeyMaP +.kmz Koordinaten +.ko Linux Kernel Object +.kpp Toolpad +.kps Bitmap graphic +.kqp Native Camera Datei +.kr1 Sample +.krz Sample Datei +.ksf Sample Datei +.ksp KSpread +.kwd KWord +.kwl KWallet-Datei +.kyb Keyboard mapping +.kye Game data +.kys Keyboard Shortcuts +.l Linker directive Datei +.l Lex +.l LISP +.lab Datafile +.lab Label-Datei +.lab Mailing labels +.lan LAN driver +.lay Clipart-Datei +.lay Word Chart layout +.lbg Label generator data +.lbk PlotMaker Layoutbuch-Datei +.lbl Label +.lbl Label +.lbl Label +.lbm Interleaved Bitmap (ILBM) +.lbo Compiled label +.lbo MWM-Libero-Projekt +.lbr LBR-Archiv (LU) +.lbr Display driver +.lbr Device library +.lbt Labels +.lbx Labels +.lca LABCAR Assistant-Datei +.lcf Linker control-Datei +.lck Lockfile +.lcl Datafile +.lcn Lection document +.lcs Data History Datei +.lcw Spreadsheet +.ld Long distance area codes +.ld1 Overlay-Datei +.ldb Lock-Datei +.ldf Library definition-Datei +.ldf Log Data File +.ldi LAN driver description file +.ldif Adressenverzeichnis +.ldl Library +.leg Legacy document +.les System game profiles +.lev Level-Datei +.lex Dictionary-Datei +.lfd Data resource-Datei +.lfp LaserForms Plus-Datei +.lft Laser printer font +.lft Loft-Datei +.lg Logo procedure definition +.lgc Application log-Datei +.lgd Application log-Datei +.lgo Header and footer logo +.lgo Lego-Modell-Datei +.lgo Logo Datei +.lgo Startup logo +.lha LHA/LHARC +.lhs Literate Haskell File +.lhw LHWARP +.lib Library +.library Library +.lif Logical Interchange data +.lim LIMIT +.lin Interactive music sequencing data +.lin Line type-Datei +.lis Listing +.lis SQL-Report +.lit (Literature) +.lix Logos library system-Datei +.lj Textdatei +.lk Database-Datei +.lko Linked object +.ll3 Document-Datei +.llx Exchange agent +.lnk Datafile +.lnk Linker response-Datei +.lnk Link +.load z/OS Load-Library +.loc Locations +.lock Lock +.lod Load-Datei +.log Log +.log Log-Datei +.log Logo-Quelltext-Datei +.logo Combined Logo Mask +.lok komprimiert +.lol Lolcode +.lpc Druckertreiber +.lpd Helix Nuts and Bolts-Datei +.lpd LabelPro-Datei +.lpd LECTURNITY Player-Datei +.lpi Informationsdatei für Laserdrucker +.lpj PASSOLO-Projektdatei +.lps LupoScan +.lpu PASSOLO-Projektdatei +.lrc Video phone-Datei +.lrf Linker response-Datei +.lrs Language resource-Datei +.lsf Logos library system-Datei +.lsl Saved library +.lsl Script library +.lso Logic Audio Song/-Dokument +.lsp LISP +.lss Tabellenkalkulation +.lst Keyboard macro +.lst List-Datei +.lst Spool-Datei +.ltm Form +.lu Library unit-Datei +.lvl Miner Descent/D2 Level extension +.lwd Textdokument +.lwf LuraWave Format +.lwlo Layered Object-Datei +.lwob Object-Datei +.lwp Lotus Word Pro (Teil der Lotus SmartSuite) +.lwsc Scene-Datei +.lwz Linguistically enhanced sound +.lxf Lego Digital Designer-Datei +.ly Lilypond-Datei +.lyr Layer-Datei +.lyx LyX-Datei +.lzd Difference-Datei für Binarys +.lzh LH ARC +.lzs LARC +.lzs Data-Datei +.lzw LHWARP +.m Matlab-file +.m Objective C +.m4 M4 Präprozessor +.m4a Moving Pictures Experts Group 4 Audio +.m4b Moving Pictures Experts Group 4 Audiobook +.m4p MPEG4-Audiodatei +.ma Maya ASCII +.mab Mozilla Address Book +.mac MacPaint +.mac Monkeys Audio Compression +.mak Makefile +.mat Matlab Daten Datei +.mat T-Online Rechnung Online Sicherung +.mat Verknüpfung mit Microsoft Office Access-Tabelle +.manifest MANIFEST-Datei +.mar Microsoft ARchiv +.mar Mozilla ARchiv +.map Linker map +.max Discreet 3D Studio MAX +.mb Maya Binary +.mcc Mathcad Configuration File +.mcd Mathcad Document +.mcd Minicad +.mcf Mathcad Fontfile +.md8 MatchWare Mediator Project +.mda Microsoft Access +.mdb Microsoft Data Base +.mdc Modem Script --- auch "Model Definition *": RTCW/ET Model-Datei +.mde Microsoft Access +.mdf Media Descriptor File +.mdf Master Data File +.mdf Measurement Data Format File +.mdi Microsoft Office Document Imaging +.mdl Hash Animation:Master 3d-Modell +.mdl (Spieler-)Model +.mdl Rational Rose Modell +.mdl MathWorks Simulink Model +.mds Media Descriptor Image +.mdx DBase Index-File +.mell Mellel Dokument +.mem Ansichtdatei (zu WaveLab) +.met OS/2 Metafile +.mfa Multimedia Fusion 2 Applikations-Datei +.mfw Multimedia Fusion 2 Projekts-Datei +.mfx Multimedia Fusion 2 Extension +.mi Model Interface Standard +.mif Maker Interchange Format +.minigsf GBA Sound Format +.miniusf Nintendo 64 Audio-Datei +.mjf Media Juice File +.mhk Broderbund Mohawk Archiv +.mka Matroska Audio +.mkd Microkernel Database file +.mkv Matroska Video +.mm FreeMind-Maps +.mmap Mindjet MindManager-Maps +.mmf Samsung & Siemens Handy +.mmf Microsoft Mail für Windows +.mml MathML +.mmm Media Player Multimedia Clip +.mmm Magix Music Maker +.mn MuPAD Pro Notebook +.mnu Menü-Datei +.mo Machine Object +.moc MetaObjectCode-Datei +.mod Module +.mod Module +.mop MOPAC +.mot MOTS - Motorola S-Record File +.mov Movie +.mp+ Musepack-Audiodatei +.mp3 Moving Pictures Experts Group 1/2 Audio Layer 3 +.mp4 Moving Pictures Experts Group 4 Audio & Video +.mpc Musepack-Audiodatei +.mpic MWM-Piccolo Projekt-Datei auf dem PDA zum Austausch von Aufmaßen mit MWM-Libero +.mpp Microsoft Project Plan +.mpp Musepack-Audiodatei +.mpq Mo'PaQ, kurz für Mike O'Brien Pack, benannt nach dem Erfinder +.mpr FileMaker Dictionary +.mps Max Payne Savegame +.mps MapSource Datafile +.mpt Microsoft Project Plan +.mrc mIRC Scriptdatei +.mrw Minolta Raw Image +.ms7 Electronics Workbench Multisim v7 - Schaltplan +.ms8 Electronics Workbench Multisim v8 - Schaltplan +.msa MyrScript Datei +.msc MilcoScan +.msg Message +.msi Microsoft Installer +.msm Microsoft Installer Merge Module +.msn Microsoft Network Protokoll +.msp Microsoft Installer Patchdatei +.mst Microsoft Installer Transformationsdatei +.msu Microsoft Update +.mswmm Microsoft Windows Movie Maker Projekt +.mtm Multitracker Module +.mus Music +.mus Musicam +.mux Musikformat +.mvf Stop frame file +.mw Maple-Worksheet +.mwp Lotus Word Pro Smartmaster +.mwpp My Webfinder Projekt Package +.mws Maple-Worksheet +.myd MySQL Datenbank +.myi MySQL Datenbank Index +.myr Musikformat +.mzt HTML-Vorlage +.n4d nova 4 drawing +.n4m nova 4 model +.n64 Nintendo 64 ROM image +.nds Nintendo DS ROM image +.nb Notebook +.ncd Nero Cover Designer +.ncf NetWare Command File +.nef Rohdaten +.nes NES ROM image +.nfg Normal Form Game +.nfo "Info"-Datei +.nfo MSInfo-Dokument +.ngp NeoGeo Pocket ROM image +.ngr NGR Grafic File +.nhf Nero HFS +.nif Notation Interchange File Format (NIFF) +.nir NetInstall Registry file +.nlm Netware Loadable Module +.nls LaTeX nomenclatures +.nmind NovaMind Mindmap +.nr3 Nero MP3 +.nra Nero Audio +.nrb Nero Boot +.nrc Nero Compatible +.nrd Nero DVD +.nre Nero CD EXTRA +.nrg Nero Image +.nrh Nero Hybrid +.nri Nero ISO +.nrm Nero Mixed-Mode-CD +.nru Nero UDF +.nrv Nero Video +.nrw Nero WMA +.ns1 Netstumbler File +.nsd Nassi-Shneiderman-Diagramm +.nsf Nintendo Sound File +.nsf Notes Storage Facility +.nspg Nord Stage Program +.nsv Nullsoft Streaming Video +.ntf Notes Template File +.nth Nokia Theme +.nva E-Animation (NEVA) +.nvz nova +.o Object +.o2c Object 2 See +.o7o open7x0.org install file +.obd MS Office Binder File +.obj Object +.obml Opera Binary Markup Language +.oct VIP-Befehlssatz +.ocx Programmerweiterung +.odb OpenDocument Database +.odc OpenDocument Chart +.odf OpenDocument Formel +.odg OpenDocument Graphics +.odi OpenDocument Image +.odm OpenDocument Master +.odp OpenDocument Presentation +.ods OpenDocument Spreadsheet +.odt OpenDocument Text +.ofc Open Financial Connectivity +.off Object File Format +.ofr OptimFrog +.oft MS Outlook +.ofx Open Financial Exchange +.ogg Ogg +.ogm Ogg Media +.okt Oktalyzer +.old old +.oma OpenMG Audio +.omg O&O DiskImage Disk Image +.one OneNote +.or# Lotus Organizer Datei +.orf Olympus Raw File +.ost MS Outlook +.otf OpenType Font +.otg ODoc. Template Drawing +.oth ODoc. Template HTML +.otp ODoc. Template Presentation +.ots ODoc. Template Spreadsheet +.ott ODoc. Template Text +.ova Octava Datei +.ovl Overlay +.p12 PKI PKCS#12-Format +.p2v Planungsdatei +.p65 Satzdatei +.p81 Leistungsverzeichniss +.p83 Angebotsaufforderung +.p84 Angebotsabgabe +.p85 Nebenangebot +.p86 Auftragserteilung +.p88 Nachtrag +.p89 Rechnung +.p99 TI99 Programfile +.p7b PKI PKCS#7-Format +.p7s PKI PKCS#7-Format +.pab Papyrus +.pac Proxy Auto-Config +.pages Pages +.pal Palette +.pap Papyrus +.par PAR-Wiederherstellungsdatei +.par2 PAR2-Wiederherstellungsdatei +.parmlib z/OS-Parameterbibliothek +.part Partizierte Datei +.pas Pascal Source Code File +.pb PureBasic +.pb Papyrus Base +.pbf Papyrus Base Formatvorlage +.pbf Paragon Drive Backup +.pbi PureBasic-Include +.pbm Portable Bitmap +.pc1 Degas (Elite) +.pc2 Degas (Elite) +.pc3 Degas (Elite) +.pcd Photo CD +.pcp Windows Installer Patch Erstellungs Datei +.pct Mac Pict +.pcx Zsoft Paintbrush +.pbp Sony Playstation Portable ausführbares Archiv +.pd Pure Data Patch-Datei +.pdb AportisDoc +.pdb Microsoft Visual Studio +.pdd Dateiformat von Adobe PhotoDeluxe +.pdf Portable Document Format +.pdf Novell System PrintDef Device Definition File +.pdi Pinnacle Disc Image +.pdp Photoshop PDF +.pdsf Process Data Standard Format +.pdt IBM iSeries Access Druckerbeschreibung +.peak Wellenform einer Audiodatei +.pen io Pen Document +.pes  ??? +.pf Prefetch file +.pfb PostScript Font Binary +.pfm PostScript Font Metric +.pfr Portable Font Resource +.pfx PKI PKCS#12-Format +.pgd Pretty Good Privacy Disk +.pgn Portable Game Notation +.pgp Program Parameter +.pgs Pagestream +.php PHP Hypertext Preprocessor +.php3 PHP Hypertext Preprocessor Version 3 +.php4 PHP Hypertext Preprocessor Version 4 +.php5 PHP Hypertext Preprocessor Version 5 +.phps PHP Hypertext Preprocessor Source +.phtml PHP Hypertext Markup Language +.pi1 Degas (Elite) +.pi2 Degas (Elite) +.pi3 Degas (Elite) +.pif Programminformationen +.pisa MWM-Pisa-Projekt +.pkg 3D Modell +.pl Perl +.pl Prolog +.pla VIP-Mikrobefehlsspeicher +.pld PhotoLine Document +.plist Property List +.plm PL/M +.pls Playlist +.plt Plotter Datei +.plx Perl +.pm Perl Module +.pmd Satzdatei +.pmd PlanMaker Dokument +.pml Peter Morphose Level +.png Portable Network Graphics +.pnm Portable PixMap +.po Portable Object +.pos WinHex Positionsdatei +.pot Portable Object Template +.pox Poseidon Datei +.pp Pascal Unit +.ppa PowerPoint +.ppe PCBoard Programming Executable +.ppf iGrafx Image +.ppf PlayStation Patch File +.ppi picture editor 400 +.ppl Powerpraise-Lied +.ppm Portable PixMap +.ppp Powerpraise-Portfolio +.pps PowerPoint +.ppt PowerPoint +.ppsx PowerPoint +.ppz PowerPoint +.pov POV-Ray +.pot PowerPoint +.prg Ausführbares Programm +.prj ANTARES/BKI Energieplaner +.prj Knorr Bremse +.prj CodeVision-AVR +.prj Hash Animation:Master-PRJ +.PrjPCB PCB-Project +.prl Pearl Source Code Datei +.prn Postscript +.pro IDL source File +.pro Prolog +.pro Qt-Projekt-Datei +.proclib z/OS Procedurenbibliothek +.properties Java-Properties-Datei +.prs Harvard Graphics +.prt Pro/E part +.prt Unigraphics Part File +.prtdot Part Template +.prz Lotus Freelance Graphics +.ps Postscript +.psb Adobe Photoshop Big +.psd Adobe Photoshop +.psf GoPal Navigator +.psp Corel Paint Shop Pro-Bild +.pst Personal Store +.psw Dokument +.ptb Power Tab Score +.ptf Pro Tools File +.ptm PolyTracker Module +.ptn Paperport +.pts Pro Tools Session +.pub Dokument +.pwl PassWordList +.pxl Tabelle +.pxr Pixar +.py Python +.pyc Python compiled +.pyd Python Dynamic Module +.qb QuickBASIC +.qdb CUEcards Datenbank +.qcd Quicknote encrypted text +.qdr Q-Dir Document text +.qti QuickTime Image +.qti QtiPlot +.qtl QuickTime Media Link +.qua AntiVir / Avira Quarantäne +.qxd QuarkXPress Document: +.qxl QuarkXPress Library: +.qxp QuarkXPress Project: +.qxt QuarkXPress Template: +.R R-Script-Datei +.ram Real Media +.ras SUN Raster Image +.rar RAR-Archiv +.rb Ruby +.rbs ReBirth Songfile +.rc Resource script +.rcy Rex +.ren Renewcalc - Datafile +.res Resource File +.resx XML Resource File +.rexx Rexx +.rex Rex +.rez Winrez +.rfl Propellerhead Reason Instrumenten Bibiliothek +.rgb Bildformat von Silicon Graphics +.rgo RepliGo Virtual Print File +.rk WinRK Kompressionsformat +.rle Run Length Encoded BMP +.rm Real Media +.rmvb Real Media +.roq id Software-Video +.rp RealPix Clip +.rpl Eidos Replay Movies +.rpm RedHat Package Manager +.rps Propellerhead Reason Public(nicht bearbeitbare) Song Datei +.rpt Report +.rns Propellerhead Reason Locale(bearbeitbare) Song Datei +.rsdf RS Downloader File +.rsr Structure +.rt RealText Clip +.rt3 RagTime-Dokument +.rta Raster Transformation Assembler +.rtd RagTime Document +.rte Route file +.rtf Rich Text Format +.rts RagTime-Vorlage +.rtt RagTime Template +.rx2 Rex +.s Assembler Quellcode +.s3 Motorola S-Record +.s3d Simply 3d +.s3m ScreamTracker 3 +.s3z ScreamTracker 3 zipped +.s7i Seed7 Includedatei +.sab Binäre ACIS-Datei, 3D-CAD-Kern Format +.sam Lotus AmiPro (heute Lotus Word Pro) +.sami Synchronized Accessible Media Interchange +.sar Service-Archiv +.sar System-Architekt +.sat Text ACIS-Datei, 3D-CAD-Kern Format +.sav SPSS Datensatz +.sav Game Score Save +.sbd Superbase Tabellendefinition +.sbf Superbase File +.sbf Su-Bi File +.sbp Superbase Programmdatei +.sbq Superbase Query +.sbu Superbase Update +.sbv Superbase Formular +.sb! Superbase Sperrdatei +.sch Schema +.sch Schematic +.SchDOC Schematic Document +.sci ScrambleIt +.scm Kompiliertes Script GTA +.scn Screen file format +.scr Screensaver +.sd2 Sounddesigner II +.sd7 Seed7 Programm +.sdb StarBase-Datenbank +.sdc StarOffice Tabelle +.sdc DeliveryClient Download +.sde Steganos-Safedatei +.sdf Spatial Data File +.sdw StarOffice Writer +.sem Semaphore-Datei +.sff Mugen-Sprite Datei +.sft SFT-Loader-Datei +.sfv Simple File Verification +.sfw Seattle FilmWorks Datei +.sfx Audiodatenarchiv +.sgb Super Game Boy ROM Image +.sgp Save Game Patcher Table +.sh Shell-Skript +.sh1 Shop - Datenbankdatei +.sh2 Shop - Datenbankdatei +.shn Shorten +.shp Shapefile +.shs scrap-Datei +.shtm HTML Document +.shtml HTML Document +.shx Shapefile-Index +.sib Notensatz +.sid MrSID +.sik Sicherungskopie +.sis Symbian Installationsdatei +.sit Dateiarchiv +.skd Autodesk Autosketch +.skf Autodesk Autosketch +.sl Shared Library +.sla Scribus LAyout +.sldasm SolidWorks-Assembly +.sldbomtbt SolidWorks-Bill of Materials +.slddrw SolidWorks-Drawing +.sldholtbt SolidWorks-Hole Table +.sldlfp SolidWorks-Library Feature Part +.sldprt SolidWorks-Part +.sldrevtbt SolidWorks-Revision Table +.sldwldtbt SolidWorks-Weldment Cut List +.sle Steganos-Safedatei +.sle Sisulizer Exchange Package +.slk SYLK +.sln MS Visual Studio solution files +.slp Sisulizer Project +.smc SNES ROM image +.smd Sega Mega Drive ROM image +.smi Synchronized Accessible Media Interchange +.sms Sega Master System ROM image +.sng SongBeamer Lied +.snp Snapshot +.so Shared Object +.spl Spell +.spx speex +.sql Structured Query Language +.sqm Software Quality Metrics +.sqx UnSqueez +.src Source +.srf Surface +.srt SubRipper Subtitle Information +.ss MADSPACK 2.0 +.ssa SubStation Alpha +.sta SWIFT Tagesauszüge +.stb Named plot style table +.stc XML Calc Template +.std XML Draw Template +.stg Simple Text Gateway +.sti XML Impress Template +.stl Stereolithografie Format +.stm Scream Tracker Module +.stp STEP +.stt SCHEMA ST4 Transformation +.stw XML Writer Template +.sty LaTeX Style +.sub Subchanneldaten +.suo Visual Studio Solution User Options +.sv Schichtenverzeichnis +.svg Scalable Vector Graphics +.svgz SVG zipped +.swc SNES ROM image +.swf Small Web Format +.swp Swap +.swp Swap +.sxc XML Calc +.sxd XML Draw +.sxg XML Global +.sxi XML Impress +.sxm XML Math +.sxp StrokeIt Export +.sxw XML Writer +.sys Systemdatei +.sza HiCAD neXt +.t65 Pagemaker 6.5 Template +.tao Track At Once +.tar Tape Archiver +.tbz2 .tar.bz2 +.tba PASSOLO-Übersetzungspaket +.tbalic500 PASSOLO-Übersetzungspaket +.tbk TheBat! E-Mail-Sicherungsdatei +.tbu PASSOLO-Übersetzungspaket +.tbulic500 PASSOLO-Übersetzungspaket +.tbulic600 PASSOLO-Übersetzungspaket +.tc TrueCrypt verschlüsselte Datei +.tct TurboCad Template +.tcw TurboCad für Windows +.ter Terrain +.tex TeX-SourceLaTeX-Source +.texi Texinfo-Quelltext +.text Textdatei +.tff TansForm Formular +.tfw Tiff-World-File +.tga TrueVision Targa +.tgc Terragen 2 Clipdatei +.tgd Terragen 2 Datei +.tgw Terragen World File +.tgz .tar.gz +.theme Theme +.thm Thumbnail +.tib True Image +.tmd TextMaker Dokument +.tmp Temporäre Datei +.tmpl Template +.tmw Translation Memory +.tmx Translation Memory eXchange +.toc Table of Contents +.torrent Torrent +.tos Ausführbares Programm +.tpl Preps Template +.tps Topspeed Data File +.tpu Turbo Pascal Unit +.trc Trace Log +.trk Tracklog file +.truhe tansCrypt Truhe +.ts Transport Stream +.tsp TAPI Service Provider +.tsv Tab-Separated Values +.ttc TrueType Collection +.ttf TrueType Font +.ttp TOS Takes Parameters +.ttx Bilinguale Übersetzungsdatei +.twa Absatzformat-Datei +.twd Tempus Word Dokument +.tws Vorlagendokument +.txt Text +.txt MS-Word Text +.u Unreal +.u3d Ultimate 3D model file format +.uc2 UltraCompressor II +.ucf Xilinx User Constraint File +.ufo Ulead File for Objects / Unlimited File Ordering +.uha UHARC Compressed Archive +.uhs UHS Ultimate Hint System +.ui Qt User Interface +.uif Universal Image Format +.uka Unfall- Kranken- und Absenzenmanagement-System +.ult Ultra Tracker +.umod Unreal modification +.unr Unreal Map +.uom Update-O-Matic Datei +.uoml UniqueObject Markup Language +.urd ultra recall database +.url Internet Shortcut +.ut2 UT 2003/2004 Map +.utx Unreal Texture +.uu UUncoded Datei +.uue UUencoded Datei +.v2i Virtual Volume Image +.v4p vvvv-patch +.v64 Nintendo 64 ROM image +.vb Visual Basic .net +.vbe Visual Basic Encrypted +.vbi Visual Basic IntelliCAD +.vbp Visual Basic Projekt +.vbs Visual Basic Script +.vbproj Visual Basic .net Projekt +.vcf vCard +.vcproj Visual C++ Projekt +.vcs vCalendar +.vda VDA-FS +.vdf Viren Definitions Datei (virus definition file) +.vdi Virtual disk image +.vhd VHDL Source Code File +.vhd Virtual hard disk +.vi Virtual Instrument +.vim Vim-Script +.vip Virtuelles Projekt +.vis Vista Grafiks +.vkf Video Katalog Frage +.vkv Video Katalog Verzeichnis +.vlm Virtual Loadable Module +.vmdk VMware virtual disk file +.vmf Valve Map File +.vmo Voice Memo Datei +.vmt Valve Material File +.vmx VMware Konfigurationsdatei +.vob Video Objects + .vrs +Speicherdatei für globale Variablen der Logo (Programmiersprache) .vsd +Visio .vtf +Textur-Datei der Source-Engine .vxd +.wab Windows-Adressbuch +.war Web Archive +.war Web Archive +.wav Microsoft Wave +.wbk Microsoft Word Backup +.wbmp Wap-Bitmap +.webarchive Web-Archiv +.whtt WinHTTrack Projekt +.wim Windows Imaging Format +.wk4 Lotus 123 Datei +.wks Microsoft Works Datei +.wl6 Wolfenstein 3D Spieldateien +.wlb WinLabel +.wma Windows Media Audio +.wmf Windows Metafile +.wmv Windows Media Video +.wmz Windows Metafile ZIP +.woa WebObjects Application +.wpd Word Perfect Document +.wpf Write Pro File +.wpg Word Perfect Graphics +.wps Works Word Processing Files +.wpt Waypoint file +.wri Write +.wrl world +.ws Worksheet +.wsp WinShell Project +.wst WerkStück +.wv WavPack +.wyg WYSIWYG-Projekt +.wzs MS Word Wizard +.x DirectX Mesh Files +.x-wav WAV-Datei von Siemens Mobiltelefonen +.x_b Binäre Parasolid-Datei, 3D-CAD-Kern Format +.x_t Text Parasolid-Datei, 3D-CAD-Kern Format +.x1d Folienpräsentation +.x3f RAW-Fotoformat +.x32 Text +.x81 Leistungsverzeichniss +.x83 Angebotsaufforderung +.x84 Angebotsabgabe +.x85 Nebenangebot +.x86 Auftragserteilung +.x88 Nachtrag +.x89 Rechnung +.xbm X Bitmap +.xcf GIMP +.xdt XDT +.xfm XFrames Model +.xfi Extracted File Info +.xhtml Extensible Hypertext Markup Language +.xla MS Excel +.xlax MS Excel 2007 +.xlc MS Excel Chart +.xlcx MS Excel 2007 Chart +.xlk MS Excel 2007 +.xls MS Excel Sheet +.xlsx MS Excel 2007 Sheet +.xlt MS Excel Template +.xlt MS Excel 2007 Template +.xm Extended Module +.xmi Umbrello UML Datei +.xml Extensible Markup Language +.xmz Extended Module zipped +.xpi XPInstall +.xpm X PixMap +.xps xps-Format Windows (XPS) +.xs X-Search +.xsb Sound Bank, XMLBeans Schema Metadata +.xsd XML Schema Definition +.xsl Extensible Stylesheet Language (XSL) +.xspf XML Shareable Playlist Format +.xul XML User Interface Language +.xv2 V-XVL Geometry File (XVL) +.xv3 P-XVL Geometry File (XVL) +.xvf Xyngo Video File (XVF) +.xyz xyz-Format Xmol +.yink yInk +.z3d Zanoza 3D File +.z64 Nintendo 64 ROM image +.zdl DesignPro-Datei +.zdp DesignPro-Datei +.zpj Zend Development Environment Project +.zt Zer0 Tolerance Source diff --git a/firstseen.pl b/firstseen.pl new file mode 100644 index 0000000..9eceff8 --- /dev/null +++ b/firstseen.pl @@ -0,0 +1,40 @@ +#!/usr/bin/perl + + +if ($#ARGV ne 2){ + print "not enough arguments\n"; + exit 1; +} + +my $chan=$ARGV[1]; +my $folder=$ARGV[0]; +my $nick=$ARGV[2]; + +my @files; + +push @files, `ls $folder/$chan.* | sort`; + +foreach $file (@files) { + +my $date="irgendwas"; +my $line; + +open(file, $file) or die("Could not open file $file"); +foreach $line () { + if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-]{2})?\] (Action: )?? /i) { + if ($date =~ /^irgendwas$/) { + print "$nick belongs to inventory\n"; + exit 0; + } else { + ($time=$line)=~s/(.*)([0-9]{2}:[0-9]{2}(:[0-9]{2})?)(.*)\n/$3/; + print "$nick was first seen on $date at $time\n"; + exit 0; + } + } + if ($line =~ m/^\[00:00(:00)?\] --- /){ + ($date=$line)=~s/^\[00:00(:00)?\] --- (.*)\n/$2/; + } +} +} + +print "I do not remember $nick\n"; diff --git a/firstseen.tcl b/firstseen.tcl new file mode 100644 index 0000000..7697cf1 --- /dev/null +++ b/firstseen.tcl @@ -0,0 +1,17 @@ +# lastseen by xeno + +bind pub - !firstseen firstseen + +proc firstseen {nick host hand chan arg} { + set arg [string trim $arg] +if {$arg == ""} { + return 0 +} + + set output [split "[exec perl /home/eggdrop/eggdrop/scripts/firstseen.pl logs [string trimleft $chan #] $arg]" "\n"] + foreach out $output { + putserv "PRIVMSG $chan :$out"; + } +} + +putlog "firstseen by lookshe loaded" diff --git a/getops.tcl b/getops.tcl new file mode 100644 index 0000000..e16d321 --- /dev/null +++ b/getops.tcl @@ -0,0 +1,371 @@ + +# Getops 2.3b + +# $Id: getops.tcl,v 1.18 2003/03/26 00:19:30 wcc Exp $ + +# This script is used for bots to request and give ops to each other. +# For this to work, you'll need: + +# - Bots must be linked in a botnet +# - Every bot that should be ops on your channels must load this script +# - Add all bots you wanna op with this one using the .+bot nick address +# command. The "nick" should be exactly the botnet-nick of the other bot +# - Add the hostmasks that uniquely identify this bot on IRC +# - Add a global or channel +o flag on all bots to be opped +# - Do exactly the same on all other bots + +# The security of this relies on the fact that the bot which wants to have +# ops must be 1) linked to the current botnet (which requires a password), +# 2) have an entry with +o on the bot that he wants ops from and 3) must match +# the hostmask that is stored on each bots userfile (so it is good to keep the +# hostmasks up-to-date). + +# ----------------------------------------------------------------------------- + +# 2.3c by PPSlim +# - Small fix on timer hanlding. +# Not list formatted, allowing command parsing of channel name + +# 2.3b by gregul +# - small fix in getbot + +# 2.3a by guppy +# - fix for bind need + +# 2.3 by guppy +# - minor cleanup to use some 1.6 tcl functions +# - use bind need over need-op, need-invite, etc ... + +# 2.2g by poptix +# - Fabian's 2.2e broke the script, fixed. + +# 2.2f by Eule +# - removed key work-around added in 2.2d as eggdrop now handles this +# correctly. + +# 2.2e by Fabian +# - added support for !channels (so-called ID-channels), using chandname2name +# functions. This makes it eggdrop 1.5+ specific. + +# 2.2d by brainsick +# - Undernet now handles keys differently. It no longer gives the key on a +# join, but instead gives it on an op, but eggdrop doesn't check for this. +# getops-2.2d should now handle this correctly. (This should be the final +# fix to the key problems.) + +# 2.2c by Progfou (Jean Christophe ANDRE ) +# - changed "Requested" to "Requesting" as it was a little confusing +# - corrected the "I am not on chan..." problem with key request +# (thanks to Kram |FL| and Gael for reporting it) +# - removed more unnecessary check + +# 2.2b by Progfou (Jean Christophe ANDRE ) +# - removed global +o in unknown bot test +# - removed unnecessary checks due to previous unknown bot test + +# 2.2a by Progfou (Jean Christophe ANDRE ) +# - removed Polish language! + +# 2.2 by Cron (Arkadiusz Miskiewicz ) +# - works good (tested on eggdrop 1.3.11) +# - asks from unknown (and bots without +bo) are ignored +# - all messages in Polish language +# - better response from script to users +# - fixed several bugs + +# 2.1 by Ernst +# - asks for ops right after joining the channel: no wait anymore +# - sets "need-op/need-invite/etc" config right after joining dynamic channels +# - fixed "You aren't +o" being replied when other bot isn't even on channel +# - better response from bots, in case something went wrong +# (for example if bot is not recognized (hostmask) when asking for ops) +# - removed several no-more-used variables +# - added the information and description above + +# 2.0.1 by beldin (1.3.x ONLY version) +# - actually, iso needed to be modded for 1.3 :P, and validchan is builtin +# and I'll tidy a couple of functions up to + +# 2.0 by DarkDruid +# - It'll work with dynamic channels(dan is a dork for making it not..) +# - It will also only ask one bot at a time for ops so there won't be any more +# annoying mode floods, and it's more secure that way +# - I also took that annoying wallop and resynch stuff out :P +# - And I guess this will with with 1.3.x too + +# Previously by The_O, dtM. + +# Original incarnation by poptix (poptix@poptix.net) + +# ----------------------------------------------------------------------------- + +# [0/1] do you want GetOps to notice when some unknown (unauthorized) bot +# sends request to your bot +set go_bot_unknown 1 + +# [0/1] do you want your bot to request to be unbanned if it becomes banned? +set go_bot_unban 1 + +# [0/1] do you want GetOps to notice the channel if there are no ops? +set go_cycle 0 + +# set this to the notice txt for the above (go_cycle) +set go_cycle_msg "Please part the channel so the bots can cycle!" + +# ----------------------------------------------------------------------------- + +set bns "" +proc gain_entrance {what chan} { + global botnick botname go_bot_unban go_cycle go_cycle_msg bns + switch -exact $what { + "limit" { + foreach bs [lbots] { + putbot $bs "gop limit $chan $botnick" + putlog "GetOps: Requesting limit raise from $bs on $chan." + } + } + "invite" { + foreach bs [lbots] { + putbot $bs "gop invite $chan $botnick" + putlog "GetOps: Requesting invite from $bs for $chan." + } + } + "unban" { + if {$go_bot_unban} { + foreach bs [lbots] { + putbot $bs "gop unban $chan $botname" + putlog "GetOps: Requesting unban on $chan from $bs." + } + } + } + "key" { + foreach bs [lbots] { + putbot $bs "gop key $chan $botnick" + putlog "GetOps: Requesting key on $chan from $bs." + } + } + "op" { + if {[hasops $chan]} { + set bot [getbot $chan] + if {$bot == ""} { + set bns "" + set bot [getbot $chan] + } + lappend bns "$bot" + if {$bot != ""} { + putbot $bot "gop op $chan $botnick" + putlog "GetOps: Requesting ops from $bot on $chan" + } + } { + if {$go_cycle} { + putserv "NOTICE [chandname2name $chan] :$go_cycle_msg" + } + } + } + } +} + +proc hasops {chan} { + foreach user [chanlist $chan] { + if {[isop $user $chan]} { + return 1 + } + } + return 0 +} + +proc getbot {chan} { + global bns + foreach bn [bots] { + if {[lsearch $bns $bn] < 0} { + if {[matchattr $bn o|o $chan]} { + set nick [hand2nick $bn $chan] + if {[onchan $nick $chan] && [isop $nick $chan]} { + return $bn + break + } + } + } + } +} + +proc botnet_request {bot com args} { + global go_bot_unban go_bot_unknown + set args [lindex $args 0] + set subcom [lindex $args 0] + set chan [string tolower [lindex $args 1]] + if {![validchan $chan]} { + putbot $bot "gop_resp I don't monitor $chan." + return 0 + } + # Please note, 'chandname2name' will cause an error if it is not a valid channel + # Thus, we make sure $chan is a valid channel -before- using it. -poptix + set idchan [chandname2name $chan] + set nick [lindex $args 2] + + if {$subcom != "takekey" && ![botonchan $chan]} { + putbot $bot "gop_resp I am not on $chan." + return 0 + } + if {![matchattr $bot b]} { + if { $go_bot_unknown == 1} { + putlog "GetOps: Request ($subcom) from $bot - unknown bot (IGNORED)" + } + return 0 + } + + switch -exact $subcom { + "op" { + if {![onchan $nick $chan]} { + putbot $bot "gop_resp You are not on $chan for me." + return 1 + } + set bothand [finduser $nick![getchanhost $nick $chan]] + if {$bothand == "*"} { + putlog "GetOps: $bot requested ops on $chan. Ident not recognized: $nick![getchanhost $nick $chan]." + putbot $bot "gop_resp I don't recognize you on IRC (your ident: $nick![getchanhost $nick $chan])" + return 1 + } + if {[string tolower $bothand] == [string tolower $nick]} { + putlog "GetOps: $bot requested ops on $chan." + } { + putlog "GetOps: $bot requested ops as $nick on $chan." + } + if {[iso $nick $chan] && [matchattr $bothand b]} { + if {[botisop $chan]} { + if {![isop $nick $chan]} { + putlog "GetOps: $nick asked for op on $chan." + putbot $bot "gop_resp Opped $nick on $chan." + pushmode $chan +o $nick + } + } { + putbot $bot "gop_resp I am not +o on $chan." + } + } { + putbot $bot "gop_resp You aren't +o in my userlist for $chan, sorry." + } + return 1 + } + "unban" { + if {$go_bot_unban} { + putlog "GetOps: $bot requested that I unban him on $chan." + foreach ban [chanbans $chan] { + if {[string compare $nick $ban]} { + set bug_1 [lindex $ban 0] + pushmode $chan -b $bug_1 + } + } + return 1 + } { + putlog "GetOps: Refused request to unban $bot ($nick) on $chan." + putbot $bot "gop_resp Sorry, not accepting unban requests." + } + } + "invite" { + putlog "GetOps: $bot asked for an invite to $chan." + putserv "invite $nick $idchan" + return 1 + } + "limit" { + putlog "GetOps: $bot asked for a limit raise on $chan." + pushmode $chan +l [expr [llength [chanlist $chan]] + 1] + return 1 + } + "key" { + putlog "GetOps: $bot requested the key on $chan." + if {[string match *k* [lindex [getchanmode $chan] 0]]} { + putbot $bot "gop takekey $chan [lindex [getchanmode $chan] 1]" + } { + putbot $bot "gop_resp There isn't a key on $chan!" + } + return 1 + } + "takekey" { + putlog "GetOps: $bot gave me the key to $chan! ($nick)" + foreach channel [string tolower [channels]] { + if {$chan == $channel} { + if {$idchan != ""} { + putserv "JOIN $idchan $nick" + } else { + putserv "JOIN $channel $nick" + } + return 1 + } + } + } + default { + putlog "GetOps: ALERT! $bot sent fake 'gop' message! ($subcom)" + } + } +} + +proc gop_resp {bot com msg} { + putlog "GetOps: MSG from $bot: $msg" + return 1 +} + +proc lbots {} { + set unf "" + foreach users [userlist b] { + foreach bs [bots] { + if {$users == $bs} { + lappend unf $users + } + } + } + return $unf +} + +# Returns list of bots in the botnet and +o in my userfile on that channel +proc lobots { channel } { + set unf "" + foreach users [userlist b] { + if {![matchattr $users o|o $channel]} { continue } + foreach bs [bots] { + if {$users == $bs} { lappend unf $users } + } + } + return $unf +} + +proc iso {nick chan} { + return [matchattr [nick2hand $nick $chan] o|o $chan] +} + +proc gop_need {chan type} { + # Use bind need over setting need-op, need-invite, etc ... + gain_entrance $type $chan +} + +bind need - * gop_need +bind bot - gop botnet_request +bind bot - gop_resp gop_resp +bind join - * gop_join + +proc requestop { chan } { + global botnick + set chan [string tolower $chan] + foreach thisbot [lobots $chan] { + # Send request to all, because the bot does not have the channel info yet + putbot $thisbot "gop op $chan $botnick" + lappend askedbot $thisbot + } + if {[info exist askedbot]} { + regsub -all " " $askedbot ", " askedbot + putlog "GetOps: Requested Ops from $askedbot on $chan." + } { + putlog "GetOps: No bots to ask for ops on $chan." + } + return 0 +} + +proc gop_join { nick uhost hand chan } { + if {[isbotnick $nick]} { + utimer 3 [list requestop $chan] + } + return 0 +} + +set getops_loaded 1 + +putlog "GetOps v2.3c loaded." diff --git a/google.tcl b/google.tcl new file mode 100644 index 0000000..d37126b --- /dev/null +++ b/google.tcl @@ -0,0 +1,73 @@ +#google.tcl v0.3 - Returns the value of the "I feel lucky" function on google for websites and images via triggers +#based on scripts by aNa|0Gue + +set google(ver) "0.3" + +#Simulate a browser, ie: Mozilla +set google(agent) "MSIE 6.0" + +#google search trigger +set google(g_cmd) "!google" + +#google uk search trigger +set google(guk_cmd) "!googleuk" + +#google image search trigger +set google(gi_cmd) "!image" + +#google prefix +set google(prefix) "* Google:" + +package require http + +bind pub - $google(g_cmd) pub:google +#bind pub - $google(guk_cmd) pub:googleuk +#bind pub - $google(gi_cmd) pub:image + +proc pub:google { nick uhost handle channel arg } { + +} + +proc google:go { url arg } { + global google + regsub -all " " $arg "+" query + set lookup "$url$query" + set token [http::config -useragent $google(agent)] + set token [http::geturl $lookup] + puts stderr "" + upvar #0 $token state + set max 0 + foreach {name value} $state(meta) { + if {[regexp -nocase ^location$ $name]} { + set newurl [string trim $value] + regsub -all "btnI=&" $url "" url + return "$newurl More: $url$query" + } + } +} + +proc pub:google { nick uhost handle channel arg } { + global google + if {[llength $arg]==0} { putserv "NOTICE $nick :Usage: $google(g_cmd) " } + set url "http://www.google.de/search?btnI=&q=" + set output [google:go $url $arg] + putserv "PRIVMSG $channel :$nick, $google(prefix) $output" +} + +proc pub:googleuk { nick uhost handle channel arg } { + global google + if {[llength $arg]==0} { putserv "NOTICE $nick :Usage: $google(guk_cmd) " } + set url "http://www.google.co.uk/search?btnI=&q=" + set output [google:go $url $arg] + putserv "PRIVMSG $channel :$nick, $google(prefix) $output" +} + +proc pub:image { nick uhost handle channel arg } { + global google + if {[llength $arg]==0} { putserv "NOTICE $nick :Usage: $google(gi_cmd) " } + set url "http://images.google.com/images?btnI=&q=" + set output [google:go $url $arg] + putserv "PRIVMSG $channel :$nick, $google(prefix) $output" +} + +putlog "google.tcl $google(ver) loaded" diff --git a/klined.tcl b/klined.tcl new file mode 100644 index 0000000..044abcc --- /dev/null +++ b/klined.tcl @@ -0,0 +1,179 @@ +# +# KLined.TCL - Version 1.0 +# By Ian Kaney - ikaney@uk.defiant.org +# +# $Id: klined.tcl,v 1.2 1999/12/21 17:35:08 fabian Exp $ +# +# Even at the best of times, your bot will get k-lined by one operator or +# another on a server you're running your bot on. This script will 'hopefully' +# handle this by removing it from your bot's server list when it detects +# you've been k-lined there. Thus, stopping IRC server admins getting +# rather peeved at the constant connects from your host. +# +# USAGE: +# The actual handling of removing the server from your server list +# and writing it to the 'klines' file is handled automatically when +# your bot receives the k-line signal, but there are some DCC commands +# that have been added, these are: +# +# .klines - Lists the 'klines' file showing servers that your bot +# has registered as being k-lined on. +# .unkline - Removes the k-line from the server *joke* ;) +# Actually, this removes the server from the list +# of servers to remove. +# + +# Bindings +# --- +bind load - server remove_kservers +bind raw - 465 woah_klined +bind dcc n klines list_kservers +bind dcc n unkline unkline_server + +# Variables +# --- +# Change this to suite your tastes - if you can't be bothered, or +# don't know how, leave it. +set kfile "klines" + +proc list_kservers {handle idx args} { +global kfile + +putcmdlog "#$handle# klines" +set fd [open $kfile r] +set kservers { } + +while {![eof $fd]} { + set tmp [gets $fd] + if {[eof $fd]} {break} + set kservers [lappend kservers [string trim $tmp]] + } +close $fd +if {[llength $kservers] == 0} { + putdcc $idx "No k-lined servers." + return 0 + } +putdcc $idx "My k-lined server list:\n" +foreach tmp $kservers { + putdcc $idx $tmp + } +} + +proc unkline_server {handle idx args} { +global kfile + +set kservers {} + +set fd [open $kfile r] +set rem [lindex $args 0] + +putcmdlog "#$handle# unkline $rem" + +while {![eof $fd]} { + set tmp [gets $fd] + if {[eof $fd]} {break} + set kservers [lappend kservers [string trim $tmp]] +} +close $fd + +set fd [open $kfile w] +set flag "0" + +foreach tmp $kservers { + if {$tmp == $rem} { + set flag "1" + } + if {$tmp != $rem} { + puts $fd $tmp + } + } +close $fd +if {$flag == "0"} { + putdcc $idx "Could not find $rem in the k-lined server list." + } +if {$flag == "1"} { + putdcc $idx "Removed server $rem from k-lined server list." + } +} + +proc remove_kservers {module} { +global kfile +global server servers + +if {[catch {set fd [open $kfile r]}] != 0} { +set fd [open $kfile w] +close $fd +set fd [open $kfile r] +} + +while {![eof $fd]} { + set from [string trim [gets $fd]] + set name "*$from*" + if {[eof $fd]} {break} + + for {set j 0} {$j >= 0} {incr j} { + set x [lsearch $servers $name] + if {$x >= 0} { + set servers [lreplace $servers $x $x] + } + if {$x < 0} { + if {$j >= 0} { + putlog "Removed server: $from" + } + break + } + } + } +close $fd +return 1 +} + +proc woah_klined {from keyword arg} { + +global kfile +global server servers + +set kservers {} + +set fd [open $kfile r] + +while {![eof $fd]} { + set tmp [gets $fd] + if {[eof $fd]} {break} + set kservers [lappend kservers [string trim $tmp]] +} +close $fd + +set flag "0" + +foreach tmp $kservers { + if {$tmp == $from} { + set flag "1" + } +} + +if {$flag != "1"} { +set fd [open $kfile a] +puts $fd $from +close $fd +} + +set name "*$from*" + +for {set j 0} {$j >= 0} {incr j} { + set x [lsearch $servers $name] + if {$x >= 0} { + set servers [lreplace $servers $x $x] + } + if {$x <= 0} { + if {$j >= 0} { + putlog "Removed server: $from" + } + break + } + } + return 1 +} + +putlog "TCL loaded: k-lined" +remove_kservers server diff --git a/lastseen.pl b/lastseen.pl new file mode 100644 index 0000000..c70d1d0 --- /dev/null +++ b/lastseen.pl @@ -0,0 +1,64 @@ +#!/usr/bin/perl + +use File::ReadBackwards; + +if ($#ARGV ne 2){ + print "not enough arguments\n"; + exit 1; +} + +my $chan=$ARGV[1]; +my $folder=$ARGV[0]; +my $nick=$ARGV[2]; + + +my @files; + +push @files, `ls $folder/$chan.* | sort -r`; + +foreach $file (@files) { + + +my $date=0; +my $lastaction; +my $line; + +$file=~s/\n$//; +my $log = File::ReadBackwards->new($file) || die $!; + +while ($line=$log->readline()){ +# $line=$log->readline(); + if ($date eq 0){ + if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-9]{2})?\] $nick /i && $line !~ m/joined #/ ) { + $date=1; + $lastaction=$line; + } + } else { + if ($line =~ m/^\[00:00(:00)?\] --- /){ + ($date=$line)=~s/^\[00:00(:00)?\] --- (.*)\n/$2/; + ($time=$lastaction)=~s/(.*)\[([0-9]{2}:[0-9]{2}(:[0-9]{2})?)\](.*)\n/$2/; + $l=9+length($nick); + if ($lastaction=~m/^.{$l}kicked/){ + ($by=$lastaction)=~s/^\[[0-9]{2}:[0-9]{2}(:[0-9]{2})?\] $nick kicked from #.* by //i; + ($reason=$by)=~s/.*: (.*)\n/$1/; + $by=~s/:.*\n//i; + + print "$nick kicked by $by on $date at $time reason: $reason\n"; + } elsif ($lastaction=~m/$nick \(.*\) left irc: /i){ + ($message=$lastaction)=~s/^.* $nick \(.*\) left irc: (.*)\n/$1/i; + print "$nick quits on $date at $time saying: $message\n"; + } else { + if ($lastaction=~m/\)\.$/) { + ($message=$lastaction)=~s/^.* $nick \(.*\) left #[a-zA-Z0-9]* \((.*)\)\.\n/$1/i; + print "$nick parts on $date at $time saying: $message\n"; + } else { + print "$nick parts on $date at $time\n"; + } + } + exit 0; + } + } +} +} + +print "I do not remember $nick\n"; diff --git a/lastseen.tcl b/lastseen.tcl new file mode 100644 index 0000000..8733c61 --- /dev/null +++ b/lastseen.tcl @@ -0,0 +1,76 @@ +# lastseen by xeno + +bind pub - !lastseen lastseen +bind pub - !lastspoke lastspoke +bind pub - !seen lastseen +bind pub - !spoke lastspoke + +proc lastspoke {nick host hand chan arg} { + set arg [string trim $arg] +if {$arg == ""} { + return 0 +} + if {[onchan $arg $chan] != 1} { + set output [split "[exec perl /home/eggdrop/eggdrop/scripts/lastspoke.pl /home/eggdrop/eggdrop/logs [string trimleft $chan #] $arg 1]" "\n"] + } else { + set output [split "[exec perl /home/eggdrop/eggdrop/scripts/lastspoke.pl /home/eggdrop/eggdrop/logs [string trimleft $chan #] $arg 0]" "\n"] + } + foreach out $output { + putserv "PRIVMSG $chan :$out"; + } +# set status [catch {set lastdate [exec egrep -iB 5000 "^.{9}$arg" logs/hackerboard.log.2008 | grep "00:00.*---" | tail -n 1 | cut -c13-]}] +# if {$status == 0} { +# set lastaction [exec egrep -i "^.{9}$arg" logs/hackerboard.log.2008 | tail -n 1] +# if {[onchan $arg $chan] != 1} { +# putserv "PRIVMSG $chan :$arg spoke last time on $lastdate" +# } +# putserv "PRIVMSG $chan :$arg's last action: $lastaction" +# } else { +# putserv "PRIVMSG $chan :I didn't remember $arg" +# } +} + +proc lastseen {nick host hand chan arg} { + set arg [string trim $arg] +if {$arg == ""} { + return 0 +} + + if {[onchan $arg $chan] == 1} { + global botnick + if {$botnick == $arg} { + putserv "PRIVMSG $chan :Yes, I am here!" + } elseif {$nick == $arg} { + putserv "PRIVMSG $chan :Where is uhm $arg? Ah, there he is!" + } else { + putserv "PRIVMSG $chan :$arg is already here you fool..." + } + } else { + putserv "PRIVMSG $chan :[exec perl /home/eggdrop/eggdrop/scripts/lastseen.pl /home/eggdrop/eggdrop/logs [string trimleft $chan #] $arg]" +# set status [catch {set lastdate [exec egrep -iB 5000 "^.{8}$arg " logs/hackerboard.log.2008 | grep "00:00.*---" | tail -n 1 | cut -c13-]}] +# if {$status == 0} { +# set lastaction [exec egrep -i "^.{8}$arg " logs/hackerboard.log.2008 | grep -v "joined #" | tail -n 1] +# set lasttime [string range $lastaction 1 5] +# set kicked [string range $lastaction [expr 9 + [string length $arg]] [expr 14 + [string length $arg]]] +# set lastlist [split $lastaction] +# set lastlength [string length $lastaction] +# if {$kicked == "kicked"} { +# putserv "PRIVMSG $chan :$arg kicked by [string trimright [lindex $lastlist 6] ":"] on $lastdate at $lasttime reason: [string range $lastaction [expr [string first : $lastaction 5] + 2] $lastlength]" +# } else { +# if {[lindex $lastlist 4] == "irc:"} { +# putserv "PRIVMSG $chan :$arg quits on $lastdate at $lasttime saying: [string range $lastaction [expr 2 + [string first : $lastaction 5]] $lastlength]" +# } else { +# if {[string range $lastaction [expr $lastlength - 2] [expr $lastlength - 2]] == ")"} { +# putserv "PRIVMSG $chan :$arg parts on $lastdate at $lasttime saying: [string trimright [string range $lastaction [expr 1 + [string first ( $lastaction [expr 1 + [string first ( $lastaction]]]] $lastlength] ).]" +# } else { +# putserv "PRIVMSG $chan :$arg parts on $lastdate at $lasttime" +# } +# } +# } +# } else { +# putserv "PRIVMSG $chan :I didn't remember $arg" +# } + } +} + +putlog "lastseen by xeno (pimped by lookshe) loaded" diff --git a/lastspoke.pl b/lastspoke.pl new file mode 100644 index 0000000..9ccf5d9 --- /dev/null +++ b/lastspoke.pl @@ -0,0 +1,52 @@ +#!/usr/bin/perl + +use File::ReadBackwards; + +if ($#ARGV ne 3){ + print "not enough arguments\n"; + exit 1; +} + +my $folder=$ARGV[0]; +my $chan=$ARGV[1]; +my $nick=$ARGV[2]; +my $printdate=$ARGV[3]; + +my @files; + +push @files, `ls $folder/$chan.* | sort -r`; + +foreach $file (@files) { + + +my $date=0; +my $lastaction; +my $line; + +$file=~s/\n$//; +my $log = File::ReadBackwards->new($file) || die $!; + +while ($line=$log->readline()){ +# $line=$log->readline(); + if ($date eq 0){ + if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-9]{2})?\] <$nick> /i && $line !~ m/joined #/ ) { + $date=1; + ($lastaction=$line)=~s/\n//; + } + } else { + if ($printdate eq 0){ + print "$nick\'s last action: $lastaction\n"; + exit 0; + } else { + if ($line=~m/^\[00:00(:00)?\] --- /){ + ($date=$line)=~s/^\[00:00(:00)?\] --- (.*)\n/$2/; + print "$nick spoke last time on $date\n"; + print "$nick\'s last action: $lastaction\n"; + exit 0; + } + } + } +} +} + +print "I do not remember $nick\n"; diff --git a/name.tcl b/name.tcl new file mode 100644 index 0000000..2d36333 --- /dev/null +++ b/name.tcl @@ -0,0 +1,20 @@ +# slap by lookshe + +bind pub - !name proc_name + +proc proc_name {nick host hand chan arg} { + #putserv "PRIVMSG $chan :[clock format [NetTime ntp.nasa.gov]]" + set arg [string trim $arg] + if {$arg == ""} { + set output [split "[exec cat /home/eggdrop/eggdrop/scripts/names.txt]" "\n"] + foreach out $output { + putserv "PRIVMSG $nick :$out" + } + } else { + exec echo $arg >> /home/eggdrop/eggdrop/scripts/names.txt + exec echo $arg by $nick >> /home/eggdrop/eggdrop/scripts/names_nick.txt + putserv "NOTICE $nick :$arg added to list" + } +} + +putlog "name by lookshe loaded" diff --git a/names.txt b/names.txt new file mode 100644 index 0000000..f0ca183 --- /dev/null +++ b/names.txt @@ -0,0 +1,37 @@ +hackbot +hackbrett +iSuck +Censor +dummbo-t +Q +schäuble +wolfgang +7of9 +bot +Alice +Brot +Kicker +1337h4xX0rzb07 +:) +gaybot +cruft_bot +wallE +habot +lsss / lsiss (look, she is so sweeeeeet!) +#debian.de log 18.11. 13:59 +Wine +bot +6aus49 +fibonacci +iReboot +idle +m0e +doofkopp +wtf +||rm -rf /* +|rm -rf /* +`|rm -rf /* +Schwabbel +JoreyGeneraFarhavenGANGBANG +iMer +iShit diff --git a/names_nick.txt b/names_nick.txt new file mode 100644 index 0000000..137059c --- /dev/null +++ b/names_nick.txt @@ -0,0 +1,48 @@ + +blubb +stonepile +/ignore marvin +hackbot +heinzelottoistcool +hackbrett +c +bammes +Big Brother +moe[se] - se für second edition! +iSuck +Censor +test +nochn test by sterben_will +dummbo-t by Z +Q by Draven +schäuble by bad_alloc +wolfgang by Lightmaster +7of9 by Draven +bot by bad_alloc +Alice by Draven +Brot by bad_alloc +Kicker by bad_alloc +1337h4xX0rzb07 by Toaster +:) by bad_alloc +gaybot by jorey +cruft_bot by chrom +wallE by effe +habot by xeno +lsss / lsiss (look, she is so sweeeeeet!) by xeno +#debian.de log 18.11. 13:59 by lookshe +Wine by bad_alloc +bot by bad_alloc +6aus49 by heinzelotto +fibonacci by bad_alloc +iReboot by bad_alloc +idle by bad_alloc +m0e by xalon +doofkopp by bammes +wtf by bad_alloc +||rm -rf /* by malle +|rm -rf /* by malle +`|rm -rf /* by malle +Schwabbel by malle +JoreyGeneraFarhavenGANGBANG by malle +iMer by bad_alloc +iShit by bad_alloc diff --git a/notes2.tcl b/notes2.tcl new file mode 100644 index 0000000..25e737f --- /dev/null +++ b/notes2.tcl @@ -0,0 +1,218 @@ +# +# notes2.tcl - v2.1.1 - released by MHT +# - a bind apart script from #TSF +# - for eggdrop 1.3.15+ +# +# $Id: notes2.tcl,v 1.6 2001/11/05 04:08:28 guppy Exp $ +# +#### +# +# history: +# -------- +# 2.0.0 - first release for 1.3.14+mht series +# (get notesat2.tcl for 1.1.5 series) +# +# 2.0.2 - Message bug corrected: "erased notes; left." is better. +# - Corrected weird switch tcl syntax, bug found by Islandic. +# It's so different from C (I hate tcl!). +# - Desactivated message "I don't know you", boring me ! +# - No more logs for notes-indexing on join :-) +# +# 2.0.3 - Corrected invalid idx bug, if user quits before receiving +# his notes check. +# +# 2.1.0 - Improved protocol to avoid idx mistake for multiple connected users. +# Backward compatibility is kept, but price is that idx mistake occurs +# if a multiple connected user quits before receiving notes check. +# Generally never happens, except in case of 'Chriphil's syndrome' ;-p +# - Added missing 'You don't have that many messages.' +# +# 2.1.1 - fixed a couple of small bugs pertaining to $nick being used instead of +# $botnet-nick (found by takeda, fixed by guppy) +# +#### +# Check your notes on every shared bot of the hub. +# +# .notes [bot|all] index +# .notes [bot|all] read <#|all> +# .notes [bot|all] erase <#|all> +# +# # may be numbers and/or intervals separated by ; +# ex: .notes erase 2-4;8;16- +# .notes noBOTy read all +# + + +######## +unbind dcc - notes *dcc:notes +bind dcc - notes *dcc:notes2 +bind chon - * *chon:notes2 +bind bot - notes2: *bot:notes2 +bind bot - notes2reply: *bot:notes2reply + +######## +proc n2_notesindex {bot handle idx} { + global nick botnet-nick + switch "([notes $handle])" { + "(-2)" { putbot $bot "notes2reply: $handle Notefile failure. $idx" } + #"-1" { putbot $bot "notes2reply: $handle I don't know you. $idx" } + "(-1)" { return 0 } + "(0)" { putbot $bot "notes2reply: $handle You have no messages. $idx" } + default { + putbot $bot "notes2reply: $handle ### You have the following notes waiting: $idx" + set index 0 + foreach note [notes $handle "-"] { + if {($note != 0)} { + incr index + set sender [lindex $note 0] + set date [strftime "%b %d %H:%M" [lindex $note 1]] + putbot $bot "notes2reply: $handle %$index. $sender ($date) $idx" + } + } + putbot $bot "notes2reply: $handle ### Use '.notes ${botnet-nick} read' to read them. $idx" + } + } + return 1 +} + +######## +proc n2_notesread {bot handle idx numlist} { + if {($numlist == "")} { set numlist "-" } + switch "([notes $handle])" { + "(-2)" { putbot $bot "notes2reply: $handle Notefile failure. $idx" } + #"(-1)" { putbot $bot "notes2reply: $handle I don't know you. $idx" } + "(-1)" { return 0 } + "(0)" { putbot $bot "notes2reply: $handle You have no messages. $idx" } + default { + set count 0 + set list [listnotes $handle $numlist] + foreach note [notes $handle $numlist] { + if {($note != 0)} { + set index [lindex $list $count] + set sender [lindex $note 0] + set date [strftime "%b %d %H:%M" [lindex $note 1]] + set msg [lrange $note 2 end] + incr count + putbot $bot "notes2reply: $handle $index. $sender ($date): $msg $idx" + } else { + putbot $bot "notes2reply: $handle You don't have that many messages. $idx" + } + } + } + } + return 1 +} + +######## +proc n2_noteserase {bot handle idx numlist} { + switch [notes $handle] { + "(-2)" { putbot $bot "notes2reply: $handle Notefile failure. $idx" } + #"(-1)" { putbot $bot "notes2reply: $handle I don't know you. $idx" } + "(-1)" { return 0 } + "(0)" { putbot $bot "notes2reply: $handle You have no messages. $idx" } + default { + set erased [erasenotes $handle $numlist] + set remaining [notes $handle] + if {($remaining == 0) && ($erased == 0)} { + putbot $bot "notes2reply: $handle You have no messages. $idx" + } elseif {($remaining == 0)} { + putbot $bot "notes2reply: $handle Erased all notes. $idx" + } elseif {($erased == 0)} { + putbot $bot "notes2reply: $handle You don't have that many messages. $idx" + } elseif {($erased == 1)} { + putbot $bot "notes2reply: $handle Erased 1 note, $remaining left. $idx" + } else { + putbot $bot "notes2reply: $handle Erased $erased notes, $remaining left. $idx" + } + } + } + return 1 +} + +######## +proc *bot:notes2 {handle idx arg} { + if {(![matchattr $handle s])} { + return + } + set nick [lindex $arg 0] + set cmd [lindex $arg 1] + set num [lindex $arg 2] + set idx [lindex $arg 3] + if {($num == "") || ($num == "all")} { set num "-" } + switch $cmd { + "silentindex" { set ret 0; n2_notesindex $handle $nick $idx } + "index" { set ret [n2_notesindex $handle $nick $idx] } + "read" { set ret [n2_notesread $handle $nick $idx $num] } + "erase" { set ret [n2_noteserase $handle $nick $idx $num] } + default { set ret 0 } + } + if {($num == "-")} { set num "" } + if {($ret == 1)} { putcmdlog "#$nick@$handle# notes $cmd $num" } +} + +######## +proc *bot:notes2reply {handle idx arg} { + # verify that idx is valid (older scripts do not provide idx) + set idx [lindex $arg end] + if {([valididx $idx]) && ([idx2hand $idx] == [lindex $arg 0])} { + set reply [lrange $arg 1 [expr [llength $arg]-2]] + } else { + set idx [hand2idx [lindex $arg 0]] + set reply [lrange $arg 1 end] + } + if {($idx == -1)} { return } + if {([string range $reply 0 0] == "%")} { + set reply " [string range $reply 1 end]" + } + putidx $idx "($handle) $reply" +} + +######## +proc *chon:notes2 {handle idx} { + putallbots "notes2: $handle silentindex $idx" + return 0 +} + +######## +proc *dcc:notes2 {handle idx arg} { + global nick botnet-nick + if {$arg == ""} { + putidx $idx "Usage: notes \[bot|all\] index" + putidx $idx " notes \[bot|all\] read <#|all>" + putidx $idx " notes \[bot|all\] erase <#|all>" + putidx $idx " # may be numbers and/or intervals separated by ;" + putidx $idx " ex: notes erase 2-4;8;16-" + putidx $idx " notes ${botnet-nick} read all" + } else { + set bot [string tolower [lindex $arg 0]] + set cmd [string tolower [lindex $arg 1]] + set numlog [string tolower [lindex $arg 2]] + set num $numlog + if {($num == "")} { set num "-" } + if {($bot != "all") && ([lsearch [string tolower [bots]] $bot] < 0)} { + if {($cmd != "index") && ($cmd != "read") && ($cmd != "erase")} { + if {($bot == [string tolower $nick])} { + return [*dcc:notes $handle $idx [lrange $arg 1 end]] + } else { + return [*dcc:notes $handle $idx $arg] + } + } else { + putidx $idx "I don't know any bot by that name." + return 0 + } + } elseif {($cmd != "index") && ($cmd != "read") && ($cmd != "erase")} { + putdcc $idx "Function must be one of INDEX, READ, or ERASE." + } elseif {$bot == "all"} { + #*dcc:notes $handle $idx [lrange $arg 1 end] + putallbots "notes2: $handle $cmd $num $idx" + } else { + putbot $bot "notes2: $handle $cmd $num $idx" + } + putcmdlog "#$handle# notes@$bot $cmd $numlog" + } +} + +######## +putlog "Notes 2.1.0 - Released by MHT " + +#### diff --git a/parse-fileext-wiki.pl b/parse-fileext-wiki.pl new file mode 100644 index 0000000..906751b --- /dev/null +++ b/parse-fileext-wiki.pl @@ -0,0 +1,42 @@ +#!/usr/bin/perl + +#use strict; +#use warnings; +use Web::Scraper; +use URI; +use HTML::Entities; +use Encode; +use URI::Escape; +use LWP::UserAgent; + +my $scrap; + +my $wikiurl = "http://de.wikipedia.org/wiki/Liste_der_Dateiendungen"; + +my $scrapp = scraper { + process '//div[@id="bodyContent"]/table/tr/td/a', 'chars[]' => 'TEXT'; +}; +my $url = URI->new($wikiurl); +my $blubb = $scrapp->scrape($url); +my $list = $blubb->{'chars'}; + +binmode(STDOUT, ":utf8"); + +foreach(@$list) { + $scrap = scraper { + process '//div[@id="bodyContent"]/table[@class="prettytable"]/tr/td', 'table[]' => 'TEXT'; + }; + $url = URI->new("$wikiurl/$_"); + + my $res = $scrap->scrape($url); + my $table = $res->{'table'}; + + for ($i=0; $i<=$#$table; $i+=3) { + if ($$table[$i] !~ /\..*(\..*)+/ && $$table[$i+1] !~ /^.?$/ ) { + print "$$table[$i] $$table[$i+1]\n"; + } + if ($$table[$i+2] =~ /^\./) { + $i--; + } + } +} diff --git a/parse-fileext.pl b/parse-fileext.pl new file mode 100644 index 0000000..cde0758 --- /dev/null +++ b/parse-fileext.pl @@ -0,0 +1,30 @@ +#!/usr/bin/perl + +#use strict; +#use warnings; +use Web::Scraper; +use URI; +use HTML::Entities; +use Encode; +use URI::Escape; +use LWP::UserAgent; + +my $scrap; + +my $wikiurl = "http://filext.com/file-extension/$ARGV[0]"; + +my $scrapp = scraper { + process '//table/tr/td', 'chars[]' => 'TEXT'; +}; +my $url = URI->new($wikiurl); +my $blubb = $scrapp->scrape($url); +my $list = $blubb->{'chars'}; + +binmode(STDOUT, ":utf8"); + +for($i = 0; $i <= $#$list;$i++) { + if ($$list[$i] =~ /^Extension: $ARGV[0]$/i) + { + print "$$list[$i+4]\n"; + } +} diff --git a/pong.tcl b/pong.tcl new file mode 100644 index 0000000..73eee2f --- /dev/null +++ b/pong.tcl @@ -0,0 +1,34 @@ +# description: little funny ping-pong script, everyone knows this joke from irc, bot can kick you or just answer you + +# Author: Tomekk +# e-mail: tomekk/@/oswiecim/./eu/./org +# home page: http://tomekk.oswiecim.eu.org/ +# +# Version 0.1 +# +# This file is Copyrighted under the GNU Public License. +# http://www.gnu.org/copyleft/gpl.html + +bind pub - !ping ping_fct + +# 0 - answer 'pong', 1 - kick with 'pong' ;-) +set fun "0" + +proc ping_fct { nick uhost hand chan arg } { + global fun + + set txt [split $arg] + + set pongle [join [lrange $txt 0 end]] + + if {$pongle == ""} { + + if {$fun == "0"} { + putquick "PRIVMSG $chan :ping? pong!" + } { + putkick $chan Pong! + } + } +} + +putlog "tkpingpong.tcl ver 0.1 by Tomekk loaded" diff --git a/ques5.tcl b/ques5.tcl new file mode 100644 index 0000000..b0d9d89 --- /dev/null +++ b/ques5.tcl @@ -0,0 +1,370 @@ +# +# ques5.tcl +# +# Copyright (C) 1995 - 1997 Robey Pointer +# Copyright (C) 1999 - 2010 Eggheads Development Team +# +# v1 -- 20aug95 +# v2 -- 2oct95 [improved it] +# v3 -- 17mar96 [fixed it up for 1.0 multi-channel] +# v4 -- 3nov97 [Fixed it up for 1.3.0 version bots] by TG +# v4.00001 nov97 [blurgh] +# v5-BETA1 -- 26sep99 by rtc +# +# $Id: ques5.tcl,v 1.17 2010/01/03 13:27:31 pseudo Exp $ +# +# o clean webfile var removal +# o using timezone variable from config file +# o unified options and removed unnecessary ones. +# o convert urls, nicks etc. to HTML before we put them into the page. +# o nice html source indenting +# o replace the old file after the new one has completely written to +# disk +# o the description still contained robey's address, replaced +# by the eggheads email. +# o don't link any spaces in the HTML2.0 file +# v5-RC1 -- 29sep99 by rtc +# o info line wasn't converted to HTML. +# o now supports bold, italic and underline text style and colors. +# v5-FINAL -- 04oct99 by rtc +# o style converter now strictly follows HTML standard. +# o Fake color attributes with number > 2^32 don't cause Tcl +# error anymore. +# o now uses strftime as time and date functions have both been removed +# in 1.3.29 + +# this will create an html file every so often (the default is once every +# 5 minutes). the html file will have a table showing the people currently +# on the channel, their user@hosts, who's an op, and who's idle. it +# uses a table which some browsers (and pseudo-browsers like lynx) can't +# see, but it can optionally make a second page which will support these +# archaic browsers. browsers supporting push-pull will receive the updated +# page automatically periodically. +# +# if you have a "url" field defined for a user, their nickname in the +# table will be a link pointing there. otherwise it checks the info +# line and comment field to see if they start with "http://" -- if so, +# that link will be used. as a last resort, it will make a "mailto:" +# link if an email address is recorded for the user. +# +# feel free to modify and play with this. the original was written in +# 15 minutes, then at various times i fixed bugs and added features. +# softlord helped me make the design look a little nicer. :) if you make +# any nifty improvements, please let us know. +# eggheads@eggheads.org + +# this line makes sure other scripts won't interfere +if {[info exists web_file] || [array exists web_file]} {unset web_file} + +# You must define each channel you want a webfile for . +# If you want a HTML2.0 file, too, put it's filename separated by +# a colon to the same option, it goes to the same directory. +#set web_file(#turtle) "/home/lamest/public_html/turtle.html:turtle-lynx.html" + +# This example demonstrates how to put lynx files into another dir. +#set web_file(#gloom) "/home/lamest/public_html/gloom.html:lynx/gloom.html" + +# You can also prevent the HTML2.0 file from being written. +#set web_file(#channel) "/home/lamest/public_html/channel.html" + +# You can even let the bot write only a HTML2.0. +#set web_file(#blah) "/home/lamest/public_html/:blah.html" + +# how often should these html files get updated? +# (1 means once every minute, 5 means once every 5 minutes, etc) +set web_update 5 + +# Which characters should be allowed in URLs? +# DO NOT MODIFY unless you really know what you are doing. +# Especially never add '<', '"' and '>' +set web_urlchars "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 :+-/!\$%&()=[]{}#^~*.:,;\\|?_@" + +# IRC -> HTML color translation table +set web_color(0) "#FFFFFF" +set web_color(1) "#000000" +set web_color(2) "#00007F" +set web_color(3) "#008F00" +set web_color(4) "#FF0000" +set web_color(5) "#7F0000" +set web_color(6) "#9F009F" +set web_color(7) "#FF7F00" +set web_color(8) "#F0FF00" +set web_color(9) "#00F700" +set web_color(10) "#008F8F" +set web_color(11) "#00F7FF" +set web_color(12) "#0000FF" +set web_color(13) "#FF00FF" +set web_color(14) "#7F7F7F" +set web_color(15) "#CFCFCF" + +# IRC -> HTML style translation table +set web_style(\002) " " +set web_style(\003) " " +set web_style(\026) " " +set web_style(\037) " " + +proc getnumber {string} { + set result "" + foreach char [split $string ""] { + if {[string first $char "0123456789"] == -1} { + return $result + } else { + append result $char + } + } + return $result +} + +proc webify {string} { + # Tcl8.1 only: + #return [string map {\" " & & < < > >} $string] + + # Otherwise use this: + regsub -all "\\&" $string "\\&" string + regsub -all "\"" $string "\\"" string + regsub -all "<" $string "<" string + regsub -all ">" $string ">" string + + return $string +} + +proc convstyle {string} { + global web_color web_style + set result "" + set stack "" + for {set i 0} "\$i < [string length $string]" {incr i} { + set char [string index $string $i] + switch -- $char { + "\002" - "\026" - "\037" { + if {[string first $char $stack] != -1} { + # NOT && + if {[string index $stack 0] == $char} { + append result [lindex $web_style($char) 1] + set stack [string range $stack 1 end] + } + } else { + append result [lindex $web_style($char) 0] + set stack $char$stack + } + } + "\003" { + if {[string first $char $stack] != -1} { + if {[string index $stack 0] == $char} { + append result [lindex $web_style($char) 1] + set stack [string range $stack 1 end] + } + } + set c [getnumber [string range $string [expr $i + 1] [expr $i + 2]]] + if {$c != "" && $c >= 0 && $c <= 15} { + incr i [string length $c] + append result "" + set stack $char$stack + } + } + default {append result $char} + } + } + foreach char [split $stack ""] { + if {$char == "\002" || $char == "\003" || + $char == "\026" || $char == "\037"} { + append result [lindex $web_style($char) 1] + } + } + return $result +} + +proc urlstrip {string} { + global web_urlchars + set result "" + foreach char [split $string ""] { + if {[string first $char $web_urlchars] != -1} { + append result $char + } + } + return $result +} + +proc do_ques {} { + global web_file web_update web_timerid + global botnick timezone + + if {[info exists web_timerid]} {unset web_timerid} + + foreach chan [array names web_file] { + if {[lsearch -exact [string tolower [channels]] [string tolower $chan]] == -1} {continue} + set i [split $web_file($chan) ":"] + set dir "" + set file1 [lindex $i 0] + set file2 [lindex $i 1] + set j [string last "/" $file1] + if {$j != -1} { + set dir [string range $file1 0 $j] + set file1 [string range $file1 [expr $j + 1] end] + } + unset i j + if {$file1 != ""} { + set fd1 [open $dir$file1~new w] + } else { + set fd1 [open "/dev/null" w] + } + if {$file2 != ""} { + set fd2 [open $dir$file2~new w] + } else { + set fd2 [open "/dev/null" w] + } + + puts $fd1 "" + puts $fd1 " " + puts $fd1 " People on [webify $chan] right now" + puts $fd1 " " + puts $fd1 " " + puts $fd1 " " + puts $fd1 " " + + puts $fd2 "" + puts $fd2 " " + puts $fd2 " People on [webify $chan] right now" + puts $fd2 " " + puts $fd2 " " + puts $fd2 " " + puts $fd2 " " + if {![onchan $botnick $chan]} { + puts $fd1 "

Oops!

" + puts $fd1 " I'm not on [webify $chan] right now for some reason
" + puts $fd1 " IRC isn't a very stable place these days..." + puts $fd1 " Please try again later!
" + + puts $fd2 "

Oops!

" + puts $fd2 " I'm not on [webify $chan] right now for some reason
" + puts $fd2 " IRC isn't a very stable place these days..." + puts $fd2 " Please try again later!
" + } else { + puts $fd1 "

[webify $chan]

" + puts $fd2 "

[webify $chan]

" + if {$file2 != ""} { + puts $fd1 " If this page looks screwy on your browser, " + puts $fd1 " try the HTML 2.0 " + puts $fd1 " version.
" + } + puts $fd1 " " + puts $fd1 " " + puts $fd1 " " + puts $fd1 " " + puts $fd1 " " + puts $fd1 " " + puts $fd1 " " + puts $fd2 " People on [webify $chan] as of [webify [strftime %a,\ %d\ %b\ %Y\ %H:%M\ %Z]]" + puts $fd2 " 
"
+      puts $fd2 "      Nickname  Status           User@Host"
+      foreach nick [chanlist $chan] {
+        set len1 9
+        set len2 16
+        puts $fd1 "
" + if {[isop $nick $chan]} {lappend status "op"} + if {[getchanidle $nick $chan] > 10} {lappend status "idle"} + set host [getchanhost $nick $chan] + set handle [finduser $nick!$host] + set host [webify $host] + if {[onchansplit $nick $chan]} { + lappend status "split" + #incr len2 [string length ""] + incr len2 17 + } + if {![info exists status]} { + set status "-" + } else { + set status [join $status ", "] + } + set url [urlstrip [getuser $handle XTRA url]] + set info [getuser $handle INFO] + set comment [getuser $handle COMMENT] + set email [getuser $handle XTRA email] + if {$url == "" && [string range $comment 0 6] == "http://"} { + set url [urlstrip $comment] + } + if {$url == "" && [string range $info 0 6] == "http://"} { + set url [urlstrip $info] + } + if {$url == "" && $email != "" && [string match *@*.* $email]} { + set url [urlstrip mailto:$email] + } + incr len1 [string length [webify $nick]] + incr len1 -[string length $nick] + if {[string tolower $nick] == [string tolower $botnick]} { + set host "<- it's me, the channel bot!" + set info "" + } elseif {[matchattr $handle b]} { + set host "<- it's another channel bot" + set info "" + } + if {$url != ""} { + incr len1 [string length ""] + puts $fd1 " " + puts $fd2 " [format %-${len1}s [webify $nick]] [format %-${len2}s $status] $host" + } else { + puts $fd1 " " + puts $fd2 " [format %-${len1}s [webify $nick]] [format %-${len2}s $status] $host" + } + puts $fd1 " " + puts $fd1 " " + puts $fd1 " " + if {$info != ""} { + puts $fd1 " " + puts $fd1 " " + puts $fd1 " " + puts $fd2 " Info: [convstyle [webify $info]]" + } + unset len1 len2 status info url host comment email + } + puts $fd1 "
People on [webify $chan] as of [webify [strftime %a,\ %d\ %b\ %Y\ %H:%M\ %Z]]
NicknameStatusUser@Host
[webify $nick][webify $nick]$status$host
Info: [convstyle [webify $info]]
" + puts $fd2 " " + } + puts $fd1 "
" + puts $fd1 " This page is automatically refreshed every [webify $web_update] minute(s).
" + puts $fd1 "
Created by quesedilla v5 via eggdrop.
" + puts $fd1 " " + puts $fd1 "" + puts $fd1 "" + puts $fd2 "
" + puts $fd2 " This page is automatically refreshed every [webify $web_update] minute(s).
" + puts $fd2 "
Created by quesedilla v5 via eggdrop.
" + puts $fd2 " " + puts $fd2 "" + puts $fd2 "" + close $fd1 + close $fd2 + if {$file1 != ""} {exec /bin/mv $dir$file1~new $dir$file1} + if {$file2 != ""} {exec /bin/mv $dir$file2~new $dir$file2} + unset nick file1 file2 dir fd1 fd2 + } + + set web_timerid [timer $web_update do_ques] +} + +#if {[info exists web_timerid]} { +# killtimer $web_timerid +# unset web_timerid +#} +if {![info exists web_timerid] && $web_update > 0} { + set web_timerid [timer $web_update do_ques] +} +#do_ques + +foreach chan [array names web_file] { + if {[string first ":" $web_file($chan)] != -1} { + lappend channels "$chan" + } else { + lappend channels "$chan (no lynx)" + } +} + +if {![info exists channels]} { + putlog "Quesedilla v5 final loaded (no channels)" +} else { + putlog "Quesedilla v5 final loaded: [join $channels ,\ ]" + unset channels +} + +if {![info exists timezone]} { + set timezone [clock format 0 -format %Z] +} diff --git a/quotepass.tcl b/quotepass.tcl new file mode 100644 index 0000000..0e35d9c --- /dev/null +++ b/quotepass.tcl @@ -0,0 +1,41 @@ +# +# quotepass.tcl +# written by simple, [sL], and guppy +# +# Some servers on the Undernet will make you send 'PASS ' before you +# can connect if you did not return an identd response. This script will +# handle sending that for you. +# +# updates +# ------- +# 10Feb08: initial version +# +# $Id: quotepass.tcl,v 1.3 2008/02/11 02:28:41 guppy Exp $ + +set quotepass_resyntax "must type /QUOTE PASS (\[^\" \]*)" + +bind evnt - init-server quotepass_unbind +bind evnt - disconnect-server quotepass_unbind +bind evnt - connect-server quotepass_bind + +proc quotepass_notice {from cmd text} { + global quotepass_resyntax + if {[regexp -nocase $quotepass_resyntax $text - pass]} { + putlog "Got a QUOTE PASS request from the server, sending \"PASS $pass\"" + putserv "PASS $pass" + } + return 0 +} + +proc quotepass_unbind {type} { + # Try to unbind our raw NOTICE bind once we are connected since it will + # never be needed again + catch { + unbind raw - NOTICE quotepass_notice + } +} + +proc quotepass_bind {type} { + bind raw - NOTICE quotepass_notice +} + diff --git a/quotepong.tcl b/quotepong.tcl new file mode 100644 index 0000000..85d2141 --- /dev/null +++ b/quotepong.tcl @@ -0,0 +1,288 @@ +# quotepong.tcl by [sL] (Feb 14, 08) +# Based on quotepass.tcl by simple, guppy, [sL] +# +# Ascii Letter definitions provided by Freeder +# +# Description: +# +# Some EFnet servers require the user to type /quote pong : +# when ident is broken or disabled. This will send pong : to +# the server when connecting. +# + +set a2t_alphabet(a) "\n\ /\\ \n\ +\ / \\ \n\ +\ / /\\ \\ \n\ +\ / ____ \\ \n\ +/_/ \\_\\\n" + +set a2t_alphabet(b) "\ ____ \n\ +| _ \\ \n\ +| |_) |\n\ +| _ < \n\ +| |_) |\n\ +|____/" + +set a2t_alphabet(c) "\ _____ \n\ +\ / ____|\n\ +| | \n\ +| | \n\ +| |____ \n\ +\ \\_____|" + +set a2t_alphabet(d) "\ _____ \n\ +| __ \\ \n\ +| | | |\n\ +| | | |\n\ +| |__| |\n\ +|_____/ " + +set a2t_alphabet(e) "\ ______ \n\ +| ____|\n\ +| |__ \n\ +| __| \n\ +| |____ \n\ +|______|\n" + +set a2t_alphabet(f) "\ ______ \n\ +| ____|\n\ +| |__ \n\ +| __| \n\ +| | \n\ +|_| " + + +set a2t_alphabet(g) "\ _____\n\ +\ / ____|\n\ +| | __ \n\ +| | |_ |\n\ +| |__| |\n\ +\ \\_____|" + +set a2t_alphabet(h) "\ _ _ \n\ +| | | |\n\ +| |__| |\n\ +| __ |\n\ +| | | |\n\ +|_| |_|" + +set a2t_alphabet(i) "\ _____ \n\ +|_ _|\n\ +\ | | \n\ +\ | | \n\ +\ _| |_ \n\ +|_____|" + +set a2t_alphabet(j) "\ _ \n\ +\ | |\n\ +\ | |\n\ +\ _ | |\n\ +| |__| |\n\ +\ \\____/ " + +set a2t_alphabet(k) "\ _ __\n\ +| |/ /\n\ +| ' / \n\ +| < \n\ +| . \\ \n\ +|_|\\_\\" + +set a2t_alphabet(l) "\ _ \n\ +| | \n\ +| | \n\ +| | \n\ +| |____ \n\ +|______|" + +set a2t_alphabet(m) "\ __ __ \n\ +| \\/ |\n\ +| \\ / |\n\ +| |\\/| |\n\ +| | | |\n\ +|_| |_|" + +set a2t_alphabet(n) "\ _ _ \n\ +| \\ | |\n\ +| \\| |\n\ +| . ` |\n\ +| |\\ |\n\ +|_| \\_|" + + +set a2t_alphabet(o) "\ ____ \n\ +\ / __ \\ \n\ +| | | |\n\ +| | | |\n\ +| |__| |\n\ +\ \\____/ " + +set a2t_alphabet(p) "\ _____ \n\ +| __ \\ \n\ +| |__) |\n\ +| ___/ \n\ +| | \n\ +|_| " + +set a2t_alphabet(q) "\ ____ \n\ +\ / __ \\ \n\ +| | | |\n\ +| | | |\n\ +| |__| |\n\ +\ \\___\\_\\" + +set a2t_alphabet(r) "\ _____ \n\ +| __ \\ \n\ +| |__) |\n\ +| _ / \n\ +| | \\ \\ \n\ +|_| \\_\\" + +set a2t_alphabet(s) "\ _____ \n\ +\ / ____|\n\ +| (___ \n\ +\ \\___ \\ \n\ +\ ____) |\n\ +|_____/ " + +set a2t_alphabet(t) "\ _______ \n\ +|__ __|\n\ +\ | | \n\ +\ | | \n\ +\ | | \n\ +\ |_| " + + +set a2t_alphabet(u) "\ _ _ \n\ +| | | |\n\ +| | | |\n\ +| | | |\n\ +| |__| |\n\ +\ \\____/ " + + +set a2t_alphabet(v) " __ __\n\ +\\ \\ / /\n\ +\ \\ \\ / / \n\ +\ \\ \\/ / \n\ +\ \\ / \n\ +\ \\/ " + +set a2t_alphabet(w) " __ __\n\ +\\ \\ / /\n\ +\ \\ \\ /\\ / / \n\ +\ \\ \\/ \\/ / \n\ +\ \\ /\\ / \n\ +\ \\/ \\/ " + + +set a2t_alphabet(x) " __ __\n\ +\\ \\ / /\n\ +\ \\ V / \n\ +\ > < \n\ +\ / . \\ \n\ +/_/ \\_\\" + +set a2t_alphabet(y) " __ __\n\ +\\ \\ / /\n\ +\ \\ \\_/ / \n\ +\ \\ / \n\ +\ | | \n\ +\ |_| " + + +set a2t_alphabet(z) "\ ______\n\ +|___ /\n\ +\ / / \n\ +\ / / \n\ +\ / /__ \n\ +/_____|" + +proc a2t_ascii2text {ascii {count 6}} { + global a2t_alphabet +# foreach line [split $ascii \n] { putlog $line } + set a2t_result "" + for {set i 0} {$i < $count} {incr i} { + foreach let [split abcdefghijklmnopqrstuvwxyz ""] { + set match 1 + set tascii $ascii + foreach alph_line [split $a2t_alphabet($let) \n] { + set alph_line [string range $alph_line 1 end] + set asc_line [lindex [split $tascii \n] 0] + set tascii [join [lrange [split $tascii \n] 1 end] \n] + # need to fix our match pattern + regsub -all {\\} $alph_line {\\\\} alph_line + if {![string match "[string trim $alph_line]*" [string trim $asc_line]]} { + set match 0 + break + } + } + if {$match} { + append a2t_result $let + # remove the ascii letter + set new_ascii [list] + foreach alph_line [split $a2t_alphabet($let) \n] { + set alph_line [string range $alph_line 1 end] + set asc_line [lindex [split $ascii \n] 0] + set ascii [join [lrange [split $ascii \n] 1 end] \n] + # need to fix our regspec + regsub -all {\\} $alph_line {\\\\} alph_line + regsub -all {\|} $alph_line "\\|" alph_line + regsub -all {\)} $alph_line "\\)" alph_line + regsub -all {\(} $alph_line "\\(" alph_line + + regsub -- $alph_line "$asc_line" "" asc_line + lappend new_ascii $asc_line + } + set ascii [join $new_ascii \n] + } + if {$match} { break } + } + } + return [string toupper $a2t_result] +} + +set quotepong_match "/QUOTE PONG :cookie" + +bind evnt - init-server quotepong_unbind +bind evnt - disconnect-server quotepong_unbind +bind evnt - connect-server quotepong_bind + +proc quotepong_servermsg {from cmd text} { + global quotepong_match quotepong_count quotepong_ascii + if {![info exists quotepong_count] && [string match "*$quotepong_match*" $text]} { + set quotepong_count 0 + set quotepong_ascii [list] + return 0 + } + if {[info exists quotepong_count] && ($cmd == "998")} { + if {$quotepong_count == 0} { + putlog "Received ASCII Cookie from server:" + } + incr quotepong_count + lappend quotepong_ascii [lindex [split $text :] 1] + putlog "[lindex [split $text :] 1]" + if {$quotepong_count == 6} { + # time to send back to server + set cookie [a2t_ascii2text [join $quotepong_ascii \n]] + putlog "Sending Cookie to server: $cookie" + putserv "PONG :$cookie" + catch {unset quotepong_count} + } + } + return 0 +} + +proc quotepong_unbind {type} { + # Try to unbind our raw NOTICE bind once we are connected since it will + # never be needed again + catch { + unbind raw - NOTICE quotepong_servermsg + unbind raw - 998 quotepong_servermsg + } +} + +proc quotepong_bind {type} { + bind raw - NOTICE quotepong_servermsg + bind raw - 998 quotepong_servermsg +} + diff --git a/sentinel.tcl b/sentinel.tcl new file mode 100644 index 0000000..86b764e --- /dev/null +++ b/sentinel.tcl @@ -0,0 +1,1442 @@ +# sentinel.tcl v2.70 (15 April 2002) +# Copyright 1998-2002 by slennox +# slennox's eggdrop page - http://www.egghelp.org/ + +# Flood protection system for eggdrop, with integrated BitchX CTCP +# simulation. This script is designed to provide strong protection for your +# bot and channels against large floodnets and proxy floods. +# +# Note that this script was developed on the eggdrop 1.3, 1.4, and 1.6 +# series and may not work properly on other versions. +# +# v2.00 - New standalone release. Contains refinements and features from +# the netbots.tcl version of sentinel.tcl. +# v2.50 - Locktimes of less than 30 were erroneously allowed. +# putquick -next is now supported (eggdrop 1.5+) for faster channel +# lock. +# - Ban mechanism now checks if flooders are coming from the same +# domain or ident and performs wildcard bans instead of banning +# each IP/host individually. +# - Added tsunami detection to the avalanche flood detection system. +# - Variables are now cleared after removing a channel. +# - Removed unnecessary botonchan checks throughout components where +# botisop already checks for that. +# - Removed all unnecessary use of parentheses. +# v2.60 - Modified putquick compatibility proc. +# - Added sl_wideban option to make domain/ident bans optional. +# - Fixed typos in various ban-related functions. +# - Unused procs are now unloaded. +# - Wildcard bans covering domains/idents were not doing proper +# checks on join-part flooders. +# v2.70 - Fixed "allbans" error which could occur when sl_wideban is +# disabled. +# - Added sl_masktype option, currently offering three different +# ban/ignore mask types. +# - Merged unsets in sl_unsetarray. +# - Changed use of "split" in timers to the less ugly "list". +# +# sentinel.tcl is centered around its channel lock mechanism. It sets the +# channel +mi (moderated and invite-only) whenever a substantial flood on +# the channel is detected. This ensures channel stability when flooded, +# allowing the bots to deal with the flood as smoothly as possible. +# sentinel.tcl detects the following types of floods: +# +# * Channel CTCP floods. This is the most common type of flood, and will +# often make users quit from the channel with 'Excess Flood'. A quick +# channel lock can prevent this. +# * Channel join-part floods. A common type of channel flood in which many +# floodbots cycle the channel. +# * Channel nick floods. Nick floods are unique in that they can occur even +# after a channel is locked. sentinel has special mechanisms to deal with +# this as effectively as possible. +# * Channel avalanche/tsunami floods. While the avalanche flood is quite +# uncommon these days, tsunami floods are often used to seriously lag +# mIRC and other clients using control codes (colour, bold, underline, +# etc.) +# * Channel text floods. Not small text floods - but when hundreds of +# messages are sent to the channel within a short period. Detected to +# stop really aggressive text floods and reduce the possibility of the +# bot crashing or consuming excessive CPU. +# +# sentinel also has additional protection features for the bot and channel: +# +# * Bogus username detection. Users with annoying bogus characters in their +# ident are banned. A channel lock is applied if multiple join in a short +# period. +# * Full ban list detection. During a serious flood, the ban list may +# become full. If this happens, the bots may start kick flooding since +# they cannot ban. If the ban list is full, the channel will be set +i. +# * Bot CTCP flood protection. Protects the bot if it is CTCP flooded. +# * Bot MSG flood protection. Protects the bot if it's flooded with MSGs or +# MSG commands. +# * Automatic bans and ignores. During a flood, sentinel will compile a +# list of the flooders, then kick-ban them after the channel has been +# locked. +# * BitchX simulation. This has been built-in mainly because you cannot use +# a third-party BitchX simulator with sentinel (only one script at a time +# can have control of CTCPs). sentinel provides accurate simulation of +# BitchX 75p1+ and 75p3+ CTCP replies and AWAY mode. +# * Public commands (lc and uc) and DCC commands (.lock and .unlock) for +# locking/unlocking channels. +# * DCC command .sentinel displays current settings. +# +# Important Notes: +# - Make sure no bots are enforcing channel mode -i and/or -m. +# - Bans are added to the bot's internal ban list, and expire after 24 +# hours by default. If you have +dynamicbans set, the bans may be removed +# from the channel much sooner than this, but the ban will remain in the +# bot's internal ban list until it expires. +# - For greater protection against large channel floods, I recommend you +# also use a channel limiter script, such as chanlimit.tcl. +# - There is a trade-off between convenience and security. The more +# automation you enable, the more stress the bot will be under during a +# flood and the more stuff it will be sending to the server. +# - Where security is paramount, have one or two bots that aren't running +# sentinel.tcl. Since sentinel.tcl is a complex script with many +# automated and convenience features, there is a potential for +# vulnerabilities. + +# The following flood settings are in number:seconds format, 0:0 to +# disable. + +# Bot CTCP flood. +set sl_bcflood 5:30 + +# Bot MSG flood. +set sl_bmflood 6:20 + +# Channel CTCP flood. +set sl_ccflood 5:20 + +# Channel avalanche/tsunami flood. +set sl_avflood 6:20 + +# Channel text flood. +set sl_txflood 80:30 + +# Channel bogus username join flood. +set sl_boflood 4:20 + +# Channel join-part flood. +set sl_jflood 6:20 + +# Channel nick flood. +set sl_nkflood 6:20 + +# Flood setting notes: +# - Don't fiddle too much with the seconds field in the flood settings, as +# it can reduce the effectiveness of the script. The seconds field should +# set in the 20-60 seconds range. +# - Avalanche/tsunmami flood detection may be CPU intensive on a busy +# channel, although I don't think it's a big deal on most systems. If +# you're concerned about CPU usage you may wish to disable it, perhaps +# leaving it enabled on one bot. Disabling text flood protection can +# further reduce CPU usage. +# - On bots with avalanche/tsunami flood detection enabled, it's +# recommended that you also enable text flood detection to cap CPU usage +# during a flood. +# - If you enable nick flood detection, it's strongly recommended that it +# be enabled on all bots that have sentinel.tcl loaded. This is required +# for effective nick flood handling. + +# Specify the number of control characters that must be in a line before +# it's counted by the tsunami flood detector. For efficiency reasons, +# tsunami detection is implemented with avalanche detection, so sl_avflood +# must be enabled for tsunami detection to be active. Setting this to 0 +# will disable tsunami detection. +set sl_tsunami 10 +# Valid settings: 0 to disable, otherwise 1 or higher. + +# Length of time in minutes to ban channel flooders. This makes the bot +# perform kicks and bans on flooders after the channel lock. Because of the +# reactive nature of automatic bans, you should disable this on at least +# one bot for the most effective protection. +set sl_ban 1440 +# Valid settings: 0 to disable, otherwise 1 or higher. + +# Length of time in minutes of on-join bans for bogus usernames. For the +# most effective protection, you should disable this on at least one bot. +set sl_boban 1440 +# Valid settings: 0 to disable, otherwise 1 or higher. + +# Set global bans on channel flooders and bogus usernames? +set sl_globalban 0 +# Valid settings: 1 for global bans, 0 for channel-specific bans. + +# When processing a list of flooders, sentinel.tcl compares the hosts to +# see if multiple flooders are coming from a particular domain/IP or using +# the same ident (e.g. different vhosts on a single user account). If +# multiple flooders come from the same domain/IP, or if multiple flooders +# have the same ident, then the whole domain/IP (i.e. *!*@*.domain.com or +# *!*@555.555.555.*) or ident (i.e. *!*username@*) is banned. If you +# disable this option, all bans will be in *!*@machine.domain.com and +# *!*@555.555.555.555 format. +set sl_wideban 1 +# Valid settings: 1 to enable, 0 to disable. + +# Maximum number of bans allowed in the bot's ban list before sentinel will +# stop adding new bans. This prevents the bot from adding hundreds of bans +# on really large floods. Note that this has nothing to do with the channel +# ban list. +set sl_banmax 100 +# Valid settings: 1 or higher. + +# Length of time in minutes to ignore bot flooders. On bots with sl_ban +# active, channel flooders are also added to the ignore list. +set sl_igtime 240 +# Valid settings: 1 or higher. + +# Select the type of hostmask to use when banning and/or ignoring flooders. +# There are three to choose from: +# 0 - *!*@machine.domain.com / *!*@555.555.555.555 +# 1 - *!*ident@machine.domain.com / *!*ident@555.555.555.555 +# 2 - *!*ident@*.domain.com / *!*ident@555.555.555.* +# The default option, 0, is strongly recommended for most situations, and +# provides the best level of protection. The other two options are provided +# mainly for special cases. +set sl_masktype 0 +# Valid settings: 0, 1, or 2, depending on the hostmask type you wish to use. + +# Length of time in seconds to set channel +i if flooded. If set to 0, +i +# will not be removed automatically. +set sl_ilocktime 120 +# Valid settings: 0 to prevent +i being removed automatically, otherwise 30 +# or higher. + +# Length of time in seconds to set channel +m if flooded. If set to 0, +m +# will not be removed automatically. +set sl_mlocktime 60 +# Valid settings: 0 to prevent +m being removed automatically, otherwise 30 +# or higher. + +# On small floods (two flooders or less), remove the +mi shortly after bans +# have been set, instead of waiting for the locktimes to expire? This +# prevents unnecessary extended locks on small floods. This setting is only +# used by bots with sl_ban enabled. +set sl_shortlock 0 +# Valid settings: 0 to disable, 1 to enable. + +# Number of bans to allow in the channel ban list before setting the +# channel +i. If enabled, this should preferably be set to just below the +# maximum number of bans allowed. +set sl_bfmaxbans 19 +# Valid settings: 0 to disable +i on full ban list, otherwise 1 or higher. + +# List of users to send a note to when channel is flooded, bot is flooded, +# or ban list becomes full. +set sl_note "YourNick" +# Valid settings: one user like "Tom", a list of users like +# "Tom Dick Harry", or "" to specify that no notes are sent. + +# Notice to send to channel when locked due to flood. +set sl_cfnotice "Channel locked temporarily due to flood, sorry for any inconvenience this may cause :-)" +# Valid settings: a text string, or set it to "" to disable. + +# Notice to send to channel when locked due to full ban list. +set sl_bfnotice "Channel locked temporarily due to full ban list, sorry for any inconvenience this may cause :-)" +# Valid settings: a text string, or set it to "" to disable. + +# Enable 'lc' and 'uc' public commands for locking/unlocking channel? +set sl_lockcmds 2 +# Valid settings: 0 to disable, 1 to enable, 2 to require user to be opped +# on the channel to use the command. + +# Users with these flags are allowed to use lc/uc public commands, and +# .lock/.unlock DCC commands. +set sl_lockflags "o" +# Valid settings: one flag like "n", or a list of flags like "fo" (means +# 'f OR o'). + +# Enable BitchX CTCP and AWAY simulation? +set sl_bxsimul 0 +# Valid settings: 1 to enable, 0 to disable. + + +# Don't edit below unless you know what you're doing. + +if {$numversion < 1032400} { + proc botonchan {chan} { + global botnick + if {![validchan $chan]} { + error "illegal channel: $chan" + } elseif {![onchan $botnick $chan]} { + return 0 + } + return 1 + } + proc putquick {text args} { + putserv $text + } +} + +proc sl_ctcp {nick uhost hand dest key arg} { + global botnet-nick botnick realname sl_ban sl_bflooded sl_bcflood sl_bcqueue sl_bxjointime sl_bxmachine sl_bxonestack sl_bxsimul sl_bxsystem sl_bxversion sl_bxwhoami sl_ccbanhost sl_ccbannick sl_ccflood sl_ccqueue sl_flooded sl_locked sl_note + set chan [string tolower $dest] + if {[lsearch -exact $sl_ccflood 0] == -1 && [validchan $chan] && ![isop $nick $chan]} { + if {$nick == $botnick} {return 0} + if {$sl_ban && !$sl_locked($chan) && ![matchattr $hand f|f $chan]} { + lappend sl_ccbannick($chan) $nick ; lappend sl_ccbanhost($chan) [string tolower $uhost] + utimer [lindex $sl_ccflood 1] [list sl_ccbanqueue $chan] + } + if {$sl_flooded($chan)} {return 1} + incr sl_ccqueue($chan) + utimer [lindex $sl_ccflood 1] [list sl_ccqueuereset $chan] + if {$sl_ccqueue($chan) >= [lindex $sl_ccflood 0]} { + sl_lock $chan "CTCP flood" ${botnet-nick} ; return 1 + } + if {$sl_bflooded} {return 1} + } elseif {[lindex $sl_bcflood 0] && $dest == $botnick} { + if {$sl_bflooded} { + sl_ignore [string tolower $uhost] $hand "CTCP flooder" ; return 1 + } + incr sl_bcqueue + utimer [lindex $sl_bcflood 1] {incr sl_bcqueue -1} + if {$sl_bcqueue >= [lindex $sl_bcflood 0]} { + putlog "sentinel: CTCP flood detected on me! Stopped answering CTCPs temporarily." + set sl_bflooded 1 + utimer [lindex $sl_bcflood 1] {set sl_bflooded 0} + if {[info commands sendnote] != ""} { + foreach recipient $sl_note { + if {[validuser $recipient]} { + sendnote SENTINEL $recipient "Bot was CTCP flooded." + } + } + } + return 1 + } + } + + if {!$sl_bxsimul} {return 0} + if {$sl_bxonestack} {return 1} + set sl_bxonestack 1 ; utimer 2 {set sl_bxonestack 0} + switch -exact -- $key { + "CLIENTINFO" { + set bxcmd [string toupper $arg] + switch -exact -- $bxcmd { + "" {putserv "NOTICE $nick :\001CLIENTINFO SED UTC ACTION DCC CDCC BDCC XDCC VERSION CLIENTINFO USERINFO ERRMSG FINGER TIME PING ECHO INVITE WHOAMI OP OPS UNBAN IDENT XLINK UPTIME :Use CLIENTINFO to get more specific information\001"} + "SED" {putserv "NOTICE $nick :\001CLIENTINFO SED contains simple_encrypted_data\001"} + "UTC" {putserv "NOTICE $nick :\001CLIENTINFO UTC substitutes the local timezone\001"} + "ACTION" {putserv "NOTICE $nick :\001CLIENTINFO ACTION contains action descriptions for atmosphere\001"} + "DCC" {putserv "NOTICE $nick :\001CLIENTINFO DCC requests a direct_client_connection\001"} + "CDCC" {putserv "NOTICE $nick :\001CLIENTINFO CDCC checks cdcc info for you\001"} + "BDCC" {putserv "NOTICE $nick :\001CLIENTINFO BDCC checks cdcc info for you\001"} + "XDCC" {putserv "NOTICE $nick :\001CLIENTINFO XDCC checks cdcc info for you\001"} + "VERSION" {putserv "NOTICE $nick :\001CLIENTINFO VERSION shows client type, version and environment\001"} + "CLIENTINFO" {putserv "NOTICE $nick :\001CLIENTINFO CLIENTINFO gives information about available CTCP commands\001"} + "USERINFO" {putserv "NOTICE $nick :\001CLIENTINFO USERINFO returns user settable information\001"} + "ERRMSG" {putserv "NOTICE $nick :\001CLIENTINFO ERRMSG returns error messages\001"} + "FINGER" {putserv "NOTICE $nick :\001CLIENTINFO FINGER shows real name, login name and idle time of user\001"} + "TIME" {putserv "NOTICE $nick :\001CLIENTINFO TIME tells you the time on the user's host\001"} + "PING" {putserv "NOTICE $nick :\001CLIENTINFO PING returns the arguments it receives\001"} + "ECHO" {putserv "NOTICE $nick :\001CLIENTINFO ECHO returns the arguments it receives\001"} + "INVITE" {putserv "NOTICE $nick :\001CLIENTINFO INVITE invite to channel specified\001"} + "WHOAMI" {putserv "NOTICE $nick :\001CLIENTINFO WHOAMI user list information\001"} + "OP" {putserv "NOTICE $nick :\001CLIENTINFO OP ops the person if on userlist\001"} + "OPS" {putserv "NOTICE $nick :\001CLIENTINFO OPS ops the person if on userlist\001"} + "UNBAN" {putserv "NOTICE $nick :\001CLIENTINFO UNBAN unbans the person from channel\001"} + "IDENT" {putserv "NOTICE $nick :\001CLIENTINFO IDENT change userhost of userlist\001"} + "XLINK" {putserv "NOTICE $nick :\001CLIENTINFO XLINK x-filez rule\001"} + "UPTIME" {putserv "NOTICE $nick :\001CLIENTINFO UPTIME my uptime\001"} + "default" {putserv "NOTICE $nick :\001ERRMSG CLIENTINFO: $arg is not a valid function\001"} + } + return 1 + } + "VERSION" { + putserv "NOTICE $nick :\001VERSION \002BitchX-$sl_bxversion\002 by panasync \002-\002 $sl_bxsystem :\002 Keep it to yourself!\002\001" + return 1 + } + "USERINFO" { + putserv "NOTICE $nick :\001USERINFO \001" + return 1 + } + "FINGER" { + putserv "NOTICE $nick :\001FINGER $realname ($sl_bxwhoami@$sl_bxmachine) Idle [expr [unixtime] - $sl_bxjointime] seconds\001" + return 1 + } + "PING" { + putserv "NOTICE $nick :\001PING $arg\001" + return 1 + } + "ECHO" { + if {[validchan $chan]} {return 1} + putserv "NOTICE $nick :\001ECHO [string range $arg 0 59]\001" + return 1 + } + "ERRMSG" { + if {[validchan $chan]} {return 1} + putserv "NOTICE $nick :\001ERRMSG [string range $arg 0 59]\001" + return 1 + } + "INVITE" { + if {$arg == "" || [validchan $chan]} {return 1} + set chanarg [lindex [split $arg] 0] + if {((($sl_bxversion == "75p1+") && ([string trim [string index $chanarg 0] "#+&"] == "")) || (($sl_bxversion == "75p3+") && ([string trim [string index $chanarg 0] "#+&!"] == "")))} { + if {[validchan $chanarg]} { + putserv "NOTICE $nick :\002BitchX\002: Access Denied" + } else { + putserv "NOTICE $nick :\002BitchX\002: I'm not on that channel" + } + } + return 1 + } + "WHOAMI" { + if {[validchan $chan]} {return 1} + putserv "NOTICE $nick :\002BitchX\002: Access Denied" + return 1 + } + "OP" - + "OPS" { + if {$arg == "" || [validchan $chan]} {return 1} + putserv "NOTICE $nick :\002BitchX\002: I'm not on [lindex [split $arg] 0], or I'm not opped" + return 1 + } + "UNBAN" { + if {$arg == "" || [validchan $chan]} {return 1} + if {[validchan [lindex [split $arg] 0]]} { + putserv "NOTICE $nick :\002BitchX\002: Access Denied" + } else { + putserv "NOTICE $nick :\002BitchX\002: I'm not on that channel" + } + return 1 + } + } + return 0 +} + +proc sl_bmflood {nick uhost hand text} { + global sl_bmflood sl_bflooded sl_bmqueue sl_note + if {[matchattr $hand b] && [string tolower [lindex [split $text] 0]] == "go"} {return 0} + if {$sl_bflooded} { + sl_ignore [string tolower $uhost] $hand "MSG flooder" ; return 0 + } + incr sl_bmqueue + utimer [lindex $sl_bmflood 1] {incr sl_bmqueue -1} + if {$sl_bmqueue >= [lindex $sl_bmflood 0]} { + putlog "sentinel: MSG flood detected on me! Stopped answering MSGs temporarily." + set sl_bflooded 1 + utimer [lindex $sl_bmflood 1] {set sl_bflooded 0} + if {[info commands sendnote] != ""} { + foreach recipient $sl_note { + if {[validuser $recipient]} { + sendnote SENTINEL $recipient "Bot was MSG flooded." + } + } + } + } + return 0 +} + +proc sl_avflood {from keyword arg} { + global botnet-nick botnick sl_ban sl_avbanhost sl_avbannick sl_avflood sl_avqueue sl_flooded sl_locked sl_txflood sl_txqueue + set arg [split $arg] + set chan [string tolower [lindex $arg 0]] + if {![validchan $chan]} {return 0} + set nick [lindex [split $from !] 0] + if {$nick == $botnick || $nick == "" || [string match *.* $nick]} {return 0} + if {![onchan $nick $chan] || [isop $nick $chan]} {return 0} + if {!$sl_flooded($chan) && [lsearch -exact $sl_txflood 0] == -1} { + incr sl_txqueue($chan) + if {$sl_txqueue($chan) >= [lindex $sl_txflood 0]} { + sl_lock $chan "TEXT flood" ${botnet-nick} + } + } + set text [join [lrange $arg 1 end]] + if {[sl_checkaval $text] && [lsearch -exact $sl_avflood 0] == -1} { + set uhost [string trimleft [getchanhost $nick $chan] "~+-^="] + set hand [nick2hand $nick $chan] + if {$sl_ban && !$sl_locked($chan) && $nick != $botnick && ![matchattr $hand f|f $chan]} { + lappend sl_avbannick($chan) $nick ; lappend sl_avbanhost($chan) [string tolower $uhost] + utimer [lindex $sl_avflood 1] [list sl_avbanqueue $chan] + } + if {$sl_flooded($chan)} {return 0} + incr sl_avqueue($chan) + utimer [lindex $sl_avflood 1] [list sl_avqueuereset $chan] + if {$sl_avqueue($chan) >= [lindex $sl_avflood 0]} { + sl_lock $chan "AVALANCHE/TSUNAMI flood" ${botnet-nick} + } + } + return 0 +} + +proc sl_checkaval {text} { + global sl_tsunami + if {[regsub -all -- "\001|\007" $text "" temp] >= 3} {return 1} + if {$sl_tsunami && [regsub -all -- "\002|\003|\017|\026|\037" $text "" temp] >= $sl_tsunami} {return 1} + return 0 +} + +proc sl_nkflood {nick uhost hand chan newnick} { + global botnet-nick botnick sl_ban sl_banmax sl_flooded sl_globalban sl_locked sl_nickkick sl_nkbanhost sl_nkflood sl_nkflooding sl_nkqueue + set chan [string tolower $chan] + if {[isop $newnick $chan]} {return 0} + if {$sl_ban && !$sl_locked($chan) && $nick != $botnick && ![matchattr $hand f|f $chan]} { + lappend sl_nkbanhost($chan) [string tolower $uhost] + utimer [lindex $sl_nkflood 1] [list sl_nkbanqueue $chan] + } + if {!$sl_nickkick && $sl_flooded($chan) && $sl_locked($chan)} { + putserv "KICK $chan $newnick :NICK flooder" + set sl_nickkick 1 ; set sl_nkflooding($chan) [unixtime] + if {$sl_ban} { + set bhost [string tolower [sl_masktype $uhost]] + if {$sl_globalban} { + if {[llength [banlist]] < $sl_banmax && ![isban $bhost] && ![matchban $bhost]} { + newban $bhost sentinel "NICK flooder" $sl_ban + } + } else { + if {[llength [banlist $chan]] < $sl_banmax && ![isban $bhost $chan] && ![matchban $bhost $chan]} { + newchanban $chan $bhost sentinel "NICK flooder" $sl_ban + } + } + } + utimer [expr [rand 2] + 3] {set sl_nickkick 0} + return 0 + } + if {$sl_flooded($chan)} {return 0} + incr sl_nkqueue($chan) + utimer [lindex $sl_nkflood 1] [list sl_nkqueuereset $chan] + if {$sl_nkqueue($chan) >= [lindex $sl_nkflood 0]} { + sl_lock $chan "NICK flood" ${botnet-nick} + } + return 0 +} + +proc sl_jflood {nick uhost hand chan} { + global botnet-nick botnick sl_ban sl_banmax sl_boban sl_bobanhost sl_bobannick sl_boflood sl_boqueue sl_flooded sl_globalban sl_jbanhost sl_jbannick sl_jflood sl_jqueue sl_locked sl_pqueue + if {$nick == $botnick} { + sl_setarray $chan + } else { + set ihost [string tolower [sl_masktype $uhost]] + if {[isignore $ihost]} { + killignore $ihost + } + set chan [string tolower $chan] + if {[lsearch -exact $sl_boflood 0] == -1 && [sl_checkbogus [lindex [split $uhost @] 0]]} { + if {!$sl_locked($chan) && ![matchattr $hand f|f $chan]} { + set bhost [string tolower [sl_masktype $uhost]] + if {$sl_boban && [botisop $chan] && !$sl_flooded($chan)} { + putserv "KICK $chan $nick :BOGUS username" + if {$sl_globalban} { + if {[llength [banlist]] < $sl_banmax && ![isban $bhost] && ![matchban $bhost]} { + newban $bhost sentinel "BOGUS username" $sl_boban + } + } else { + if {[llength [banlist $chan]] < $sl_banmax && ![isban $bhost $chan] && ![matchban $bhost $chan]} { + newchanban $chan $bhost sentinel "BOGUS username" $sl_boban + } + } + } + if {$sl_ban} { + lappend sl_bobannick($chan) $nick ; lappend sl_bobanhost($chan) [string tolower $uhost] + utimer [lindex $sl_boflood 1] [list sl_bobanqueue $chan] + } + } + if {!$sl_flooded($chan)} { + incr sl_boqueue($chan) + utimer [lindex $sl_boflood 1] [list sl_boqueuereset $chan] + if {$sl_boqueue($chan) >= [lindex $sl_boflood 0]} { + sl_lock $chan "BOGUS joins" ${botnet-nick} + } + } + } + if {[lsearch -exact $sl_jflood 0] == -1} { + if {$sl_ban && !$sl_locked($chan) && ![matchattr $hand f|f $chan]} { + lappend sl_jbannick($chan) $nick ; lappend sl_jbanhost($chan) [string tolower $uhost] + utimer [lindex $sl_jflood 1] [list sl_jbanqueue $chan] + } + if {$sl_flooded($chan)} {return 0} + incr sl_jqueue($chan) + utimer [lindex $sl_jflood 1] [list sl_jqueuereset $chan] + if {$sl_jqueue($chan) >= [lindex $sl_jflood 0] && $sl_pqueue($chan) >= [lindex $sl_jflood 0]} { + sl_lock $chan "JOIN-PART flood" ${botnet-nick} + } + } + } + return 0 +} + +proc sl_checkbogus {ident} { + if {[regsub -all -- "\[^\041-\176\]" $ident "" temp] >= 1} {return 1} + return 0 +} + +proc sl_pflood {nick uhost hand chan {msg ""}} { + global botnick sl_ban sl_flooded sl_jflood sl_locked sl_pbanhost sl_pbannick sl_pqueue + if {[lsearch -exact $sl_jflood 0] != -1} {return 0} + if {$nick == $botnick} { + if {![validchan $chan]} { + timer 5 [list sl_unsetarray $chan] + } + return 0 + } + set chan [string tolower $chan] + if {$sl_ban && !$sl_locked($chan) && ![matchattr $hand f|f $chan]} { + lappend sl_pbannick($chan) $nick ; lappend sl_pbanhost($chan) [string tolower $uhost] + utimer [lindex $sl_jflood 1] [list sl_pbanqueue $chan] + } + if {$sl_flooded($chan)} {return 0} + incr sl_pqueue($chan) + utimer [lindex $sl_jflood 1] [list sl_pqueuereset $chan] + return 0 +} + +proc sl_pfloodk {nick uhost hand chan kicked reason} { + global botnick sl_flooded sl_jflood sl_pqueue + if {[lsearch -exact $sl_jflood 0] != -1} {return 0} + if {$kicked == $botnick} {return 0} + set chan [string tolower $chan] + if {$sl_flooded($chan)} {return 0} + incr sl_pqueue($chan) + utimer [lindex $sl_jflood 1] [list sl_pqueuereset $chan] + return 0 +} + +proc sl_lock {chan flood detected} { + global botnet-nick sl_bflooded sl_cfnotice sl_flooded sl_ilocktime sl_mlocktime sl_note + if {[string tolower $detected] == [string tolower ${botnet-nick}]} { + set sl_flooded($chan) 1 ; set sl_bflooded 1 + if {[botisop $chan]} { + sl_quicklock $chan + sl_killutimer "sl_unlock $chan *" + sl_killutimer "set sl_bflooded 0" + if {$sl_mlocktime} { + utimer $sl_mlocktime [list sl_unlock $chan m] + } + if {$sl_ilocktime} { + utimer $sl_ilocktime [list sl_unlock $chan i] + } + utimer 120 {set sl_bflooded 0} + putlog "sentinel: $flood detected on $chan! Channel locked temporarily." + if {$sl_cfnotice != ""} { + puthelp "NOTICE $chan :$sl_cfnotice" + } + } else { + putlog "sentinel: $flood detected on $chan! Cannot lock channel because I'm not opped." + utimer 120 {set sl_bflooded 0} + } + } else { + putlog "sentinel: $flood detected by $detected on $chan!" + } + if {[info commands sendnote] != ""} { + foreach recipient $sl_note { + if {[validuser $recipient]} { + if {[string tolower $detected] == [string tolower ${botnet-nick}]} { + sendnote SENTINEL $recipient "$flood detected on $chan." + } else { + sendnote SENTINEL $recipient "$flood detected by $detected on $chan." + } + } + } + } + return 0 +} + +proc sl_unlock {chan umode} { + global sl_bflooded sl_bfmaxbans sl_flooded sl_ilocktime sl_mlocktime sl_nkflooding + if {[expr [unixtime] - $sl_nkflooding($chan)] < 12} { + putlog "sentinel: nick flooding still in progress on $chan - not removing +mi yet.." + set sl_flooded($chan) 1 ; set sl_bflooded 1 + sl_killutimer "sl_unlock $chan *" + sl_killutimer "set sl_bflooded 0" + utimer $sl_mlocktime [list sl_unlock $chan m] ; utimer $sl_ilocktime [list sl_unlock $chan i] + utimer 120 {set sl_bflooded 0} + } else { + set sl_flooded($chan) 0 + if {![botisop $chan]} {return 0} + if {$umode == "mi"} { + putlog "sentinel: flood was small, performing early unlock.." + } + if {[string match *i* $umode] && [string match *i* [lindex [split [getchanmode $chan]] 0]]} { + if {$sl_bfmaxbans && [llength [chanbans $chan]] >= $sl_bfmaxbans} { + putlog "sentinel: not removing +i on $chan due to full ban list." + } else { + pushmode $chan -i + putlog "sentinel: removed +i on $chan" + } + } + if {[string match *m* $umode] && [string match *m* [lindex [split [getchanmode $chan]] 0]]} { + pushmode $chan -m + putlog "sentinel: removed +m on $chan" + } + } + return 0 +} + +proc sl_mode {nick uhost hand chan mode victim} { + global botnick sl_ban sl_bfmaxbans sl_bfnotice sl_bfull sl_flooded sl_locked sl_note sl_unlocked + set chan [string tolower $chan] + if {$mode == "+b" && $sl_bfmaxbans && !$sl_bfull($chan) && ![string match *i* [lindex [split [getchanmode $chan]] 0]] && [botisop $chan] && [llength [chanbans $chan]] >= $sl_bfmaxbans} { + putserv "MODE $chan +i" + set sl_bfull($chan) 1 + utimer 5 [list set sl_bfull($chan) 0] + putlog "sentinel: locked $chan due to full ban list!" + if {$sl_bfnotice != ""} { + puthelp "NOTICE $chan :$sl_bfnotice" + } + if {[info commands sendnote] != ""} { + foreach recipient $sl_note { + if {[validuser $recipient]} { + sendnote SENTINEL $recipient "Locked $chan due to full ban list." + } + } + } + } elseif {$mode == "+i" && $sl_flooded($chan)} { + set sl_locked($chan) 1 + if {$sl_ban} { + sl_killutimer "sl_*banqueue $chan" + utimer 7 [list sl_dokicks $chan] ; utimer 16 [list sl_setbans $chan] + } + } elseif {$mode == "-i" || $mode == "-m"} { + set sl_locked($chan) 0 + set sl_unlocked($chan) [unixtime] + if {$sl_flooded($chan)} { + set sl_flooded($chan) 0 + if {$mode == "-i"} { + sl_killutimer "sl_unlock $chan i" + } else { + sl_killutimer "sl_unlock $chan m" + } + sl_killutimer "sl_unlock $chan mi" + if {$nick != $botnick} { + putlog "sentinel: $chan unlocked by $nick" + } + } + } + return 0 +} + +proc sl_dokicks {chan} { + global sl_avbannick sl_bobannick sl_ccbannick sl_kflooders sl_jbannick sl_pbannick + if {![botisop $chan]} {return 0} + set sl_kflooders 0 + sl_kick $chan $sl_ccbannick($chan) "CTCP flooder" ; set sl_ccbannick($chan) "" + sl_kick $chan $sl_avbannick($chan) "AVALANCHE/TSUNAMI flooder" ; set sl_avbannick($chan) "" + sl_kick $chan $sl_bobannick($chan) "BOGUS username" ; set sl_bobannick($chan) "" + set jklist $sl_jbannick($chan) ; set pklist $sl_pbannick($chan) + if {$jklist != "" && $pklist != ""} { + set klist "" + foreach nick $jklist { + if {[lsearch -exact $pklist $nick] != -1} { + lappend klist $nick + } + } + sl_kick $chan $klist "JOIN-PART flooder" + } + set sl_jbannick($chan) "" ; set sl_pbannick($chan) "" + return 0 +} + +proc sl_kick {chan klist reason} { + global sl_kflooders sl_kicks + if {$klist != ""} { + set kicklist "" + foreach nick $klist { + if {[lsearch -exact $kicklist $nick] == -1} { + lappend kicklist $nick + } + } + unset nick + incr sl_kflooders [llength $kicklist] + foreach nick $kicklist { + if {[onchan $nick $chan] && ![onchansplit $nick $chan]} { + lappend ksend $nick + if {[llength $ksend] >= $sl_kicks} { + putserv "KICK $chan [join $ksend ,] :$reason" + unset ksend + } + } + } + if {[info exists ksend]} { + putserv "KICK $chan [join $ksend ,] :$reason" + } + } + return 0 +} + +proc sl_setbans {chan} { + global sl_avbanhost sl_bobanhost sl_ccbanhost sl_kflooders sl_jbanhost sl_nkbanhost sl_pbanhost sl_shortlock sl_unlocked sl_wideban + if {![botonchan $chan]} {return 0} + set sl_ccbanhost($chan) [sl_dfilter $sl_ccbanhost($chan)] + set sl_avbanhost($chan) [sl_dfilter $sl_avbanhost($chan)] + set sl_nkbanhost($chan) [sl_dfilter $sl_nkbanhost($chan)] + set sl_bobanhost($chan) [sl_dfilter $sl_bobanhost($chan)] + set sl_jbanhost($chan) [sl_dfilter $sl_jbanhost($chan)] + set sl_pbanhost($chan) [sl_dfilter $sl_pbanhost($chan)] + set blist "" + if {$sl_jbanhost($chan) != "" && $sl_pbanhost($chan) != ""} { + foreach bhost $sl_jbanhost($chan) { + if {[lsearch -exact $sl_pbanhost($chan) $bhost] != -1} { + lappend blist $bhost + } + } + } + set allbans [sl_dfilter [concat $sl_ccbanhost($chan) $sl_avbanhost($chan) $sl_nkbanhost($chan) $sl_bobanhost($chan) $blist]] + if {$sl_wideban} { + sl_ban $chan [sl_dcheck $allbans] "MULTIPLE IDENT/HOST flooders" + } + sl_ban $chan $sl_ccbanhost($chan) "CTCP flooder" ; set sl_ccbanhost($chan) "" + sl_ban $chan $sl_avbanhost($chan) "AVALANCHE/TSUNAMI flooder" ; set sl_avbanhost($chan) "" + sl_ban $chan $sl_nkbanhost($chan) "NICK flooder" ; set sl_nkbanhost($chan) "" + sl_ban $chan $sl_bobanhost($chan) "BOGUS username" ; set sl_bobanhost($chan) "" + sl_ban $chan $blist "JOIN-PART flooder" + set sl_jbanhost($chan) "" ; set sl_pbanhost($chan) "" + if {$sl_shortlock && $sl_kflooders <= 2 && [llength $allbans] <= 2 && [expr [unixtime] - $sl_unlocked($chan)] > 120} { + sl_killutimer "sl_unlock $chan *" + utimer 10 [list sl_unlock $chan mi] + } + return 0 +} + +proc sl_dfilter {list} { + set newlist "" + foreach item $list { + if {[lsearch -exact $newlist $item] == -1} { + lappend newlist $item + } + } + return $newlist +} + +proc sl_dcheck {bhosts} { + set blist "" + foreach bhost $bhosts { + set baddr [lindex [split [maskhost $bhost] "@"] 1] + set bident [string trimleft [lindex [split $bhost "@"] 0] "~"] + if {![info exists baddrs($baddr)]} { + set baddrs($baddr) 1 + } else { + incr baddrs($baddr) + } + if {![info exists bidents($bident)]} { + set bidents($bident) 1 + } else { + incr bidents($bident) + } + } + foreach baddr [array names baddrs] { + if {$baddrs($baddr) >= 2} { + lappend blist *!*@$baddr + } + } + foreach bident [array names bidents] { + if {$bidents($bident) >= 2} { + lappend blist *!*$bident@* + } + } + return $blist +} + +proc sl_ban {chan blist reason} { + global sl_ban sl_banmax sl_globalban + if {$blist != ""} { + if {$sl_globalban} { + foreach bhost $blist { + if {![string match *!* $bhost]} { + if {[matchban *!$bhost]} {continue} + set bhost [sl_masktype $bhost] + if {[isban $bhost]} {continue} + } else { + if {[isban $bhost]} {continue} + foreach ban [banlist] { + if {[lindex $ban 5] == "sentinel" && [string match $bhost [string tolower [lindex $ban 0]]]} { + killban $ban + } + } + } + if {[llength [banlist]] >= $sl_banmax} {continue} + newban $bhost sentinel $reason $sl_ban + putlog "sentinel: banned $bhost ($reason)" + sl_ignore $bhost * $reason + } + } else { + foreach bhost $blist { + if {![string match *!* $bhost]} { + if {[matchban *!$bhost $chan]} {continue} + set bhost [sl_masktype $bhost] + if {[isban $bhost $chan]} {continue} + } else { + if {[isban $bhost $chan]} {continue} + foreach ban [banlist $chan] { + if {[lindex $ban 5] == "sentinel" && [string match $bhost [string tolower [lindex $ban 0]]]} { + killchanban $chan $ban + } + } + } + if {[llength [banlist $chan]] >= $sl_banmax} {continue} + newchanban $chan $bhost sentinel $reason $sl_ban + putlog "sentinel: banned $bhost on $chan ($reason)" + sl_ignore $bhost * $reason + } + } + } + return 0 +} + +proc sl_ignore {ihost hand flood} { + global sl_igtime + if {$hand != "*"} { + foreach chan [channels] { + if {[matchattr $hand f|f $chan]} {return 0} + } + } + if {![string match *!* $ihost]} { + foreach ignore [ignorelist] { + if {[string match [string tolower [lindex $ignore 0]] $ihost]} { + return 0 + } + } + set ihost [sl_masktype $ihost] + if {[isignore $ihost]} {return 0} + } else { + if {[isignore $ihost]} {return 0} + foreach ignore [ignorelist] { + if {[lindex $ignore 4] == "sentinel" && [string match $ihost [string tolower [lindex $ignore 0]]]} { + killignore $ignore + } + } + } + newignore $ihost sentinel $flood $sl_igtime + putlog "sentinel: added $ihost to ignore list ($flood)" + return 1 +} + +# queuereset procs allow all queue timers to be killed easily +proc sl_ccqueuereset {chan} { + global sl_ccqueue + incr sl_ccqueue($chan) -1 + return 0 +} + +proc sl_bcqueuereset {} { + global sl_bcqueue + incr sl_bcqueue -1 + return 0 +} + +proc sl_bmqueuereset {} { + global sl_bmqueue + incr sl_bmqueue -1 + return 0 +} + +proc sl_avqueuereset {chan} { + global sl_avqueue + incr sl_avqueue($chan) -1 + return 0 +} + +proc sl_txqueuereset {} { + global sl_txqueue sl_txflood + foreach chan [string tolower [channels]] { + if {[info exists sl_txqueue($chan)]} { + set sl_txqueue($chan) 0 + } + } + utimer [lindex $sl_txflood 1] sl_txqueuereset + return 0 +} + +proc sl_nkqueuereset {chan} { + global sl_nkqueue + incr sl_nkqueue($chan) -1 + return 0 +} + +proc sl_boqueuereset {chan} { + global sl_boqueue + incr sl_boqueue($chan) -1 + return 0 +} + +proc sl_jqueuereset {chan} { + global sl_jqueue + incr sl_jqueue($chan) -1 + return 0 +} + +proc sl_pqueuereset {chan} { + global sl_pqueue + incr sl_pqueue($chan) -1 + return 0 +} + +proc sl_ccbanqueue {chan} { + global sl_ccbanhost sl_ccbannick + set sl_ccbannick($chan) [lrange sl_ccbannick($chan) 1 end] ; set sl_ccbanhost($chan) [lrange sl_ccbanhost($chan) 1 end] + return 0 +} + +proc sl_avbanqueue {chan} { + global sl_avbanhost sl_avbannick + set sl_avbannick($chan) [lrange sl_avbannick($chan) 1 end] ; set sl_avbanhost($chan) [lrange sl_avbanhost($chan) 1 end] + return 0 +} + +proc sl_nkbanqueue {chan} { + global sl_nkbanhost + set sl_nkbanhost($chan) [lrange sl_nkbanhost($chan) 1 end] + return 0 +} + +proc sl_bobanqueue {chan} { + global sl_bobanhost sl_bobannick + set sl_bobannick($chan) [lrange sl_bobannick($chan) 1 end] ; set sl_bobanhost($chan) [lrange sl_bobanhost($chan) 1 end] + return 0 +} + +proc sl_jbanqueue {chan} { + global sl_jbanhost sl_jbannick + set sl_jbannick($chan) [lrange sl_jbannick($chan) 1 end] ; set sl_jbanhost($chan) [lrange sl_jbanhost($chan) 1 end] + return 0 +} + +proc sl_pbanqueue {chan} { + global sl_pbanhost sl_pbannick + set sl_pbannick($chan) [lrange sl_pbannick($chan) 1 end] ; set sl_pbanhost($chan) [lrange sl_pbanhost($chan) 1 end] + return 0 +} + +proc sl_flud {nick uhost hand type chan} { + global sl_flooded + set chan [string tolower $chan] + if {[validchan $chan] && $sl_flooded($chan)} {return 1} + return 0 +} + +proc sl_lc {nick uhost hand chan arg} { + global sl_lockcmds + set chan [string tolower $chan] + if {![botisop $chan]} {return 0} + if {$sl_lockcmds == 2 && ![isop $nick $chan]} {return 0} + sl_quicklock $chan + putlog "sentinel: channel lock requested by $hand on $chan" + return 0 +} + +proc sl_uc {nick uhost hand chan arg} { + global sl_lockcmds + set chan [string tolower $chan] + if {![botisop $chan]} {return 0} + if {$sl_lockcmds == 2 && ![isop $nick $chan]} {return 0} + putserv "MODE $chan -mi" + putlog "sentinel: channel unlock requested by $hand on $chan" + return 0 +} + +proc sl_dcclc {hand idx arg} { + global sl_lockflags + putcmdlog "#$hand# lock $arg" + set chan [lindex [split $arg] 0] + if {$chan == "-all"} { + if {![matchattr $hand $sl_lockflags]} { + putidx $idx "You're not global +$sl_lockflags." ; return 0 + } + set locklist "" + foreach chan [channels] { + if {[botisop $chan]} { + sl_quicklock $chan + lappend locklist $chan + } + } + putidx $idx "Locked [join $locklist ", "]" + } else { + if {$chan == ""} { + set chan [lindex [console $idx] 0] + } + if {![validchan $chan]} { + putidx $idx "No such channel." ; return 0 + } elseif {![matchattr $hand $sl_lockflags|$sl_lockflags $chan]} { + putidx $idx "You're not +$sl_lockflags on $chan." ; return 0 + } elseif {![botonchan $chan]} { + putidx $idx "I'm not on $chan" ; return 0 + } elseif {![botisop $chan]} { + putidx $idx "I'm not opped on $chan" ; return 0 + } + sl_quicklock $chan + putidx $idx "Locked $chan" + } + return 0 +} + +proc sl_dccuc {hand idx arg} { + global sl_lockflags + putcmdlog "#$hand# unlock $arg" + set chan [lindex [split $arg] 0] + if {$chan == "-all"} { + if {![matchattr $hand $sl_lockflags]} { + putidx $idx "You're not global +$sl_lockflags." ; return 0 + } + set locklist "" + foreach chan [channels] { + if {[botisop $chan]} { + putserv "MODE $chan -mi" + lappend locklist $chan + } + } + putidx $idx "Unlocked [join $locklist ", "]" + } else { + if {$chan == ""} { + set chan [lindex [console $idx] 0] + } + if {![validchan $chan]} { + putidx $idx "No such channel." ; return 0 + } elseif {![matchattr $hand $sl_lockflags|$sl_lockflags $chan]} { + putidx $idx "You're not +$sl_lockflags on $chan." ; return 0 + } elseif {![botonchan $chan]} { + putidx $idx "I'm not on $chan" ; return 0 + } elseif {![botisop $chan]} { + putidx $idx "I'm not opped on $chan" ; return 0 + } + putserv "MODE $chan -mi" + putidx $idx "Unlocked $chan" + } + return 0 +} + +proc sl_quicklock {chan} { + global numversion + if {$numversion < 1050000} { + putquick "MODE $chan +mi" + } else { + putquick "MODE $chan +mi" -next + } +} + +proc sl_dcc {hand idx arg} { + global sl_avflood sl_ban sl_banmax sl_bcflood sl_boban sl_boflood sl_bmflood sl_bxsimul sl_bfmaxbans sl_ccflood sl_detectquits sl_globalban sl_igtime sl_jflood sl_kicks sl_lockcmds sl_lockflags sl_ilocktime sl_mlocktime sl_nkflood sl_note sl_shortlock sl_tsunami sl_txflood + putcmdlog "#$hand# sentinel $arg" + putidx $idx "This bot is protected by sentinel.tcl by slennox" + putidx $idx "Current settings" + if {[lsearch -exact $sl_bcflood 0] != -1} { + putidx $idx "- Bot CTCP flood: Off" + } else { + putidx $idx "- Bot CTCP flood: [lindex $sl_bcflood 0] in [lindex $sl_bcflood 1] secs" + } + if {[lsearch -exact $sl_bmflood 0] != -1} { + putidx $idx "- Bot MSG flood: Off" + } else { + putidx $idx "- Bot MSG flood: [lindex $sl_bmflood 0] in [lindex $sl_bmflood 1] secs" + } + if {[lsearch -exact $sl_ccflood 0] != -1} { + putidx $idx "- Channel CTCP flood: Off" + } else { + putidx $idx "- Channel CTCP flood: [lindex $sl_ccflood 0] in [lindex $sl_ccflood 1] secs" + } + if {[lsearch -exact $sl_avflood 0] != -1} { + putidx $idx "- Channel AVALANCHE flood: Off" + } else { + putidx $idx "- Channel AVALANCHE flood: [lindex $sl_avflood 0] in [lindex $sl_avflood 1] secs" + } + if {[lsearch -exact $sl_avflood 0] != -1 || !$sl_tsunami} { + putidx $idx "- Channel TSUNAMI flood: Off" + } else { + putidx $idx "- Channel TSUNAMI flood: [lindex $sl_avflood 0] in [lindex $sl_avflood 1] secs ($sl_tsunami ctrl codes / line)" + } + if {[lsearch -exact $sl_txflood 0] != -1} { + putidx $idx "- Channel TEXT flood: Off" + } else { + putidx $idx "- Channel TEXT flood: [lindex $sl_txflood 0] in [lindex $sl_txflood 1] secs" + } + if {[lsearch -exact $sl_boflood 0] != -1} { + putidx $idx "- Channel BOGUS flood: Off" + } else { + putidx $idx "- Channel BOGUS flood: [lindex $sl_boflood 0] in [lindex $sl_boflood 1] secs" + } + if {$sl_detectquits} { + set detectquits "quit detection ON" + } else { + set detectquits "quit detection OFF" + } + if {[lsearch -exact $sl_jflood 0] != -1} { + putidx $idx "- Channel JOIN-PART flood: Off" + } else { + putidx $idx "- Channel JOIN-PART flood: [lindex $sl_jflood 0] in [lindex $sl_jflood 1] secs ($detectquits)" + } + if {[lsearch -exact $sl_nkflood 0] != -1} { + putidx $idx "- Channel NICK flood: Off" + } else { + putidx $idx "- Channel NICK flood: [lindex $sl_nkflood 0] in [lindex $sl_nkflood 1] secs" + } + if {!$sl_ilocktime} { + putidx $idx "- Channel +i locktime: Indefinite" + } else { + putidx $idx "- Channel +i locktime: $sl_ilocktime secs" + } + if {!$sl_mlocktime} { + putidx $idx "- Channel +m locktime: Indefinite" + } else { + putidx $idx "- Channel +m locktime: $sl_mlocktime secs" + } + if {$sl_shortlock && $sl_ban} { + putidx $idx "- Small flood short lock: Active" + } else { + putidx $idx "- Small flood short lock: Inactive" + } + if {$sl_ban && $sl_ban < 120} { + putidx $idx "- Channel flood bans: $sl_ban mins" + } elseif {$sl_ban >= 120} { + putidx $idx "- Channel flood bans: [expr $sl_ban / 60] hrs" + } else { + putidx $idx "- Channel flood bans: Disabled" + } + if {!$sl_boban || [lsearch -exact $sl_boflood 0] != -1} { + putidx $idx "- Bogus username bans: Disabled" + } elseif {$sl_boban > 0 && $sl_boban < 120} { + putidx $idx "- Bogus username bans: $sl_boban mins" + } elseif {$sl_boban >= 120} { + putidx $idx "- Bogus username bans: [expr $sl_boban / 60] hrs" + } + if {$sl_ban || [lsearch -exact $sl_boflood 0] == -1} { + if {$sl_globalban} { + putidx $idx "- Ban type: Global [sl_masktype nick@host.domain]" + } else { + putidx $idx "- Ban type: Channel-specific [sl_masktype nick@host.domain]" + } + } + if {$sl_ban || [lsearch -exact $sl_boflood 0] == -1} { + putidx $idx "- Maximum bans: $sl_banmax" + } + if {$sl_igtime > 0 && $sl_igtime < 120} { + putidx $idx "- Flooder ignores: $sl_igtime mins" + } elseif {$sl_igtime >= 120} { + putidx $idx "- Flooder ignores: [expr $sl_igtime / 60] hrs" + } else { + putidx $idx "- Flooder ignores: Permanent" + } + if {$sl_ban} { + putidx $idx "- Kicks per line: $sl_kicks" + } + if {!$sl_bfmaxbans} { + putidx $idx "- Maximum channel bans: Disabled" + } else { + putidx $idx "- Maximum channel bans: $sl_bfmaxbans" + } + if {$sl_note != ""} { + putidx $idx "- Flood notification: Notifying [join $sl_note ", "]" + } else { + putidx $idx "- Flood notification: Off" + } + if {!$sl_lockcmds} { + putidx $idx "- Public lc/uc commands: Disabled" + } elseif {$sl_lockcmds == 1} { + putidx $idx "- Public lc/uc commands: Enabled (+$sl_lockflags users, ops not required)" + } elseif {$sl_lockcmds == 2} { + putidx $idx "- Public lc/uc commands: Enabled (+$sl_lockflags users, ops required)" + } + if {$sl_bxsimul} { + putidx $idx "- BitchX simulation: On" + } elseif {!$sl_bxsimul} { + putidx $idx "- BitchX simulation: Off" + } + return 0 +} + +if {$sl_bxsimul} { + bind raw - 001 sl_bxserverjoin + if {![info exists sl_bxonestack]} { + set sl_bxonestack 0 + } + if {![info exists sl_bxversion]} { + set sl_bxversion [lindex {75p1+ 75p3+} [rand 2]] + } + set sl_bxsystem "*IX" ; set sl_bxwhoami $username ; set sl_bxmachine "" + catch {set sl_bxsystem [exec uname -s -r]} + catch {set sl_bxwhoami [exec id -un]} + catch {set sl_bxmachine [exec uname -n]} + set sl_bxjointime [unixtime] + proc sl_bxserverjoin {from keyword arg} { + global sl_bxjointime sl_bxisaway + set sl_bxjointime [unixtime] ; set sl_bxisaway 0 + return 0 + } + proc sl_bxaway {} { + global sl_bxjointime sl_bxisaway + if {!$sl_bxisaway} { + puthelp "AWAY :is away: (Auto-Away after 10 mins) \[\002BX\002-MsgLog [lindex {On Off} [rand 2]]\]" + set sl_bxisaway 1 + } else { + puthelp "AWAY" + set sl_bxisaway 0 ; set sl_bxjointime [unixtime] + } + if {![string match *sl_bxaway* [timers]]} { + timer [expr [rand 300] + 10] sl_bxaway + } + return 0 + } + if {![info exists sl_bxisaway]} { + set sl_bxisaway 0 + } + if {![string match *sl_bxaway* [timers]]} { + timer [expr [rand 300] + 10] sl_bxaway + } +} + +proc sl_setarray {chan} { + global sl_avbanhost sl_avbannick sl_avqueue sl_bfull sl_bobanhost sl_bobannick sl_boqueue sl_ccbanhost sl_ccbannick sl_ccqueue sl_flooded sl_jbanhost sl_jbannick sl_jqueue sl_locked sl_nkbanhost sl_nkflooding sl_nkqueue sl_pbanhost sl_pbannick sl_pqueue sl_txqueue sl_unlocked + set chan [string tolower $chan] + sl_killutimer "incr sl_*queue($chan) -1" + sl_killutimer "sl_*banqueue $chan" + sl_killutimer "sl_*queuereset $chan" + set sl_flooded($chan) 0 ; set sl_locked($chan) 0 ; set sl_unlocked($chan) [unixtime] + set sl_nkflooding($chan) [unixtime] + set sl_ccqueue($chan) 0 ; set sl_ccbanhost($chan) "" ; set sl_ccbannick($chan) "" + set sl_avqueue($chan) 0 ; set sl_avbanhost($chan) "" ; set sl_avbannick($chan) "" + set sl_txqueue($chan) 0 + set sl_nkqueue($chan) 0 ; set sl_nkbanhost($chan) "" + set sl_boqueue($chan) 0 ; set sl_bobanhost($chan) "" ; set sl_bobannick($chan) "" + set sl_jqueue($chan) 0 ; set sl_jbanhost($chan) "" ; set sl_jbannick($chan) "" + set sl_pqueue($chan) 0 ; set sl_pbanhost($chan) "" ; set sl_pbannick($chan) "" + set sl_bfull($chan) 0 + return 0 +} + +proc sl_unsetarray {chan} { + global sl_avbanhost sl_avbannick sl_avqueue sl_bfull sl_bobanhost sl_bobannick sl_boqueue sl_ccbanhost sl_ccbannick sl_ccqueue sl_flooded sl_jbanhost sl_jbannick sl_jqueue sl_locked sl_nkbanhost sl_nkflooding sl_nkqueue sl_pbanhost sl_pbannick sl_pqueue sl_txqueue sl_unlocked + set chan [string tolower $chan] + if {![validchan $chan] && [info exists sl_flooded($chan)]} { + unset sl_flooded($chan) sl_locked($chan) sl_unlocked($chan) sl_nkflooding($chan) sl_ccqueue($chan) sl_ccbanhost($chan) sl_ccbannick($chan) sl_avqueue($chan) sl_avbanhost($chan) sl_avbannick($chan) sl_txqueue($chan) sl_nkqueue($chan) sl_nkbanhost($chan) sl_boqueue($chan) sl_bobanhost($chan) sl_bobannick($chan) sl_jqueue($chan) sl_jbanhost($chan) sl_jbannick($chan) sl_pqueue($chan) sl_pbanhost($chan) sl_pbannick($chan) sl_bfull($chan) + } + return 0 +} + +proc sl_settimer {} { + foreach chan [channels] { + sl_setarray $chan + } + return 0 +} + +proc sl_killutimer {cmd} { + set n 0 + regsub -all -- {\[} $cmd {\[} cmd ; regsub -all -- {\]} $cmd {\]} cmd + foreach tmr [utimers] { + if {[string match $cmd [join [lindex $tmr 1]]]} { + killutimer [lindex $tmr 2] + incr n + } + } + return $n +} + +proc sl_masktype {uhost} { + global sl_masktype + switch -exact -- $sl_masktype { + 0 {return *!*[string range $uhost [string first @ $uhost] end]} + 1 {return *!*$uhost} + 2 {return *!*[lindex [split [maskhost $uhost] "!"] 1]} + } + return +} + +if {![info exists sl_unlocked] && ![string match *sl_settimer* [utimers]]} { + utimer 3 sl_settimer +} + +if {![info exists sl_bflooded]} { + set sl_bflooded 0 +} +if {![info exists sl_bcqueue]} { + set sl_bcqueue 0 +} +if {![info exists sl_bmqueue]} { + set sl_bmqueue 0 +} +if {![info exists sl_nickkick]} { + set sl_nickkick 0 +} + +set sl_bcflood [split $sl_bcflood :] ; set sl_bmflood [split $sl_bmflood :] +set sl_ccflood [split $sl_ccflood :] ; set sl_avflood [split $sl_avflood :] +set sl_txflood [split $sl_txflood :] ; set sl_boflood [split $sl_boflood :] +set sl_jflood [split $sl_jflood :] ; set sl_nkflood [split $sl_nkflood :] +set sl_note [split $sl_note] + +if {$sl_ilocktime > 0 && $sl_ilocktime < 30} { + set sl_ilocktime 30 +} +if {$sl_mlocktime > 0 && $sl_mlocktime < 30} { + set sl_mlocktime 30 +} + +set trigger-on-ignore 0 +if {!${kick-method}} { + set sl_kicks 8 +} else { + set sl_kicks ${kick-method} +} + +if {$numversion <= 1040400} { + if {$numversion >= 1032100} { + set kick-bogus 0 + } + if {$numversion >= 1032400} { + set ban-bogus 0 + } +} +if {$numversion >= 1032400} { + set kick-fun 0 ; set ban-fun 0 +} +if {$numversion >= 1032500} { + set ctcp-mode 0 +} + +if {![string match *sl_txqueuereset* [utimers]] && [lsearch -exact $sl_txflood 0] == -1} { + utimer [lindex $sl_txflood 1] sl_txqueuereset +} + +bind pub $sl_lockflags|$sl_lockflags lc sl_lc +bind pub $sl_lockflags|$sl_lockflags uc sl_uc +bind dcc $sl_lockflags|$sl_lockflags lock sl_dcclc +bind dcc $sl_lockflags|$sl_lockflags unlock sl_dccuc +if {!$sl_lockcmds} { + unbind pub $sl_lockflags|$sl_lockflags lc sl_lc + unbind pub $sl_lockflags|$sl_lockflags uc sl_uc + rename sl_lc "" + rename sl_uc "" +} +bind dcc m|m sentinel sl_dcc +bind raw - NOTICE sl_avflood +bind raw - PRIVMSG sl_avflood +if {[lsearch -exact $sl_avflood 0] != -1 && [lsearch -exact $sl_txflood 0] != -1} { + unbind raw - NOTICE sl_avflood + unbind raw - PRIVMSG sl_avflood + rename sl_avflood "" +} +bind ctcp - CLIENTINFO sl_ctcp +bind ctcp - USERINFO sl_ctcp +bind ctcp - VERSION sl_ctcp +bind ctcp - FINGER sl_ctcp +bind ctcp - ERRMSG sl_ctcp +bind ctcp - ECHO sl_ctcp +bind ctcp - INVITE sl_ctcp +bind ctcp - WHOAMI sl_ctcp +bind ctcp - OP sl_ctcp +bind ctcp - OPS sl_ctcp +bind ctcp - UNBAN sl_ctcp +bind ctcp - PING sl_ctcp +bind ctcp - TIME sl_ctcp +bind msgm - * sl_bmflood +if {[lsearch -exact $sl_bmflood 0] != -1} { + unbind msgm - * sl_bmflood + rename sl_bmflood "" +} +bind nick - * sl_nkflood +if {[lsearch -exact $sl_nkflood 0] != -1} { + unbind nick - * sl_nkflood + rename sl_nkflood "" +} +bind join - * sl_jflood +bind part - * sl_pflood +bind sign - * sl_pflood +if {![info exists sl_detectquits]} { + set sl_detectquits 0 +} +if {!$sl_detectquits} { + unbind sign - * sl_pflood +} +bind kick - * sl_pfloodk +bind flud - * sl_flud +bind mode - * sl_mode + +putlog "Loaded sentinel.tcl v2.70 by slennox" + +return diff --git a/services.tcl b/services.tcl new file mode 100644 index 0000000..8adcf02 --- /dev/null +++ b/services.tcl @@ -0,0 +1,78 @@ +########################################################################################### +###### NickServ & ChanServ Tools ##### +########################################################################################### +# +# Autor : Holger Brähne (Holli) +# E-Mail : hbraehne@web.de +# Version: 1.0 +# +# Beschreibung: Das Script Identifiziert den Bot automatisch bei NickServ und lässt den +# Bot automatisch Op erhalten falls das gewünscht ist und er die benötigten +# Channelrechte besitzt. Das Script wurde getestet und hat funktioniert. +# Ich kann allerdings nicht garantieren das es das auf allen IRC Servern +# tut! +# +########################################################################################### +###### KONFIGURATION ###### +########################################################################################### + +# Der Name den NickServ auf dem IRC Server verwendet auf dem sich der Bot befindet +set nserv(name) "NickServ" + +# Der Befehl mit dem man sich bei NickServ identifiziert (normalerweise: IDENTIFY) +set nserv(idnt) "IDENTIFY" + +# Der Name den der Bot verwendet. Wichtig falls jemand den Namen geklaut hat und der Bot +# in den GHOST Modus gehen soll um ihn zurück zu erhalten. +set nserv(nick) "Marvin" + +# Das Passwort mit dem der Bot bei NickServ registriert ist. +set nserv(pass) "ongbak" + +# Die Zeit die der Bot zwischen dem erkennen von NickServ und der Identifizierung warten +# soll. Bei mir haben 10 Sekunden immer gereicht, aber es soll ja auch langsamere Server +# geben ;) +set nserv(time) 10 + +# Der Name den ChanServ auf dem IRC Server verwendet auf dem sich der Bot befindet +set cserv(name) "ChanServ" + +# Soll der Bot sich automatisch Op im unten angegebenen Channel holen? +# 0 = nein / 1 = ja +set cserv(opme) 0 + +# Der Channel in dem sich der Bot Op holen soll. +set cserv(chan) "" + +# Siehe nserv(time). Die Zeit hier sollte aber mindestens 5 Sekunden länger angegeben sein! +set cserv(time) 15 + + +########################################################################################### +###### !!! AB HIER NICHTS MEHR ÄNDERN, AUSSER DU WEISST GENAU WAS DU DA MACHST !!! ###### +########################################################################################### + +bind notc - "*msg*IDENTIFY*pass*" nick_ident +bind dcc o nservid nick_ident + +proc nick_ident {nick uhost hand args} { + + global botnick nserv cserv + + if {$botnick == $nserv(nick)} { + + utimer $nserv(time) "putserv \"PRIVMSG $nserv(name) :$nserv(idnt) $nserv(pass)\"" + + if {$cserv(opme) == 1} { + + utimer $cserv(time) "putserv \"PRIVMSG $cserv(name) :owner\"" + + } + + } else { + + utimer $nserv(time) "putserv \"PRIVMSG $nserv(name) :GHOST $nserv(nick) $nserv(pass)\"" + + } + +} diff --git a/test.pl b/test.pl new file mode 100644 index 0000000..049b0c7 --- /dev/null +++ b/test.pl @@ -0,0 +1,7 @@ +#!/usr/bin/perl + +use Net::Domain::TLD qw(tlds tld_exists); + +my @ccTLDs = tlds('cc'); +print "TLD de OK\n" if tld_exists('de', 'cc'); +print "TLD ac OK\n" if tld_exists('ac', 'cc'); diff --git a/time.tcl b/time.tcl new file mode 100644 index 0000000..2fa82a5 --- /dev/null +++ b/time.tcl @@ -0,0 +1,26 @@ +# slap by lookshe +#package require time + +bind pub - !zeit proc_time +bind pub - !time proc_time + +proc proc_time {nick host hand chan opfer} { + #putserv "PRIVMSG $chan :[clock format [NetTime ntp.nasa.gov]]" + putserv "PRIVMSG $chan :[exec date]" +} + +proc NetTime {server} { + set tok [time::getsntp $server] ;# or gettime to use the TIME protocol + time::wait $tok + if {[time::status $tok] eq "ok"} { + set result [time::unixtime $tok] + set code ok + } else { + set result [time::error $tok] + set code error + } + time::cleanup $tok + return -code $code $result +} + +putlog "time by lookshe loaded" diff --git a/tinyurl.tcl b/tinyurl.tcl new file mode 100644 index 0000000..970d8f6 --- /dev/null +++ b/tinyurl.tcl @@ -0,0 +1,99 @@ +# ----------------------------------------------------------------------------- +# tiny_url.tcl v0.1 [2004-10-19] +# +# This script will listen on channels and convert long URLs into shorter +# URLs using the TinyURL.com website. +# +# Written by: FAIN on QuakeNet +# ----------------------------------------------------------------------------- + +# ----- Settings -------------------------------------------------------------- + +# Set this to the minimum length of URLs to convert +set url_length 80 + +# ----------------------------------------------------------------------------- + +package require http 2.3 + +bind pubm - "*" scan_text + +# ----------------------------------------------------------------------------- +# Name : scan_text +# Purpose : Scans for URLs and converts to TinyURLs +# ----------------------------------------------------------------------------- + +proc scan_text {nick uhost hand chan arg} { + global botnick url_length + + if {($arg == "boeser bot") || + ($arg == "dummer bot") || + ($arg == "böser bot")} { + putserv "PRIVMSG $chan :Tut mir ja leid $nick! Wirklich!!!" + return 0 + } + + if {($arg == "guter bot") || + ($arg == "braver bot")} { + putserv "PRIVMSG $chan :Ich weiss, ich weiss :-)" + return 0 + } + + set arg [split $arg] + +foreach act_arg $arg { + if {(([string match "http://*" $act_arg] == 1) || + ([string match "https://*" $act_arg] == 1) || + ([string match "ftp://*" $act_arg] == 1) || + ([string match "www.*" $act_arg] == 1))} { + # Make sure it wasn't the bot who said it + set url $act_arg + if {$nick == $botnick} { + return 0 + } + + # Check length of URL + set length [string length $url] + + if {$length >= $url_length} { + + #set tinyurl [make_tinyurl $url] + set tinyurl [exec perl -e "use WWW::Shorten::TinyURL;print makeashorterlink(\"$url\");"] + + if {$tinyurl != "0"} { + set title [exec perl -e "use URI::Title;print URI::Title::title(\"$url\");"] + putserv "PRIVMSG $chan :\002Tiny URL\002: $tinyurl \[$title\] (URL by \002$nick\002)" + } + } + } +} + return 0 +} + +# ----------------------------------------------------------------------------- +# Name : make_tinyurl +# Purpose : Does the actual conversion +# ----------------------------------------------------------------------------- + +proc make_tinyurl { arg } { + set page [::http::geturl http://tinyurl.com/create.php?url=${arg}] + set lines [split [::http::data $page] \n] + set numLines [llength $lines] + + for {set i 0} {$i < $numLines} {incr i 1} { + set line [lindex $lines $i] + + if {[string match "" $line] == 1} { + set tinyurl_line [string trim $line] + regsub -all -nocase "" $tinyurl_line "" tinyurl_line + + return $tinyurl_line + } + } + + return "0" +} + +putlog "---> tiny_url.tcl v0.1 by FAIN @ QuakeNet loaded" + diff --git a/userinfo.tcl b/userinfo.tcl new file mode 100644 index 0000000..edc30bb --- /dev/null +++ b/userinfo.tcl @@ -0,0 +1,285 @@ +# userinfo.tcl v1.06 for Eggdrop 1.4.3 and higher +# Scott G. Taylor -- ButchBub!staylor@mrynet.com +# +# $Id: userinfo.tcl,v 1.5 2001/11/15 06:28:35 guppy Exp $ +# +# v1.00 ButchBub 14 July 1997 -Original release. Based on +# whois.tcl "URL" commands. +# v1.01 Beldin 11 November 1997 -1.3 only version +# v1.02 Kirk 19 June 1998 -extremely small fixes +# v1.03 guppy 17 March 1999 -small fixes again +# v1.04 Ernst 15 June 1999 -fix for egg 1.3.x + TCL 8.0 +# v1.05 Dude 14 July 1999 -small cosmetic/typo fixes +# -$lastbind bug work around fix +# -added userinfo_loaded var +# -fixed bug in dcc_chuserinfo proc +# -unbinds removed user fields +# -dcc .showfields command added +# -deletes removed userinfo fields +# from the whois-fields list. +# v1.06 guppy 19 March 2000 -removed lastbind workaround since +# lastbind is fixed in eggdrop1.4.3 +# v1.07 TaKeDa 20 August 2001 -now script works also on bots, +# which didn't have server module loaded +# -added new fields PHONE & ICQ +# +# TO USE: o Set the desired userinfo field keywords to the +# `userinfo-fields' line below where indicated. +# o Load this script on a 1.1.6 or later Eggdrop bot. +# o Begin having users save the desired information. If you +# choose to add the default "IRL" field, they just use +# the IRC command: /MSG irl Joe Blow. +# o See the new information now appear with the whois command. +# +# This script enhances the `whois' output utilizing the `whois-fields' +# option of eggdrop 1.1-grant and later versions. It adds the functionality +# of whois.tcl used in pre-1.1-grant versions. +# +# The fields desired to be maintained in the userfile `xtra' information +# should be put in `userinfo-fields'. This is different than the Eggdrop +# configuration variable `whois-fields' in that this script will add the +# commands to change these fields. It will also add these desired fields +# to the `whois-fields' itself, so do not define them there as well. The +# fields added in `userinfo-fields' will be converted to upper case for +# aesthetics in the `whois' command output. +# +# The commands that will be added to the running eggdrop are: +# ( will be the respective userfile field added in `userinfo-fields') +# +# TYPE COMMAND USAGE +# ====== ============== ======================================== +# msg To change your via /MSG. +# dcc . To change your via DCC. +# dcc .ch To change someone else's via DCC. +# +# Currently supported fields and commands: +# +# FIELD USAGE +# ===== ===================== +# URL WWW page URL +# IRL In Real Life name +# BF Boyfriend +# GF Girlfriend +# DOB Birthday (Date Of Birth) +# EMAIL Email address +# PHONE Phone number +# ICQ ICQ number + + +################################ +# Set your desired fields here # +################################ + +set userinfo-fields "URL BF GF IRL EMAIL DOB PHONE ICQ" + +# This script's identification + +set userinfover "Userinfo TCL v1.07" + +# This script is NOT for pre-1.4.3 versions. + +catch { set numversion } +if {![info exists numversion] || ($numversion < 1040300)} { + putlog "*** Can't load $userinfover -- At least Eggdrop v1.4.3 required" + return 0 +} + +# Make sure we don't bail because whois and/or userinfo-fields aren't set. + +if { ![info exists whois-fields]} { set whois-fields "" } +if { ![info exists userinfo-fields]} { set userinfo-fields "" } + +# Add only the userinfo-fields not already in the whois-fields list. + +foreach field [string tolower ${userinfo-fields}] { + if { [lsearch -exact [string tolower ${whois-fields}] $field] == -1 } { append whois-fields " " [string toupper $field] } +} + +# If olduserinfo-fields doesn't exist, create it. + +if { ![info exists olduserinfo-fields] } { set olduserinfo-fields ${userinfo-fields} } + +# Delete only the userinfo-fields that have been removed but are still +# listed in the whois-fields list. + +foreach field [string tolower ${olduserinfo-fields}] { + if { [lsearch -exact [string tolower ${whois-fields}] $field] >= 0 && [lsearch -exact [string tolower ${userinfo-fields}] $field] == -1 } { + set fieldtmp [lsearch -exact [string tolower ${whois-fields}] $field] + set whois-fields [lreplace ${whois-fields} $fieldtmp $fieldtmp] + } +} + +# If olduserinfo-fields don't equal userinfo-fields, lets run through the +# old list of user fields and compare them with the current list. this way +# any fields that have been removed that were originally in the list will +# have their msg/dcc commands unbinded so you don't have to do a restart. + +if {[info commands putserv] == ""} { + set isservermod 0 +} else { + set isservermod 1 +} + +if { [string tolower ${olduserinfo-fields}] != [string tolower ${userinfo-fields}] } { + foreach field [string tolower ${olduserinfo-fields}] { + if { [lsearch -exact [string tolower ${userinfo-fields}] $field] == -1 } { + if $isservermod {unbind msg - $field msg_setuserinfo} + unbind dcc - $field dcc_setuserinfo + unbind dcc m ch$field dcc_chuserinfo + } + } + set olduserinfo-fields ${userinfo-fields} +} + +# Run through the list of user info fields and bind their commands + +if { ${userinfo-fields} != "" } { + foreach field [string tolower ${userinfo-fields}] { + if $isservermod {bind msg - $field msg_setuserinfo} + bind dcc - $field dcc_setuserinfo + bind dcc m ch$field dcc_chuserinfo + } +} + +# This is the `/msg ' procedure +if $isservermod { + +proc msg_setuserinfo {nick uhost hand arg} { + global lastbind quiet-reject userinfo-fields + set userinfo [string toupper $lastbind] + set arg [cleanarg $arg] + set ignore 1 + foreach channel [channels] { + if {[onchan $nick $channel]} { + set ignore 0 + } + } + if {$ignore} { + return 0 + } + if {$hand != "*"} { + if {$arg != ""} { + if {[string tolower $arg] == "none"} { + putserv "NOTICE $nick :Removed your $userinfo line." + setuser $hand XTRA $userinfo "" + } { + putserv "NOTICE $nick :Now: $arg" + setuser $hand XTRA $userinfo "[string range $arg 0 159]" + } + } { + if {[getuser $hand XTRA $userinfo] == ""} { + putserv "NOTICE $nick :You have no $userinfo set." + } { + putserv "NOTICE $nick :Currently: [getuser $hand XTRA $userinfo]" + } + } + } else { + if {${quiet-reject} != 1} { + putserv "NOTICE $nick :You must be a registered user to use this feature." + } + } + putcmdlog "($nick!$uhost) !$hand! $userinfo $arg" + return 0 +} + +#checking for server module +} + +# This is the dcc '.' procedure. + +proc dcc_setuserinfo {hand idx arg} { + global lastbind userinfo-fields + set userinfo [string toupper $lastbind] + set arg [cleanarg $arg] + if {$arg != ""} { + if {[string tolower $arg] == "none"} { + putdcc $idx "Removed your $userinfo line." + setuser $hand XTRA $userinfo "" + } { + putdcc $idx "Now: $arg" + setuser $hand XTRA $userinfo "[string range $arg 0 159]" + } + } { + if {[getuser $hand XTRA $userinfo] == ""} { + putdcc $idx "You have no $userinfo set." + } { + putdcc $idx "Currently: [getuser $hand XTRA $userinfo]" + } + } + putcmdlog "#$hand# [string tolower $userinfo] $arg" + return 0 +} + +# This is the DCC `.ch' procedure + +proc dcc_chuserinfo {hand idx arg} { + global lastbind userinfo-fields + set userinfo [string toupper [string range $lastbind 2 end]] + set arg [cleanarg $arg] + if { $arg == "" } { + putdcc $idx "syntax: .ch[string tolower $userinfo] \[<[string tolower $userinfo]>|NONE\]" + return 0 + } + set who [lindex [split $arg] 0] + if {![validuser $who]} { + putdcc $idx "$who is not a valid user." + return 0 + } + if {[llength [split $arg]] == 1} { + set info "" + } { + set info [lrange [split $arg] 1 end] + } + if {$info != ""} { + if {[string tolower $info] == "none"} { + putdcc $idx "Removed $who's $userinfo line." + setuser $who XTRA $userinfo "" + putcmdlog "$userinfo for $who removed by $hand" + } { + putdcc $idx "Now: $info" + setuser $who XTRA $userinfo "$info" + putcmdlog "$userinfo for $who set to \"$info\" by $hand" + } + } { + if {[getuser $who XTRA $userinfo] == ""} { + putdcc $idx "$who has no $userinfo set." + } { + putdcc $idx "Currently: [getuser $who XTRA $userinfo]" + } + } + return 0 +} + +bind dcc m showfields showfields + +proc showfields {hand idx arg} { + global userinfo-fields + if { ${userinfo-fields} == "" } { + putdcc $idx "Their is no user info fields set." + return 0 + } + putdcc $idx "Currently: [string toupper ${userinfo-fields}]" + putcmdlog "#$hand# showfields" + return 0 +} + +proc cleanarg {arg} { + set response "" + for {set i 0} {$i < [string length $arg]} {incr i} { + set char [string index $arg $i] + if {($char != "\12") && ($char != "\15")} { + append response $char + } + } + return $response +} + +# Set userinfo_loaded variable to indicate that the script was successfully +# loaded. this can be used in scripts that make use of the userinfo tcl. + +set userinfo_loaded 1 + +# Announce that we've loaded the script. + +putlog "$userinfover loaded (${userinfo-fields})." +putlog "use '.help userinfo' for commands." diff --git a/weed b/weed new file mode 100755 index 0000000..2740712 --- /dev/null +++ b/weed @@ -0,0 +1,593 @@ +#! /bin/sh +# This trick is borrowed from Tothwolf's Wolfpack \ +# Check for working 'grep -E' before using 'egrep' \ +if echo a | (grep -E '(a|b)') >/dev/null 2>&1; \ +then \ + egrep="grep -E"; \ +else \ + egrep=egrep; \ +fi; \ +# Search for tclsh[0-9].[0-9] in each valid dir in PATH \ +for dir in $(echo $PATH | sed 's/:/ /g'); \ +do \ + if test -d $dir; \ + then \ + files=$(/bin/ls $dir | $egrep '^tclsh[0-9]\.[0-9]$'); \ + if test "$files" != ""; \ + then \ + versions="${versions:+$versions }$(echo $files | sed 's/tclsh//g')"; \ + fi; \ + fi; \ +done; \ +for ver in $versions; \ +do \ + tmpver=$(echo $ver | sed 's/\.//g'); \ + if test "$lasttmpver" != ""; \ + then \ + if test "$tmpver" -gt "$lasttmpver"; \ + then \ + lastver=$ver; \ + lasttmpver=$tmpver; \ + fi; \ + else \ + lastver=$ver; \ + lasttmpver=$tmpver; \ + fi; \ +done; \ +exec tclsh$lastver "$0" ${1+"$@"} +# +# $Id: weed,v 1.9 2008/06/18 10:12:22 tothwolf Exp $ +# +# weed out certain undesirables from an eggdrop userlist +# try just typing 'tclsh weed' to find out the options +# Robey Pointer, November 1994 +# +# : +# I did a few bug fixes to the original weed script, things changed... +# +# when specifying other weed options they would unset the User() field and +# a maxlast weed would try and weed again and cause the script to stop due +# to User() being already unset (array nonexistant) +# +# when loadUserFile encountered an xtra field it would try and use the $info +# variable, which was supposed to be $xtra (something overlooked when the +# line was cut and pasted -- I hate it when that happens) +# +# changed the formatting of the saved weed file to match more closely to +# eggdrop 0.9tp (so this may cause incompatibilities), but when a hostmask +# field exactly matched 40 characters it would save it with no spaces after +# it and eggdrop would reject the user record. I know I could have easily +# changed one character, but I couldn't help myself. +# 5 march 1996 +# +# : +# upgrade for v2 userfiles +# : +# fixed xtra field from getting truncated +# : +# stopped it from mangling channel ban lists +# : +# upgrade for v3 userfiles +# : +# added an option to remove users from unwanted channels +# : +# upgrade for v4 userfiles, with v3 converter +# : +# fixed bug "list element in braces followed by X instead of space" +# (the use of "lrange" where you aren't sure if it's a list is bad) +# fixed --CONSOLE item not being included, creating "user" --CONSOLE +# : +# two more improper occurrences of "lrange" removed +# : +# removed ancient way of determining the current time. +# : +# [clock] isn't in all versions of Tcl... +# : +# borrowed code from Tothwolf's Wolfpack to find tclsh better +# + +set exempt {*ban *ignore} +set exemptops 0 ; set exemptmasters 0 ; set exemptfriends 0 +set exemptparty 0 ; set exemptfile 0 ; set exemptchanm 0 +set exemptbotm 0 ; set exemptchann 0 ; set exemptchanf 0 +set exemptchano 0 +set maxlast 0 ; set maxban 0 ; set maxignore 0 +set weedops 0 ; set weedmasters 0 ; set weednopw 0 +set stripops 0 ; set stripmasters 0 ; set weedlurkers 0 +set chanrem {} +set convert 0 + +if {![string compare "" [info commands clock]]} then { + set fd [open "/tmp/egg.timer." w] + close $fd + set CURRENT [file atime "/tmp/egg.timer."] + exec rm -f /tmp/egg.timer. +} else { + set CURRENT [clock seconds] +} + +if {$argc < 1} { + puts stdout "\nUsage: weed \[options\]" + puts stdout " (weeds out users from an eggdrop userlist)" + puts stdout "Output goes to .weed" + puts stdout "Possible options:" + puts stdout " - exempt this user from weeding" + puts stdout " ^o ^m ^f exempt ops or masters or friends" + puts stdout " ^co ^cm ^cf exempt chanops or chanmasters or chanfriends" + puts stdout " ^cn exempt chanowner" + puts stdout " ^p ^x exempt party-line or file-area users" + puts stdout " ^b exempt botnet master" + puts stdout " + weed: haven't been seen in N days" + puts stdout " :n weed: haven't EVER been seen" + puts stdout " :o :m weed: ops or masters with no password set" + puts stdout " :a weed: anyone with no password set" + puts stdout " o m unop/unmaster: ops or masters with no pass." + puts stdout " b weed: bans not used in N days" + puts stdout " i weed: ignores created over N days ago" + puts stdout " = weed: channels no longer supported" + puts stdout " c convert v3 eggdrop userfile" + puts stdout "" + exit +} +puts stdout "\nWEED 18jun97, robey\n" + +set filename [lindex $argv 0] +for {set i 1} {$i < $argc} {incr i} { + set carg [lindex $argv $i] + if {$carg == ":n"} { + set weedlurkers 1 + } elseif {$carg == ":o"} { + set weedops 1 ; set stripops 0 ; set weednopw 0 + } elseif {$carg == ":m"} { + set weedmasters 1 ; set stripmasters 0 ; set weednopw 0 + } elseif {$carg == ":a"} { + set weednopw 1 ; set weedops 0 ; set weedmasters 0 + set stripops 0 ; set stripmasters 0 + } elseif {$carg == "o"} { + set stripops 1 ; set weedops 0 ; set weednopw 0 + } elseif {$carg == "m"} { + set stripmasters 1 ; set weedmasters 0 ; set weednopw 0 + } elseif {$carg == "^m"} { + set exemptmasters 1 + } elseif {$carg == "^o"} { + set exemptops 1 + } elseif {$carg == "^f"} { + set exemptfriends 1 + } elseif {$carg == "^p"} { + set exemptparty 1 + } elseif {$carg == "^x"} { + set exemptfile 1 + } elseif {$carg == "^cf"} { + set exemptchanf 1 + } elseif {$carg == "^cm"} { + set exemptchanm 1 + } elseif {$carg == "^cn"} { + set exemptchann 1 + } elseif {$carg == "^b"} { + set exemptbotm 1 + } elseif {$carg == "^co"} { + set exemptchano 1 + } elseif {$carg == "c"} { + set convert 1 + } elseif {[string index $carg 0] == "-"} { + lappend exempt [string range $carg 1 end] + } elseif {[string index $carg 0] == "+"} { + set maxlast [expr 60*60*24* [string range $carg 1 end]] + } elseif {[string index $carg 0] == "b"} { + set maxban [expr 60*60*24* [string range $carg 1 end]] + } elseif {[string index $carg 0] == "i"} { + set maxignore [expr 60*60*24* [string range $carg 1 end]] + } elseif {[string index $carg 0] == "="} { + lappend chanrem [string tolower [string range $carg 1 end]] + } else { + puts stderr "UNKNOWN OPTION: '$carg'\n" + exit + } +} + +if {(!$weedlurkers) && (!$weedops) && (!$weedmasters) && (!$weednopw) && + (!$stripops) && (!$stripmasters) && ($maxlast == 0) && ($convert == 0) && + ($maxban == 0) && ($maxignore == 0) && ($chanrem == {})} { + puts stderr "PROBLEM: You didn't specify anything to weed out.\n" + exit +} + +set weeding { } ; set strip { } ; set exempting { } +if {$weedlurkers} { lappend weeding "lurkers" } +if {$weedops} { lappend weeding "pwdless-ops" } +if {$weedmasters} { lappend weeding "pwdless-masters" } +if {$weednopw} { lappend weeding "pwdless-users" } +if {$chanrem != {}} { lappend weeding "unwanted-channel" } +if {$maxlast > 0} { lappend weeding ">[expr $maxlast /(60*60*24)]-days" } +if {$maxban > 0} { lappend weeding "bans>[expr $maxban /(60*60*24)]-days" } +if {$maxignore > 0} { lappend weeding "ign>[expr $maxignore /(60*60*24)]-days" } +if {$weeding != { }} { puts stdout "Weeding:$weeding" } + +if {$stripops} { lappend strip "pwdless-ops" } +if {$stripmasters} { lappend strip "pwdless-masters" } +if {$strip != { }} { puts stdout "Stripping:$strip" } + +if {$exemptops} { lappend exempting "(ops)" } +if {$exemptmasters} { lappend exempting "(masters)" } +if {$exemptfriends} { lappend exempting "(friends)" } +if {$exemptparty} { lappend exempting "(party-line)" } +if {$exemptfile} { lappend exempting "(file-area)" } +if {$exemptchann} { lappend exempting "(channel-owners)" } +if {$exemptchanm} { lappend exempting "(channel-masters)" } +if {$exemptchano} { lappend exempting "(channel-ops)" } +if {$exemptchanf} { lappend exempting "(channel-friends)" } +if {$exemptbotm} { lappend exempting "(botnet masters)" } +if {[llength $exempt]>2} { lappend exempting "[lrange $exempt 2 end]" } +if {$exempting != { }} { puts stdout "Exempt:$exempting" } + +puts stdout "\nReading $filename ..." + +proc convertUserFile {fname} { + global User Hostmask Channel Botflag LastOn BotAddr Xtra convert + puts stdout "\nRunning Converter on $fname" + set oldhandle {} + if {[catch {set fd [open $fname r]}] != 0} { return 0 } + set line [string trim [gets $fd]] + if {[string range $line 1 2] == "3v"} { + set convert 1 + } elseif {[string range $line 1 2] == "4v"} { + return 0 + } + while {![eof $fd]} { + set line [string trim [gets $fd]] + if {([string index $line 0] != "#") && ([string length $line] > 0)} { + scan $line "%s" handle + if {$handle == "-"} { + # hostmask + set hmList [split [string range $line 2 end] ,] + for {set i 0} {$i < [llength $hmList]} {incr i} { + lappend Hostmask($oldhandle) [string trim [lindex $hmList $i]] + } + } elseif {$handle == "!"} { + # channel + set chList [string trim [string range $line 1 end]] + lappend Channel($oldhandle) "[lrange $chList 0 1] [string trim [lindex $chList end] 0123456789]" + } elseif {$handle == "*"} { + # dccdir + set dccdir [string trim [string range $line 2 end]] + set User($oldhandle) [lreplace $User($oldhandle) 2 2 $dccdir] + } elseif {$handle == "+"} { + # email + set email [string trim [string range $line 2 end]] + set User($oldhandle) [lreplace $User($oldhandle) 3 3 $email] + } elseif {$handle == "="} { + # comment + set comment [string trim [string range $line 2 end]] + set User($oldhandle) [lreplace $User($oldhandle) 4 4 $comment] + } elseif {$handle == ":"} { + # user info line / bot addresses + if {[lsearch [split [lindex $User($oldhandle) 0] ""] b] == -1} { + set info [string trim [string range $line 1 end]] + set User($oldhandle) [lreplace $User($oldhandle) 5 5 $info] + } else { + set BotAddr($oldhandle) [string trim [string range $line 1 end]] + } + } elseif {$handle == "."} { + # xtra field start + if {![info exists xtraList($oldhandle)]} { + set xtraList($oldhandle) [string trim [string range $line 1 end]] + } { + set xtraList($oldhandle) "$xtraList($oldhandle) [string trim [string range $line 1 end]]" + } + } elseif {$handle == "!!"} { + # laston + set LastOn($oldhandle) [lindex $line 1] + } else { + # finish up xtra field first + if {[info exists xtraList($oldhandle)]} { + for {set i 0} {$i < [llength $xtraList($oldhandle)]} {incr i} { + lappend Xtra($oldhandle) [string trim [lindex $xtraList($oldhandle) $i] \{] + } + } + # begin of new user + scan $line "%s %s %s %s" handle pass attr ts + if {$convert == 1 && $attr != ""} { + regsub -all {B} $attr {t} attr + set botflags "s h a l r" ; set Botflag($handle) "" + set nattr [split [string trim $attr 0123456789] ""] ; set attr "" + foreach flag $botflags { + if {[lsearch -exact $nattr $flag] != -1} {append Botflag($handle) $flag} + } + foreach flag $nattr { + if {[lsearch -exact $botflags $flag] == -1} {append attr $flag} + } + } + set User($handle) [list $attr $pass {} {} {} {}] + set Hostmask($handle) {} + set Channel($handle) {} + set oldhandle $handle + } + } + } + return 1 +} + +proc loadUserFile {fname} { + global User Hostmask Channel Botflag LastOn BotAddr Xtra + set oldhandle {} + if {[catch {set fd [open $fname r]}] != 0} { return 0 } + set line [string trim [gets $fd]] + if {[string range $line 1 2] != "4v"} { + if {[string range $line 1 2] == "3v"} { + convertUserFile $fname + return 1 + } else { + puts stderr "Unknown userfile version! (not v4)\n" + exit + } + } + while {![eof $fd]} { + set line [string trim [gets $fd]] + if {([string index $line 0] != "#") && ([string length $line] > 0)} { + scan $line "%s" handle + if {$handle == "--HOSTS"} { + # hostmask + set hmList [lindex $line 1] + lappend Hostmask($oldhandle) [string trim $hmList] + } elseif {$handle == "-"} { + # hostmask + set hmList [join [lrange $line 1 end]] + lappend Hostmask($oldhandle) [string trim $hmList] + } elseif {$handle == "!"} { + # channel + set chList [string trim [string range $line 1 end]] + lappend Channel($oldhandle) $chList + } elseif {$handle == "--BOTADDR"} { + # botaddr + set BotAddr($oldhandle) [lindex $line 1] + } elseif {$handle == "--PASS"} { + # pass + set pass [string trim [string range $line [expr [string first " " $line] + 1] end]] + set User($oldhandle) [lreplace $User($oldhandle) 1 1 $pass] + } elseif {$handle == "--DCCDIR"} { + # dccdir + set first [string first " " $line] + if {$first != -1} { + set dccdir [string trim [string range $line [expr $first + 1] end]] + } { + set dccdir "" + } + set User($oldhandle) [lreplace $User($oldhandle) 2 2 $dccdir] + } elseif {$handle == "--COMMENT"} { + # comment + set first [string first " " $line] + if {$first != -1} { + set comment [string trim [string range $line [expr $first + 1] end]] + } { + set comment "" + } + set User($oldhandle) [lreplace $User($oldhandle) 4 4 $comment] + } elseif {$handle == "--INFO"} { + # user info line + set first [string first " " $line] + if {$first != -1} { + set info [string trim [string range $line [expr $first + 1] end]] + } { + set info "" + } + set User($oldhandle) [lreplace $User($oldhandle) 5 5 $info] + } elseif {$handle == "--CONSOLE"} { + # console + set first [string first " " $line] + if {$first != -1} { + set console [string trim [string range $line [expr $first + 1] end]] + } { + set console "" + } + set User($oldhandle) [lreplace $User($oldhandle) 6 6 $console] + } elseif {$handle == "--XTRA"} { + # xtra field + set first [string first " " $line] + if {$first != -1} { + set xtraList [string trim [string range $line [expr $first + 1] end]] + } { + set xtraList "" + } + lappend Xtra($oldhandle) $xtraList + } elseif {$handle == "--LASTON"} { + # laston + set LastOn($oldhandle) [lindex $line 1] + } elseif {$handle == "--BOTFL"} { + # botflags + set Botflag($oldhandle) [string trim [string range $line 1 end]] + } else { + # begin of new user + scan $line "%s %s %s" handle dash attr + set User($handle) [list $attr {} {} {} {} {} {}] + set Hostmask($handle) {} + set Channel($handle) {} + set oldhandle $handle + } + } + } + return 1 +} + +proc saveUserFile fname { + global User Hostmask Channel Botflag LastOn BotAddr Xtra + if {[catch {set fd [open $fname w]}] != 0} { return 0 } + puts $fd "#4v: weed! now go away." + foreach i [array names User] { + set hmask "none" + set hmloop 0 ; set chloop 0 ; set loloop 0 ; set xloop 0 ; set aloop 0 + if {[lindex $User($i) 1] == "bans"} {set plug "bans"} {set plug "-"} + set attr [lindex $User($i) 0] + set ts [lindex $User($i) 2] + puts $fd [format "%-9s %-20s %-24s" $i $plug $attr] + for {} {$hmloop < [llength $Hostmask($i)]} {incr hmloop} { + if {[string index $i 0] == "*" || [string range $i 0 1] == "::"} { + set hmask [lindex $Hostmask($i) $hmloop] + regsub -all {~} $hmask { } hmask + puts $fd "- $hmask" + } else { + puts $fd "--HOSTS [lindex $Hostmask($i) $hmloop]" + } + } + if {[info exists BotAddr($i)]} { + puts $fd "--BOTADDR [lindex $BotAddr($i) 0]" + } + if {[info exists Xtra($i)]} { + for {} {$xloop < [llength $Xtra($i)]} {incr xloop} { + puts $fd "--XTRA [lindex $Xtra($i) $xloop]" + } + } + if {[info exists Channel($i)]} { + for {} {$chloop < [llength $Channel($i)]} {incr chloop} { + puts $fd "! [lindex $Channel($i) $chloop]" + } + } + if {[info exists Botflag($i)]} { + if {$Botflag($i) != ""} { puts $fd "--BOTFL [lindex $Botflag($i) 0]" } + } + if {[string index $i 0] == "*" || [string range $i 0 1] == "::"} { + set User($i) [lreplace $User($i) 1 1 {}] + } + if {[lindex $User($i) 1] != {}} { puts $fd "--PASS [lindex $User($i) 1]" } + if {[lindex $User($i) 2] != {}} { puts $fd "--DCCDIR [lindex $User($i) 2]" } + if {[lindex $User($i) 3] != {}} { puts $fd "--XTRA EMAIL [lindex $User($i) 3]" } + if {[lindex $User($i) 4] != {}} { puts $fd "--COMMENT [lindex $User($i) 4]" } + if {[lindex $User($i) 5] != {}} { puts $fd "--INFO [lindex $User($i) 5]" } + if {[lindex $User($i) 6] != {}} { puts $fd "--CONSOLE [lindex $User($i) 6]" } + if {[info exists LastOn($i)]} { + puts $fd "--LASTON [lindex $LastOn($i) 0]" + } + } + close $fd + return 1 +} + +if {![loadUserFile $filename]} { + puts stdout "* Couldn't load userfile!\n" + exit +} + +if {$convert == 0} { + puts stdout "Loaded. Weeding..." + puts stdout "(pwd = no pass, -o/-m = removed op/master, lrk = never seen, exp = expired)" + puts stdout "(uwc = unwanted channel)\n" +} else { + puts stdout "Loaded. Converting..." +} + +set total 0 +set weeded 0 +foreach i [array names User] { + incr total + set attr [lindex $User($i) 0] + set chanattr [lindex [lindex $Channel($i) 0] 2] + if {([lsearch -exact $exempt $i] == -1) && + ([string range $i 0 1] != "::") && + ([string range $i 0 1] != "--") && + (([string first o $attr] == -1) || (!$exemptops)) && + (([string first m $attr] == -1) || (!$exemptmasters)) && + (([string first f $attr] == -1) || (!$exemptfriends)) && + (([string first p $attr] == -1) || (!$exemptparty)) && + (([string first x $attr] == -1) || (!$exemptfile)) && + (([string first t $attr] == -1) || (!$exemptbotm)) && + (([string first f $chanattr] == -1) || (!$exemptchanf)) && + (([string first m $chanattr] == -1) || (!$exemptchanm)) && + (([string first n $chanattr] == -1) || (!$exemptchann)) && + (([string first o $chanattr] == -1) || (!$exemptchano))} { + set pass [lindex $User($i) 1] + if {[info exists LastOn($i)]} { set ts [lindex $LastOn($i) 0] } { set ts 0 } + if {([string compare $pass "-"] == 0) && ([string first b $attr] == -1)} { + if {$weednopw == 1} { + unset User($i) ; incr weeded + puts -nonewline stdout "[format "pwd: %-10s " $i]" + } elseif {([string first o $attr] != -1) && ($weedops == 1)} { + unset User($i) ; incr weeded + puts -nonewline stdout "[format "pwd: %-10s " $i]" + } elseif {([string first m $attr] != -1) && ($weedmasters == 1)} { + unset User($i) ; incr weeded + puts -nonewline stdout "[format "pwd: %-10s " $i]" + } + if {([string first o $attr] != -1) && ($stripops == 1)} { + set nattr {} + for {set x 0} {$x < [string length $attr]} {incr x} { + if {[string index $attr $x] != "o"} { + set nattr [format "%s%s" $nattr [string index $attr $x]] + } + } + if {$nattr == {}} { set nattr "-" } + set User($i) [lreplace $User($i) 0 0 $nattr] + puts -nonewline stdout "[format " -o: %-10s " $i]" + } + if {([string first m $attr] != -1) && ($stripmasters == 1)} { + set nattr {} + for {set x 0} {$x < [string length $attr]} {incr x} { + if {[string index $attr $x] != "m"} { + set nattr [format "%s%s" $nattr [string index $attr $x]] + } + } + if {$nattr == {}} { set nattr "-" } + set User($i) [lreplace $User($i) 0 0 $nattr] + puts -nonewline stdout "[format " -m: %-10s " $i]" + } + } + if {($ts==0) && ($weedlurkers==1) && ([string first b $attr] == -1) && [info exists User($i)]} { + unset User($i) ; incr weeded + puts -nonewline stdout "[format "lrk: %-10s " $i]" + } + if {($ts > 0) && ($maxlast > 0) && ($CURRENT-$ts > $maxlast && [info exists User($i)])} { + unset User($i) ; incr weeded + puts -nonewline stdout "[format "exp: %-10s " $i]" + } + if {$chanrem != {} && [info exists Channel($i)]} { + foreach unchan $chanrem { + set id [lsearch [string tolower $Channel($i)] *$unchan*] + if {$id != -1} { + set Channel($i) [lreplace $Channel($i) $id $id] ; incr weeded + puts -nonewline stdout "[format "uwc: %-10s " $i]" + } + } + } + } + flush stdout +} +if {$weeded == 0 && $convert == 0} { puts -nonewline stdout "uNF... Nothing to weed!" } +puts stdout "\n" + +foreach i [array names User] { + if {([string range $i 0 1] == "::") || ($i == "*ban")} { + for {set j 0} {$j < [llength $Hostmask($i)]} {incr j} { + set ban [split [lindex $Hostmask($i) $j] :] + if {[string range [lindex $ban 2] 0 0] == "+"} { + set lastused [lindex $ban 3] + if {($maxban > 0) && ($CURRENT-$lastused > $maxban)} { + if {$i == "*ban"} { + puts stdout "Expired ban: [lindex $ban 0]" + } { + puts stdout "Expired ban on [string range $i 2 end]: [lindex $ban 0]" + } + set Hostmask($i) [lreplace $Hostmask($i) $j $j] + incr j -1 + } + } + } + } + if {$i == "*ignore"} { + for {set j 0} {$j < [llength $Hostmask($i)]} {incr j} { + set ign [split [lindex $Hostmask($i) $j] :] + set lastused [lindex $ign 3] + if {($maxignore > 0) && ($CURRENT-$lastused > $maxignore)} { + puts stdout "Expired ignore: [lindex $ign 0]" + set Hostmask($i) [lreplace $Hostmask($i) $j $j] + incr j -1 + } + } + } +} + +puts stdout "\nFinished scan." +puts stdout "Original total ($total), new total ([expr $total-$weeded]), zapped ($weeded)" + +if {![saveUserFile $filename.weed]} { + puts stdout "* uNF... Couldn't save new userfile!\n" + exit +} +puts stdout "Wrote $filename.weed" diff --git a/whoisd.tcl b/whoisd.tcl new file mode 100644 index 0000000..5047f0a --- /dev/null +++ b/whoisd.tcl @@ -0,0 +1,232 @@ +# whoisd.tcl -- 1.1 +# +# The whois command checks if a given domain is available or taken. +# The tld command returns which country sponsors the given tld. +# This script uses live servers so it is never outdated, unlike other scripts. +# +# I have tried a lot of existing domain whois scripts, none of them did what I wanted. +# So I decided to write my own, based on a similar script I wrote for mIRC. +# +# It is purposly made to be simple so it did not require much maintenance. +# +# Copyright (c) 2010 HM2K +# +# Name: domain whois and tld country code lookup (!whois and !tld) +# Author: HM2K +# License: http://www.freebsd.org/copyright/freebsd-license.html +# Link: http://www.hm2k.com/projects/eggtcl +# Tags: whois, lookup, domains, tld, country +# Updated: 29-Jul-2010 +# +###Usage +# !whois is the default public channel trigger for the whois function +# .whoisd is the default dcc command trigger the whois function +# !tld is the default public channel trigger for the tld function +# .tld is the default dcc trigger for the tld function +# +###Example +# > !whois hm2k.com +# whois: hm2k.com is taken! +# > !whois example-lame-domain.com +# whois: example-lame-domain.com is available! +# > !tld uk +# whois: Country for uk is United Kingdom +# +###Credits +# Thanks #eggtcl @ EFnet for some pointers +# +###Revisions +# 1.1 - iana changed their whois response; the whole script was revamped +# 1.0.3 - better documentation; fixed trigger; fixed timeouts; fixed available match +# 1.0.2 - further imrovements were made +# 1.0.1 - first public release + + +### Settings +set whoisd(cmd_dcc_domain) "whoisd"; #the dcc command - eg: whoisd +set whoisd(cmd_dcc_tld) "tld"; #the dcc tld command - eg: tld +set whoisd(cmd_pub_domain) "!whois"; #the pub command - eg: !whoisd +set whoisd(cmd_pub_tld) "!tld"; #the pub tld command - eg: !tld +set whoisd(data_country) "";#place holder for country data +set whoisd(data_type) "domain"; #default data type +set whoisd(debug) 1; #turn debug on or off +set whoisd(error_connect) "Error: Connection to %s:%s failed."; #Connection failed +set whoisd(error_connect_lost) "Error: Connection to server has been lost."; +set whoisd(error_invalid) "Error: Invalid %s."; #Invalid domain/tld error +set whoisd(flag) "-|-"; #flag required to use the script +set whoisd(nomatch_domain) "No match|not found|Invalid query|does not exist|no data found|status: avail|domain is available|(null)|no entries found|not registered|no objects found|domain name is not|Status:.*AVAILABLE"; #Replies from Whois Servers that match as "Available"... #TODO: split into new lines, join again later +set whoisd(nomatch_tld) "This query returned 0 objects."; #Error returned for invalid tld +set whoisd(notice_connect) "Connecting to... %s:%s (%s)"; #Connecting notice +set whoisd(output_country) "Country for %s is %s"; +set whoisd(output_found) "%s is available!"; +set whoisd(output_nomatch) "%s is taken!"; +set whoisd(output_timeout) "Connection to %s:%s timed out within %s seconds."; +set whoisd(port) 43; #The default whois server port - should not change +set whoisd(prefix) "whois:"; #prefix on output +set whoisd(regex_country) {address.*?:\s*(.+)$}; +set whoisd(regex_server) {whois.*?:\s*(.+)$}; +set whoisd(regex_valid_domain) {^([a-zA-Z0-9]([a-zA-Z0-9\-]{0,61}[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6}$}; #Regular expression used for validating domains +set whoisd(regex_valid_tld) {^\.?[a-z]+$}; +set whoisd(rplmode) 1; #reply mode (1:chan privmsg, 2:chan notice, 3:nick privmsg, 4:nick notice) +set whoisd(server) "whois.iana.org"; #The main whois server - should not change +set whoisd(timeout) 15; #server timeout in seconds - servers are quick, keep low +set whoisd(usage) "Usage: %s <%s>"; #Usage +set whoisd(ver) "1.1"; # version + + +### Package Definition +package require eggdrop 1.6; #see http://geteggdrop.com/ +package require Tcl 8.2.3; #see http://tinyurl.com/6kvu2n + + +### Binds +bind dcc $whoisd(flag) $whoisd(cmd_dcc_domain) whoisd:dcc_domain; +bind pub $whoisd(flag) $whoisd(cmd_pub_domain) whoisd:pub_domain; +bind dcc $whoisd(flag) $whoisd(cmd_dcc_tld) whoisd:dcc_tld; +bind pub $whoisd(flag) $whoisd(cmd_pub_tld) whoisd:pub_tld; + + +### Procedures +proc whoisd:validate {cmd word} { + if {[string compare $word ""] == 0} { + return [format $::whoisd(usage) $cmd $::whoisd(data_type)]; + } + if {![regexp $::whoisd(regex_valid) $word]} { + return [format $::whoisd(error_invalid) $::whoisd(data_type)]; + } + return; +} +proc whoisd:dcc_domain {hand idx text} { + set ::whoisd(data_type) "domain"; + set ::whoisd(cmd_dcc) $::whoisd(cmd_dcc_domain); + set ::whoisd(regex_valid) $::whoisd(regex_valid_domain); + return [whoisd:dcc $hand $idx $text]; +} +proc whoisd:pub_domain {nick uhost hand chan text} { + set ::whoisd(data_type) "domain"; + set ::whoisd(cmd_pub) $::whoisd(cmd_pub_domain); + set ::whoisd(regex_valid) $::whoisd(regex_valid_domain); + return [whoisd:pub $nick $uhost $hand $chan $text]; +} +proc whoisd:dcc_tld {hand idx text} { + set ::whoisd(data_type) "tld"; + set ::whoisd(cmd_dcc) $::whoisd(cmd_dcc_tld); + set ::whoisd(regex_valid) $::whoisd(regex_valid_tld); + return [whoisd:dcc $hand $idx $text]; +} +proc whoisd:pub_tld {nick uhost hand chan text} { + set ::whoisd(data_type) "tld"; + set ::whoisd(cmd_pub) $::whoisd(cmd_pub_tld); + set ::whoisd(regex_valid) $::whoisd(regex_valid_tld); + return [whoisd:pub $nick $uhost $hand $chan $text]; +} +proc whoisd:dcc {hand idx text} { + set word [lrange [split $text] 0 0]; + if {[set invalid [whoisd:validate ".$::whoisd(cmd_dcc)" $word]] != ""} { + whoisd:out 0 $idx {} $invalid; + return; + } + whoisd:connect 0 $idx {} $::whoisd(server) $::whoisd(port) $word; +} +proc whoisd:pub {nick uhost hand chan text} { + set word [lrange [split $text] 0 0]; + if {[set invalid [whoisd:validate $::whoisd(cmd_pub) $word]] != ""} { + whoisd:out 4 {} $nick $invalid; + return; + } + whoisd:connect $::whoisd(rplmode) $chan $nick $::whoisd(server) $::whoisd(port) $word; +} + + +proc whoisd:out {type dest nick text} { + if {[string length [string trim $text]] < 1} { return; } + switch -- $type { + "0" { putdcc $dest "$::whoisd(prefix) $text"; } + "1" { putserv "PRIVMSG $dest :$::whoisd(prefix) $text"; } + "2" { putserv "NOTICE $dest :$::whoisd(prefix) $text"; } + "3" { putserv "PRIVMSG $nick :$::whoisd(prefix) $text"; } + "4" { putserv "NOTICE $nick :$::whoisd(prefix) $text"; } + "5" { putlog "$::whoisd(prefix) $text"; } + } +} +proc whoisd:connect {type dest nick server port word} { + putlog [format $::whoisd(notice_connect) $server $port $word]; + if {[catch {socket -async $server $port} sock]} { + whoisd:out $type $dest $nick [format $::whoisd(error_connect) $server $port]; + return; + } + #TODO: too long; must be split + fileevent $sock writable [list whoisd:write $type $dest $nick $word $sock $server $port [utimer $::whoisd(timeout) [list whoisd:timeout $type $dest $nick $server $port $sock $word]]]; +} +proc whoisd:write {type dest nick word sock server port timerid} { + if {[set error [fconfigure $sock -error]] != ""} { + whoisd:out $type $dest $nick [format $::whoisd(error_connect) $server $port]; + whoisd:die $sock $timerid; + return; + } + set word [string trim $word .]; + if {$server == $::whoisd(server)} { + set lookup [lrange [split $word "."] end end]; + } else { + set lookup $word; + } + puts $sock "$lookup\n"; + flush $sock; + fconfigure $sock -blocking 0; + fileevent $sock readable [list whoisd:read $type $dest $nick $word $sock $server $port $timerid]; + fileevent $sock writable {}; +} +proc whoisd:read {type dest nick word sock server port timerid} { + while {![set error [catch {gets $sock output} read]] && $read > 0} { + if {!$type} { whoisd:out $type $dest $nick $output; } + if {$server == $::whoisd(server)} { + if {[regexp $::whoisd(nomatch_tld) $output]} { + set output [format $::whoisd(error_invalid) "tld"]; + whoisd:out $type $dest $nick $output; + whoisd:die $sock $timerid; + } + if {$::whoisd(data_type) == "tld"} { + if {[regexp $::whoisd(regex_country) $output -> country]} { + set ::whoisd(data_country) $country; + } + } elseif {[regexp -nocase -- $::whoisd(regex_server) $output -> server]} { + whoisd:connect $type $dest $nick $server $port $word; + whoisd:die $sock $timerid; + } + } else { + if {[regexp -nocase -- $::whoisd(nomatch_domain) $output]} { + set output [format $::whoisd(output_found) $word]; + whoisd:out $type $dest $nick $output; + whoisd:die $sock $timerid; + } + } + if {$error} { + whoisd:out $type $dest $nick $::whoisd(error_connect_lost); + whoisd:die $sock $timerid; + } + } +} +proc whoisd:die {sock timerid} { + catch { killutimer $timerid } + catch { close $sock } +} +proc whoisd:timeout {type dest nick server port sock word} { + catch { close $sock } + if {$server != $::whoisd(server)} { + set output [format $::whoisd(output_nomatch) $word]; + whoisd:out $type $dest $nick $output; + return; + } elseif {$::whoisd(data_country) != ""} { + set output [format $::whoisd(output_country) $word $::whoisd(data_country)]; + } else { + set output [format $::whoisd(output_timeout) $server $port $::whoisd(timeout)]; + } + whoisd:out $type $dest $nick $output; +} + + +### Loaded +putlog "whoisd.tcl $whoisd(ver) loaded"; + + +#EOF diff --git a/whoisd.tcl_old b/whoisd.tcl_old new file mode 100644 index 0000000..a747bc9 --- /dev/null +++ b/whoisd.tcl_old @@ -0,0 +1,155 @@ +#whoisd.tcl v1.0.2 by HM2K - domain whois and tld country lookup !whois and !tld + +### Description: +## I have tried a lot of existing domain whois scripts, none of them did what I wanted. +## So I decided to write my own, based on a similar script I wrote for mIRC. +## +### Usage: +## The whois command (!whoisd) offers the ability to check if domain is available or taken. +## The tld command (!tld) offers the ability to see which country owns an entered tld. +## The tld command is similar to the !country commands, however the tld uses live servers so is never outdated. +## The commands can also be triggered inside DCC, where all full domain whois records are displayed. +## +### Credits: +## thanks to #eggtcl @ EFnet for some pointers +## + +set whoisdver "1.0.2" + +#the dcc command - eg: whoisd +#set whoisd(cmd_dcc) "whoisd" + +#the pub command - eg: !whoisd +#set whoisd(cmd_pub) "!whoisd" + +#the dcc tld command - eg: tld +#set whoisd(cmd_tlddcc) "tld" + +#the pub tld command - eg: !tld +set whoisd(cmd_tldpub) "!tld" + +#flag required to use the script +set whoisd(flag) "-|-" + +#The main whois server - should not change +set whoisd(server) "whois.iana.org" + +#The default whois server port - should not change +set whoisd(port) "43" + +#server timeout - servers are quick, keep low +set whoisd(timeout) "5" + +#reply mode +#0 - Private message to the channel +#1 - Notice to the channel +#2 - Private message to the nick +#3 - Notice to the nick +set whoisd(rplmode) "0" + +#prefix on output +set whoisd(prefix) "whois:" +#set whoisd(prefix) "\002$::whoisd(prefix)\002" + +if {![string match 1.6.* $version]} { putlog "\002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." } +if {[info tclversion] < 8.2} { putlog "\002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." } + +#bind dcc $whoisd(flag) $whoisd(cmd_dcc) whoisd:dcc +#bind pub $whoisd(flag) $whoisd(cmd_pub) whoisd:pub +#bind dcc $whoisd(flag) $whoisd(cmd_tlddcc) whoisd:tlddcc +bind pub $whoisd(flag) $whoisd(cmd_tldpub) whoisd:tldpub + +#proc whoisd:dcc {hand idx text} { +# if {[string compare [set word [lrange [split $text] 0 0]] ""] == 0} { putdcc $idx "$::whoisd(prefix) Usage: .$::whoisd(cmd_dcc) " ; return } +# if {![regexp {^([a-zA-Z0-9]([a-zA-Z0-9\-]{0,61}[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6}$} $word]} { putdcc $idx "$::whoisd(prefix) Error: Invalid Domain." ; return } +# whoisd:connect 0 $idx {} $::whoisd(server) $::whoisd(port) $word +#} +#proc whoisd:pub {nick uhost hand chan text} { +# if {[string compare [set word [lrange [split $text] 0 0]] ""] == 0} { putserv "NOTICE $nick :$::whoisd(prefix) Usage: $::whoisd(cmd_pub) " ; return } +# if {![regexp {^([a-zA-Z0-9]([a-zA-Z0-9\-]{0,61}[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6}$} $word]} { putserv "NOTICE $nick :$::whoisd(prefix) Error: Invalid Domain." ; return } +# whoisd:connect 1 $chan $nick $::whoisd(server) $::whoisd(port) $word +#} +#proc whoisd:tlddcc {hand idx text} { +# if {[string compare [set word [lrange [split $text] 0 0]] ""] == 0} { putdcc $idx "$::whoisd(prefix) Usage: .$::whoisd(cmd_tlddcc) " ; return } +# if {[string index $word 0] != "."} { putdcc $idx "$::whoisd(prefix) Error: Invalid TLD." ; return } +# whoisd:connect 0 $idx {} $::whoisd(server) $::whoisd(port) $word +#} +proc whoisd:tldpub {nick uhost hand chan text} { + if {[string compare [set word [lrange [split $text] 0 0]] ""] == 0} { putserv "NOTICE $nick :$::whoisd(prefix) Usage: $::whoisd(cmd_tldpub) " ; return } + if {[string index $word 0] != "."} { set word ".$word" } + whoisd:connect 1 $chan $nick $::whoisd(server) $::whoisd(port) $word +} +proc whoisd:out {type dest nick text} { + if {[string length [string trim $text]] < 1} { return } + if {!$type} { putdcc $dest "$::whoisd(prefix) $text" ; return } + switch -- $::whoisd(rplmode) { + "0" { putserv "PRIVMSG $dest :$::whoisd(prefix) $text" } + "1" { putserv "NOTICE $dest :$::whoisd(prefix) $text" } + "2" { putserv "PRIVMSG $nick :$::whoisd(prefix) $text" } + "3" { putserv "NOTICE $nick :$::whoisd(prefix) $text" } + } +} +proc whoisd:connect {type dest nick server port word} { + if {[catch {socket -async $server $port} sock]} { whoisd:out $type $dest $nick "Error: Connection to $server:$port failed." ; return } + fileevent $sock writable [list whoisd:write $type $dest $nick $word $sock $server $port [utimer $::whoisd(timeout) [list whoisd:timeout $type $dest $nick $server $port $sock $word]]] +} +proc whoisd:write {type dest nick word sock server port timerid} { + if {[set error [fconfigure $sock -error]] != ""} { + whoisd:out $type $dest $nick "Connection to $::whoisd(server) failed." + whoisd:die $sock $timerid + return + } + set lookup $word + if {$server == $::whoisd(server)} { set lookup [lrange [split $word "."] end end] } + puts $sock "$lookup\n" + flush $sock + fconfigure $sock -blocking 0 + fileevent $sock readable [list whoisd:read $type $dest $nick $word $sock $server $port $timerid] + fileevent $sock writable {} +} +proc whoisd:read {type dest nick word sock server port timerid} { + while {![set error [catch {gets $sock output} read]] && $read > 0} { + if {$server == $::whoisd(server)} { + if {[regexp {(not found)} $output]} { + set output "Error: Invalid TLD." + whoisd:out $type $dest $nick $output + whoisd:die { $sock $timerid } + } + if {[string index $word 0] == "." || ![string match *.* $word]} { + if {[regexp {Country: (.*)$} $output -> country]} { + whoisd:out $type $dest $nick "$word is $country" + whoisd:die { $sock $timerid } + } + } + if {[regexp {Whois Server \(port (.*?)\): (.*)$} $output -> port server]} { + whoisd:connect $type $dest $nick $server $port $word + whoisd:die { $sock $timerid } + } + if {[regexp {URL for registration services: (.*)$} $output -> url]} { + #do nothing atm + } + } else { + if {[regexp -nocase {No match|not found|Invalid query|does not exist|no data found|status: avail|domain is available|(null)|no entries found|not registered|no objects found|domain name is not} $output]} { + whoisd:out $type $dest $nick "$word is available!" + whoisd:die $sock $timerid + } + } + if {!$type} { whoisd:out $type $dest $nick $output } + if {$error} { + whoisd:out $type $dest $nick "Error: Connection to server has been lost." + whoisd:die $sock $timerid + } + } +} +proc whoisd:die {sock timerid} { + catch { close $sock } + catch { killutimer $timerid } +} +proc whoisd:timeout {type dest nick server port sock word} { + catch { close $sock } + #whoisd:out $type $dest $nick "Connection to $server:$port timed out." + if {$server != $::whoisd(server)} { whoisd:out $type $dest $nick "$word is taken!" } +} + +putlog "whoisd.tcl $whoisdver loaded" + diff --git a/wiki.pl b/wiki.pl new file mode 100644 index 0000000..9f66204 --- /dev/null +++ b/wiki.pl @@ -0,0 +1,100 @@ +#!/usr/bin/perl + +#use strict; +#use warnings; +use Web::Scraper; +use URI; +use HTML::Entities; +use Encode; +use URI::Escape; +use LWP::UserAgent; + +my $scrap; + +my $lang = $ARGV[1]; +if (!$lang) { + $lang = "de"; +} +my $wikiurl = "http://$lang.wikipedia.org/wiki/Special:Search?search=$ARGV[0]&go=Go"; + +my $ua = new LWP::UserAgent; +my $req = HTTP::Request->new('GET', $wikiurl); +my $res = $ua->request($req); +my $url = $res->request->uri; +my $origurl = $url; +$url =~ s/.*\/wiki\///; + +binmode(STDOUT, ":utf8"); + +if ($url !~ m/Special:Search/) { +#artikel + + $scrap = scraper { + process '//div[@id="bodyContent"]/p', 'text[]' => 'TEXT'; + process '//img', 'img[]' => '@src'; + process '//div[@id="bodyContent"]/ul/li', 'list[]' => 'TEXT'; + process '//table/tr/td', 'table[]' => 'TEXT'; + }; + $url = URI->new($wikiurl); + + my $res = $scrap->scrape($url); + my $text = $res->{'text'}; + my $img = $res->{'img'}; + my $list = $res->{'list'}; + my $table = $res->{'table'}; + my $isDis = 0; + + if ($$table[1] !~ m/$ARGV[0]/i && $#$table == 1) { + foreach (@$img) { +#print "$_\n"; +# if ($_ =~ m/^http:\/\/upload\.wikimedia\.org\/wikipedia\/commons\/thumb\/.*\/.*\/Disambig/) { + if ($_ =~ m/Disambig/) { + $isDis = 1; + last; + } + } + } + if (!$isDis) { + $text = decode_entities($$text[0]); + $text =~ s/\([^\(\)]*\)||\[[^\[\]]*\]//g; + $text =~ s/\([^\(\)]*\)||\[[^\[\]]*\]//g; + $text =~ s/\([^\(\)]*\)||\[[^\[\]]*\]//g; + $text =~ s/\([^\(\)]*\)||\[[^\[\]]*\]//g; + $text =~ s/\s+/ /g; + $text =~ s/\s([,.\?!])/$1/g; + + if ($text =~ m/.{448}.*/) { + $text =~ s/^(.{448}).*$/$1/; + $text =~ s/^(.*[\.!\?])[^\.!\?]*$/$1 (...)/; + } + + print $text, "\n"; + } else { + for ($count = 0; $count < 3 && $count <= $#$list; $count++) { + print "$$list[$count]\n"; + } + print "For more see $origurl\n"; + } + +} else { +#kein artikel + + $scrap = scraper { + process '//div[@class="searchresult"]', 'text[]' => 'TEXT'; + process '//ul[@class="mw-search-results"]/li/div/a', 'href[]' => '@href'; + }; + $url = URI->new($wikiurl); + + my $res = $scrap->scrape($url); + if (keys(%$res)) { + my $text = $res->{'text'}; + my $href = $res->{'href'}; + my $result = ""; + for ($count = 0; $count < 5 && $count <= $#$text; $count++) { + $result = ($result?"$result || ":"").$$href[$count], "\n"; + } + print "$result\n"; + } else { + print "No matches with $ARGV[0]\n"; + } +} diff --git a/wiki.pl.down b/wiki.pl.down new file mode 100644 index 0000000..f2e4587 --- /dev/null +++ b/wiki.pl.down @@ -0,0 +1,3 @@ +#!/usr/bin/perl + +print "wikipedia down!\n"; diff --git a/wiki.tcl b/wiki.tcl new file mode 100644 index 0000000..deb98da --- /dev/null +++ b/wiki.tcl @@ -0,0 +1,50 @@ +# lastseen by xeno + +bind pub - !wiki wiki +bind pub - !ewiki ewiki +#bind pub - !say say +bind pub - !google say + +proc say {nick host hand chan arg} { +# putserv "PRIVMSG $chan :$arg"; +# putserv "PRIVMSG $chan :das hier ist [string trimleft $chan #]"; +} + +proc wiki {nick host hand chan arg} { + global do_wiki + if {[info exists do_wiki($nick:$chan)]} { + putserv "NOTICE $nick :no flooding!" + return 0; + } + set do_wiki($nick:$chan) 1 + timer 1 "unset do_wiki($nick:$chan)" + set arg [string trim $arg] +if {$arg == ""} { + return 0 +} + + set output [split "[exec perl /home/eggdrop/eggdrop/scripts/wiki.pl \"$arg\" de]" "\n"] + foreach out $output { + putserv "PRIVMSG $chan :$out"; + } +} + +proc ewiki {nick host hand chan arg} { + global do_wiki + if {[info exists do_wiki($nick:$chan)]} { + return 0; + } + set do_wiki($nick:$chan) 1 + timer 1 "unset do_wiki($nick:$chan)" + set arg [string trim $arg] +if {$arg == ""} { + return 0 +} + + set output [split "[exec perl /home/eggdrop/eggdrop/scripts/wiki.pl $arg en]" "\n"] + foreach out $output { + putserv "PRIVMSG $chan :$out"; + } +} + +putlog "wiki by lookshe loaded" diff --git a/wiki2.pl b/wiki2.pl new file mode 100644 index 0000000..e42f65a --- /dev/null +++ b/wiki2.pl @@ -0,0 +1,100 @@ +#!/usr/bin/perl + +#use strict; +#use warnings; +use Web::Scraper; +use URI; +use HTML::Entities; +use Encode; +use URI::Escape; +use LWP::UserAgent; + +my $scrap; + +my $lang = $ARGV[1]; +if (!$lang) { + $lang = "de"; +} +my $wikiurl = "http://$lang.wikipedia.org/wiki/Special:Search?search=$ARGV[0]&go=Go"; + +my $ua = new LWP::UserAgent; +my $req = HTTP::Request->new('GET', $wikiurl); +my $res = $ua->request($req); +my $url = $res->request->uri; +my $origurl = $url; +$url =~ s/.*\/wiki\///; + +binmode(STDOUT, ":utf8"); + +if ($url !~ m/Special:Search/) { +#artikel + + $scrap = scraper { + process '//div[@id="bodyContent"]/p', 'text[]' => 'TEXT'; + process '//img', 'img[]' => '@src'; + process '//div[@id="bodyContent"]/ul/li', 'list[]' => 'TEXT'; + process '//table/tr/td', 'table[]' => 'TEXT'; + }; + $url = URI->new($wikiurl); + + my $res = $scrap->scrape($url); + my $text = $res->{'text'}; + my $img = $res->{'img'}; + my $list = $res->{'list'}; + my $table = $res->{'table'}; + my $isDis = 0; + + if ($$table[1] !~ m/$ARGV[0]/i && $#$table == 1) { + foreach (@$img) { +#print "$_\n"; + if ($_ =~ m/Disambig/) { + $isDis = 1; + last; + } + } + } + if (!$isDis) { + $text = decode_entities($$text[0]); + $text =~ s/\([^\(\)]*\)||\[[^\[\]]*\]//g; + $text =~ s/\([^\(\)]*\)||\[[^\[\]]*\]//g; + $text =~ s/\([^\(\)]*\)||\[[^\[\]]*\]//g; + $text =~ s/\([^\(\)]*\)||\[[^\[\]]*\]//g; + $text =~ s/\s+/ /g; + $text =~ s/\s([,.\?!])/$1/g; + + if ($text =~ m/.{448}.*/) { + $text =~ s/^(.{448}).*$/$1/; + $text =~ s/^(.*[\.!\?])[^\.!\?]*$/$1 (...)/; + } + + print $text, "\n"; + } else { + for ($count = 0; $count < 3 && $count <= $#$list; $count++) { + print "$$list[$count]\n"; + } + print "For more see $origurl\n"; + } + +} else { +#kein artikel + + $scrap = scraper { + process '//div[@class="searchresult"]', 'text[]' => 'TEXT'; + process '//ul[@class="mw-search-results"]/li/a', 'href[]' => '@href'; + }; + $url = URI->new($wikiurl); + + my $res = $scrap->scrape($url); + if (keys(%$res)) { + my $text = $res->{'text'}; + my $href = $res->{'href'}; + my $result = ""; + + for ($count = 0; $count < 5 && $count <= $#$text; $count++) { + $result = ($result?"$result || ":"").$$href[$count], "\n"; + } + print "$result\n"; + } else { + print "No matches with $ARGV[0]\n"; + } +} -- cgit v1.2.3