use warnings;
use strict;
use File::Find;
use File::Basename;
use Config;
use Sys::Hostname;
use IPC::Open2;
use feature 'say';

my ($variant, $comp, $patch, $OSinfoSum);
my (@OSinfoSum, @ListInstances  );
my $host = hostname;
my @ExcludeHosts = qw ( arch backup -clone -rep);


######################################################################################################## 
# exclude some hosts from collect
########################################################################################################


########################################################################################################
# test the oS
########################################################################################################

my $OSinfo = "$host"." : "."$Config{osname}"." : "."$Config{osvers}" ;


#print "$OSinfo\n" ;

#########################################################################################################
# test the saphostctrl (SAP-System) and use it for Kernel and patchlevel (SID: Instance number : Kernel : Patchlevel )
#########################################################################################################

#@ListInstances = `/usr/sap/hostctrl/exe/saphostctrl -function ListInstances | sed 's/ Inst Info : //'` ;

if ( -e "/usr/sap/hostctrl/exe/saphostctrl") {
         @ListInstances = `/usr/sap/hostctrl/exe/saphostctrl -function ListInstances  | grep -vE "DAA|DAB" |sed 's/,//g' | awk '{print \$4,":",\$6,":"}` ;
        chomp (@ListInstances);
}
else {
        my $info = $OSinfo." : : : : :";
        push @OSinfoSum, $info;
}

foreach (@ListInstances) {
        #print "$_\n";
        my $UpperSID = substr($_,0,3);
        my $Instance = substr($_,6,2);
        my $LowerSID = lc $UpperSID;
        my $sidadm = $LowerSID."adm";
        my $ListInstances = $_;
        
        #print "$UpperSID\n";
        #print "$LowerSID\n";
        #print "$SIDadm\n";

        # delete all OS mails 
        #system ("su - $SIDadm -c /"echo /'d */' | mail -N/"")
        system ( "su - $sidadm -c cat /dev/null > /var/spool/mail/$sidadm" );
        my $DBhost = &DBhost($UpperSID);
        
        
        my $disp =  `su - $sidadm -c which disp+work 2>/dev/null`;
                        
        if ( $? == 0 ) {
        
        #print "$disp \n";
        #print "$sidadm\n";
        
                #my @SapKernel_Info = `su - $SIDadm -c $disp  2>/dev/null`;
                my $pid = open(PH, "{ su - $sidadm  -c disp+work; } 2>/dev/null |") or die $!;
                my @SapKernel_Info;
                while (<PH>) {
                #print "output = $_";
        push  @SapKernel_Info, $_;
                }
                
                #print join "\n", @SapKernel_Info;
                
                foreach (@SapKernel_Info) {

                        if (/kernel make variant/) {
                        $variant = (split)[-1];
                        } elsif (/compilation mode/) {
                        $comp = (split)[-1];
                        } elsif (/patch number/) {
                        $patch = (split)[-1];
                        }
                }
        
                my $info = $OSinfo." : ".$ListInstances." ".$variant." : ".$comp." : ".$patch." : ".$DBhost;
                push @OSinfoSum, $info;
                undef $variant;
                undef $comp;
                undef $patch;   
        }
        else {
                my $info = $OSinfo." : ".$ListInstances." :   : ";
                push @OSinfoSum, $info;
        }
}

#########################################################################################################
# get with saphostctrl  DB type , version and patchlevel
#########################################################################################################

#my @ListDatabaseSystems = `/usr/sap/hostctrl/exe/saphostctrl -function ListDatabaseSystems | egrep -i "Database name|Instance name" | sed 's/^[ \t]*//'|sed  's/^ +//'` ;

#print "\n\n @ListInstances";

print join "\n", @OSinfoSum;
print "\n";

#print "\n\n @ListDatabaseSystems";



sub DBhost {

my $file = "/usr/sap/$_[0]/SYS/profile/DEFAULT.PFL";
my $search = 'dbhost';

open my $fh, '<', $file or die "open($file,ro) failed: $!";

my $seen = ' ';

LINE:
while ( my $line = <$fh> ) {

  # skip lines without search string 
  next LINE   if index( lc($line), lc($search), 0 ) < 0;

  # extract the third field of line
  my $third = ( split( ' ', $line, ) )[2] // '';

  # keep the fields uniq
  $third  unless $third eq $seen;
  $seen = $third;
}


 return $seen;
}
   


exit