ActiveSambaLdap 0.0.7

data/bin/asl-populate.help

@@ -0,0 +1 @@
+

data/bin/asl-purge

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+
+require 'fileutils'
+require 'etc'
+require 'time'
+
+require 'active_samba_ldap'
+require 'active_samba_ldap/command'
+
+include ActiveSambaLdap::GetTextSupport
+
+argv, opts, options = ActiveSambaLdap::Command.parse_options do |opts, options|
+end
+
+unless Process.uid.zero?
+  $stderr.puts(_("need root authority."))
+  exit 1
+end
+
+ActiveSambaLdap::Base.setup_connection("update")
+
+ActiveSambaLdap::Base.purge
+
+ActiveSambaLdap::Base.restart_nscd
+
+ActiveSambaLdap::Base.clear_active_connections!

data/bin/asl-purge.help

@@ -0,0 +1 @@
+

data/bin/asl-samba-computeradd

@@ -0,0 +1,96 @@
+#!/usr/bin/env ruby
+
+require 'active_samba_ldap'
+require 'active_samba_ldap/command'
+
+include ActiveSambaLdap::GetTextSupport
+
+argv, opts, options = ActiveSambaLdap::Command.parse_options do |opts, options|
+  options.ou = nil
+
+  opts.banner += " COMPUTER_NAME"
+
+  opts.on("-o", "--ou=OU",
+          _("add the user in the organizational unit OU"),
+          _("(relative to the user suffix)")) do |ou|
+    if /^ou=/ =~ ou
+      options.ou = ou
+    else
+      options.ou = "ou=#{ou}"
+    end
+  end
+end
+
+name = nil
+if argv.size == 1
+  name = argv.first.chomp("$") + "$"
+else
+  $stderr.puts opts
+  exit 1
+end
+
+unless Process.uid.zero?
+  $stderr.puts(_("need root authority."))
+  exit 1
+end
+
+ActiveSambaLdap::Base.setup_connection("update")
+
+
+class User < ActiveSambaLdap::User
+  ldap_mapping :recommended_classes => []
+end
+
+class Computer < ActiveSambaLdap::Computer
+  ldap_mapping :recommended_classes => []
+end
+
+class Group < ActiveSambaLdap::Group
+  ldap_mapping :recommended_classes => []
+end
+
+class UnixIdPool < ActiveSambaLdap::UnixIdPool
+  ldap_mapping
+end
+
+unless Computer.valid_name?(name)
+  $stderr.puts(_("illegal computer name: %s") % name)
+  exit 1
+end
+
+if Computer.exists?(name)
+  $stderr.puts(_("computer already exists: %s") % name)
+  exit 1
+end
+
+create_options = {
+  :uid => [name, options.ou].compact.join(","),
+  :group_class => Group,
+}
+
+create_options[:description] = "Computer"
+create_options[:gecos] = "Computer"
+
+computer = nil
+begin
+  computer = Computer.create(:uid => name, :group_class => Group)
+rescue ActiveSambaLdap::UidNumberAlreadyExists
+  $stderr.puts(_("UID already exists: %s") % uid_number)
+  exit 1
+rescue ActiveSambaLdap::GidNumberDoesNotExist,
+  ActiveSambaLdap::GroupDoesNotExist,
+  ActiveSambaLdap::GroupDoesNotHaveSambaSID
+  $stderr.puts $!
+  exit 1
+end
+
+unless computer.errors.empty?
+  computer.errors.each_full do |message|
+    $stderr.puts(message)
+  end
+  exit 1
+end
+
+ActiveSambaLdap::Base.restart_nscd
+
+ActiveSambaLdap::Base.clear_active_connections!

data/bin/asl-samba-computeradd.help

@@ -0,0 +1 @@
+

data/bin/asl-samba-groupadd

@@ -0,0 +1,57 @@
+#!/usr/bin/env ruby
+
+require 'active_samba_ldap'
+require 'active_samba_ldap/command'
+
+include ActiveSambaLdap::GetTextSupport
+
+argv, opts, options = ActiveSambaLdap::Command.parse_options do |opts, options|
+  opts.banner += " GROUP_NAME"
+end
+
+name = nil
+if argv.size == 1
+  name = argv.first
+else
+  $stderr.puts opts
+  exit 1
+end
+
+unless Process.uid.zero?
+  $stderr.puts(_("need root authority."))
+  exit 1
+end
+
+ActiveSambaLdap::Base.setup_connection("update")
+
+class Group < ActiveSambaLdap::Group
+  ldap_mapping :recommended_classes => []
+end
+
+class UnixIdPool < ActiveSambaLdap::UnixIdPool
+  ldap_mapping
+end
+
+if Group.exists?(name)
+  $stderr.puts(_("group already exists: %s") % name)
+  exit 1
+end
+
+create_options = {
+  :cn => name,
+  :gid_number => options.gid,
+  :pool_class => UnixIdPool,
+  :group_type => options.group_type,
+}
+group = Group.create(create_options)
+
+unless group.errors.empty?
+  group.errors.each_full do |message|
+    $stderr.puts(message)
+  end
+  exit 1
+end
+
+ActiveSambaLdap::Base.restart_nscd
+
+ActiveSambaLdap::Base.clear_active_connections!

data/bin/asl-samba-groupadd.help

@@ -0,0 +1 @@
+

data/bin/asl-samba-groupdel

@@ -0,0 +1,55 @@
+#!/usr/bin/env ruby
+
+require 'active_samba_ldap'
+require 'active_samba_ldap/command'
+
+include ActiveSambaLdap::GetTextSupport
+
+argv, opts, options = ActiveSambaLdap::Command.parse_options do |opts, options|
+  opts.banner += " GROUP_NAME"
+end
+
+name = nil
+if argv.size == 1
+  name = argv.first
+else
+  $stderr.puts opts
+  exit 1
+end
+
+unless Process.uid.zero?
+  $stderr.puts(_("need root authority."))
+  exit 1
+end
+
+ActiveSambaLdap::Base.setup_connection("update")
+
+class Group < ActiveSambaLdap::Group
+  ldap_mapping :recommended_classes => []
+end
+
+class User < ActiveSambaLdap::User
+  ldap_mapping :recommended_classes => []
+end
+
+class Computer < ActiveSambaLdap::Computer
+  ldap_mapping :recommended_classes => []
+end
+
+unless Group.exists?(name)
+  $stderr.puts(_("group doesn't exist: %s") % name)
+  exit 1
+end
+group = Group.find(name)
+
+begin
+  group.destroy(:remove_members => true,
+                :force_change_primary_members => options.force)
+rescue ActiveSambaLdap::Error
+  $stderr.puts $!
+  exit 1
+end
+
+ActiveSambaLdap::Base.restart_nscd
+
+ActiveSambaLdap::Base.clear_active_connections!

data/bin/asl-samba-groupdel.help

@@ -0,0 +1 @@
+

data/bin/asl-samba-groupmod

@@ -0,0 +1,99 @@
+#!/usr/bin/env ruby
+
+require 'active_samba_ldap'
+require 'active_samba_ldap/command'
+
+include ActiveSambaLdap::GetTextSupport
+
+argv, opts, options = ActiveSambaLdap::Command.parse_options do |opts, options|
+  options.members_to_add = nil
+  options.members_to_delete = nil
+
+  opts.banner += " GROUP_NAME"
+
+  opts.on("-a", "--add-members=MEMBER1,MEMBER2,MEBMER3", Array,
+          _("add members (comma delimited)")) {|options.members_to_add|}
+  opts.on("-d", "--delete-members=MEMBER1,MEMBER2,MEBMER3", Array,
+          _("delete members (comma delimited)")) {|options.members_to_delete|}
+end
+
+name = nil
+if argv.size == 1
+  name = argv.first
+else
+  $stderr.puts opts
+  exit 1
+end
+
+unless Process.uid.zero?
+  $stderr.puts(_("need root authority."))
+  exit 1
+end
+
+ActiveSambaLdap::Base.setup_connection("update")
+
+class Group < ActiveSambaLdap::Group
+  ldap_mapping :recommended_classes => []
+end
+
+class User < ActiveSambaLdap::User
+  ldap_mapping :recommended_classes => []
+end
+
+class Computer < ActiveSambaLdap::Computer
+  ldap_mapping :recommended_classes => []
+end
+
+unless Group.exists?(name)
+  $stderr.puts(_("group doesn't exist: %s") % name)
+  exit 1
+end
+group = Group.find(name)
+
+if options.members_to_add and options.members_to_delete
+  duplicated_members = options.members_to_add & options.members_to_delete
+  unless duplicated_members.empty?
+    format = _("there are duplicated members in adding and deleting members: %s")
+    $stderr.puts(format % duplicated_members.join(", "))
+    exit 1
+  end
+end
+
+if options.members_to_add
+  users = []
+  computers = []
+  options.members_to_add.each do |member|
+    if /\$$/ =~ member
+      computers << Computer.find(member)
+    else
+      users << User.find(member)
+    end
+  end
+  group.users.concat(users)
+  group.computers.concat(computers)
+end
+
+if options.members_to_delete
+  users = []
+  computers = []
+  options.members_to_delete.each do |member|
+    if /\$$/ =~ member
+      computers << Computer.find(member)
+    else
+      users << User.find(member)
+    end
+  end
+  group.users -= users
+  group.computers -= computers
+end
+
+unless group.save
+  group.errors.each_full do |message|
+    $stderr.puts(message)
+  end
+  exit 1
+end
+
+ActiveSambaLdap::Base.restart_nscd
+
+ActiveSambaLdap::Base.clear_active_connections!

data/bin/asl-samba-groupmod.help

@@ -0,0 +1 @@
+

data/bin/asl-samba-useradd

@@ -0,0 +1,100 @@
+#!/usr/bin/env ruby
+
+require 'active_samba_ldap'
+require 'active_samba_ldap/command'
+
+include ActiveSambaLdap::GetTextSupport
+
+argv, opts, options = ActiveSambaLdap::Command.parse_options do |opts, options|
+  options.ou = nil
+
+  opts.banner += " USER_NAME"
+
+  opts.on("-o", "--ou=OU",
+          _("add the user in the organizational unit OU"),
+          _("(relative to the user suffix)")) do |ou|
+    if /^ou=/ =~ ou
+      options.ou = ou
+    else
+      options.ou = "ou=#{ou}"
+    end
+  end
+end
+
+name = nil
+if argv.size == 1
+  name = argv.first
+else
+  $stderr.puts opts
+  exit 1
+end
+
+unless Process.uid.zero?
+  $stderr.puts(_("need root authority."))
+  exit 1
+end
+
+ActiveSambaLdap::Base.setup_connection("update")
+
+
+class User < ActiveSambaLdap::User
+  ldap_mapping :recommended_classes => []
+end
+
+class Computer < ActiveSambaLdap::Computer
+  ldap_mapping :recommended_classes => []
+end
+
+class Group < ActiveSambaLdap::Group
+  ldap_mapping :recommended_classes => []
+end
+
+class UnixIdPool < ActiveSambaLdap::UnixIdPool
+  ldap_mapping
+end
+
+unless User.valid_name?(name)
+  $stderr.puts(_("illegal user name: %s") % name)
+  exit 1
+end
+
+if User.exists?(name)
+  $stderr.puts(_("user already exists: %s") % name)
+  exit 1
+end
+
+create_options = {
+  :uid => [name, options.ou].compact.join(","),
+  :group_class => Group,
+}
+
+user = nil
+begin
+  user = User.create(:uid => name, :group_class => Group)
+rescue ActiveSambaLdap::UidNumberAlreadyExists
+  $stderr.puts(_("UID already exists: %s") % uid_number)
+  exit 1
+rescue ActiveSambaLdap::GidNumberDoesNotExist,
+  ActiveSambaLdap::GroupDoesNotExist,
+  ActiveSambaLdap::GroupDoesNotHaveSambaSID
+  $stderr.puts $!
+  exit 1
+end
+
+unless user.errors.empty?
+  user.errors.each_full do |message|
+    $stderr.puts(message)
+  end
+  exit 1
+end
+
+begin
+  user.setup_home_directory
+rescue SystemCallError
+  $stderr.puts $!
+  exit 1
+end
+
+ActiveSambaLdap::Base.restart_nscd
+
+ActiveSambaLdap::Base.clear_active_connections!