X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=uname%2Fvirt_uname.ml;h=d90974d2d8b950e85c01645414b617656b8b0849;hb=2130352fd969e0d07dee19aa93d5f3369e89baa5;hp=54c0148416d64361a5f21d95e8bc7fb8f8aa15b4;hpb=cb0cb33ae593436fd984c105cf5682155704e39f;p=virt-mem.git

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index 54c0148..d90974d 100644
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -17,17 +17,26 @@
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  *)
 
-open Virt_mem_gettext.Gettext
-
-let usage = s_"NAME
-  virt-uname - uname command for virtual machines
-
-SUMMARY
-  virt-uname [-options] [domains]
+open Printf
 
-DESCRIPTION
-  virt-uname prints the uname information such as OS version,
-  architecture and node name for virtual machines running under
-  libvirt."
-
-let verbose, images = Virt_mem.start usage
+open Virt_mem_gettext.Gettext
+open Virt_mem_utils
+open Virt_mem_types
+
+let run debug { domname = domname } { utsname = utsname } =
+  match utsname with
+  | Some u ->
+      printf "%s: %s %s %s %s %s %s\n"
+	domname
+	u.kernel_name u.nodename u.kernel_release
+	u.kernel_version u.machine u.domainname
+  | None ->
+      eprintf (f_"%s: no system_utsname in kernel image\n") domname
+
+let summary = s_"uname command for virtual machines"
+let description = s_"\
+virt-uname prints the uname information such as OS version,
+architecture and node name for virtual machines running under
+libvirt."
+
+let () = Virt_mem.register "uname" summary description ~needs_utsname:true ~run