Subversion Repositories DevTools

my $maxTypeLength = 8;

    #   Process the XML

    #       Detect merge clashes

    #       Create new XML - assuming the extraction will NOT overwrite existing files

    my @newXml;

            my $entryExists;

            my $keepEntry;

                #

                #   Calculate some common data items

                #       Calc max host name length for pretty printing

                my $hostnameLen = length ($entry->{host} || '');

                $maxHostNameLength = $hostnameLen if ($hostnameLen > $maxHostNameLength);

                my $typeLen = length ($entry->{type} || '');

                $maxTypeLength = $typeLen if ($typeLen > $maxTypeLength);

                my $hostEntry = {host => $entry->{host}, md5sum => $entry->{md5sum}, type => $entry->{type}};

                push @{$fileData{$entry->{fullname}}{hosts}}, $hostEntry;

                my $store = $fileData{$entry->{fullname}};

                #

                #   Determine if we have seen this file before

                #   If so then we need to:

                #       Perform a merge clash

                #       Ensure that its of the same type

                #       Mark the new XML as 'merge'

                #

                $entryExists = 0;

                $keepEntry = 1;

                if (exists $store->{type})

                {

                    $entryExists = 1;

                    if ($store->{type} ne $entry->{type})

                    {

                        $store->{bad} = 1;

                        $store->{badType} = 1;

                    }

                }

                else

                {

                    $store->{type} = $entry->{type};

                }

                {

                    $keepEntry = 0 if $entryExists;

                    next;

                }

                {

                    $keepEntry = 0 if $entryExists;

                    next;

                }

            }

            continue

            {

                #

                #   This block is always executed

                #   It is used to maintain the entry and the rewrite the XML file list

                #   Do not include the build.files.xxx.xml

                #       They are about to be deleted

                #       Not detailed in the non-tar package merge process

                #

                if ($keepEntry)

                {

                    unless ($entry->{fullname} =~ m~^built\.files\..*\.xml$~ )

                    {

                        if ($entryExists)

                        {

                            delete $entry->{md5sum};

                            delete $entry->{size};

                            $entry->{type} = 'merge';

                        }

                        push @newXml, $entry;

                    }

                }

    #DebugDumpData("newXml",\@newXml);

            #

            #   Have a TYPE merge error

            #       Detail what has happened

            #       Generate pretty output showning on which machines that are command.

            #

            my %typeList;

            foreach my $e ( @{$fileData{$entry}{hosts}} ) {

                UniquePush (\@{$typeList{$e->{type}}}, $e->{host});

            }

            reportMergeError('Entry Path: ' . $entry);

            foreach my $e ( @{$fileData{$entry}{hosts}} )

            {

                }

                reportMergeError('    Provided by: ' . sprintf('%-*s',$maxHostNameLength,$e->{host}) . ' Type: ' . sprintf('%-*s',$maxTypeLength,$e->{type}) . $hostList );

        else

        {

            #

            #   Have a FILE merge error

            #       Detail what has happened

            #       Generate pretty output showning on which machines that are common.

            #

            my %md5List;

            foreach my $e ( @{$fileData{$entry}{hosts}} ) {

                UniquePush (\@{$md5List{$e->{md5sum}}}, $e->{host});

            }

            reportMergeError('File Name: ' . $entry);

            foreach my $e ( @{$fileData{$entry}{hosts}} )

            {

                my $hostList;

                my @sameHosts = @{$md5List{$e->{md5sum}}};

                ArrayDelete (\@sameHosts, $e->{host});

                if (@sameHosts) {

                    $hostList = ' Same as: ' . join(', ', @sameHosts);

                } else {

                    $hostList = ' Unique to: '. $e->{host};

                }

                reportMergeError('    Provided by: ' . sprintf('%-*s',$maxHostNameLength,$e->{host}) . $hostList );

            }

        }

    #   Replace the built.files.xxx.xml files that came with each package fragment

    #   with a new one caclulated as we merged the fragemnts. The new one will not

    #   have duplicate files - they will be merked as merged.

    #   

    #   Delete existing built.files.xxx.xml

    #   Write out file meta data for the assembled package

    #

    foreach my $item (glob(catdir($pkgTargetDir, 'built.files.*.xml')))

    {

        Verbose("Delete metadata file: $item");

        unlink $item;

    }

    Message("Write new archive metadata");

    writeFileInfo(catfile($pkgTargetDir, 'built.files.packageAssembly.xml'),\@newXml);

    #

# Function        : writeFileInfo 

#

# Description     : Write out an XML file that contains this processes

#                   contribution to the output package 

#

# Inputs          : $targetFile             - File to write XML into

#                   $fileList               - Ref to an array of file data 

#

# Returns         : 

#

sub writeFileInfo

{

    my ($targetFile, $fileList) = @_;

    my $data;

    $data->{file} = $fileList;

    #

    #   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

    #

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

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

    $xs->XMLout($data, 

                'RootName' => 'files', 

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

                'OutputFile' => $XML);

    close $XML;

}

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