Changeset 203
- Timestamp:
- Dec 5, 2005, 11:50:40 AM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dasscm/dasscm
r202 r203 161 161 } 162 162 163 164 sub 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 163 191 # 164 192 # add (is used for command add and commit) … … 259 287 if (m/help/i) { 260 288 help(@ARGV); 289 } elsif (m/login/i) { 290 # rewrite command. just to make sure 291 login( @ARGV ); 261 292 } elsif (m/add/i) { 262 293 # rewrite command. just to make sure … … 277 308 check_env(); 278 309 } 279 } 310 # login 311 # commitall 312 # revert 313 # status (chkconf) 314 }
Note:
See TracChangeset
for help on using the changeset viewer.