# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+# Most of the string processing across rbot is done against IRC messages, which
+# do not have a well-defined encoding. Although many clients are now using
+# UTF-8, there is no guarantee that an arbitrary string received from IRC will
+# be UTF-8 encoded. We have to force ASCII (byte-wise/charset agnostic)
+# matching because otherwise some strings can give problems: in particular, for
+# example, the bytesequence "\340\350\354\362\371" (that is the aeiou vowels,
+# each with a grave accent) will cause the string to be considered up to the
+# "\354" (i with grave accent) only: so either the rest of the message is
+# ignored, or the matching fails.
+$KCODE = 'a'
+
$VERBOSE=true
require 'etc'
require 'getoptlong'
-require 'rbot/ircbot'
+require 'fileutils'
-$debug = true
-$version="0.9.8"
+$version="0.9.11-svn"
$opts = Hash.new
-# print +message+ if debugging is enabled
-def debug(message=nil)
- print "DEBUG: #{message}\n" if($debug && message)
- #yield
+if $version =~ /svn/
+ if defined?(SVN_DIR) and File.exists?(File.join(SVN_DIR, '.git'))
+ $version.sub!('svn', 'git')
+ else
+ up = File.dirname(__FILE__) + "/.."
+ rev = " (unknown revision)"
+ begin
+ svn_out = `svn info #{up}`
+ if svn_out =~ /Last Changed Rev: (\d+)/
+ rev = " (revision #{$1}"
+ end
+ svn_st = `svn st #{up}`
+ if svn_st =~ /^[MDA] /
+ rev << ", local changes"
+ end
+ rev << ")"
+ rescue => e
+ puts e.inspect
+ end
+ $version += rev
+ end
end
+orig_opts = ARGV.dup
+
opts = GetoptLong.new(
- [ "--debug", "-d", GetoptLong::NO_ARGUMENT ],
- [ "--help", "-h", GetoptLong::OPTIONAL_ARGUMENT ]
+ ["--background", "-b", GetoptLong::NO_ARGUMENT],
+ ["--debug", "-d", GetoptLong::NO_ARGUMENT],
+ ["--help", "-h", GetoptLong::NO_ARGUMENT],
+ ["--loglevel", "-l", GetoptLong::REQUIRED_ARGUMENT],
+ ["--trace", "-t", GetoptLong::REQUIRED_ARGUMENT],
+ ["--pidfile", "-p", GetoptLong::REQUIRED_ARGUMENT],
+ ["--version", "-v", GetoptLong::NO_ARGUMENT]
)
+$debug = false
+$daemonize = false
+
opts.each {|opt, arg|
$debug = true if(opt == "--debug")
+ $daemonize = true if(opt == "--background")
$opts[opt.sub(/^-+/, "")] = arg
}
-botclass = ARGV.shift
-user = Etc.getlogin
-botclass = "/home/#{user}/.rbot" unless(botclass);
-
-unless FileTest.directory? botclass
- # TODO copy in samples/templates from install directory
- puts "no #{botclass} directory found, creating from templates.."
- # copy DATA/rbot/templates to botclass
+$cl_loglevel = $opts["loglevel"].to_i if $opts["loglevel"]
+if ($opts["trace"])
+ set_trace_func proc { |event, file, line, id, binding, classname|
+ if classname.to_s == $opts["trace"]
+ printf "TRACE: %8s %s:%-2d %10s %8s\n", event, File.basename(file), line, id, classname
+ end
+ }
end
-if(bot = Irc::IrcBot.new(botclass))
- if($opts["help"])
- puts bot.help($opts["help"])
- else
- # run the bot
- bot.mainloop
+defaultlib = File.expand_path(File.dirname($0) + '/../lib')
+
+if File.directory? "#{defaultlib}/rbot"
+ unless $:.include? defaultlib
+ $:.unshift defaultlib
end
end
+
+begin
+ require 'rbot/ircbot'
+rescue LoadError => e
+ puts "Error: couldn't find the rbot/ircbot module (or one of its dependencies)\n"
+ puts e
+ exit 2
+end
+
+if ($opts["version"])
+ puts "rbot #{$version}"
+ exit 0
+end
+
+if ($opts["help"])
+ puts "usage: rbot [options] [config directory]"
+ puts " -h, --help this message"
+ puts " -v, --version version information"
+ puts " -d, --debug enable debug messages"
+ puts " -b, --background background (daemonize) the bot"
+ puts " -p, --pidfile write the bot pid to this file"
+ puts "config directory defaults to ~/.rbot"
+ exit 0
+end
+
+if(bot = Irc::Bot.new(ARGV.shift, :argv => orig_opts))
+ # just run the bot
+ bot.mainloop
+end