butler 1.8.0

data/data/butler/dialogs/interactive.rb

@@ -0,0 +1 @@
+response(:context, "notyetimplemented", :feature => "Interactive Mode")

data/data/butler/dialogs/list.rb

@@ -0,0 +1,10 @@
+user_config = variables.botcontrol.user_config(variables.user)
+bot_list    = Butler.list(user_config)
+if bot_list.empty? then
+	say(:nobots)
+else
+	say(:bots, :bot_count => bot_list.size)
+	bot_list.each { |bot|
+		say(:abot, :bot => bot)
+	}
+end

data/data/butler/dialogs/notyetimplemented.rb

@@ -0,0 +1 @@
+say(:notyetimplemented)

data/data/butler/dialogs/rename.rb

@@ -0,0 +1,4 @@
+old_name = variables.botname || context("selectbot")[:botname]
+new_name = variables.newname || ask(:new_name, nil, String, :matching => /\A[A-Za-z0-9_]+\z/)
+Butler.rename(nil, old_name, new_name)
+say(:renamed, :old_name => old_name, :new_name => new_name)

data/data/butler/dialogs/selectbot.rb

@@ -0,0 +1,2 @@
+# FIXME implement the question
+response(:option, :botname, :value)

data/data/butler/dialogs/start.rb

@@ -0,0 +1,5 @@
+if Process.euid.zero? then
+	say(:discourage)
+	sleep(10)
+end
+store(:botname, variables.botname || context("selectbot")[:botname])

data/data/butler/dialogs/sync_plugins.rb

@@ -0,0 +1,30 @@
+bots          = variables.botname ? [variables.botname] : Butler.list(variables.path)
+bots_path     = variables.path.bots
+dirlist       = Dir[variables.path.plugin_repository+"/**/*"]
+dirs, plugins = dirlist.partition { |filepath| File.directory?(filepath) }
+slice         = (variables.path.plugin_repository.length+1)..-1
+dirs.map! { |dir| dir[slice] }
+plugins.map! { |plugin| [plugin, plugin[slice], File.mtime(plugin)] }
+
+bots.each   { |name|
+	say(:updating, :name => name)
+	bot_path = "#{bots_path}/#{name}"
+	FileUtils.mkdir_p(dirs.map { |dir| "#{bot_path}/plugins/#{dir}" }, :mode => 0755)
+	plugins.each { |from, to, mtime|
+		full_to = "#{bot_path}/plugins/#{to}"
+		if File.exist?(full_to) then
+			if mtime > File.mtime(full_to) then
+				next unless prompt(:override_newer, true,
+					:name => to,
+					:a    => File.mtime(full_to),
+					:b    => mtime
+				)
+			end
+			#puts("Deleting #{full_to}")
+			File.delete(full_to)
+		end
+		#puts("Copying #{from} to #{full_to}")
+		FileUtils.cp(from, "#{full_to}")
+	}
+}
+		

data/data/butler/dialogs/uninstall.rb

@@ -0,0 +1,17 @@
+unless ENV["SUDO_USER"]
+	say(:must_run_as_sudo)
+else
+	variables.config.users.sort.each { |user, conf|
+		if prompt(:uninstall_user, false, :name => user) then
+			FileUtils.rm_r(conf[:bots])
+			FileUtils.rm_r(conf[:run])
+		end
+	}
+	if Butler::IsGem then
+		say(:run_gem_uninstall)
+	else
+		say(:uninstalling_botcontrol)
+		File.delete($0)
+		File.delete(variables.path.config)
+	end
+end

data/data/butler/dialogs/unknown_command.rb

@@ -0,0 +1 @@
+say(:unknown)

data/data/butler/plugins/core/logout.rb

@@ -0,0 +1,41 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+trigger "logout"
+
+def on_trigger
+	if @butler.access.default_user == @message.from.access then
+		answer(:not_logged_in)
+	else
+		@message.from.access = @butler.access.default_user
+		answer(:success)
+	end
+end
+
+__END__
+--- 
+:revision:
+  :plugin: 1
+:summary:
+  en: "Log out from the bot"
+:about:
+  :mail: "apeiros@gmx.net"
+  :version: "1.0.0"
+  :author: "Stefan Rusterholz"
+:strings:
+  :success:
+    en: "You are now logged out."
+  :not_logged_in:
+    en: "You are not logged in, can't log you out."
+:usage:
+  en: "![b]logout![o]"
+:help:
+  en:
+    "": |
+      Using 'logout' you can log out from the bot.
+      Use it in order to prevent other people from abusing your account while you are not on your computer.

data/data/butler/plugins/core/plugins.rb

@@ -0,0 +1,134 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+require 'ruby/array/columnize'
+
+#trigger "plugins"
+
+def on_load_plugin(param)
+	if plugin_name = @butler.plugins.identify(param.plugin_name) then
+		begin
+			@butler.plugins.load(plugin_name)
+			answer(:load, :plugin_name => plugin_name)
+		rescue Exception => e
+			exception(e)
+			answer(:exception_load, :plugin_name => plugin_name, :exception => e)
+		end
+	else
+		answer(:unknown, :plugin_name => param.plugin_name)
+	end
+end
+
+def on_unload_plugin(param)
+	if plugin_name = @butler.plugins.identify(param.plugin_name) then
+		begin
+			@butler.plugins.unload(plugin_name)
+			answer(:unload, :plugin_name => plugin_name)
+		rescue Exception => e
+			exception(e)
+			answer(:exception_unload, :plugin => plugin_name, :exception => e)
+		end
+	else
+		answer(:unknown, :plugin_name => param.plugin_name)
+	end
+end
+
+def on_list_plugins(param)
+	return answer(usage) unless %w(active inactive all).include?(param.which)
+	plugins = @butler.plugins.send(param.which).sort.columnize(5)
+	answer(param.which.to_sym, :plugins => plugins)
+end
+
+# 37
+def on_trigger
+	case @message.arguments[1]
+		when nil
+			answer(usage)
+
+		when "groups"
+			return answer(unknown(2)) if @message.arguments[2]
+			groups = @butler.plugins.groups.sort.columnize(5)
+			answer(:groups, :groups => groups)
+
+		when "names"
+			return answer(unknown(2)) if @message.arguments[2]
+			names = @butler.plugins.all.sort.columnize(5)
+			answer(:names, :names => names)
+			
+		when "active"
+
+
+		else
+			unknown(1)
+	end
+end
+
+__END__
+--- 
+:revision:
+  :plugin: 2
+:summary:
+  en: Plugin management
+:about:
+  :mail: "apeiros@gmx.net"
+  :version: "1.0.0"
+  :author: "Stefan Rusterholz"
+:map:
+  :on_load_plugin:
+    en:
+      load plugin :plugin_name
+  :on_unload_plugin:
+    en:
+      unload plugin :plugin_name
+  :on_list_plugins:
+    en:
+      list :which plugins
+:strings:
+  :groups:
+    en: |
+      Plugin-Groups:
+      <%= groups %>
+  :names:
+    en: |
+      Plugin-Names:
+      <%= groups %>
+  :active:
+    en: |
+      Active plugins:
+      <%= plugins %>
+  :inactive:
+    en: |
+      Inactive plugins:
+      <%= plugins %>
+  :all:
+    en: |
+      All plugins:
+      <%= plugins %>
+  :load:
+    en: Loaded '<%= plugin_name %>'.
+  :unload:
+    en: Unloaded '<%= plugin_name %>'.
+  :unknown:
+    en: Unknown plugin '<%= plugin_name %>'.
+  :exception_load:
+    en: |
+      An exception occured while loading '<%= plugin_name %>':
+      <%= exception %> in <%= exception.backtrace.first.sub(/.*?(lib|butler)/, '\1') %>
+  :exception_unload:
+    en: |
+      An exception occured while unloading '<%= plugin_name %>':
+      <%= exception %> in <%= exception.backtrace.first.sub(/.*?(lib|butler)/, '\1') %>
+
+:usage:
+  en: |
+    'load plugin' ![c(blue)]name![o]
+    'unload plugin' ![c(blue)]name![o]
+    'list' [![c(blue)]type![o]] 'plugins' 
+:help:
+  en:
+    "": "Plugins is responsible for loading, unloading and listing available plugins."

data/data/butler/plugins/core/privilege.rb

@@ -0,0 +1,103 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+trigger "privilege"
+
+def on_trigger
+	case @message.arguments[1] && @message.arguments[1].downcase
+		when "create"
+			name, pass, active = @message.arguments[2,3]
+			active = active && !%(false off).include?(active.downcase)
+			return answer(usage) unless name and pass
+			if @butler.access.user.exists?(name) then
+				answer(:exists, :name => name)
+			else
+				@butler.access.user.create(name, pass, nil, false, :active => active)
+				answer(:created, :name => name)
+			end
+
+		when "delete"
+			return answer(usage) unless name = @message.arguments[2]
+			if @butler.access.user.exists?(name) then
+				@butler.access.user.delete(name)
+				answer(:deleted)
+			else
+				answer(:doesnt_exist, :name => name)
+			end
+
+		when "activate"
+			return answer(usage) unless name = @message.arguments[2]
+			if @butler.access.user.exists?(name) then
+				@butler.access.user[name].activate
+				answer(:activated)
+			else
+				answer(:doesnt_exist, :name => name)
+			end
+
+		when "deactivate"
+			return answer(usage) unless name = @message.arguments[2]
+			if @butler.access.user.exists?(name) then
+				@butler.access.user[name].deactivate
+				answer(:deactivated)
+			else
+				answer(:doesnt_exist, :name => name)
+			end
+		
+		when "list"
+			answer(:users, :names => @butler.access.user.keys.columnize(5))
+
+		when "add"
+			
+
+		when "remove"
+		
+		else
+			answer(usage)
+
+	end
+end
+
+__END__
+--- 
+:revision:
+  :plugin: 1
+:summary:
+  en: "Manage your users."
+:about:
+  :mail: "apeiros@gmx.net"
+  :version: "1.0.0"
+  :author: "Stefan Rusterholz"
+:strings:
+  :users:
+    en: |
+      Users:
+      <%= names %>
+  :created:
+    en: |
+      Created user <%= name %>.
+  :deleted:
+    en: |
+      Deleted user <%= name %>.
+  :activated:
+    en: |
+      Activated user <%= name %>.
+  :deactivated:
+    en: |
+      Deactivated user <%= name %>.
+  :exists:
+    en: |
+      User <%= name %> exists already.
+  :doesnt_exist:
+    en: |
+      User <%= name %> does not exist.
+:usage:
+  en: "![b]user![o] ('create' name password ['active' | 'inactive'] | ('delete' | 'activate' | 'deactivate') username | ('add' | 'remove') privilege)"
+:help:
+  en:
+    "": |
+      Manage your users.

data/data/butler/plugins/core/user.rb

@@ -0,0 +1,166 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+trigger "user"
+
+def on_trigger
+	case arguments(1)
+		when "create"
+			name, pass, active = @message.arguments[2,3]
+			active = active && !%(false off).include?(active.downcase)
+			return answer(usage) unless name and pass
+			if @butler.access.user.exists?(name) then
+				answer(:exists, :name => name)
+			else
+				@butler.access.user.create(name, pass, nil, false, :active => active)
+				answer(:created, :name => name)
+			end
+
+		when "delete"
+			return answer(usage) unless name = @message.arguments[2]
+			if @butler.access.user.exists?(name) then
+				@butler.access.user.delete(name)
+				answer(:deleted)
+			else
+				answer(:doesnt_exist, :name => name)
+			end
+
+		when "activate"
+			return answer(usage) unless name = @message.arguments[2]
+			if @butler.access.user.exists?(name) then
+				@butler.access.user[name].activate
+				answer(:activated)
+			else
+				answer(:doesnt_exist, :name => name)
+			end
+
+		when "deactivate"
+			return answer(usage) unless name = @message.arguments[2]
+			if @butler.access.user.exists?(name) then
+				@butler.access.user[name].deactivate
+				answer(:deactivated)
+			else
+				answer(:doesnt_exist, :name => name)
+			end
+		
+		when "list"
+			answer(:users, :names => @butler.access.user.keys.columnize(5))
+
+		when "privileges"
+			return answer(usage) unless name = @message.arguments[2]
+			return answer(:doesnt_exist, :name => name) unless user = @butler.access.user[name]
+			answer(:privileges, :name => name, :privileges => user.privileges.list.keys.columnize(5))
+
+		when "roles"
+			return answer(usage) unless name = @message.arguments[2]
+			return answer(:doesnt_exist, :name => name) unless user = @butler.access.user[name]
+			answer(:roles, :name => name, :roles => user.roles.map { |r| r.id }.columnize(5))
+
+		when "add"
+			return answer(usage) unless name = @message.arguments[3] and @message.arguments[4]
+			return answer(:doesnt_exist, :name => name) unless user = @butler.access.user[name]
+			case arguments(2)
+				when "privilege"
+					user.privileges.add(@message.arguments[4])
+					answer(:added_privilege, :name => name, :privilege => @message.arguments[4])
+					
+				when "role"
+					role_name = @message.arguments[4]
+					answer(:role_doesnt_exist, :role => role_name) unless role = @butler.access.role[role_name]
+					user.roles.add(role)
+					answer(:added_role, :name => name, :role => role_name)
+				
+				else
+					answer(usage)
+
+			end
+
+		when "remove"
+			return answer(usage) unless name = @message.arguments[3] and @message.arguments[4]
+			return answer(:doesnt_exist, :name => name) unless user = @butler.access.user[name]
+			case arguments(2)
+				when "privilege"
+					user.privileges.remove(@message.arguments[4])
+					answer(:removed_privilege, :name => name, :privilege => @message.arguments[4])
+					
+				when "role"
+					role_name = @message.arguments[4]
+					answer(:role_doesnt_exist, :role => role_name) unless role = @butler.access.role[role_name]
+					user.roles.remove(role)
+					answer(:removed_role, :name => name, :role => role_name)
+				
+				else
+					answer(usage)
+
+			end
+		
+		else
+			answer(usage)
+
+	end
+end
+
+__END__
+--- 
+:revision:
+  :plugin: 1
+:summary:
+  en: "Manage your users."
+:about:
+  :mail: "apeiros@gmx.net"
+  :version: "1.0.0"
+  :author: "Stefan Rusterholz"
+:strings:
+  :exists:
+    en: |
+      User <%= name %> exists already.
+  :doesnt_exist:
+    en: |
+      User <%= name %> does not exist.
+  :users:
+    en: |
+      Users:
+      <%= names %>
+  :privileges:
+    en: |
+      Privileges of <%= name %>:
+      <%= privileges %>
+  :roles:
+    en: |
+      Roles of <%= name %>:
+      <%= roles %>
+  :created:
+    en: |
+      Created user <%= name %>.
+  :deleted:
+    en: |
+      Deleted user <%= name %>.
+  :activated:
+    en: |
+      Activated user <%= name %>.
+  :deactivated:
+    en: |
+      Deactivated user <%= name %>.
+  :added_privilege:
+    en: |
+      Added privilege <%= privilege %> to <%= name %>.
+  :removed_privilege:
+    en: |
+      Removed privilege <%= privilege %> from <%= name %>.
+  :added_role:
+    en: |
+      Added role <%= role %> to <%= name %>.
+  :removed_role:
+    en: |
+      Removed role <%= role %> from <%= name %>.
+:usage:
+  en: "![b]user![o] ('create' name password ['active' | 'inactive'] | ('delete' | 'activate' | 'deactivate') username | ('add' | 'remove') privilege)"
+:help:
+  en:
+    "": |
+      Manage your users.