Subversion Repositories DevTools

use Sys::Hostname;

my $CountDeleted = 0;

my $CountMissing = 0;

my $CountDamaged = 0;

my $CountTotal = 0;

#

#   MetaData

#   About the disk

#

printMetaData('Hostname', hostname);

insertDiskMetaData($dpkg);

#

#   Package Information

#   

        #

        #   Update statistics

        #

        $CountTotal++;   

        $CountDeleted++ if ($age);

        $CountMissing++ if (! -e $vdir);

        $CountDamaged++ if (! -f "$vdir/descpkg");

#

#   Output summary data as MetaData

#

printMetaData('Total',$CountTotal);

printMetaData('Delete',$CountDeleted);

printMetaData('Missing',$CountMissing);

printMetaData('Damaged',$CountDamaged);

#-------------------------------------------------------------------------------

# Function        : printMetaData 

#

# Description     : Add metadata to the output stream

#

# Inputs          : name        - Name of the data

#                   value       - Value

#

# Returns         : 

#

sub printMetaData

{

    my ($name,$value) = @_;

    print('Metadata ', quoteData($name, $value, 1), "\n");

}

#-------------------------------------------------------------------------------

# Function        : insertDiskMetaData  

#

# Description     : Generates Disk Metadata entries in the output stream

#                   Keys are: 

#                       size   used  avail  pcent 

#                       itotal iused iavail ipcent 

#

#                   Needs to use basic 'df' functionality. Not all targets

#                   will have a full gnu implementation. 

#

# Inputs          : $path       - Path somewhere on the drive to examine

#

# Returns         : Nothing

#

sub insertDiskMetaData

{

    my ($path) = @_;

    #

    #   Get disk information

    #

    my @items = qw(- size used avail pcent -);

    open my $dfData , "-|", "df", '-P', $path;

    while (<$dfData>)

    {

        next if $. < 2;

        s~\s+$~~;

        s~\%~~g;

        my @data = split;

        for (my $ii=0; $ii <= $#items; $ii++)

        {

            next if $items[$ii] eq '-';

            printMetaData( $items[$ii], $data[$ii]);

        }

    }

    close $dfData;

    #

    #   Get Inode information

    #   Disk can fill up if inodes are depleated

    #

    @items = qw(- isize iused iavail ipcent -);

    open $dfData , "-|", "df", '-Pi', $path;

    while (<$dfData>)

    {

        next if $. < 2;

        s~\s+$~~;

        s~\%~~g;

        my @data = split;

        for (my $ii=0; $ii <= $#items; $ii++)

        {

            next if $items[$ii] eq '-';

            printMetaData($items[$ii], $data[$ii]);

        }

    }

    close $dfData;

}