Subversion Repositories DevTools

Rev

Rev 7406 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7406 Rev 7410
Line 745... Line 745...
745
 
745
 
746
    #
746
    #
747
    #   Have a ZIP file of the desired contents
747
    #   Have a ZIP file of the desired contents
748
    #   Could try to detect if it differs from the one already in the bucket
748
    #   Could try to detect if it differs from the one already in the bucket
749
    #       Don't want to trigger CI/CD pipeline operations unless we need to
749
    #       Don't want to trigger CI/CD pipeline operations unless we need to
-
 
750
    #
750
    #       
751
    my $digest;
-
 
752
    my $md5Digestor = Digest::MD5->new;
-
 
753
    if (open( my $zipFileHandle, '<', $zipFile )) {
-
 
754
        binmode ($zipFileHandle);
-
 
755
        $md5Digestor->addfile($zipFileHandle);
751
    my $digest = md5_hex($zipFile);
756
        $digest = $md5Digestor->hexdigest();
-
 
757
    } else {
-
 
758
        $logger->warn("Cannot open ZIP: $rtag_id, $!");
-
 
759
        return;
-
 
760
    }
-
 
761
    $logger->verbose("Zip MD5: $digest");
752
    $reason = "";
762
    $reason = "";
753
    if ( !exists $activeReleases->{$rtag_id}{s3} ) {
763
    if ( !exists $activeReleases->{$rtag_id}{s3} ) {
754
        $reason = 'NoS3Data';
764
        $reason = 'NoS3Data';
755
 
765
 
756
    } elsif (! exists $activeReleases->{$rtag_id}{md5}) {
766
    } elsif (! exists $activeReleases->{$rtag_id}{md5}) {
Line 763... Line 773...
763
        $logger->verbose("Zip file has same md5 hash - upload skipped");
773
        $logger->verbose("Zip file has same md5 hash - upload skipped");
764
        #
774
        #
765
        #   Update the known signature
775
        #   Update the known signature
766
        $activeReleases->{$rtag_id}{depsig} = $depsig;
776
        $activeReleases->{$rtag_id}{depsig} = $depsig;
767
        $activeReleases->{$rtag_id}{seqnum} = $seqnum;
777
        $activeReleases->{$rtag_id}{seqnum} = $seqnum;
768
        $activeReleases->{$rtag_id}{md5} = $digest;
-
 
769
        return;
778
        return;
770
    }
779
    }
771
    $logger->verbose("ZipMd5 Test: $reason");
780
    $logger->verbose("ZipMd5 Test: $reason");
772
 
781
 
773
    #   Create a command to transfer the file to AWS use the cli tools
782
    #   Create a command to transfer the file to AWS use the cli tools