Changeset 193 for trunk


Ignore:
Timestamp:
Nov 17, 2004, 10:20:26 PM (20 years ago)
Author:
joergs
Message:

cleanup

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dasscm/dasscm

    r191 r193  
    174174}
    175175
     176
     177sub blame(@)
     178{
     179        check_parameter(@_,1);
     180        check_env();
     181       
     182        (my $basename, my $dirname_prod, my $dirname_repo, my $filename_prod, my $filename_repo) = get_filenames($_[0]);
     183
     184        system( "$SVN blame --username $DASSCM_USER $subversion_options $filename_repo" );
     185}
     186
     187
     188
    176189sub commit(@)
    177190{
     
    190203
    191204        # commit calls $EDITOR. uses "system" here, to display output
    192         system( "$SVN commit --username $DASSCM_USER $subversion_options $DASSCM_REPO" );
     205        system( "$SVN commit --username $DASSCM_USER $subversion_options $filename_repo" );
    193206        # TODO: commit (-m)
    194207}
     
    232245        } elsif (m/add/i) {
    233246                add(@ARGV);
     247        } elsif (m/blame/i) {
     248                blame(@ARGV);                   
    234249        } elsif (m/commit/i) {
    235250                commit(@ARGV);
Note: See TracChangeset for help on using the changeset viewer.