openshift-origin-node 1.3.1

data/COPYRIGHT

@@ -0,0 +1 @@
+Copyright 2012 Red Hat, Inc. and/or its affiliates.

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in openshift-origin-node.gemspec
+gemspec

data/LICENSE

@@ -0,0 +1,11 @@
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+   http://www.apache.org/licenses/LICENSE-2.0
+
+Unless required by applicable law or agreed to in writing, software
+distributed under the License is distributed on an "AS IS" BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+See the License for the specific language governing permissions and
+limitations under the License.

data/README.md

@@ -0,0 +1,3 @@
+Notice of Export Control Law
+
+This software distribution includes cryptographic software that is subject to the U.S. Export Administration Regulations (the "*EAR*") and other U.S. and foreign laws and may not be exported, re-exported or transferred (a) to any country listed in Country Group E:1 in Supplement No. 1 to part 740 of the EAR (currently, Cuba, Iran, North Korea, Sudan & Syria); (b) to any prohibited destination or to any end user who has been prohibited from participating in U.S. export transactions by any federal agency of the U.S. government; or (c) for use in connection with the design, development or production of nuclear, chemical or biological weapons, or rocket systems, space launch vehicles, or sounding rockets, or unmanned air vehicle systems.You may not download this software or technical information if you are located in one of these countries or otherwise subject to these restrictions. You may not provide this software or technical information to individuals or entities located in one of these countries or otherwise subject to these restrictions. You are also responsible for compliance with foreign law requirements applicable to the import, export and use of this software and technical information.

data/Rakefile

@@ -0,0 +1,28 @@
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+require 'rake/testtask'
+
+desc "Print environment to run from checkout - eval $( rake local_env | tail -n +1 )"
+task :local_env do
+  pwd = Dir.pwd
+  puts "RUBYLIB='#{pwd}/lib/'; export RUBYLIB"
+  puts "PATH='#{pwd}/bin/:#{ENV['PATH']}'; export PATH"
+  puts "SS_CONFIG_DIR='#{pwd}/conf'; export SS_CONFIG_DIR"
+end
+
+desc "Unit tests"
+Rake::TestTask.new(:unit_test) do |t|
+  t.libs << File.expand_path('../lib', __FILE__)
+  t.libs << File.expand_path('../test', __FILE__)
+  t.libs << File.expand_path('../test/unit', __FILE__)
+  t.pattern = 'test/unit/**/*_test.rb'
+end
+
+task :test => [:unit_test] do
+end
+
+desc "Generate RDoc"
+task :doc do
+  sh "rdoc ."
+end

data/bin/oo-add-alias

@@ -0,0 +1,93 @@
+#!/usr/bin/env oo-ruby
+#--
+# Copyright 2010 Red Hat, Inc.
+# 
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+# 
+#    http://www.apache.org/licenses/LICENSE-2.0
+# 
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#++
+
+def usage
+  puts <<USAGE
+== Synopsis
+
+#{$0}: Add a frontend httpd alias to a gear.
+  This command must be run as root.
+
+== Usage
+
+#{$0} --with-container-uuid UUID \\
+               --with-container-name NAME \\
+               --with-namespace NAMESPACE \\
+               --with-alias-name ALIAS
+
+== List of arguments
+  -a|--with-alias-name      alias       Alias to add to the gear
+  -c|--with-container-uuid  gear_uuid   Unique identifier for the gear(required)
+    |--with-namespace       namespace   Namespace of the application (required)
+    |--with-container-name  gear_name   Name of the gear
+  -n|--dry-run                          Don't make changes, just do a dry run.
+  -q|--porcelain                        TODO: what does this do?
+  -d|--debug                            Enable debug mode
+  -h|--help                             Print this message
+
+USAGE
+  exit 255
+end
+
+require 'rubygems'
+require 'openshift-origin-node'
+opts = GetoptLong.new(
+    ["--with-alias-name",     "-a", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-container-uuid", "-c", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-namespace",            GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-container-name",       GetoptLong::REQUIRED_ARGUMENT],
+    ["--dry-run",             "-n", GetoptLong::NO_ARGUMENT],
+    ["--porcelain",           "-q", GetoptLong::NO_ARGUMENT],
+    ["--debug",               "-d", GetoptLong::NO_ARGUMENT],
+    ["--help",                "-?", GetoptLong::NO_ARGUMENT]
+)
+
+args = {}
+begin
+  opts.each{ |k,v| args[k]=v }
+rescue GetoptLong::Error => e
+  usage
+end
+
+if args["--help"]
+  usage
+end
+
+alias_name = args['--with-alias-name']
+container_uuid = args['--with-container-uuid']
+container_name = args['--with-container-name']
+namespace = args['--with-namespace']
+
+$dry_run = true if args['--dry-run']
+$oo_debug = true if args['--debug']
+$porcelain = args['--porcelain'] ? true : false
+
+unless container_uuid
+  usage
+end
+
+begin
+  frontend = OpenShift::FrontendHttpServer.new(container_uuid, container_name, namespace)
+  out, err, rc = frontend.add_alias(alias_name)
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+else
+  $stdout.puts(out) if out != ""
+  $stderr.puts(err) if err != ""
+  exit rc
+end

data/bin/oo-app-create

@@ -0,0 +1,110 @@
+#!/usr/bin/env oo-ruby
+#--
+# Copyright 2010 Red Hat, Inc.
+# 
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+# 
+#    http://www.apache.org/licenses/LICENSE-2.0
+# 
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#++
+
+def usage
+  puts <<USAGE
+== Synopsis
+
+#{$0}: Creates a new application container.
+  This command must be run as root.
+
+== Usage
+
+#{$0}   --with-app-uuid e335712492e011e1bae700262df50034 \\
+                --with-container-uuid 1c3a5f7a92e111e188d800262df50034 \\
+                --with-namespace mydomain \\
+                --with-app-name myapp
+
+== List of arguments
+  -a|--with-app-uuid        app_uuid    Unique application identifier (required)
+  -c|--with-container-uuid  gear_uuid   Unique identifier for the gear(required)
+    |--with-app-name        name        Name of the application (required)
+    |--with-namespace       namespace   Namespace of the application (required)
+    |--with-container-name  gear_name   Name of the gear
+  -i|--with-uid             uid         User ID to use (will create a user with
+                                            this uid in /etc/passwd
+    |--with-quota-blocks    blocks      Number of blocks to allow
+    |--with-quota-files     num_files   Number of files to allow
+  -n|--dry-run                          Don't make changes, just do a dry run.
+  -q|--porcelain                        TODO: what does this do?
+  -d|--debug                            Enable debug mode
+  -h|--help                             Print this message
+
+USAGE
+  exit 255
+end
+
+require 'rubygems'
+require 'openshift-origin-node'
+opts = GetoptLong.new(
+    ["--with-app-uuid",       "-a", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-container-uuid", "-c", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-uid",            "-i", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-app-name",             GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-namespace",            GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-quota-blocks",         GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-quota-files",          GetoptLong::REQUIRED_ARGUMENT],
+    ["--dry-run",             "-n", GetoptLong::NO_ARGUMENT],
+    ["--with-container-name",       GetoptLong::OPTIONAL_ARGUMENT],
+    ["--porcelain",           "-q", GetoptLong::NO_ARGUMENT],
+    ["--debug",               "-d", GetoptLong::NO_ARGUMENT],
+    ["--help",                "-?", GetoptLong::NO_ARGUMENT]
+)
+
+args = {}
+begin
+  opts.each{ |k,v| args[k]=v }
+rescue GetoptLong::Error => e
+  usage
+end
+
+if args["--help"]
+  usage
+end
+
+app_uuid = args['--with-app-uuid']
+gear_uuid = args['--with-container-uuid']
+uid = args['--with-uid']
+uid = nil if uid && uid.empty?
+quota_blocks = args['--with-quota-blocks']
+quota_files = args['--with-quota-files']
+app_name = args['--with-app-name']
+gear_name = args['--with-container-name']
+gear_name = app_name if (gear_name && gear_name.empty?) || !gear_name
+namespace = args['--with-namespace']
+$dry_run = true if args['--dry-run']
+$oo_debug = true if args['--debug']
+$porcelain = args['--porcelain'] ? true : false
+
+unless gear_uuid
+  usage
+end
+
+begin
+  container = OpenShift::ApplicationContainer.new(app_uuid, gear_uuid, uid,
+                        app_name, gear_name, namespace, quota_blocks,
+                        quota_files)
+  container.create
+rescue OpenShift::UserCreationException => e
+  $stderr.puts(e.message)
+  exit 129
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+else
+  exit 0
+end

data/bin/oo-app-destroy

@@ -0,0 +1,100 @@
+#!/usr/bin/env oo-ruby
+#--
+# Copyright 2010 Red Hat, Inc.
+# 
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+# 
+#    http://www.apache.org/licenses/LICENSE-2.0
+# 
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#++
+
+def usage
+  puts <<USAGE
+== Synopsis
+
+#{$0}: Deletes an application container.
+  This command must be run as root.
+
+== Usage
+
+#{$0} --with-container-uuid UUID \\
+               --with-container-name NAME \\
+               --with-app-uuid APP_UUID \\
+               --with-app-name APP_NAME \\
+               --with-namespace NAMESPACE
+
+== List of arguments
+  -a|--with-app-uuid        app_uuid    Unique application identifier (required)
+  -c|--with-container-uuid  gear_uuid   Unique identifier for the gear(required)
+    |--with-app-name        name        Name of the application (required)
+    |--with-namespace       namespace   Namespace of the application (required)
+    |--with-container-name  gear_name   Name of the gear
+    |--skip-hooks                       Skip running pre and post hooks for cartridge destroy
+  -n|--dry-run                          Don't make changes, just do a dry run.
+  -q|--porcelain                        TODO: what does this do?
+  -d|--debug                            Enable debug mode
+  -h|--help                             Print this message
+
+USAGE
+  exit 255
+end
+
+require 'rubygems'
+require 'openshift-origin-node'
+opts = GetoptLong.new(
+    ["--with-app-uuid",       "-a", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-container-uuid", "-c", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-app-name",             GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-namespace",            GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-container-name",       GetoptLong::OPTIONAL_ARGUMENT],
+    ["--dry-run",             "-n", GetoptLong::NO_ARGUMENT],
+    ["--porcelain",           "-q", GetoptLong::NO_ARGUMENT],
+    ["--skip-hooks",                GetoptLong::NO_ARGUMENT],
+    ["--debug",               "-d", GetoptLong::NO_ARGUMENT],
+    ["--help",                "-?", GetoptLong::NO_ARGUMENT]
+)
+
+args = {}
+begin
+  opts.each{ |k,v| args[k]=v }
+rescue GetoptLong::Error => e
+  usage
+end
+
+if args["--help"]
+  usage
+end
+
+app_uuid = args['--with-app-uuid']
+app_name = args['--with-app-name']
+container_uuid = args['--with-container-uuid']
+container_name = args['--with-container-name'] || args['--with-app-name']
+namespace = args['--with-namespace']
+skip_hooks = true if args['--skip-hooks']
+$dry_run = true if args['--dry-run']
+$oo_debug = true if args['--debug']
+$porcelain = args['--porcelain'] ? true : false
+
+unless container_uuid
+  usage
+end
+
+begin
+  container = OpenShift::ApplicationContainer.new(app_uuid, container_uuid, nil, app_name,
+                                                   container_name, namespace, nil, nil)
+  out, err, rc = container.destroy(skip_hooks)
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+else
+  $stdout.puts(out) if out != ""
+  $stderr.puts(err) if err != ""
+  exit rc
+end

data/bin/oo-app-state-show

@@ -0,0 +1,74 @@
+#!/usr/bin/env oo-ruby
+#--
+# Copyright 2010 Red Hat, Inc.
+# 
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+# 
+#    http://www.apache.org/licenses/LICENSE-2.0
+# 
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#++
+
+def usage
+  puts <<USAGE
+== Synopsis
+
+#{$0}: Returns the application state on the gear.
+  This command must be run as root.
+
+== Usage
+
+#{$0}  --with-app-uuid APP_UUID \\
+                   --with-container-uuid UUID
+
+Options:
+-h|--help:
+   Prints this message
+
+UUID: Unique identifier for the application
+
+USAGE
+  exit 255
+end
+
+require 'rubygems'
+require 'openshift-origin-node'
+require 'openshift-origin-node/utils/shell_exec'
+opts = GetoptLong.new(
+    ["--with-app-uuid",       "-a", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-container-uuid", "-c", GetoptLong::REQUIRED_ARGUMENT]
+)
+
+args = {}
+begin
+  opts.each{ |k,v| args[k]=v }
+rescue GetoptLong::Error => e
+  usage
+end
+
+container_uuid = args['--with-container-uuid']
+app_uuid = args['--with-app-uuid']
+
+if args["--help"]
+  usage
+end
+
+unless container_uuid and app_uuid
+  usage
+end
+
+begin
+  container = OpenShift::ApplicationContainer.new(app_uuid, container_uuid)
+  print container.get_app_state()
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+else
+  exit 0
+end

data/bin/oo-authorized-ssh-key-add

@@ -0,0 +1,83 @@
+#!/usr/bin/env oo-ruby
+#--
+# Copyright 2010 Red Hat, Inc.
+# 
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+# 
+#    http://www.apache.org/licenses/LICENSE-2.0
+# 
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#++
+
+def usage
+  puts <<USAGE
+== Synopsis
+
+#{$0}: Adds an authorized ssh key to the app.
+  This command must be run as root.
+
+== Usage
+
+#{$0}  \\
+        --with-app-uuid APP_UUID \\
+        --with-container-uuid UUID \\
+        --with-ssh-key KEY \\
+        --with-ssh-key-type KEY_TYPE
+
+Options:
+-h|--help:
+   Prints this message
+
+UUID: Unique identifier for the application
+SSH_KEY: The ssh key to add
+
+USAGE
+  exit 255
+end
+
+require 'rubygems'
+require 'openshift-origin-node'
+opts = GetoptLong.new(
+    ["--with-app-uuid",       "-a", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-container-uuid", "-c", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-ssh-key",         "-s", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-ssh-key-type",    "-t", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-ssh-key-comment", "-m", GetoptLong::REQUIRED_ARGUMENT]
+)
+
+args = {}
+begin
+  opts.each{ |k,v| args[k]=v }
+rescue GetoptLong::Error => e
+  usage
+end
+
+if args["--help"]
+  usage
+end
+
+uuid = args['--with-container-uuid']
+app_uuid = args['--with-app-uuid']
+ssh_key = args['--with-ssh-key']
+key_type = args['--with-ssh-key-type']
+comment = args['--with-ssh-key-comment']
+
+unless uuid and ssh_key
+  usage
+end
+
+begin
+  container = OpenShift::ApplicationContainer.new(uuid,uuid)
+  container.user.add_ssh_key(ssh_key, key_type, comment)
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+else
+  exit 0
+end