Subversion Repositories DevTools

Rev

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

Rev 385 Rev 387
Line 29... Line 29...
29 
use Cwd;
 29 
use Cwd;
30 
use File::Path;
 30 
use File::Path;
31 
use File::Copy;
 31 
use File::Copy;
32 
use File::Basename;
 32 
use File::Basename;
33 
use File::Compare;
 33 
use File::Compare;
- 
 
 34 
use Encode;
34 
 
 35 
 
35 
my $VERSION = "1.0.0";                          # Update this
 36 
my $VERSION = "1.0.0";                          # Update this
36 
 
 37 
 
37 
#
 38 
#
38 
#   Options
 39 
#   Options
Line 805... Line 806...
805 
    #   Commit the workspace
 806 
    #   Commit the workspace
806 
    #   This will go back onto the trunk
 807 
    #   This will go back onto the trunk
807 
    #
 808 
    #
808 
    $svn = NewSessionByWS( $opt_workdir );
 809 
    $svn = NewSessionByWS( $opt_workdir );
809 
    my $pkgPath = $svn->Path();
 810 
    my $pkgPath = $svn->Path();
- 
 
 811 
 
810 
    my $ciComment = "$pkgPath: Checkin by Svn Import";
 812 
    my $ciComment = "$pkgPath: Checkin by Svn Import";
811 
    $ciComment .= "\n" . $opt_log if ( $opt_log );
 813 
    $ciComment .= "\n" . $opt_log if ( $opt_log );
812 
    $ciComment =~ s~\r\n~\n~g;
 814 
    $ciComment =~ s~\r\n~\n~g;
- 
 
 815 
    $ciComment =~ s~\r~\n~g;
- 
 
 816 
    $ciComment = encode('UTF-8', $ciComment, Encode::FB_DEFAULT);
- 
 
 817 
 
813 
    $svn->SvnCi ('comment' => $ciComment, 'allowSame' => 1 );
 818 
    $svn->SvnCi ('comment' => $ciComment, 'allowSame' => 1 );
814 
    Message ("Repository Ref: " . $svn->RmRef) unless( $opt_label );
 819 
    Message ("Repository Ref: " . $svn->RmRef) unless( $opt_label );
815 
    $svn->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
 820 
    $svn->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
816 
    $svn->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
 821 
    $svn->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
817 
 
 822