Subversion Repositories DevTools

#

    #

#    #

    #   Add supplemental tags if this version is in a 'Release'

#    #   Add supplemental tags if this version is in a 'Release'

    #   But only for some packages - els looks like a mess

#    #   But only for some packages - else looks like a mess

    #   Just a solution for the ITSO guys

#    #   Just a solution for the ITSO guys

    #

#    #

    foreach my $rtag_id ( keys %{$versions{$entry}{Releases}}  )

#    foreach my $rtag_id ( keys %{$versions{$entry}{Releases}}  )

    {

#    {

        next unless ( $svnRepo =~ m~/ITSO_TRACS(/|$)~);

#        next unless ( $svnRepo =~ m~/ITSO_TRACS(/|$)~);

#

        my $prog_id = $versions{$entry}{Releases}{$rtag_id}{proj_id};

#        my $prog_id = $versions{$entry}{Releases}{$rtag_id}{proj_id};

        Message ("Adding Release Tag:$prog_id:$rtag_id");

#        Message ("Adding Release Tag:$prog_id:$rtag_id");

#

        my $rtext = 'Release_' . saneString($versions{$entry}{Releases}{$rtag_id}{rname});

#        my $rtext = 'Release_' . saneString($versions{$entry}{Releases}{$rtag_id}{rname});

        my @comment;

#        my @comment;

        push @comment, "Tagged by ClearCase to Subversion import";

#        push @comment, "Tagged by ClearCase to Subversion import";

        push @comment, "Project:$prog_id:$versions{$entry}{Releases}{$rtag_id}{pname}";

#        push @comment, "Project:$prog_id:$versions{$entry}{Releases}{$rtag_id}{pname}";

        push @comment, "Release:$rtag_id:$versions{$entry}{Releases}{$rtag_id}{rname}";

#        push @comment, "Release:$rtag_id:$versions{$entry}{Releases}{$rtag_id}{rname}";

#

        $data->{ReleaseTag}{$prog_id}{$rtag_id}{name} = $rtext;

#        $data->{ReleaseTag}{$prog_id}{$rtag_id}{name} = $rtext;

#

        $rv = JatsToolPrint ( 'jats_svnlabel' ,

#        $rv = JatsToolPrint ( 'jats_svnlabel' ,

                    '-comment', encode('UTF-8', join("\n", @comment), Encode::FB_DEFAULT),

#                    '-comment', encode('UTF-8', join("\n", @comment), Encode::FB_DEFAULT),

                    $data->{rmRef},

#                    $data->{rmRef},

                    '-clone',

#                    '-clone',

                    $rtext,

#                    $rtext,

#                    @args,

##                    @args,

                    '-author=buildadm',

#                    '-author=buildadm',

                     );

#                     );

        $data->{ReleaseTag}{$prog_id}{$rtag_id}{eState} = $rv;

#        $data->{ReleaseTag}{$prog_id}{$rtag_id}{eState} = $rv;

        $data->{ReleaseTag}{tCount}++;

#        $data->{ReleaseTag}{tCount}++;

#

        if ( $rv )

#        if ( $rv )

        {

#        {

            $data->{ReleaseTag}{eCount}++;

#            $data->{ReleaseTag}{eCount}++;

            Warning("Failed to add Release Tag: $rtext");

#            Warning("Failed to add Release Tag: $rtext");

        }

#        }

    }

#    }

#