Subversion Repositories DevTools

Rev

Rev 4030 | Rev 4086 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4030 Rev 4076
Line 996... Line 996...
996 
        $ciComment =~ s~\r~\n~g;
 996 
        $ciComment =~ s~\r~\n~g;
997 
        $ciComment = encode('UTF-8', $ciComment, Encode::FB_DEFAULT);
 997 
        $ciComment = encode('UTF-8', $ciComment, Encode::FB_DEFAULT);
998 
 
 998 
 
999 
        $svn->SvnCi ('comment' => $ciComment, 'allowSame' => 1 );
 999 
        $svn->SvnCi ('comment' => $ciComment, 'allowSame' => 1 );
1000 
        Message ("Repository Ref: " . $svn->RmRef) unless( $opt_label );
 1000 
        Message ("Repository Ref: " . $svn->RmRef) unless( $opt_label );
- 
 
 1001 
        unless ($svn->{NoRepoChanges}) {
1001 
        $svn->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
 1002 
            $svn->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
1002 
        $svn->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
 1003 
            $svn->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
- 
 
 1004 
        }
1003 
 
 1005 
 
1004 
        #
 1006 
        #
1005 
        #   Label the result
 1007 
        #   Label the result
1006 
        #   The workspace will have been updated, so we can use it as the base for
 1008 
        #   The workspace will have been updated, so we can use it as the base for
1007 
        #   the labeling process
 1009 
        #   the labeling process
1008 
        #
 1010 
        #
1009 
        if ( $opt_label )
 1011 
        if ( $opt_label )
1010 
        {
 1012 
        {
- 
 
 1013 
            my $tagComment = "$pkgPath: Tagged by Jats Svn Import";
- 
 
 1014 
            if ($svn->{NoRepoChanges} && $opt_log )
- 
 
 1015 
            {
- 
 
 1016 
                $tagComment .= "\nNo Repository changes on last commit. Comment was:";
- 
 
 1017 
                $tagComment .= "\n" . $opt_log;
- 
 
 1018 
                $tagComment =~ s~\r\n~\n~g;
- 
 
 1019 
                $tagComment =~ s~\r~\n~g;
- 
 
 1020 
                $tagComment = encode('UTF-8', $tagComment, Encode::FB_DEFAULT);
- 
 
 1021 
            }
1011 
            $svn->SvnCopyWs (
 1022 
            $svn->SvnCopyWs (
1012 
                           target => $url_label,
 1023 
                           target => $url_label,
1013 
                           'noswitch' => 1,
 1024 
                           'noswitch' => 1,
1014 
                           'replace' => $opt_replace,
 1025 
                           'replace' => $opt_replace,
1015 
                           'comment' => "$pkgPath: Tagged by Jats Svn Import",
 1026 
                           'comment' => $tagComment,
1016 
                           );
 1027 
                           );
1017 
            Message ("Repository Ref: " . $svn->RmRef);
 1028 
            Message ("Repository Ref: " . $svn->RmRef);
1018 
            Message ("Vcs Tag       : " . $svn->SvnTag);
 1029 
            Message ("Vcs Tag       : " . $svn->SvnTag);
1019 
            $svn->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
 1030 
            $svn->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
1020 
            $svn->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
 1031 
            $svn->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));