Changeset 1166 for dasscm

Timestamp:

Feb 4, 2014, 4:44:51 PM (11 years ago)

Author:

joergs

Message:

added function log

File:

• dasscm/trunk/usr/bin/dasscm (modified) (5 diffs)

dasscm/trunk/usr/bin/dasscm

@@ -50 +50 @@
     'init'              => 'init',
     'ls'                => 'ls',
+    'log'               => 'log',
     'update'            => 'update',
     'up'                => 'update',
@@ -101 +102 @@
         'params'   => ["PATH_REPO"],
         'function' => \&ls
+    },
+    'log' => {
+        'desc'     => ["show the log messages of commits"],
+        'params'   => ["PATH_REPO"],
+        'function' => \&log
     },
     'update' => {
@@ -278 +284 @@
 
     if ( !$file ) {
-        fatalerror( "failed to open config file" . $file );
+        fatalerror( "failed to open config file " . $file );
     }
 
@@ -285 +291 @@
     # try to open config file
     if ( !open( FH, $file ) ) {
-        fatalerror( "failed to open config file" . $file );
+        fatalerror( "failed to open config file " . $file );
     } else {
         while (<FH>) {
@@ -1263 +1269 @@
 }
 
+sub log(@)
+{
+    my $return_code = $RETURN_OK;
+    check_parameter( @_, 1 );
+    check_env();
+
+    check_parameter( @_, 1 );
+    check_env();
+
+    (
+        my $basename,
+        my $dirname_prod,
+        my $dirname_repo,
+        my $filename_prod,
+        my $filename_repo
+    ) = get_filenames( $_[0] );
+
+    my $retcode = run_interactive("$SVN log --non-interactive --verbose $svnCheckoutCredentials $svnOptions $filename_repo");
+    return $retcode;
+}
+
 sub update(@)
 {