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