openshift-origin-node 1.3.1

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

@@ -0,0 +1,82 @@
+#!/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}: Removes an authorized ssh key from 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-comment COMMENT]
+
+Options:
+-h|--help:
+   Prints this message
+
+UUID: Unique identifier for the application
+SSH_KEY: The ssh key to remove
+
+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],
+    ["--with-ssh-key",     "-s", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-ssh-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']
+comment = args['--with-ssh-comment']
+
+unless uuid and ssh_key
+  usage
+end
+
+begin
+  container = OpenShift::ApplicationContainer.new(uuid,uuid)
+  container.user.remove_ssh_key(ssh_key, comment)
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+else
+  exit 0
+end

data/bin/oo-broker-auth-key-add

@@ -0,0 +1,84 @@
+#!/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
+
+oo-broker-auth-key-add: Adds broker auth key to the application. 
+#{$0}: Adds broker auth key to the application.
+  This command must be run as root.
+
+== Usage
+
+#{$0}  \\
+        --with-app-uuid APP_UUID \\
+        --with-container-uuid UUID \\
+        --with-iv INITIALIZATION_VECTOR \\
+        --with-token TOKEN
+
+Options:
+-h|--help:
+   Prints this message
+
+UUID: Unique identifier for the application
+INITIALIZATION_VECTOR: Initialization vector to add
+TOKEN: Token to add
+
+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],
+    ["--with-iv",          "-i", GetoptLong::REQUIRED_ARGUMENT],
+    ["--with-token",       "-t", 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']
+iv = args['--with-iv']
+token = args['--with-token']
+
+unless uuid and iv and token
+  usage
+end
+
+begin
+  container = OpenShift::ApplicationContainer.new(uuid, uuid)
+  container.user.add_broker_auth(iv,token)
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+else
+  exit 0
+end

data/bin/oo-broker-auth-key-remove

@@ -0,0 +1,72 @@
+#!/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
+
+  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
+
+if args["--help"]
+  usage
+end
+
+uuid = args['--with-container-uuid']
+app_uuid = args['--with-app-uuid']
+
+unless uuid
+  usage
+end
+
+begin
+  container = OpenShift::ApplicationContainer.new(uuid, uuid)
+  container.user.remove_broker_auth
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+else
+  exit 0
+end

data/bin/oo-cartridge-info

@@ -0,0 +1,70 @@
+#!/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}: Gets the descriptor for a given cartridge name
+
+== Usage
+
+#{$0} [CART]
+
+Options:
+-h|--help:
+   Prints this message
+
+USAGE
+  exit 255
+end
+
+require 'rubygems'
+require 'openshift-origin-node'
+require 'openshift-origin-common'
+opts = GetoptLong.new(
+    ["--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
+
+$oo_debug = true if args['--debug']
+$porcelain = args['--porcelain'] ? true : false
+
+cart_name = ARGV.shift
+cart_found = false
+
+begin
+  cart_info = OpenShift::Node.get_cartridge_info(cart_name, $porcelain, $oo_debug)
+  puts cart_info
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+else
+  exit 0
+end

data/bin/oo-cartridge-list

@@ -0,0 +1,70 @@
+#!/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.
+#++
+
+require 'rubygems'
+require 'openshift-origin-node'
+require 'openshift-origin-common'
+
+def usage
+  puts <<USAGE
+== Synopsis
+
+#{$0}: Lists all cartridges installed on the node
+
+== Usage
+
+#{$0} --with-descriptors [--porcelain]
+
+Options:
+-h|--help:
+   Prints this message
+
+USAGE
+  exit 255
+end
+
+opts = GetoptLong.new(
+    ['--with-descriptors',  '-a', 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
+
+list_descriptors = true if args['--with-descriptors']
+$oo_debug = true if args['--debug']
+$porcelain = args['--porcelain'] ? true : false
+
+begin
+  list = OpenShift::Node.get_cartridge_list(list_descriptors, $porcelain, $oo_debug)
+  puts list
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+else
+  exit 0
+end

data/bin/oo-connector-execute

@@ -0,0 +1,94 @@
+#!/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.
+#++
+
+require 'rubygems'
+require 'openshift-origin-node'
+require 'open4'
+require 'shellwords'
+
+def usage
+  puts <<USAGE
+== Synopsis
+
+#{$0}: Executes a connector on a cartridge component
+  This command must be run as root.
+
+== Usage
+
+#{$0} GEAR_UUID CART_NAME HOOK_NAME <args-to-connector>
+
+Options:
+-h|--help:
+   Prints this message
+
+GEAR_UUID: Unique identifier for gear that the component is running on
+CART_NAME: Unique identifier for the cartridge that the component belongs to
+HOOK_NAME: Name of the connector to be executed
+
+USAGE
+  exit 255
+end
+
+opts = GetoptLong.new(
+    ['--gear-uuid',       '-g', GetoptLong::REQUIRED_ARGUMENT],
+    ['--cart-name',       '-c', GetoptLong::REQUIRED_ARGUMENT],
+    ['--hook-name',       '-h', GetoptLong::REQUIRED_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
+
+gear_uuid = args['--gear-uuid']
+cart_name = args['--cart-name']
+hook_name = args['--hook-name']
+$oo_debug = true if args['--debug']
+$porcelain = args['--porcelain'] ? true : false
+
+config = OpenShift::Config.instance
+unless gear_uuid
+  usage
+end
+
+exitcode = 0
+begin
+  cart_dir = config.get('CARTRIDGE_BASE_PATH')
+  if File.exists? "#{cart_dir}/#{cart_name}/info/connection-hooks/#{hook_name}"                
+     shellsafe_argv = ARGV.map { |arg| Shellwords::shellescape(arg) }
+     pid, stdin, stdout, stderr = Open4::popen4ext(true,
+        "#{cart_dir}/#{cart_name}/info/connection-hooks/#{hook_name} #{shellsafe_argv.join(' ')} 2>&1")
+     ignored, status = Process::waitpid2 pid
+     exitcode = status.exitstatus
+     zout = stdout.gets
+     zout = "" if zout.nil?
+     $stdout.puts zout
+  end
+rescue Exception => e
+  $stderr.puts(e.message)
+  exit -1
+end
+exit exitcode