luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Version control: Don't print password prompts twice, and allow commit user & password to be remembered.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Version control: Don't print password prompts twice.
* NEW: Version control: Allow commit user & password to be remembered.
This commit is contained in:
gambas 2017-10-11 01:23:17 +02:00
parent 3889bd606c
commit 7378a6c102
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
app/src/gambas3/.src/VersionControl/VersionControl.module
View file

@ -144,20 +144,20 @@ Public Sub Process_Read()
If $bIdent Then If $bIdent Then
If Right(RTrim(sLine)) = ":" Then If Right(RTrim(sLine)) = ":" Then
If InStr(sLine, "username", 1, gb.IgnoreCase) Then If InStr(sLine, "username", 1, gb.IgnoreCase) Then
If $bOutput Then Insert(sLine) 'If $bOutput Then Insert(sLine)
If Not $bAuth Then GetAuthentication() If Not $bAuth Then GetAuthentication()
If Not $sUser Then Goto CANCEL If Not $sUser Then Goto CANCEL
Print #Last, $sUser Print #Last, $sUser
Insert(User & "\n") Insert(User & "\n")
$sOutput = "" $sOutput = ""
Else If InStr(sLine, "password", 1, gb.IgnoreCase) Then Else If InStr(sLine, "password", 1, gb.IgnoreCase) Then
If $bOutput Then Insert(sLine) 'If $bOutput Then Insert(sLine)
If Not $bAuth Then GetAuthentication() If Not $bAuth Then GetAuthentication()
Print #Last, $sPassword Print #Last, $sPassword
Insert("********" & "\n") Insert("********" & "\n")
$sOutput = "" $sOutput = ""
Else If InStr(sLine, "passphrase", 1, gb.IgnoreCase) Then Else If InStr(sLine, "passphrase", 1, gb.IgnoreCase) Then
If $bOutput Then Insert(sLine) 'If $bOutput Then Insert(sLine)
If Not $bAuth Then GetAuthentication(True) If Not $bAuth Then GetAuthentication(True)
Print #Last, $sPassword Print #Last, $sPassword
Insert("********" & "\n") Insert("********" & "\n")
@ -458,6 +458,7 @@ End
Private Sub GetAuthentication(Optional bNoUser As Boolean) Private Sub GetAuthentication(Optional bNoUser As Boolean)
Dialog.NoUser = bNoUser Dialog.NoUser = bNoUser
Dialog.Key = Project.Name &/ "VersionControl"
If Dialog.AskPassword() Then Return If Dialog.AskPassword() Then Return
$sUser = Dialog.User $sUser = Dialog.User
$sPassword = Dialog.Password $sPassword = Dialog.Password