Subversion Repositories DevTools

use Digest::MD5;

use File::Find;

our $GBE_HOSTNAME;

    EnvImport ('GBE_HOSTNAME');

    unless (scalar @filesList > 0)

    {

        #

        #   No filelist found in the package

        #   This may occur for packages that did not go though the build system

        #   Create a package-list

        #

        my $item = generateFileList();

        $item =~ s~\\~/~g;

        push @filesList, $item;

    }

    Verbose ("Release Note:", DisplayPath(catdir($DPKG_DOC, $opt_outname)));

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

# Function        : generateFileList

#                   generateFileListProc 

#

# Description     : A fileList has not been found in the target package

#                   Perhaps the package was not created by the build system

#                   

#                   Generate a fileList        

#

# Inputs          : None

#

# Returns         : Path to the generated file list

#

my @generateFileListData;

my $baseLength;

sub generateFileList

{

    my $outXmlFile;

    Verbose("Generate internal filelist - none found in package");

    #

    #   Scan the package and process each file

    #

    $baseLength = length($DPKG_ROOT);

    File::Find::find( \&generateFileListProc, $DPKG_ROOT );

    #

    #   Write out XML of the Generated file list

    #

    my $data;

    $data->{file} = \@generateFileListData;

    #

    #   Write out sections of XML

    #       Want control over the output order

    #       Use lots of attributes and only elements for arrays

    #       Save as one attribute per line - for readability

    #

    $outXmlFile = catdir($DPKG_ROOT,"built.files.$GBE_HOSTNAME.xml");

    Verbose2('Meta File', $outXmlFile);

    my $xs = XML::Simple->new( NoAttr =>0, AttrIndent => 1 );

    open (my $XML, '>', $outXmlFile) || Error ("Cannot create output file: $outXmlFile", $!);

    $xs->XMLout($data, 

                'RootName' => 'files', 

                'XMLDecl'  => '<?xml version="1.0" encoding="UTF-8"?>',

                'OutputFile' => $XML);

    close $XML;

    return $outXmlFile;

}

sub generateFileListProc

{

    my %data;

    my $md5sum;

    my $source = $File::Find::name;

    my $type = 'dir';

    my $target = substr($source, $baseLength);

    $target =~ s~^/~~;

    $target =~ s~/$~~;

    Verbose2("GenFileList: $source, $target");

    return if (length ($target) == 0);

    if (-l $source)

    {

        $type = 'link';

    }

    elsif ( -f $source)

    {

        $type = 'file';

        Verbose2("Calculate MD5 Digest: $source");

        open(my $fh , $source) or Error ("Can't open '$source': $!");

        binmode $fh, ':crlf';

        $md5sum = Digest::MD5->new->addfile($fh)->hexdigest;

        close $fh;

    }

    if (-d $source)

    {

        $data{path} = $target;

    }

    else

    {

        $data{path} = StripFileExt($target);

        $data{name} = StripDir($target);

        if (defined $md5sum)

        {

            $data{size} = (stat($source))[7];

            $data{md5sum} = $md5sum;

        }

    }

    $data{fullname} = $target;

    $data{type} = $type;

    $data{machtype} = 'unknown';

    $data{host} = $GBE_HOSTNAME;

    # Put a nice '/' on the end of the patch elements

    $data{path} .= '/'

        if ( exists ($data{path}) && length($data{path}) > 0);

    push @generateFileListData, \%data;

}