/*
-tofuproxy -- HTTP proxy with TLS certificates management
-Copyright (C) 2021 Sergey Matveev <stargrave@stargrave.org>
+tofuproxy -- flexible HTTP/HTTPS proxy, TLS terminator, X.509 TOFU
+ manager, WARC/geminispace browser
+Copyright (C) 2021-2023 Sergey Matveev <stargrave@stargrave.org>
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
"bytes"
"errors"
"fmt"
- "io/ioutil"
- "log"
- "os"
"os/exec"
- "path/filepath"
"strings"
-)
-func findInNetrc(host string) (string, string) {
- netrcPath, ok := os.LookupEnv("NETRC")
- if !ok {
- netrcPath = filepath.Join(os.Getenv("HOME"), ".netrc")
- }
- data, err := ioutil.ReadFile(netrcPath)
- if err != nil {
- if os.IsNotExist(err) {
- return "", ""
- }
- log.Fatalln(err)
- }
- var login string
- var password string
- for _, line := range strings.Split(string(data), "\n") {
- if i := strings.Index(line, "#"); i >= 0 {
- line = line[:i]
- }
- f := strings.Fields(line)
- if len(f) >= 6 &&
- f[0] == "machine" && f[1] == host &&
- f[2] == "login" && f[4] == "password" {
- login, password = f[3], f[5]
- break
- }
- }
- return login, password
-}
+ ttls "go.stargrave.org/tofuproxy/tls"
+)
func authDialog(host, realm string) (string, string, error) {
var b bytes.Buffer
userInit, passInit := findInNetrc(host)
- b.WriteString(fmt.Sprintf(`
+ fmt.Fprintf(&b, `
+tk_setPalette grey
wm title . "Unauthorized: %s"
label .luser -text "User"
set p [entry .pass -show "*" -textvariable passinit]
grid .lpass .pass
-proc submit {} {
+proc login {} {
global u p
puts [$u get]
puts [$p get]
exit
}
-button .submit -text "Submit" -command submit
-grid .submit
-`, realm, userInit, passInit))
- cmd := exec.Command(CmdWish)
+button .login -text "Login" -command login
+grid .login
+
+bind . <KeyPress> {switch -exact %%K {
+ q {exit 0} ; # reject once
+ l login
+}}
+`, strings.ReplaceAll(realm, "\"", ""), userInit, passInit)
+ cmd := exec.Command(ttls.CmdWish)
cmd.Stdin = &b
out, err := cmd.Output()
if err != nil {