bin/rbot

   1 #!/usr/bin/env ruby
   2
   3 # Copyright (C) 2002 Tom Gilbert.
   4 #
   5 # Permission is hereby granted, free of charge, to any person obtaining a copy
   6 # of this software and associated documentation files (the "Software"), to
   7 # deal in the Software without restriction, including without limitation the
   8 # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
   9 # sell copies of the Software, and to permit persons to whom the Software is
  10 # furnished to do so, subject to the following conditions:
  11 #
  12 # The above copyright notice and this permission notice shall be included in
  13 # all copies of the Software and its documentation and acknowledgment shall be
  14 # given in the documentation and software packages that this Software was
  15 # used.
  16 #
  17 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  18 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  19 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  20 # THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
  21 # IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  22 # CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  23
  24 $VERBOSE=true
  25
  26 require 'getoptlong'
  27 require 'rbot/ircbot'
  28
  29 $debug = true
  30 $version="0.9.8"
  31 $opts = Hash.new
  32
  33 # print +message+ if debugging is enabled
  34 def debug(message=nil)
  35   print "DEBUG: #{message}\n" if($debug && message)
  36   #yield
  37 end
  38
  39 opts = GetoptLong.new(
  40   [ "--debug", "-d", GetoptLong::NO_ARGUMENT ],
  41   [ "--help",  "-h", GetoptLong::OPTIONAL_ARGUMENT ]
  42 )
  43
  44 opts.each {|opt, arg|
  45   $debug = true if(opt == "--debug")
  46   $opts[opt.sub(/^-+/, "")] = arg
  47 }
  48
  49 botclass = ARGV.shift
  50 botclass = "rbotconf" unless(botclass);
  51
  52 unless FileTest.directory? botclass
  53   # TODO copy in samples/templates from install directory
  54 end
  55
  56 if(bot = Irc::IrcBot.new(botclass))
  57   if($opts["help"])
  58     puts bot.help($opts["help"])
  59   else
  60     # run the bot
  61     bot.mainloop
  62   end
  63 end
  64