(CORE) CORE (2021)

Microservice with report of QEMU-KVM server (VirtualMachines, Storage, Network). Also demo of Linq, Lambda, Inheritance model.

Full code of this API I have publish to https://github.com/Alex-1347/ParseServerResponse/tree/main.


This is MySql structure of this project. Database not fit to strong relation 1:1, 1:M, M:1, M:M, for example in this project FinancialBroker - MDI application with EF code first database., because information about KVM collection be various unrelated Linux console command. Result of each command usually create one table. Therefore relation of table is confused.



But result of this API is clear and describe state of each QEMU-KVM servers - KvmReport.json.


This is main part of my code. First part is simple buffer to read raw table from SQL.


   1:  Imports MySqlConnector
   2:   
   3:  Partial Module Program
   4:      Public Class AdmKvmBridge
   5:          Property i As Integer
   6:          Property toKvmNetwork As Nullable(Of Integer)
   7:          Property toKvmVlanSwitch As Nullable(Of Integer)
   8:          Property Name As String
   9:          Property Id As String
  10:          Property STP As String
  11:          Property Ip As String
  12:          Property Comment As String
  13:          Property LastUpdate As DateTime
  14:      End Class
  15:      Public Class AdmKvmDevicePartition
  16:          Property i As Integer
  17:          Property ToKvmStorageDevice As Nullable(Of Integer)
  18:          Property ToKvmLvmDevice As Nullable(Of Integer)
  19:          Property Name As String
  20:          Property Type As String
  21:          Property UUID As String
  22:          Property PartUUID As String
  23:          Property PtType As String
  24:          Property PartLabel As String
  25:          Property BlockSize As String
  26:          Property Size As String
  27:          Property Start As Long
  28:          Property [End] As Long
  29:          Property Sectors As Long
  30:          Property Comment As String
  31:          Property LastUpdate As DateTime
  32:      End Class
  33:      Public Class AdmKvmHost
  34:          Property i As Integer
  35:          Property ServerName As String
  36:          Property OsVersion As String
  37:          Property KvmVersion As String
  38:          Property UserName As String
  39:          Property Password As String
  40:          Property CpuModel As String
  41:          Property CpuCount As Integer
  42:          Property CpuSocket As Integer
  43:          Property CorePerSocket As Integer
  44:          Property ThreadPerSocket As Integer
  45:          Property NumaCell As Integer
  46:          Property MemorySize As Long
  47:          Property MainServerIP As String
  48:          Property Location As String
  49:          Property MonthPrice As Decimal
  50:          Property Comment As String
  51:          Property LastUpdate As DateTime
  52:      End Class
  53:      Public Class AdmKvmHostAccess
  54:          Property i As Integer
  55:          Property toKvmHost As Integer
  56:          Property toUser As Integer
  57:          Property FromIp As String
  58:          Property Comment As String
  59:          Property LastUpdate As DateTime
  60:      End Class
  61:      Public Class AdmKvmLVM
  62:          Property i As Integer
  63:          Property ToKvmStorage As Integer
  64:          Property PartName As String
  65:          Property LvmName As String
  66:          Property Fmt As String
  67:          Property Size As String
  68:          Property Free As String
  69:          Property Comment As String
  70:          Property LastUpdate As DateTime
  71:      End Class
  72:      Public Class AdmKvmLVMmember
  73:          Property i As Integer
  74:          Property toKvmLVM As String
  75:          Property DeviceName As String
  76:          Property UUID As String
  77:          Property Type As String
  78:          Property BlockSize As String
  79:          Property Comment As String
  80:          Property LastUpdate As DateTime
  81:      End Class
  82:      Public Class AdmKvmNetworkInterface
  83:          Property i As Integer
  84:          Property toKvmHost As Integer
  85:          Property Name As String
  86:          Property Ip As String
  87:          Property Gateway As String
  88:          Property Netmask As String
  89:          Property Broadcast As String
  90:          Property Mac As String
  91:          Property Comment As String
  92:          Property LastUpdate As DateTime
  93:      End Class
  94:      Public Class AdmKvmPool
  95:          Property i As Integer
  96:          Property toStorageDevice As Integer
  97:          Property Type As String
  98:          Property Name As String
  99:          Property State As Integer
 100:          Property Autostart As Integer
 101:          Property UUID As String
 102:          Property Format As String
 103:          Property Path As String
 104:          Property Capacity As Long
 105:          Property Allocation As Long
 106:          Property Available As Long
 107:          Property Comment As String
 108:          Property LastUpdate As DateTime
 109:      End Class
 110:      Public Class AdmKvmStorageDevice
 111:          Property i As Integer
 112:          Property ToKvmHost As Integer
 113:          Property Name As String
 114:          Property DiskType As String
 115:          Property DiskId As String
 116:          Property Model As String
 117:          Property Capacity As String
 118:          Property SectorSize As String
 119:          Property Bytes As Long
 120:          Property Sectors As Long
 121:          Property Comment As String
 122:          Property LastUpdate As DateTime
 123:      End Class
 124:      Public Class AdmKvmPoolExtent
 125:          Property i As Integer
 126:          Property toKvmPool As Integer
 127:          Property Start As Long
 128:          Property [End] As Long
 129:          Property Comment As String
 130:          Property LastUpdate As DateTime
 131:      End Class
 132:      Public Class AdmKvmVlanSwitch
 133:          Property i As Integer
 134:          Property toKvmHost As Integer
 135:          Property toNetworkInterface As Integer
 136:          Property id As Integer
 137:          Property VlanName As String
 138:          Property VirtSwitch As String
 139:          Property SwitchMac As String
 140:          Property FromIp As String
 141:          Property ToIp As String
 142:          Property IpBroadcast As String
 143:          Property IpNetmask As String
 144:          Property IpGateway As String
 145:          Property Comment As String
 146:          Property LastUpdate As DateTime
 147:      End Class
 148:      Public Class AdmKvmVolume
 149:          Property i As Integer
 150:          Property toKvmPool As Nullable(Of Integer)
 151:          Property toDevicePartition As Nullable(Of Integer)
 152:          Property toVm As Nullable(Of Integer)
 153:          Property Name As String
 154:          Property Path As String
 155:          Property Type As String
 156:          Property Capacity As String
 157:          Property Allocation As String
 158:          Property Comment As String
 159:          Property LastUpdate As DateTime
 160:      End Class
 161:      Public Class AdmUser
 162:          Property i As Integer
 163:          Property Name As String
 164:          Property Comment As String
 165:          Property LastUpdate As DateTime
 166:      End Class
 167:      Public Class AdmVM
 168:          Property i As Integer
 169:          Property toKvmHost As Integer
 170:          Property ToVmNetwork As Integer
 171:          Property toUser As Integer
 172:          Property UUID As String
 173:          Property Id As String
 174:          Property Name As String
 175:          Property OsVersion As String
 176:          Property State As String
 177:          Property CpuSet As String
 178:          Property Vcpu As String
 179:          Property Memory As Integer
 180:          Property SpicePort As Integer
 181:          Property MacAdr As String
 182:          Property AdminLogin As String
 183:          Property AdminPassword As String
 184:          Property Comment As String
 185:          Property LastUpdate As DateTime
 186:      End Class
 187:   
 188:      Public Class AdmKvmBridgePort
 189:          Property i As Integer
 190:          Property toKvmBridge As Integer
 191:          Property BridgePort As Nullable(Of Integer)
 192:          Property Name As String
 193:          Property BridgePortMac As String
 194:          Property Comment As String
 195:          Property LastUpdate As DateTime
 196:      End Class
 197:   
 198:      Public Class AdmVmIp
 199:          Property i As Integer
 200:          Property toKvmBridgePort As Integer
 201:          Property toVm As Integer
 202:          Property Ip As String
 203:          Property Comment As String
 204:          Property LastUpdate As DateTime
 205:      End Class
 206:   
 207:      Function ReadAdmKvmBridgeList(ByRef CN As MySqlConnection) As List(Of AdmKvmBridge)
 208:          Dim AdmKvmBridgeList As New List(Of AdmKvmBridge)
 209:          Dim CMD1 As MySqlCommand
 210:          Try
 211:              CMD1 = New MySqlCommand($"select * from `cryptochestmax`.`KvmBridge`;", CN)
 212:              Dim RDR1 As MySqlDataReader = CMD1.ExecuteReader
 213:              While RDR1.Read
 214:                  AdmKvmBridgeList.Add(New AdmKvmBridge With {
 215:                              .i = CInt(RDR1("i")),
 216:                              .toKvmNetwork = If(IsDBNull(RDR1("toKvmNetwork")), Nothing, RDR1("toKvmNetwork")),
 217:                              .toKvmVlanSwitch = If(IsDBNull(RDR1("toKvmVlanSwitch")), Nothing, RDR1("toKvmVlanSwitch")),
 218:                              .Name = RDR1("Name"),
 219:                              .Id = RDR1("Id"),
 220:                              .STP = RDR1("STP"),
 221:                              .Ip = RDR1("Ip"),
 222:                              .Comment = If(IsDBNull(RDR1("Comment")), "", RDR1("Comment")),
 223:                              .LastUpdate = CDate(RDR1("LastUpdate"))
 224:                                        })
 225:              End While
 226:              RDR1.Close()
 227:          Catch ex As Exception
 228:              Console.WriteLine(ex.Message & CMD1.CommandText)
 229:              CN.Close()
 230:              ReOpenMySQL(CN)
 231:          End Try
 232:          Return AdmKvmBridgeList
 233:      End Function
 ....  

Second part is model to be serialised to JSON.


   1:  Imports Newtonsoft.Json
   2:   
   3:  Partial Module Program
   4:      Public Class KvmReport
   5:          Public Property KvmHostList As List(Of KvmHostReport)
   6:      End Class
   7:   
   8:      Public Class KvmHostReport
   9:          Inherits AdmKvmHost
  10:   
  11:          <JsonProperty(Order:=100)>
  12:          Property VM As List(Of VmReport)
  13:          <JsonProperty(Order:=101)>
  14:          Property Network As List(Of KvmNetworkReport)
  15:          <JsonProperty(Order:=102)>
  16:          Property Storage As List(Of KvmStorageReport)
  17:          <JsonProperty(Order:=103)>
  18:          Property VirtualStorage As List(Of KvmPoolReport)
  19:          <JsonProperty(Order:=104)>
  20:          Property Access As List(Of KvmHostAccessReport)
  21:      End Class
  22:   
  23:      Public Class KvmHostAccessReport
  24:          Inherits AdmKvmHostAccess
  25:          <JsonProperty(Order:=100)>
  26:          Property User As List(Of String)
  27:      End Class
  28:   
  29:      Public Class KvmStorageReport
  30:          Inherits AdmKvmStorageDevice
  31:          <JsonProperty(Order:=100)>
  32:          Property LvmStorage As List(Of KvmLVMReport)
  33:          <JsonProperty(Order:=101)>
  34:          Property PartitionStorage As List(Of KvmDevicePartitionReport)
  35:      End Class
  36:   
  37:      Public Class KvmLVMReport
  38:          Inherits AdmKvmLVM
  39:          <JsonProperty(Order:=100)>
  40:          Property LvmMember As List(Of AdmKvmLVMmember)
  41:      End Class
  42:   
  43:      Public Class KvmDevicePartitionReport
  44:          Inherits AdmKvmDevicePartition
  45:      End Class
  46:   
  47:      Public Class KvmNetworkReport
  48:          Inherits AdmKvmBridge
  49:          <JsonProperty(Order:=100)>
  50:          Property NetworkInterface As List(Of AdmKvmNetworkInterface)
  51:   
  52:          <JsonProperty(Order:=102)>
  53:          Property Bridge As KvmBridgeReport
  54:      End Class
  55:   
  56:      Public Class KvmBridgeReport
  57:          Property VlanSwitch As List(Of AdmKvmVlanSwitch)
  58:          <JsonProperty(Order:=100)>
  59:          Property Bridge As AdmKvmBridge
  60:          <JsonProperty(Order:=101)>
  61:          Property Port As List(Of KvmBridgePortReport)
  62:      End Class
  63:   
  64:      Public Class KvmBridgePortReport
  65:          Inherits AdmKvmBridgePort
  66:          <JsonProperty(Order:=100)>
  67:          Property IP As List(Of String)
  68:      End Class
  69:   
  70:      Public Class KvmPoolReport
  71:          Inherits AdmKvmPool                           'this is ref to KvmStorageReport
  72:          <JsonProperty(Order:=100)>
  73:          Property Volume As List(Of AdmKvmVolume)
  74:          <JsonProperty(Order:=101)>
  75:          Property Extent As List(Of AdmKvmPoolExtent)
  76:      End Class
  77:   
  78:      Public Class VmReport
  79:          Inherits AdmVM
  80:   
  81:          <JsonProperty(Order:=100)>
  82:          Property Ip As List(Of String)
  83:          <JsonProperty(Order:=101)>
  84:          Property VmNetworkName As List(Of String)      'ref to VmNetwork from KvmNetworkReport
  85:          <JsonProperty(Order:=102)>
  86:          Property StorageDeviceName As List(Of Tuple(Of String, String))
  87:          <JsonProperty(Order:=103)>
  88:          Property UserName As String                    'ref to User KvmHostAccessReport
  89:      End Class
  90:   
  91:  End Module

And third main part of this API is function to fill model from raw SQL-tables.


   1:  Imports MySqlConnector
   2:  Imports Newtonsoft.Json
   3:  Imports Newtonsoft.Json.Linq
   4:   
   5:  Partial Module Program
   6:      Function CreateServerReport(CN As MySqlConnection) As String
   7:          Dim AdmKvmReport As New KvmReport
   8:          Dim AdmKvmDevicePartitionList As List(Of AdmKvmDevicePartition) = ReadAdmKvmDevicePartitionList(CN)
   9:          Dim AdmKvmHostList As List(Of AdmKvmHost) = ReadAdmKvmHostList(CN)
  10:          Dim AdmKvmHostAccessList As List(Of AdmKvmHostAccess) = ReadAdmKvmHostAccessList(CN)
  11:          Dim AdmKvmLVMList As List(Of AdmKvmLVM) = ReadAdmKvmLVMList(CN)
  12:          Dim AdmKvmLVMmemberList As List(Of AdmKvmLVMmember) = ReadAdmKvmLVMmemberList(CN)
  13:          Dim AdmKvmNetworkInterfaceList As List(Of AdmKvmNetworkInterface) = ReadAdmKvmNetworkInterfaceList(CN)
  14:          Dim AdmKvmPoolList As List(Of AdmKvmPool) = ReadAdmKvmPoolList(CN)
  15:          Dim AdmKvmStorageDeviceList As List(Of AdmKvmStorageDevice) = ReadAdmKvmStorageDeviceList(CN)
  16:          Dim AdmKvmPoolExtentList As List(Of AdmKvmPoolExtent) = ReadAdmKvmPoolExtentList(CN)
  17:          Dim AdmKvmVlanList As List(Of AdmKvmVlanSwitch) = ReadAdmKvmVlanSwitchList(CN)
  18:          Dim AdmKvmVolumeList As List(Of AdmKvmVolume) = ReadAdmKvmVolumeList(CN)
  19:          Dim AdmUserList As List(Of AdmUser) = ReadAdmUserList(CN)
  20:          Dim AdmVMList As List(Of AdmVM) = ReadAdmVMList(CN)
  21:          Dim AdmKvmBridgeList As List(Of AdmKvmBridge) = ReadAdmKvmBridgeList(CN)
  22:          Dim AdmKvmBridgePortList As List(Of AdmKvmBridgePort) = ReadAdmKvmBridgePortList(CN)
  23:          Dim AdmVmIpList As List(Of AdmVmIp) = ReadAdmVmIpList(CN)
  24:   
  25:          AdmKvmReport.KvmHostList = New List(Of KvmHostReport)
  26:          For I As Integer = 0 To AdmKvmHostList.Count - 1
  27:              AdmKvmReport.KvmHostList.Add(New KvmHostReport With {
  28:                                                          .i = AdmKvmHostList(I).i,
  29:                                                          .Access = New List(Of KvmHostAccessReport),
  30:                                                          .Storage = New List(Of KvmStorageReport),
  31:                                                          .Network = New List(Of KvmNetworkReport),
  32:                                                          .VirtualStorage = New List(Of KvmPoolReport),
  33:                                                          .VM = New List(Of VmReport),
  34:                                                          .OsVersion = AdmKvmHostList(I).OsVersion,
  35:                                                          .ServerName = AdmKvmHostList(I).ServerName,
  36:                                                          .KvmVersion = AdmKvmHostList(I).KvmVersion,
  37:                                                          .UserName = AdmKvmHostList(I).UserName,
  38:                                                          .Password = AdmKvmHostList(I).Password,
  39:                                                          .CpuModel = AdmKvmHostList(I).CpuModel,
  40:                                                          .CpuCount = AdmKvmHostList(I).CpuCount,
  41:                                                          .CpuSocket = AdmKvmHostList(I).CpuSocket,
  42:                                                          .CorePerSocket = AdmKvmHostList(I).CorePerSocket,
  43:                                                          .ThreadPerSocket = AdmKvmHostList(I).ThreadPerSocket,
  44:                                                          .NumaCell = AdmKvmHostList(I).NumaCell,
  45:                                                          .MemorySize = AdmKvmHostList(I).MemorySize,
  46:                                                          .MainServerIP = AdmKvmHostList(I).MainServerIP,
  47:                                                          .MonthPrice = AdmKvmHostList(I).MonthPrice,
  48:                                                          .Location = AdmKvmHostList(I).Location,
  49:                                                          .Comment = AdmKvmHostList(I).Comment,
  50:                                                          .LastUpdate = AdmKvmHostList(I).LastUpdate
  51:                                                   })
  52:          Next
  53:          For I As Integer = 0 To AdmKvmHostList.Count - 1
  54:              'Access - OK
  55:              For j As Integer = 0 To AdmKvmHostAccessList.Count - 1
  56:                  Dim KvmHostAccessReport1 = New KvmHostAccessReport With {
  57:                                                                  .User = New List(Of String),
  58:                                                                  .i = AdmKvmHostAccessList(j).i,
  59:                                                                  .toKvmHost = AdmKvmHostAccessList(j).toKvmHost,
  60:                                                                  .toUser = AdmKvmHostAccessList(j).toUser,
  61:                                                                  .FromIp = AdmKvmHostAccessList(j).FromIp,
  62:                                                                  .Comment = AdmKvmHostAccessList(j).Comment,
  63:                                                                  .LastUpdate = AdmKvmHostAccessList(j).LastUpdate
  64:                          }
  65:                  KvmHostAccessReport1.User = New List(Of String)
  66:                  AdmUserList.Where(Function(X) X.i = AdmKvmHostAccessList(j).toUser).ToList.ForEach(Sub(Y) KvmHostAccessReport1.User.Add(Y.Name))
  67:                  AdmKvmReport.KvmHostList(I).Access.Add(KvmHostAccessReport1)
  68:              Next
  69:              For j As Integer = 0 To AdmKvmStorageDeviceList.Count - 1
  70:                  Dim KvmStorageReport1 = New KvmStorageReport With {
  71:                                      .i = AdmKvmStorageDeviceList(j).i,
  72:                                      .LvmStorage = New List(Of KvmLVMReport),
  73:                                      .PartitionStorage = New List(Of KvmDevicePartitionReport),
  74:                                      .ToKvmHost = AdmKvmStorageDeviceList(j).ToKvmHost,
  75:                                      .Name = AdmKvmStorageDeviceList(j).Name,
  76:                                      .DiskType = AdmKvmStorageDeviceList(j).DiskType,
  77:                                      .DiskId = AdmKvmStorageDeviceList(j).DiskId,
  78:                                      .Model = AdmKvmStorageDeviceList(j).Model,
  79:                                      .Capacity = AdmKvmStorageDeviceList(j).Capacity,
  80:                                      .SectorSize = AdmKvmStorageDeviceList(j).SectorSize,
  81:                                      .Bytes = AdmKvmStorageDeviceList(j).Bytes,
  82:                                      .Sectors = AdmKvmStorageDeviceList(j).Sectors,
  83:                                      .Comment = AdmKvmStorageDeviceList(j).Comment,
  84:                                      .LastUpdate = AdmKvmStorageDeviceList(j).LastUpdate
  85:                          }
  86:                  AdmKvmLVMList.Where(Function(Y) Y.ToKvmStorage = KvmStorageReport1.i).ToList.
  87:                              ForEach(Sub(X) KvmStorageReport1.LvmStorage.Add(
  88:                                       New KvmLVMReport With {
  89:                                      .LvmMember = New List(Of AdmKvmLVMmember),
  90:                                      .i = X.i,
  91:                                      .ToKvmStorage = X.ToKvmStorage,
  92:                                      .PartName = X.PartName,
  93:                                      .LvmName = X.LvmName,
  94:                                      .Fmt = X.Fmt,
  95:                                      .Size = X.Size,
  96:                                      .Free = X.Free,
  97:                                      .Comment = X.Comment,
  98:                                      .LastUpdate = X.LastUpdate
  99:                          }))
 100:                  Dim LvmPresent = KvmStorageReport1.LvmStorage.Where(Function(X) X IsNot Nothing).Select(Function(Y) New With {Y.LvmMember, Y.i}).ToList
 101:                  For Each OneLvm In LvmPresent
 102:                      For Each OneLvmMember In AdmKvmLVMmemberList
 103:                          If OneLvm.i = OneLvmMember.toKvmLVM Then
 104:                              OneLvm.LvmMember.Add(New AdmKvmLVMmember With {
 105:                                          .i = OneLvmMember.i,
 106:                                          .toKvmLVM = OneLvmMember.toKvmLVM,
 107:                                          .DeviceName = OneLvmMember.DeviceName,
 108:                                          .UUID = OneLvmMember.UUID,
 109:                                          .Type = OneLvmMember.Type,
 110:                                          .BlockSize = OneLvmMember.BlockSize,
 111:                                          .Comment = OneLvmMember.Comment,
 112:                                          .LastUpdate = OneLvmMember.LastUpdate
 113:                                      })
 114:                          End If
 115:                      Next
 116:                  Next
 117:                  Dim Partitions = AdmKvmDevicePartitionList.Where(Function(Y) Y.ToKvmStorageDevice IsNot Nothing)
 118:                  Partitions.Where(Function(Y) Y.ToKvmStorageDevice = KvmStorageReport1.i).ToList.
 119:                           ForEach(Sub(X) KvmStorageReport1.PartitionStorage.Add(New KvmDevicePartitionReport With {
 120:                                   .i = X.i,
 121:                                   .ToKvmStorageDevice = X.ToKvmStorageDevice,
 122:                                   .ToKvmLvmDevice = X.ToKvmLvmDevice,
 123:                                   .Name = X.Name,
 124:                                   .Type = X.Type,
 125:                                   .UUID = X.UUID,
 126:                                   .PartUUID = X.PartUUID,
 127:                                   .PtType = X.PtType,
 128:                                   .PartLabel = X.PartLabel,
 129:                                   .BlockSize = X.BlockSize,
 130:                                   .Size = X.Size,
 131:                                   .Start = X.Start,
 132:                                   .[End] = X.[End],
 133:                                   .Sectors = X.Sectors,
 134:                                   .Comment = X.Comment,
 135:                                   .LastUpdate = X.LastUpdate
 136:                       }))
 137:                  AdmKvmReport.KvmHostList(I).Storage.Add(KvmStorageReport1)
 138:              Next
 139:              For j As Integer = 0 To AdmKvmPoolList.Count - 1
 140:                  Dim KvmPoolReport1 = New KvmPoolReport With {
 141:                                      .Volume = New List(Of AdmKvmVolume),
 142:                                      .Extent = New List(Of AdmKvmPoolExtent),
 143:                                      .i = AdmKvmPoolList(j).i,
 144:                                      .toStorageDevice = AdmKvmPoolList(j).toStorageDevice,
 145:                                      .Type = AdmKvmPoolList(j).Type,
 146:                                      .Name = AdmKvmPoolList(j).Name,
 147:                                      .State = AdmKvmPoolList(j).State,
 148:                                      .Autostart = AdmKvmPoolList(j).Autostart,
 149:                                      .UUID = AdmKvmPoolList(j).UUID,
 150:                                      .Format = AdmKvmPoolList(j).Format,
 151:                                      .Path = AdmKvmPoolList(j).Path,
 152:                                      .Capacity = AdmKvmPoolList(j).Capacity,
 153:                                      .Allocation = AdmKvmPoolList(j).Allocation,
 154:                                      .Available = AdmKvmPoolList(j).Available,
 155:                                      .Comment = AdmKvmPoolList(j).Comment,
 156:                                      .LastUpdate = AdmKvmPoolList(j).LastUpdate
 157:                              }
 158:                  Dim CurVulume = AdmKvmVolumeList.Where(Function(X) X.toKvmPool = KvmPoolReport1.i).ToList
 159:                  CurVulume.ForEach(Sub(X) KvmPoolReport1.Volume.Add(X))
 160:                  Dim CurExtent = AdmKvmPoolExtentList.Where(Function(X) X.toKvmPool = KvmPoolReport1.i).ToList
 161:                  CurExtent.ForEach(Sub(X) KvmPoolReport1.Extent.Add(X))
 162:                  AdmKvmReport.KvmHostList(I).VirtualStorage.Add(KvmPoolReport1)
 163:              Next
 164:              'Network - ok
 165:              For j As Integer = 0 To AdmKvmBridgeList.Count - 1
 166:                  Dim KvmNetworkReport1 = New KvmNetworkReport With {
 167:                                      .NetworkInterface = New List(Of AdmKvmNetworkInterface),
 168:                                      .Bridge = New KvmBridgeReport,
 169:                                      .i = AdmKvmBridgeList(j).i,
 170:                                      .toKvmNetwork = AdmKvmBridgeList(j).toKvmNetwork,
 171:                                      .toKvmVlanSwitch = AdmKvmBridgeList(j).toKvmVlanSwitch,
 172:                                      .Name = AdmKvmBridgeList(j).Name,
 173:                                      .Id = AdmKvmBridgeList(j).Id,
 174:                                      .STP = AdmKvmBridgeList(j).STP,
 175:                                      .Ip = AdmKvmBridgeList(j).Ip,
 176:                                      .Comment = AdmKvmBridgeList(j).Comment,
 177:                                      .LastUpdate = AdmKvmBridgeList(j).LastUpdate
 178:                          }
 179:   
 180:                  AdmKvmNetworkInterfaceList.Where(Function(X) X.toKvmHost = KvmNetworkReport1.i).ToList.
 181:                                      ForEach(Sub(X) KvmNetworkReport1.NetworkInterface.Add(New AdmKvmNetworkInterface With {
 182:                                      .i = X.i,
 183:                                      .toKvmHost = X.toKvmHost,
 184:                                      .Name = X.Name,
 185:                                      .Ip = X.Ip,
 186:                                      .Gateway = X.Gateway,
 187:                                      .Netmask = X.Netmask,
 188:                                      .Broadcast = X.Broadcast,
 189:                                      .Mac = X.Mac,
 190:                                      .Comment = X.Comment,
 191:                                      .LastUpdate = X.LastUpdate
 192:                                      }))
 193:                  If KvmNetworkReport1.toKvmVlanSwitch IsNot Nothing Then
 194:                      For k As Integer = 0 To AdmKvmBridgeList.Count - 1
 195:                          If AdmKvmBridgeList(k).toKvmVlanSwitch IsNot Nothing Then
 196:                              KvmNetworkReport1.Bridge = New KvmBridgeReport With {
 197:                                          .Bridge = AdmKvmBridgeList.Where(Function(X) X.toKvmVlanSwitch IsNot Nothing).Where(Function(X) X.toKvmVlanSwitch = KvmNetworkReport1.toKvmVlanSwitch).FirstOrDefault,
 198:                                          .VlanSwitch = New List(Of AdmKvmVlanSwitch),
 199:                                          .Port = New List(Of KvmBridgePortReport)}
 200:                              AdmKvmBridgePortList.Where(Function(X) KvmNetworkReport1.Bridge.Bridge IsNot Nothing).Where(Function(X) X.toKvmBridge = KvmNetworkReport1.Bridge.Bridge.i).ToList.ForEach(Sub(X) KvmNetworkReport1.Bridge.Port.Add(New KvmBridgePortReport With {
 201:                                           .IP = AdmVmIpList.Where(Function(Z) Z.toKvmBridgePort = X.i).Select(Function(Z) Z.Ip).ToList,
 202:                                           .i = X.i,
 203:                                           .toKvmBridge = X.toKvmBridge,
 204:                                           .BridgePort = X.BridgePort,
 205:                                           .Name = X.Name,
 206:                                           .BridgePortMac = X.BridgePortMac,
 207:                                           .Comment = X.Comment,
 208:                                           .LastUpdate = X.LastUpdate
 209:                                        }))
 210:                              KvmNetworkReport1.Bridge.VlanSwitch = AdmKvmVlanList.Where(Function(X) X.i = KvmNetworkReport1.Bridge.Bridge.toKvmVlanSwitch).ToList
 211:                          End If
 212:                      Next
 213:                  End If
 214:   
 215:   
 216:                  AdmKvmReport.KvmHostList(I).Network.Add(KvmNetworkReport1)
 217:              Next
 218:              'VLAN-OK
 219:              For j As Integer = 0 To AdmVMList.Count - 1
 220:                  Dim VmReport1 As New VmReport With {
 221:                                          .VmNetworkName = New List(Of String),
 222:                                          .Ip = New List(Of String),
 223:                                          .StorageDeviceName = New List(Of Tuple(Of String, String)),
 224:                                          .i = AdmVMList(j).i,
 225:                                          .toKvmHost = AdmVMList(j).toKvmHost,
 226:                                          .ToVmNetwork = AdmVMList(j).ToVmNetwork,
 227:                                          .toUser = AdmVMList(j).toUser,
 228:                                          .UUID = AdmVMList(j).UUID,
 229:                                          .Id = AdmVMList(j).Id,
 230:                                          .Name = AdmVMList(j).Name,
 231:                                          .OsVersion = AdmVMList(j).OsVersion,
 232:                                          .State = AdmVMList(j).State,
 233:                                          .CpuSet = AdmVMList(j).CpuSet,
 234:                                          .Vcpu = AdmVMList(j).Vcpu,
 235:                                          .Memory = AdmVMList(j).Memory,
 236:                                          .SpicePort = AdmVMList(j).SpicePort,
 237:                                          .MacAdr = AdmVMList(j).MacAdr,
 238:                                          .AdminLogin = AdmVMList(j).AdminLogin,
 239:                                          .AdminPassword = AdmVMList(j).AdminPassword,
 240:                                          .Comment = AdmVMList(j).Comment,
 241:                                          .LastUpdate = AdmVMList(j).LastUpdate
 242:                              }
 243:                  VmReport1.UserName = AdmUserList.Where(Function(X) X.i = VmReport1.toUser).FirstOrDefault.Name 'ref to User KvmHostAccessReport
 244:                  VmReport1.VmNetworkName = AdmKvmBridgeList.Where(Function(X) X.i = VmReport1.ToVmNetwork).Select(Of String)(Function(X) X.Name).ToList 'ref to VmNetwork from KvmNetworkReport
 245:                  VmReport1.Ip = AdmVmIpList.Where(Function(X) X.toVm = VmReport1.i).Select(Of String)(Function(X) X.Ip).ToList 'ref to VmNetwork from KvmNetworkReport
 246:                  For Each One In AdmKvmVolumeList
 247:                      If One.toVm IsNot Nothing Then
 248:                          If One.toVm = VmReport1.i Then
 249:                              VmReport1.StorageDeviceName.Add(New Tuple(Of String, String)(One.Path, One.Capacity))
 250:                          End If
 251:   
 252:                      End If
 253:                  Next
 254:                  AdmKvmReport.KvmHostList(I).VM.Add(VmReport1)
 255:              Next
 256:          Next
 257:          '
 258:          Dim JAdmKvmReport As JObject = JToken.FromObject(AdmKvmReport)
 259:          Dim AdmKvmStringResult As String = JsonConvert.SerializeObject(JAdmKvmReport, New JsonSerializerSettings With {.Formatting = Formatting.Indented})
 260:          Return AdmKvmStringResult
 261:      End Function
 262:  End Module


Comments ( )
<00>  <01>  <02>  <03>  <04>  <05>  <06>  <07>  <08>  <09>  <10>  <11>  <12>  <13>  <14>  <15>  <16>  <17>  <18>  <19>  <20>  <21
Link to this page: http://www.vb-net.com/KvmReport/Index.htm
<SITEMAP>  <MVC>  <ASP>  <NET>  <DATA>  <KIOSK>  <FLEX>  <SQL>  <NOTES>  <LINUX>  <MONO>  <FREEWARE>  <DOCS>  <ENG>  <CHAT ME>  <ABOUT ME>  < THANKS ME>