X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=tlsauth.go;h=fd9839a54b39885e2abaf6916aa524b9393687a7;hb=0c0a261a6ef4fddfc34a9150005f7964cc69c420;hp=b980e08122f17f12ea97c43bb81a13e255756bea;hpb=b4e23c13d7b2ea73f8b1167c044a521d540120ad;p=tofuproxy.git

diff --git a/tlsauth.go b/tlsauth.go
index b980e08..fd9839a 100644
--- a/tlsauth.go
+++ b/tlsauth.go
@@ -1,5 +1,5 @@
 /*
-tofuproxy -- HTTP proxy with TLS certificates management
+tofuproxy -- flexible HTTP/WARC proxy with TLS certificates management
 Copyright (C) 2021 Sergey Matveev <stargrave@stargrave.org>
 
 This program is free software: you can redistribute it and/or modify
@@ -64,14 +64,19 @@ set lb [listbox .lb]
 .lb insert end ""
 grid .lb
 
-proc submit {} {
+proc login {} {
     global lb
     puts [$lb get active]
     exit
 }
 
-button .submit -text "Use" -command submit
-grid .submit
+button .login -text "Use" -command login
+grid .login
+
+bind . <KeyPress> {switch -exact %%K {
+    q {exit 0} ; # reject once
+    l login
+}}
 
 label .lTLSVersion -text "TLS version: %s"
 grid .lTLSVersion