sugoi-mail 0.0.0 → 0.0.1

data/app/controllers/commandline_controller.rb

@@ -3,8 +3,9 @@ require 'highline/import'
 # Controller for command line thingies
 class CommandlineController < ApplicationController
     def perform_action
-        if self.class.action_methods.include?(action_name.to_s) || self.class.action_methods.include?('method_missing')
-            send(action_name,*params["args"])
+        if self.class.action_methods.include?(action_name.to_s) || 
+           self.class.action_methods.include?('method_missing')
+            @exitcode = send(action_name,*params["args"]) || 0
             render unless performed?
         elsif template_exists? && template_public?
             render

data/app/controllers/sugoi_admin_controller.rb

@@ -12,10 +12,27 @@ class SugoiAdminController < CommandlineController
 
     def format_errors errors
         errors.map do |facility, text|
-            @messages << "#{facility}: #{text}"
+            "    #{facility}: #{text}\n"
         end
     end
 
+    def error(error_text)
+        callername = caller[0].gsub(/.*\`(\w+)\'.*/, '\1')
+        @error = "#{callername}: #{error_text}"
+    end
+
+    def message(message_text)
+        callername = caller[0].gsub(/.*\`(\w+)\'.*/, '\1')
+        @messages ||= []
+        @messages << "#{callername}: #{message_text}"
+    end
+
+    def ask_description(thing)
+        description = ask "Description for #{thing}: "
+        if description == "" then description = nil end
+        description
+    end
+
     public
 
     def list_domains
@@ -23,8 +40,12 @@ class SugoiAdminController < CommandlineController
     end
 
     def list_mailinglists(domain_name)
-        @domain = Domain.find_by_name domain_name
-        @mailinglists = Mailinglist.find :all
+        domain = Domain.find_by_name(domain_name)
+        if domain then
+            @mailinglists = domain.mailinglists
+        else
+            error "#{domain_name}: not found"
+        end
     end
 
     def list_addresses(mailinglist_address)
@@ -33,12 +54,12 @@ class SugoiAdminController < CommandlineController
             @mailinglist=@mailinglist[0]
             @addresses = @mailinglist.addresses
         else
-            @addresses = []
+            error "#{mailinglist_address}: not found"
         end
     end
 
     def create_domain(domain_name)
-        @message = []
+        @messages = []
 
         domain = Domain.find_by_name domain_name
         if domain == nil then
@@ -48,29 +69,29 @@ class SugoiAdminController < CommandlineController
             domain.password = password
             domain.password_confirmation = confirmation
             if domain.save then
-                @message = [ "Domain \"#{domain_name}\" created successfully" ]
+                message "Domain \"#{domain_name}\" created successfully."
             else
-                format_errors domain.errors
+                error "Could not create domain \"#{domain_name}\":\n" +
+                    format_errors(domain.errors).join
             end
         else 
-            @message = [ "Domain \"#{domain_name}\" already exists." ]
+            error "Domain \"#{domain_name}\" already exists."
         end
     end
 
-    def create_user domain_name, username, email_address = nil, description = nil
+    def create_user domain_name, username, 
+                    email_address = nil, 
+                    description = nil
         domain = Domain.find_by_name domain_name
         if domain then
-            password, confirmation = get_password
+            password, password_confirmation = get_password
 
             if email_address == nil then
                 email_address = ask "Address to forward #{username}'s email to: "
                 if email_address == "" then email_address = nil end
             end
 
-            if description == nil then
-                description = ask "Description for #{username}: "
-                if description == "" then description = nil end
-            end
+            description ||= ask_description(username)
 
             user = User.new
             user.domain = domain
@@ -79,15 +100,118 @@ class SugoiAdminController < CommandlineController
             user.password_confirmation = password_confirmation
             user.description = description
             if user.save then
-                @message = [ "User \"#{username}@#{domain_name}\" created successfully" ]
+                message "User \"#{username}@#{domain_name}\" created successfully"
                 if email_address then
-                    user.addresses << email_address
+                    addr=Address.find_or_create_by_address(email_address)
+                    user.addresses << addr
+                end
+            else
+                error "User \"#{username}@#{domain_name}\" was not created:\n" + 
+                    format_errors(user.errors).join("\n")
+            end
+        else
+            error "Domain \"#{domain_name}\" does not exist."
+        end
+    end
+
+    def list_users domain_name
+        domain = Domain.find_by_name domain_name
+        if domain then
+            @users = User.find_all_by_domain_id domain.id
+        else
+            error "Domain \"#{domain_name}\" does not exist."
+        end
+    end
+
+    def list_mailinglist_classes
+        @mailinglist_classes = MailinglistClass.find :all, :order => :id
+    end
+
+    def list_mlclasses
+        list_mailinglist_classes
+        render "sugoi_admin/list_mailinglist_classes"
+    end
+
+    def help_list_mailinglist_classes
+        usage "list_mailinglist_classes",
+              "Outputs a list of mailing list classes defined"
+    end
+
+    alias help_list_mlclasses help_list_mailinglist_classes
+
+    def create_mailing_list mailinglist_class_id, mailinglist_name, 
+        domain_name, user_name, description = nil
+
+        mlclass = begin 
+                      MailinglistClass.find mailinglist_class_id.to_i
+                  rescue ActiveRecord::RecordNotFound
+                      nil
+                  end
+        if mlclass then
+            domain = Domain.find_by_name domain_name 
+            if domain then
+                user = User.find_by_login_and_domain_id user_name, domain.id 
+                if user then
+                    ml=Mailinglist.new
+                    ml.user = user
+                    ml.description = description
+                    ml.mailinglist_class = mlclass
+                    ml.name = mailinglist_name
+                    if ml.save then
+                        message "Mailing list \"#{ml.address}\" created successfully."
+                    end
+                else
+                    error "User \"#{user_name}\" not found in domain \"#{domain_name}\"."
                 end
             else
-                format_errors
+                error "Domain \"#{domain_name}\" not found."
             end
         else
-            @message = [ "domain: Domain \"#{domain.name}\" doesn't exist." ]
+            error "Invalid mailing list class: #{mailinglist_class_id}"
+        end
+    end
+
+    def subscribe(mailinglist_address, new_address)
+       address=Address.find_or_create_by_address new_address
+       ml=Mailinglist.find_by_address(mailinglist_address)
+       unless ml
+           error "Mailing list \"#{mailinglist_address}\" does not exist!"
+           return
+       end
+       ml=ml[0]
+       ml.addresses << address
+       message "Subscribed \"#{new_address}\" to \"#{mailinglist_address}\"" 
+    end
+
+    def help_create_mailing_list
+        usage "create_mailing_list <mailinglist_class_id> <mailinglist_name> " +
+              "<domain_name> <user_name> [<description>]", 
+              "Creates a mailing list of class <mailinglist_class_id> ("
+              "use list_mailinglist_classes to see the available mailing "+
+              "list classes) named <mailinglist_name> in domain "+ 
+              "<domain_name> owned by the user named <user_name>"
+    end
+
+    def unsubscribe(mailinglist_address, address_to_remove)
+        address = Address.find_by_address address_to_remove
+        unless address
+            error "Address \"#{address_to_remove}\" unknown."
+            return
         end
+
+        mailinglist = Mailinglist.find_by_address mailinglist_address
+        unless mailinglist
+            error "Mailing list \"#{mailinglist_address}\" does not exist."
+            return
+        end
+
+        @mailinglist = mailinglist[0]
+
+        unless @mailinglist.addresses.member? address
+            error "Address \"#{address}\" not in mailing list \"#{mailinglist_address}\""
+            return
+        end
+
+        @removed_addresses=@mailinglist.remove_addresses address
     end
 end

data/app/models/domain.rb

@@ -18,6 +18,7 @@ class Domain < ActiveRecord::Base
     # First of all, email address stuff
     #----------------------------------------
     has_many :users
+    has_many :mailinglists, :through => :users
 
     # Please change the salt to something else, 
     # Every application should use a different one 

data/app/models/user.rb

@@ -52,15 +52,23 @@ class User < ActiveRecord::Base
     # The user's "description"--if the user's a person, this would be
     # their real name.
     def description
-        mailinglist.description 
+        if new_record?
+            @description
+        else
+            mailinglist.description 
+        end
     end
 
     # Change the user's description.  (Actually changes the user's
     # Mailinglist's description.)
     def description=(new_description)
-        m=mailinglist
-        m.description = new_description
-        m.save
+        if new_record?
+            @description = new_description
+        else
+            m=mailinglist
+            m.description = new_description
+            m.save
+        end
     end
 
     # Please change the salt to something else, 
@@ -102,6 +110,9 @@ class User < ActiveRecord::Base
         ml.name=self.login
         ml.user_id=self.id
         ml.mailinglist_class=MailinglistClass.find 1
+        if @description then
+            ml.description = @description
+        end
         if ml.save then
             self.mailinglist=ml
             return true

data/app/views/sugoi_admin/create_domain.rhtml

@@ -1 +1 @@
-<% @message.each do |message| %><%= message.chomp+"\n" %><% end %>
+<% @messages.each do |message| %><%= message.chomp+"\n" %><% end %>

data/app/views/sugoi_admin/create_mailing_list.rhtml

@@ -0,0 +1,2 @@
+<% if @error then %><%= @error %><% else %><% @messages.each do |message| %><%= message %>
+<% end; end %>

data/app/views/sugoi_admin/create_user.rhtml

@@ -0,0 +1 @@
+<% if @error then %><%= @error %><% else %><% @messages.each do |message| %><%= message.chomp+"\n" %><% end %><% end %>

data/app/views/sugoi_admin/list_addresses.rhtml

@@ -1 +1 @@
-<% for addr in @addresses %><%= addr.address + "\n" %><% end %>
+<% if @addresses %><% for addr in @addresses %><%= addr.address + "\n" %><% end %><% else %><%= @error %><% end %>

data/app/views/sugoi_admin/list_domains.rhtml

@@ -1,2 +1,2 @@
 <% for domain in @domains %><%= domain.name %>
-<% end %>
+<% end %>

data/app/views/sugoi_admin/list_mailinglist_classes.rhtml

@@ -0,0 +1,2 @@
+<% @mailinglist_classes.each do |mlclass| %><%= "#{mlclass.id}. #{mlclass.name}" %>
+<% end %>

data/app/views/sugoi_admin/list_mailinglists.rhtml

@@ -1 +1 @@
-<% for mailinglist in @mailinglists %><%= mailinglist.address + "\n" %><% end %>
+<% if @error then %><%= @error %><% else %><% for mailinglist in @mailinglists %><%= mailinglist.address + "\n" %><% end %><% end %>

data/app/views/sugoi_admin/list_users.rhtml

@@ -0,0 +1,5 @@
+<% if @error then %><%= @error %><% else %><%
+@users.each do |user|
+%><%= user.login %>
+<%
+end %><% end %>

data/app/views/sugoi_admin/subscribe.rhtml

@@ -0,0 +1,2 @@
+<% if @error then %><%= @error %><% else %><% @messages.each do |message| %><%= message %>
+<% end; end %>

data/app/views/sugoi_admin/unsubscribe.rhtml

@@ -0,0 +1,7 @@
+<% if @error then 
+    %><%= @error %><% 
+else 
+    @removed_addresses.each do |addr|
+        %>Removed "<%= addr.address %>" from "<%= @mailinglist.address %>"<%
+    end
+end %>

data/bin/sugoi-admin

@@ -11,7 +11,7 @@ require 'application'
 
 admin = SugoiAdminController.new
 
-command = ARGV.shift
+command = ARGV.shift.gsub(/-/,"_")
 
 request = ActionController::CommandlineRequest.new(command, *ARGV)
 response = ActionController::CommandlineResponse.new

data/installer/rails_installer_defaults.yml

@@ -1,5 +1,5 @@
 ---
 rails-environment: production
-database: postgres
+database: sqlite
 web-server: mongrel
 threads: 2

data/test/functional/mailservice_controller_test.rb

@@ -200,7 +200,10 @@ class TC_Mailservice_AdminTasks_UserCreation < MailserviceDomainAdmin
         assert list
         assert_equal [ [ @admin_name, "Admin" ],
                        [ "testuser", "Test User" ],
-                       [ "virtuser", "Virtual User" ] ], list.sort
+                       [ "virtuser", "Virtual User" ],
+                       [ "nodesc", nil ],
+                       [ "proxuser", "Proxy Mailing List" ]
+                       ].sort, list.sort
     end
 
 end
@@ -408,7 +411,8 @@ class TC_Mailservice_MailinglistClasses < MailserviceUserLogin
     end
 
     def test_get_mailinglist_classes
-        assert_equal [ 'Distribution List', 'Mailing List' ], 
+        assert_equal [ 'Distribution List', 'Mailing List', 
+                       'Proxifiable LTMA' ], 
             invoke(:mailinglist_classes).sort
     end
 

data/test/functional/sugoi_admin_controller_test.rb

@@ -0,0 +1,281 @@
+require File.dirname(__FILE__) + '/../test_helper'
+require 'sugoi_admin_controller'
+
+class SugoiAdminController; 
+    # Re-raise errors caught by the controller.
+    def rescue_action(e) raise e end
+
+    @@ask_responses = []
+
+    def self.stuff_ask(*responses)
+        @@ask_responses = responses
+    end
+
+    def ask(prompt)
+        # chuck away the prompt
+        return @@ask_responses.shift || "test_password"
+    end
+end
+
+def stuff_ask(*responses)
+    SugoiAdminController.stuff_ask(*responses)
+end
+
+class SugoiAdminControllerTest < Test::Unit::TestCase
+    def setup
+        @controller = SugoiAdminController.new
+        # @request    = ActionController::TestRequest.new
+        @response   = ActionController::TestResponse.new
+    end
+
+    def invoke(command, *args)
+        @request = ActionController::CommandlineRequest.new command, *args
+        @controller.process @request, @response
+    end
+
+    # Replace this with your real tests.
+    def test_truth
+        assert true
+    end
+
+    def test_list_domains
+        assert_nothing_raised do
+            invoke "list_domains"
+        end
+        assert_equal [ 1, 2 ], assigns["domains"].map { |d| d.id }.sort
+        assert_equal [ "confirm.domain", "test.domain" ],
+            assigns["domains"].map { |d| d.name }.sort
+    end
+
+    def test_list_mailinglists
+        assert_nothing_raised do
+            invoke "list_mailinglists", "confirm.domain"
+        end
+        assert_equal assigns["mailinglists"], []
+        assert_nothing_raised do
+            invoke "list_mailinglists", "nonexistent.domain"
+        end
+        assert_equal assigns["error"], "list_mailinglists: nonexistent.domain: not found"
+    end
+
+    def test_list_addresses
+        assert_nothing_raised do
+            invoke "list_addresses", "nonexistentml@confirm.domain"
+        end
+        assert_equal "list_addresses: nonexistentml@confirm.domain: not found",
+            assigns["error"]
+        assert_nothing_raised do
+            invoke "list_addresses", "testuser@test.domain"
+        end
+        assert_equal [ "address1@foo.test", "address2@foo.test" ],
+            assigns["addresses"].map {|a| a.address}.sort
+    end
+
+    def test_create_user_nonexistent_domain
+        assert_nothing_raised do
+            invoke "create_user", "nonexistent.domain", "newuser"
+        end
+        assert_equal "create_user: Domain \"nonexistent.domain\" does not exist.",
+            assigns["error"]
+    end
+
+    def test_create_user_normally
+        assert_nothing_raised do
+            invoke "create_user", "test.domain", "newuser", "newuser@foo.test", 
+                   "New User"
+        end
+        assert_equal [ "create_user: User \"newuser@test.domain\" created successfully" ],
+            assigns["messages"]
+    end
+
+    def test_create_user_already_exists
+        assert_nothing_raised do
+            invoke "create_user", "test.domain", "testuser", 
+                "testuser@foo.test", "New User"
+        end
+        assert_equal "create_user: User \"testuser@test.domain\" was not created:\n    login: has already been taken\n", assigns["error"]
+    end
+
+    def test_create_user_interactive_description
+        stuff_ask "test_password", "test_password", "New 2 User"
+        assert_nothing_raised do
+            invoke "create_user", "test.domain", "new2user", "new2user@foo.test"
+        end
+        assert_equal [ "create_user: User \"new2user@test.domain\" created successfully" ],
+            assigns["messages"]
+    end
+
+    def test_create_user_interactive_email_address_and_description
+        stuff_ask "test_password", "test_password", "new3user@foo.test", "New 3 User"
+        assert_nothing_raised do
+            invoke "create_user", "test.domain", "new3user"
+        end
+        assert_equal [ "create_user: User \"new3user@test.domain\" created successfully" ],
+            assigns["messages"]
+    end
+
+    def test_create_domain_normally
+        assert_nothing_raised do
+            invoke "create_domain", "new.domain"
+        end
+        assert !assigns["error"]
+        assert_equal [ "create_domain: Domain \"new.domain\" created successfully." ], 
+            assigns["messages"]
+
+        assert_nothing_raised do
+            invoke "list_domains"
+        end
+        assert_equal assigns["domains"].map { |d| d.name }.sort, 
+            [ "confirm.domain", "new.domain", "test.domain" ]
+    end
+
+    def test_create_domain_collision
+        assert_nothing_raised do
+            invoke "create_domain", "test.domain"
+        end
+        assert_equal "create_domain: Domain \"test.domain\" already exists.",
+            assigns["error"]
+    end
+
+    def test_create_mistyped_password
+        assert_nothing_raised do
+            stuff_ask "test_password", "mismatch_password"
+        end
+        invoke "create_domain", "new.domain"
+        assert_equal "create_domain: Could not create domain \"new.domain\":" +
+             "\n    password: doesn't match confirmation\n", assigns["error"]
+    end
+
+    def test_list_users_no_users_in_domain
+        assert_nothing_raised do
+            invoke "list_users", "confirm.domain"
+        end
+        assert_equal [], assigns["users"]
+        assert !assigns["error"]
+    end
+
+    def test_list_users_invalid_domain
+        assert_nothing_raised do
+            invoke "list_users", "bogus.domain"
+        end
+        assert assigns["error"]
+        assert_equal "list_users: Domain \"bogus.domain\" does not exist.",
+                     assigns["error"]
+    end
+    
+    def test_list_users_valid_with_users
+        assert_nothing_raised do
+            invoke "list_users", "test.domain"
+        end
+        assert !assigns["error"]
+        assert_equal [ "nodesc", "proxuser", "root", "testuser", "virtuser"],
+            assigns["users"].map { |u| u.login }.sort
+    end
+
+    def test_list_mailinglist_classes
+        assert_nothing_raised do
+            invoke "list_mailinglist_classes"
+        end
+        assert assigns["mailinglist_classes"]
+    end
+
+    def test_list_mlclasses
+        assert_nothing_raised do
+            invoke "list_mlclasses"
+        end
+        assert assigns["mailinglist_classes"]
+    end
+
+    def test_create_mailing_list_wrong_class
+        assert_nothing_raised do
+            invoke "create_mailing_list", 100, "newmailinglist", "test.domain",
+                "testuser", "New Mailing List" 
+        end
+        assert assigns["error"]
+        assert_equal "create_mailing_list: Invalid mailing list class: 100", 
+            assigns["error"]
+        assert_nil Mailinglist.find_by_address("newmailinglist@test.domain")
+    end
+
+    def test_create_mailing_list_wrong_domain
+        assert_nothing_raised do
+            invoke "create_mailing_list", 2, "newmailinglist", 
+                "nonexistent.domain", "testuser", "New Mailing List"
+        end
+        assert assigns["error"]
+        assert_equal "create_mailing_list: Domain \"nonexistent.domain\" not found.", 
+            assigns["error"]
+        assert_nil Mailinglist.find_by_address("newmailinglist@test.domain")
+    end
+
+    def test_create_Mailing_list_wrong_user
+        assert_nothing_raised do
+            invoke "create_mailing_list", 2, "newmailinglist",
+                "test.domain", "nonexistentuser", "New Mailing List"
+        end
+
+        assert assigns["error"]
+        assert_equal "create_mailing_list: User \"nonexistentuser\" not found in domain \"test.domain\".",
+            assigns["error"]
+        assert_nil Mailinglist.find_by_address("newmailinglist@test.domain")
+    end
+
+    def test_create_mailing_list_normal
+        assert_nothing_raised do
+            invoke "create_mailing_list", 2, "newmailinglist", "test.domain", 
+                "testuser"
+        end
+
+        assert assigns["messages"]
+        assert_equal ["create_mailing_list: Mailing list \"newmailinglist@test.domain\" created successfully."], 
+            assigns["messages"]
+        assert Mailinglist.find_by_address("newmailinglist@test.domain")
+    end
+
+    def test_subscribe_address_to_mailing_list
+        assert_nothing_raised do
+            invoke "subscribe", "testuser@test.domain", 
+                    "newaddress@foo.test"
+        end
+
+        assert assigns["messages"]
+        assert_equal [ "subscribe: Subscribed \"newaddress@foo.test\" to \"testuser@test.domain\""], assigns["messages"]
+        assert_nil assigns["error"]
+
+        a=Address.find_by_address "newaddress@foo.test"
+        assert a
+        assert Mailinglist.find_by_address("testuser@test.domain")[0].addresses.member?(a)
+    end
+
+    def test_subscribe_address_to_nonexistent_mailing_list
+        assert_nothing_raised do
+            invoke "subscribe", "nonexistent@test.domain", "newaddress@foo.test"
+        end
+        assert_nil assigns["messages"]
+        assert assigns["error"]
+        assert_equal "subscribe: Mailing list \"nonexistent@test.domain\" does not exist!", assigns["error"]
+    end
+
+    def test_unsubscribe_address_from_mailing_list
+        assert_nothing_raised do
+            invoke "unsubscribe", "testuser@test.domain", "address1@foo.test"
+        end
+
+        assert_nil assigns["error"]
+
+        ml=Mailinglist.find_by_address("testuser@test.domain")[0]
+
+        assert_equal ["address2@foo.test"], ml.addresses.map { |a| a.address }
+    end
+
+    def test_unsubscribe_address_from_mailinglist_its_not_a_member_of
+        assert_nothing_raised do
+            invoke "unsubscribe", "testuser@test.domain", "nonexistent@foo.test"
+        end
+
+        assert assigns["error"]
+        assert_equal "unsubscribe: Address \"nonexistent@foo.test\" unknown.", 
+            assigns["error"]
+        assert_nil assigns["removed_addresses"]
+    end
+end

data/test/functionals.rb

@@ -0,0 +1,4 @@
+require File.dirname(__FILE__) + '/test_helper'
+Dir["functional/*.rb"].each do |file|
+    require file.sub(/.rb$/,'')
+end

data/test/integration/test_soap.rb

@@ -11,7 +11,7 @@ require "rubygems"
 File.unlink *%w{Mailservice.rb 
                 MailserviceServiceClient.rb
                 MailserviceDriver.rb} rescue nil
-system "wsdl2ruby --wsdl http://localhost:3001/wsdl --type client"
+system "wsdl2ruby.rb --wsdl http://localhost:3001/wsdl --type client"
 system "rake db:fixtures:load"
 require "MailserviceDriver"
 require "test/unit"

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.0
 specification_version: 1
 name: sugoi-mail
 version: !ruby/object:Gem::Version 
-  version: 0.0.0
-date: 2006-12-13 00:00:00 +09:00
+  version: 0.0.1
+date: 2006-12-28 00:00:00 +09:00
 summary: Powerful mailing list manager.
 require_paths: 
 - .
@@ -18,9 +18,9 @@ bindir: bin
 has_rdoc: false
 required_ruby_version: !ruby/object:Gem::Version::Requirement 
   requirements: 
-  - - ">"
+  - - ">="
     - !ruby/object:Gem::Version 
-      version: 0.0.0
+      version: 1.8.2
   version: 
 platform: ruby
 signing_key: 
@@ -34,7 +34,6 @@ files:
 - Rakefile
 - lib
 - config
-- sugoi-mail.gemspec
 - public
 - bin
 - components
@@ -96,7 +95,6 @@ files:
 - app/controllers/mailinglist_controller.rb
 - app/controllers/sugoi_admin_controller.rb
 - app/controllers/mailservice_controller.rb
-- app/controllers/.sugoi_admin_controller.rb.swp
 - app/controllers/commandline_controller.rb
 - app/controllers/address_controller.rb
 - app/controllers/application.rb
@@ -125,9 +123,15 @@ files:
 - app/views/mailinglist/list.rhtml
 - app/views/mailinglist/show.rhtml
 - app/views/mailinglist/_form.rhtml
+- app/views/sugoi_admin/subscribe.rhtml
 - app/views/sugoi_admin/list_addresses.rhtml
 - app/views/sugoi_admin/list_domains.rhtml
+- app/views/sugoi_admin/create_mailing_list.rhtml
+- app/views/sugoi_admin/unsubscribe.rhtml
+- app/views/sugoi_admin/list_mailinglist_classes.rhtml
 - app/views/sugoi_admin/list_mailinglists.rhtml
+- app/views/sugoi_admin/list_users.rhtml
+- app/views/sugoi_admin/create_user.rhtml
 - app/views/sugoi_admin/create_domain.rhtml
 - app/views/layouts/scaffold.rhtml
 - app/views/layouts/address.rhtml
@@ -201,6 +205,7 @@ files:
 - test/fixtures
 - test/functional
 - test/test_helper.rb
+- test/functionals.rb
 - test/mocks/test
 - test/mocks/development
 - test/mocks/test/net-smtp-stub.rb
@@ -224,8 +229,8 @@ files:
 - test/fixtures/mailinglist_classes.yml
 - test/fixtures/domains.yml
 - test/fixtures/users.yml
+- test/functional/sugoi_admin_controller_test.rb
 - test/functional/mailservice_controller_test.rb
-- test/functional/domain_controller_test.rb
 - vendor/plugins
 - vendor/plugins/active_command
 - vendor/plugins/ar_fixtures
@@ -266,8 +271,6 @@ extra_rdoc_files: []
 
 executables: 
 - sugoi-mail
-- mailc
-- maild
 extensions: []
 
 requirements: []
@@ -318,3 +321,12 @@ dependencies:
       - !ruby/object:Gem::Version 
         version: 1.2.3
     version: 
+- !ruby/object:Gem::Dependency 
+  name: sqlite3-ruby
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.1.0
+    version: 

data/sugoi-mail.gemspec

@@ -1,36 +0,0 @@
-$:.unshift '../lib'
-
-require 'rubygems'
-require 'rake'
-
-spec = Gem::Specification.new do |s|
-    s.name = "sugoi-mail"
-    s.version = "0.0.0"
-    s.summary = "Powerful mailing list manager."
-    s.has_rdoc = false
-    s.files = Dir.glob('**/*', File::FNM_DOTMATCH).reject do |f|
-        [ /\.$/, /config\/database.yml$/, /config\/database.yml-/,
-        /\.log$/, /^pkg/, /\.svn/, /^vendor\/rails/,
-        /^public\/(files|xml|articles|pages|index.html)/,
-        /^public\/(stylesheets|javascripts|images)\/theme/, /\~$/,
-        /\/\._/, /\/#/ ].any? {|regex| f =~ regex }
-    end
-
-    s.require_path = '.'
-    s.author = "Dave Brown"
-    s.email = "dagbrown@invio.co.jp"
-    s.homepage = "http://sugoi-mail.rubyforge.org/"
-    s.rubyforge_project = "sugoi-mail"
-    s.platform = Gem::Platform::RUBY
-    s.executables = ['sugoi-mail', 'mailc', 'maild']
-    s.add_dependency("rails", "= 1.1.6")
-    s.add_dependency("rails-app-installer", ">= 0.1.2")
-    s.add_dependency("gurgitate-mail", ">=1.8.0")
-    s.add_dependency("termios", ">=0.9.4")
-    s.add_dependency("highline", ">=1.2.3")
-end
-
-if $0==__FILE__
-    Gem::manage_gems
-    Gem::Builder.new(spec).build
-end

data/test/functional/domain_controller_test.rb

@@ -1,74 +0,0 @@
-require File.dirname(__FILE__) + '/../test_helper'
-require 'domain_controller'
-
-# Set salt to 'change-me' because thats what the fixtures assume. 
-User.salt = 'change-me'
-
-# Raise errors beyond the default web-based presentation
-class DomainController; def rescue_action(e) raise e end; end
-
-class DomainControllerTest < Test::Unit::TestCase
-  
-  fixtures :domains
-  
-  def setup
-    @controller = DomainController.new
-    @request, @response = ActionController::TestRequest.new, ActionController::TestResponse.new
-    @request.host = "localhost"
-  end
-  
-  def test_auth_bob
-    @request.session[:return_to] = "/bogus/location"
-
-    post :login, :domain_name => "bob", :domain_password => "test"
-    assert_session_has :domain
-
-    assert_equal @bob, @response.session[:user]
-    
-    assert_redirect_url "/bogus/location"
-  end
-  
-  def test_signup
-    @request.session[:return_to] = "/bogus/location"
-
-    post :signup, :user => { :login => "newbob", :password => "newpassword", :password_confirmation => "newpassword" }
-    assert_session_has :user
-    
-    assert_redirect_url "/bogus/location"
-  end
-
-  def test_bad_signup
-    @request.session[:return_to] = "/bogus/location"
-
-    post :signup, :user => { :login => "newbob", :password => "newpassword", :password_confirmation => "wrong" }
-    assert_invalid_column_on_record "user", :password
-    assert_success
-    
-    post :signup, :user => { :login => "yo", :password => "newpassword", :password_confirmation => "newpassword" }
-    assert_invalid_column_on_record "user", :login
-    assert_success
-
-    post :signup, :user => { :login => "yo", :password => "newpassword", :password_confirmation => "wrong" }
-    assert_invalid_column_on_record "user", [:login, :password]
-    assert_success
-  end
-
-  def test_invalid_login
-    post :login, :user_login => "bob", :user_password => "not_correct"
-     
-    assert_session_has_no :user
-    
-    assert_template_has "login"
-  end
-  
-  def test_login_logoff
-
-    post :login, :user_login => "bob", :user_password => "test"
-    assert_session_has :user
-
-    get :logout
-    assert_session_has_no :user
-
-  end
-  
-end