diff --git a/pve-reporting/get_vminfo_clu1.pl b/pve-reporting/get_vminfo_clu1.pl
index ad1baf8..3704c74 100644
--- a/pve-reporting/get_vminfo_clu1.pl
+++ b/pve-reporting/get_vminfo_clu1.pl
@@ -47,26 +47,22 @@ for $server (@servers) {
print "\n";
}
-#print Dumper(%vms);
-
open HTML, ">output1.html";
printf HTML "\n\n\n";
-printf HTML "
-
+printf HTML '
+
-
-
-
+
+
-
-";
+';
printf HTML "\n\n";
+
open OUTPUT, ">output1.txt";
+open EUREGON, ">output_euregon.txt";
print "-- print vm information to console and in file output1.txt\n";
$str = sprintf "VMID|NAME|OS|DISKSIZE(S)|DISKUSAGE(S)|SOCKETS|CORES|MEMORY(MB)|BOOTDISK(GB)|DESCRIPTION|TAGS|STATUS|HOST|PID|CDROM\n";
printf $str;
printf OUTPUT $str;
+printf EUREGON $str;
$str = sprintf "
\n
VMID
NAME
OS
DISKSIZE(S)
DISKUSAGE(S)
SOCKETS
CORES
MEMORY(MB)
BOOTDISK(GB)
DESCRIPTION
TAGS
STATUS
HOST
PID
CDROM
\n";
printf HTML $str;
@@ -105,6 +104,13 @@ foreach $vm (sort keys %vms) {
$vms{$vm}{'cdrom'}
);
printf $str;
+
+ # if tag = euregon : extra datei
+ printf EUREGON $str if ($vms{$vm}{'tags'} =~ /euregon/i);
+
+ # if disksize < 1072623616 : ignorieren
+
+ # ausgabe
printf OUTPUT $str;
$vms{$vm}{'disksizes'} =~ s/,/ /g;
@@ -130,12 +136,14 @@ foreach $vm (sort keys %vms) {
printf HTML $str;
}
close OUTPUT;
+close EUREGON;
printf HTML "\n
\n";
close HTML;
print "-- send output1.txt as attachement via email\n";
+# mail
open MAIL, ">mail1.tmp";
printf MAIL "TO: $ARGV[0]\n";
printf MAIL "FROM: CONET Services Monitoring Reporter mail1.tmp";
+printf MAIL "TO: $ARGV[0]\n";
+printf MAIL "FROM: CONET Services Monitoring Reporter