#!/usr/bin/perl  
use strict;  
use warnings;  
#use GetOpt::Long;  
use Data::Dumper;  
  
my $file = "NewPropertiesExample.txt";  
  
open PROPERTIES, $file or die $!;  
  
my @properties = <PROPERTIES>;  
  
foreach my $prop (@properties){  
  
	if ($prop =~ m/^\[DISK_SETUP\]/){  
  
		my @disk_setup = split /\s+/, $prop;  
		my @owner_rights = split/:/, $disk_setup[3];  
		my %Dsetup = (  
							$disk_setup[1] =>   
								{  
									size => $disk_setup[2],   
									owner => $owner_rights[0],   
									group => $owner_rights[1],   
									perm => $disk_setup[4]  
								}  
						 );  
  
  
		my $disk_report = `df -h | grep -w "$disk_setup[1]" | tr -s [:space:]`;  
        	my @allocated = split /\s+/, $disk_report;  
		my $group = getgrgid((stat $disk_setup[1])[5]);  
 		my $owner = getpwuid((stat $disk_setup[1])[4]);  
  
        	my $perm = `stat --format=%a $disk_setup[1]`;  
		my $server_disk_size = $allocated[1];  
  
    		my $perm_check = compare_perm($Dsetup{$disk_setup[1]}{perm}, $perm);   
		my $size_check = compare_disk_allocation($Dsetup{$disk_setup[1]}{size}, $server_disk_size);  
  
		print "The size for $disk_setup[1] is not matched\n", if $size_check == 0;  
		print "The perm for $disk_setup[1] is not matched\n", if $perm_check == 0;  
  
		foreach my $disk (keys %Dsetup) {  
			print $disk, ":" ;  
			foreach my $disk_para (keys %{$Dsetup{$disk}}){  
				print "\t$disk_para = $Dsetup{$disk}{$disk_para} \n";  
			}  
  
		}  
  
  
  
	}  
	elsif ($prop =~ m/^\[SOFTWARE\]/){  
  
		#	print "SOFTWARE line found => $prop";  
  
	}  
  
	elsif ($prop =~ m/^\[CONFIG\]/){  
  
		#	print "Configuration line found => $prop \n";  
	}  
  
	}  
  
  
sub compare_disk_allocation {  
  
	my $size_status = 0;  
	my ($required_allocation, $server_allocation) = @_;  
	$required_allocation =~ s/[A-Za-z]+//g;	  
	$server_allocation =~ s/[A-Za-z]+//g;	  
	$size_status =1, if ($required_allocation == $server_allocation);  
	return $size_status;  
  
}  
  
  
sub compare_perm {  
  
        my $perm_status = 0;  
        my ($required_perm, $server_perm) = @_;  
        $perm_status =1, if ($required_perm == $server_perm);  
        return $perm_status;  
  
}

[DISK_SETUP]	/app	150GB	own1:grp1		755  
[DISK_SETUP]	/logs	150GB	own2:grp2		755  
[DISK_SETUP]	/home	35GB	own3:grp3	755	  
  
[SOFTWARE]	Introscope9.1.1  
[SOFTWARE]	AnthillPro3  
[SOFTWARE]	Apache Ant 1.8.4  
[SOFTWARE]	Apache Xalan (Java version) 2.7.1  
[SOFTWARE]	Oracle JRE 1.7.0_03 32bit  
[SOFTWARE]	cRON  
[SOFTWARE]	curl  
[SOFTWARE]	expect  
[SOFTWARE]	gzip  
[SOFTWARE]	Postfix  
[SOFTWARE]	tar  
  
[SOFTWARE]	Tomcat 7.0.27  
  
[CONFIG]	ulimit	10000