virtop 0.0.1

data/bin/virtop

@@ -0,0 +1,119 @@
+#!/usr/bin/env ruby
+
+begin
+	require 'libvirt'
+	require 'ncurses'
+	require 'uri'
+rescue LoadError => e
+	$stderr.puts( e.message )
+	exit( 1 )
+end
+
+if( ARGV.size < 1 )
+	url = 'qemu:///system'
+else
+	uri = URI.parse( ARGV.first )
+
+	if( uri.scheme == 'qemu+ssh' and uri.path == '' )
+		raise( Exception.new( 'invalid url specified' ) )
+	else
+		url = uri.to_s
+	end
+end
+
+class LetsExit < Exception
+end
+
+module Libvirt
+	class Connect
+		def domains
+			ret = Array.new
+
+			self.list_domains.each do |id|
+				ret.push( 
+					self.lookup_domain_by_id( id )
+				)
+			end
+
+			ret
+		end
+	end
+
+	class Domain
+		def to_s
+			self.name
+		end
+
+		def state
+			case( self.info.state )
+				when 1
+					">"
+				when 3
+					"||"
+				else
+					"?"
+			end
+		end
+
+		def mem
+			( self.info.memory / 1024 ).to_s + "M"
+		end
+
+		def mem_max
+			( self.info.max_mem / 1024 ).to_s + "M"
+		end
+
+		def cpu_num
+			self.info.nr_virt_cpu.to_s
+		end
+
+		def cpu_time
+			self.info.cpu_time.to_s
+		end
+	end
+end
+
+begin
+	c = Libvirt::open( url )
+rescue Libvirt::ConnectionError
+	$stderr.puts( 'connection failed' )
+	exit( 1 )
+end
+
+begin
+	n = Ncurses.initscr
+
+	Ncurses.cbreak
+	Ncurses.noecho
+	Ncurses.halfdelay( 10 )
+
+	while( true )
+		Ncurses.clear
+
+		n.intrflush( false )
+		n.keypad( true )
+
+		n.addstr(
+			"name\t\tstate\tmem\tmem_max\tcpu_num\tcpu_time\n\n"
+		)
+
+		c.domains.each do |domain|
+			n.addstr(
+				domain.name		+ "\t" +
+				domain.state	+ "\t" +
+				domain.mem		+ "\t" +
+				domain.mem_max	+ "\t" +
+				domain.cpu_num	+ "\t" +
+				domain.cpu_time	+ "\n"
+			)
+		end
+
+		n.refresh
+		raise( LetsExit ) if( n.getch == 113 )
+	end
+rescue LetsExit
+ensure
+	Ncurses.echo
+	Ncurses.cbreak
+	Ncurses.endwin
+end

metadata

@@ -0,0 +1,96 @@
+--- !ruby/object:Gem::Specification 
+name: virtop
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- henning mueller
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-05-28 00:00:00 +02:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: ruby-libvirt
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 27
+        segments: 
+        - 0
+        - 1
+        - 0
+        version: 0.1.0
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: ncurses
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id002
+description: virtop provides an overview of virtual machines runned with a solution abstracted by libvirt.
+email: henning@orgizm.net
+executables: 
+- virtop
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- bin/virtop
+has_rdoc: true
+homepage: 
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: The top for virtual machines (libvirt).
+test_files: []
+