Changeset 929 for dasscm/trunk/usr
- Timestamp:
- Sep 23, 2010, 2:45:44 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
dasscm/trunk/usr/bin/dasscm
r926 r929 1169 1169 usage(); 1170 1170 } 1171 1172 return $RETURN_OK; 1171 1173 } 1172 1174 … … 1239 1241 "cd $DASSCM_LOCAL_REPOSITORY_BASE; $SVN checkout $svnCheckoutCredentials $svnOptions $DASSCM_SVN_REPOSITORY" 1240 1242 ); 1243 1244 return $retcode; 1241 1245 } 1242 1246 1243 1247 sub ls(@) 1244 1248 { 1249 my $return_code = $RETURN_OK; 1245 1250 check_parameter( @_, 1 ); 1246 1251 check_env(); … … 1252 1257 print "\n"; 1253 1258 } 1259 return $return_code; 1254 1260 } 1255 1261 1256 1262 sub update(@) 1257 1263 { 1264 my $return_code = $RETURN_OK; 1258 1265 check_parameter( @_, 1 ); 1259 1266 check_env(); … … 1262 1269 # update local repository 1263 1270 # 1264 svn_update(); 1271 if( ! svn_update() ) { 1272 $return_code = $RETURN_NOK; 1273 } 1274 return $return_code; 1265 1275 } 1266 1276 … … 1356 1366 # so a revert is performed in any case 1357 1367 svn_revert(); 1368 return $retcode; 1358 1369 } 1359 1370 … … 1414 1425 # so a revert is performed in any case 1415 1426 svn_revert(); 1427 return $retcode; 1416 1428 } 1417 1429 … … 1505 1517 ) = get_filenames( $_[0] ); 1506 1518 1507 my $retcode = run_interactive("$SVN blame $svnOptions $filename_repo"); 1519 my $retcode = run_interactive("$SVN blame --non-interactive $svnCheckoutCredentials $svnOptions $filename_repo"); 1520 return $retcode; 1508 1521 } 1509 1522 … … 1529 1542 1530 1543 print @diff_result; 1544 return $rc_diff; 1531 1545 } 1532 1546 … … 1670 1684 sub cleanup() 1671 1685 { 1686 my $return_code = $RETURN_OK; 1687 1672 1688 check_env(); 1673 1689 1674 1690 svn_revert($DASSCM_REPO); 1675 1691 svn_remove_unknown_files($DASSCM_REPO); 1692 1693 return $return_code; 1676 1694 } 1677 1695 … … 1684 1702 my @input = @_; 1685 1703 my %options_complete = (); 1704 1705 my $return_code = $RETURN_OK; 1686 1706 1687 1707 # check and remove global options. if options are wrong, nothing to do … … 1739 1759 } 1740 1760 } 1761 return $return_code; 1741 1762 } 1742 1763 1743 1764 sub complete_path(@) 1744 1765 { 1766 my $return_code = $RETURN_OK; 1745 1767 check_parameter( @_, 1 ); 1746 1768 check_env(); … … 1760 1782 print "\n"; 1761 1783 } 1784 return $return_code; 1762 1785 } 1763 1786 1764 1787 sub complete_repopath(@) 1765 1788 { 1789 my $return_code = $RETURN_OK; 1766 1790 check_parameter( @_, 1 ); 1767 1791 check_env(); … … 1789 1813 print "\n"; 1790 1814 } 1791 1815 return $return_code; 1792 1816 } 1793 1817 … … 1878 1902 # action accordinly to command are taken 1879 1903 # 1880 &{ get_command_function($command) }(@ARGV);1904 $return_code = &{ get_command_function($command) }(@ARGV); 1881 1905 1882 1906 exit $return_code;
Note:
See TracChangeset
for help on using the changeset viewer.