Changeset 203

Timestamp:

Dec 5, 2005, 11:50:40 AM (19 years ago)

Author:

joergs

Message:

experimental support for 'dasscm login'

File:

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

trunk/dasscm/dasscm

@@ -161 +161 @@
 }
 
+
+sub login(@)
+{
+        check_parameter(@_,1);
+        #check_env();
+        
+        #$DASSCM_USER $DASSCM_PW
+        my $output_user = "";
+        if( $DASSCM_USER ) {
+            $output_user = " ($DASSCM_USER)";
+        }
+            
+        print "Enter DASSCM user name",$output_user,": ";
+        my $input_user = <STDIN>;
+        chomp($input_user);
+        print "Enter DASSCM user password: ";
+        my $input_pw = <STDIN>;
+        chomp($input_pw);
+
+        # TODO: test svn login
+
+        $ENV{'DASSCM_USER'} = $input_user;
+        $ENV{'DASSCM_PW'} = $input_pw;
+
+        exec( "bash" ) or die "can't login";
+
+}
+
 #
 # add (is used for command add and commit)
@@ -259 +287 @@
         if (m/help/i) {
                 help(@ARGV);
+        } elsif (m/login/i) {
+                # rewrite command. just to make sure
+                login( @ARGV );
         } elsif (m/add/i) {
                 # rewrite command. just to make sure
@@ -277 +308 @@
                 check_env();
         }
-}
+        # login
+        # commitall
+        # revert
+        # status (chkconf)
+}