Changeset 203 for trunk/dasscm


Ignore:
Timestamp:
Dec 5, 2005, 11:50:40 AM (19 years ago)
Author:
joergs
Message:

experimental support for 'dasscm login'

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dasscm/dasscm

    r202 r203  
    161161}
    162162
     163
     164sub login(@)
     165{
     166        check_parameter(@_,1);
     167        #check_env();
     168       
     169        #$DASSCM_USER $DASSCM_PW
     170        my $output_user = "";
     171        if( $DASSCM_USER ) {
     172            $output_user = " ($DASSCM_USER)";
     173        }
     174           
     175        print "Enter DASSCM user name",$output_user,": ";
     176        my $input_user = <STDIN>;
     177        chomp($input_user);
     178        print "Enter DASSCM user password: ";
     179        my $input_pw = <STDIN>;
     180        chomp($input_pw);
     181
     182        # TODO: test svn login
     183
     184        $ENV{'DASSCM_USER'} = $input_user;
     185        $ENV{'DASSCM_PW'} = $input_pw;
     186
     187        exec( "bash" ) or die "can't login";
     188
     189}
     190
    163191#
    164192# add (is used for command add and commit)
     
    259287        if (m/help/i) {
    260288                help(@ARGV);
     289        } elsif (m/login/i) {
     290                # rewrite command. just to make sure
     291                login( @ARGV );
    261292        } elsif (m/add/i) {
    262293                # rewrite command. just to make sure
     
    277308                check_env();
    278309        }
    279 }
     310        # login
     311        # commitall
     312        # revert
     313        # status (chkconf)
     314}
Note: See TracChangeset for help on using the changeset viewer.