Changeset 235 for trunk/dasscm

Timestamp:

Oct 8, 2008, 5:25:26 PM (16 years ago)

Author:

joergs

Message:

added /bin/bash evaluation, added alternative commands st and update, login USER works now

File:

• trunk/dasscm/dasscm (modified) (7 diffs)

trunk/dasscm/dasscm

@@ -6 +6 @@
 
 use Env
-  qw($DASSCM_PROD $DASSCM_REPO $USER $DASSCM_USERNAME $DASSCM_USER $DASSCM_PASSWORD);
+  qw($DASSCM_PROD $DASSCM_REPO $USER $DASSCM_USERNAME $DASSCM_USER $DASSCM_PASSWORD $SHELL);
 use Cwd;
 use Getopt::Long;
@@ -166 +166 @@
 
     #
-    # check if local repository directory exist (if not creating by init)
+    # check if local repository directory exist 
+    # (if not creating by init)
     #
     if ( $command ne "init" ) {
@@ -425 +426 @@
     check_env();
 
-    my $input_username = $1;
+    my $input_username = $_[0];
 
     if ( not $input_username ) {
@@ -459 +460 @@
       "Server Repository: $DASSCM_SVN_REPOSITORY\n", "\n", "[dasscm shell]\n\n";
 
-    exec("bash") or die "failed to start new shell";
+    my $shell = $SHELL || "bash";
+    exec($shell) or die "failed to start new shell";
 }
 
@@ -466 +468 @@
     check_parameter( @_, 1 );
     check_env();
+
+    # don't do repository creation (svn mkdir) here,
+    # because then their must be a lot of prior checks
 
     # update complete repository
@@ -793 +798 @@
         $command = "ls";
         ls(@ARGV);
-    } elsif (m/up/i) {
+    } elsif ( (m/update/i) || (m/up/i) ) {
         $command = "update";
         update(@ARGV);
@@ -808 +813 @@
         $command = "diff";
         diff(@ARGV);
-    } elsif (m/status/i) {
+    } elsif ( (m/status/i) || (m/st/i) ) {
         $command = "status";
         status(@ARGV);