Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/Ocsinventory/Agent/Backend/Virtualization

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Docker.pm	1.37 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Jails.pm	1.47 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Libvirt.pm	1.38 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Lxc.pm	2.44 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Parallels.pm	6.58 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Qemu.pm	1.88 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
SolarisLdoms.pm	1.39 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
SolarisZones.pm	2.31 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
VirtualBox.pm	6.98 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
VmWareDesktop.pm	1.39 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
VmWareESX.pm	1.37 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
VmWareWorkstation.pm	1.56 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Vmsystem.pm	6.56 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Xen	-	drwxr-xr-x	2025-05-28 10:13:47	Del
Xen.pm	151 B	-rw-r--r--	2024-10-28 14:52:47	Edit Del
XenCitrixServer.pm	1.43 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del

Editing: XenCitrixServer.pm (1.43 KB)

package Ocsinventory::Agent::Backend::Virtualization::XenCitrixServer;

use strict;
use warnings;

sub check { 
    my $params = shift;
    my $common = $params->{common};
    $common->can_run('xe') 
}

sub run {

    my $params = shift;
    my $common = $params->{common};
    my $hostname = `hostname`;
    my $residenton;

    foreach (`xe host-list params=uuid hostname=$hostname`) {
        $residenton = $1 if /:\s+(.+)/;
    }

    foreach (`xe vm-list params=uuid resident-on=$residenton`) {
        if (/:\s+(.+)/) {
            my $uuid = $1 if /:\s+(.+)/;
            my $fname = `xe vm-list params=name-label uuid=$uuid`;
            my $name = $1 if $fname =~ /:\s+(.+)/;
            my $fstatus = `xe vm-list params=power-state uuid=$uuid`;
            my $status = $1 if $fstatus =~ /:\s+(.+)/;
            my $fvcpu = `xe vm-list params=VCPUs-max uuid=$uuid`;
            my $vcpu = $1 if $fvcpu =~ /:\s+(.+)/;
            my $fmemory = `xe vm-list params=memory-actual uuid=$uuid`;
            my $tmemory = $1 if $fmemory =~ /:\s+(.+)/;
            my $memory = $1 if $tmemory =~ /(\d+)\d{6}$/;

            my $machine = {
                MEMORY => $memory,
                NAME => $name,
                UUID => $uuid,
                STATUS => $status,
                SUBSYSTEM => "xe",
                VMTYPE => "XEN",
                VCPU => $vcpu,
            };
            $common->addVirtualMachine($machine);
          }
     }
}

1;