annotate main.go @ 2:d19133be91ba

ndex and smarter parser
author Atarwn Gard <a@qwa.su>
date Mon, 09 Mar 2026 01:55:11 +0500
parents 3e7247db5c6e
children eb705d4cdcd7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
1 package main
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
2
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
3 import (
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
4 "crypto/tls"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
5 "fmt"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
6 "log"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
7 "net"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
8 "net/http"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
9 "net/http/httputil"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
10 "net/url"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
11 "os"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
12 "path"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
13 "path/filepath"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
14 "regexp"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
15 "runtime"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
16 "strconv"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
17 "strings"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
18
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
19 "d2o/fcgi"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
20 "d2o/icf"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
21 )
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
22
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
23 func main() {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
24 cfgPath := "/etc/d2obase"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
25 if len(os.Args) > 1 {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
26 cfgPath = os.Args[1]
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
27 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
28
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
29 f, err := os.Open(cfgPath)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
30 if err != nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
31 log.Fatalf("d2o: cannot open config: %v", err)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
32 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
33 cfg, err := icf.Parse(f)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
34 f.Close()
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
35 if err != nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
36 log.Fatalf("d2o: config error: %v", err)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
37 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
38
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
39 for _, d := range cfg.Abstract("d2o") {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
40 switch d.Key {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
41 case "threads":
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
42 n, err := strconv.Atoi(safeArg(d.Args, 0))
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
43 if err == nil && n > 0 {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
44 runtime.GOMAXPROCS(n)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
45 log.Printf("d2o: GOMAXPROCS = %d", n)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
46 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
47 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
48 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
49
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
50 ports := collectPorts(cfg)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
51 if len(ports) == 0 {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
52 log.Fatal("d2o: no port directives found in config")
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
53 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
54
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
55 h := &handler{cfg: cfg}
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
56 errCh := make(chan error, len(ports))
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
57
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
58 for _, pc := range ports {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
59 go func(pc portConfig) {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
60 errCh <- pc.listen(h)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
61 }(pc)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
62 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
63
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
64 log.Fatal(<-errCh)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
65 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
66
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
67 // --- Port collection --------------------------------------------------------
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
68
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
69 type portConfig struct {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
70 addr string
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
71 certFile string
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
72 keyFile string
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
73 isTLS bool
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
74 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
75
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
76 func (pc portConfig) listen(h http.Handler) error {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
77 if !pc.isTLS {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
78 log.Printf("d2o: listening on %s (http)", pc.addr)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
79 return http.ListenAndServe(pc.addr, h)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
80 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
81 cert, err := tls.LoadX509KeyPair(pc.certFile, pc.keyFile)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
82 if err != nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
83 return fmt.Errorf("d2o: tls: %w", err)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
84 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
85 ln, err := tls.Listen("tcp", pc.addr, &tls.Config{
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
86 Certificates: []tls.Certificate{cert},
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
87 MinVersion: tls.VersionTLS12,
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
88 })
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
89 if err != nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
90 return fmt.Errorf("d2o: listen %s: %w", pc.addr, err)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
91 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
92 log.Printf("d2o: listening on %s (https)", pc.addr)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
93 return http.Serve(ln, h)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
94 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
95
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
96 func collectPorts(cfg *icf.Config) []portConfig {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
97 seen := make(map[string]bool)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
98 var out []portConfig
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
99
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
100 for _, b := range cfg.Blocks {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
101 dirs := cfg.ResolveBlock(b, nil)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
102
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
103 var cert, key string
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
104 for _, d := range dirs {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
105 if d.Key == "tls" {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
106 cert = safeArg(d.Args, 0)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
107 key = safeArg(d.Args, 1)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
108 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
109 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
110
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
111 for _, d := range dirs {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
112 switch d.Key {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
113 case "port":
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
114 addr := ":" + safeArg(d.Args, 0)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
115 if !seen[addr] {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
116 seen[addr] = true
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
117 out = append(out, portConfig{addr: addr})
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
118 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
119 case "port+tls":
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
120 addr := ":" + safeArg(d.Args, 0)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
121 c := safeArg(d.Args, 1)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
122 k := safeArg(d.Args, 2)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
123 if c == "" {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
124 c = cert
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
125 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
126 if k == "" {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
127 k = key
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
128 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
129 if !seen[addr] {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
130 seen[addr] = true
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
131 out = append(out, portConfig{addr: addr, certFile: c, keyFile: k, isTLS: true})
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
132 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
133 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
134 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
135 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
136 return out
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
137 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
138
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
139 // --- HTTP Handler -----------------------------------------------------------
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
140
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
141 type handler struct {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
142 cfg *icf.Config
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
143 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
144
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
145 func (h *handler) ServeHTTP(w http.ResponseWriter, r *http.Request) {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
146 host := stripPort(r.Host)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
147 reqPath := path.Clean(r.URL.Path)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
148
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
149 dirs, caps := h.cfg.Match(host + reqPath)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
150 if dirs == nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
151 dirs, caps = h.cfg.Match(host)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
152 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
153 if dirs == nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
154 http.Error(w, "not found", http.StatusNotFound)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
155 return
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
156 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
157
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
158 h.serve(w, r, dirs, caps)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
159 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
160
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
161 func (h *handler) serve(w http.ResponseWriter, r *http.Request, dirs []icf.Directive, _ map[string]string) {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
162 var (
2
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
163 rootDir string
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
164 rootShow bool
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
165 ndex []string
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
166 fcgiAddr string
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
167 fcgiPat string
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
168 rprxAddr string
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
169 rdirCode int
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
170 rdirURL string
0
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
171 )
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
172
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
173 for _, d := range dirs {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
174 switch d.Key {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
175 case "root":
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
176 rootDir = safeArg(d.Args, 0)
2
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
177 rootShow = safeArg(d.Args, 1) == "show"
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
178 case "ndex":
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
179 ndex = d.Args
0
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
180 case "fcgi":
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
181 fcgiAddr = safeArg(d.Args, 0)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
182 fcgiPat = safeArg(d.Args, 1)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
183 if fcgiPat == "" {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
184 fcgiPat = "*"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
185 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
186 case "rprx":
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
187 rprxAddr = safeArg(d.Args, 0)
2
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
188 case "rdir":
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
189 rdirCode, _ = strconv.Atoi(safeArg(d.Args, 0))
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
190 rdirURL = safeArg(d.Args, 1)
0
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
191 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
192 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
193
2
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
194 if rdirURL != "" {
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
195 if rdirCode == 0 {
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
196 rdirCode = http.StatusFound
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
197 }
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
198 http.Redirect(w, r, rdirURL, rdirCode)
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
199 return
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
200 }
0
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
201 if rprxAddr != "" {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
202 serveReverseProxy(w, r, rprxAddr)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
203 return
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
204 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
205 if fcgiAddr != "" && matchGlob(fcgiPat, r.URL.Path) {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
206 if err := serveFCGI(w, r, fcgiAddr, rootDir); err != nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
207 log.Printf("d2o: fcgi error: %v", err)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
208 http.Error(w, "gateway error", http.StatusBadGateway)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
209 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
210 return
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
211 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
212 if rootDir != "" {
2
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
213 serveStatic(w, r, rootDir, rootShow, ndex)
0
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
214 return
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
215 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
216
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
217 http.Error(w, "not found", http.StatusNotFound)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
218 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
219
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
220 // --- Static -----------------------------------------------------------------
2
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
221 func serveStatic(w http.ResponseWriter, r *http.Request, rootDir string, show bool, ndex []string) {
0
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
222 fpath := filepath.Join(rootDir, filepath.FromSlash(path.Clean(r.URL.Path)))
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
223
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
224 info, err := os.Stat(fpath)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
225 if os.IsNotExist(err) {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
226 http.Error(w, "not found", http.StatusNotFound)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
227 return
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
228 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
229 if err != nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
230 http.Error(w, "internal error", http.StatusInternalServerError)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
231 return
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
232 }
1
3e7247db5c6e show index.html
Atarwn Gard <a@qwa.su>
parents: 0
diff changeset
233
0
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
234 if info.IsDir() {
2
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
235 for _, idx := range ndex {
1
3e7247db5c6e show index.html
Atarwn Gard <a@qwa.su>
parents: 0
diff changeset
236 idxPath := filepath.Join(fpath, idx)
3e7247db5c6e show index.html
Atarwn Gard <a@qwa.su>
parents: 0
diff changeset
237 if _, err := os.Stat(idxPath); err == nil {
3e7247db5c6e show index.html
Atarwn Gard <a@qwa.su>
parents: 0
diff changeset
238 http.ServeFile(w, r, idxPath)
3e7247db5c6e show index.html
Atarwn Gard <a@qwa.su>
parents: 0
diff changeset
239 return
3e7247db5c6e show index.html
Atarwn Gard <a@qwa.su>
parents: 0
diff changeset
240 }
3e7247db5c6e show index.html
Atarwn Gard <a@qwa.su>
parents: 0
diff changeset
241 }
2
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
242 if !show {
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
243 http.Error(w, "forbidden", http.StatusForbidden)
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
244 return
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
245 }
0
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
246 listDir(w, r, fpath, r.URL.Path)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
247 return
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
248 }
1
3e7247db5c6e show index.html
Atarwn Gard <a@qwa.su>
parents: 0
diff changeset
249
0
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
250 http.ServeFile(w, r, fpath)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
251 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
252
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
253 func listDir(w http.ResponseWriter, r *http.Request, dir, urlPath string) {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
254 entries, err := os.ReadDir(dir)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
255 if err != nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
256 http.Error(w, "cannot read directory", http.StatusInternalServerError)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
257 return
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
258 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
259 w.Header().Set("Content-Type", "text/html; charset=utf-8")
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
260 fmt.Fprintf(w, "<html><head><title>Index of %s</title></head><body>\n", urlPath)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
261 fmt.Fprintf(w, "<h2>Index of %s</h2><hr><pre>\n", urlPath)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
262 if urlPath != "/" {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
263 fmt.Fprintf(w, "<a href=\"..\">..</a>\n")
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
264 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
265 for _, e := range entries {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
266 name := e.Name()
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
267 if e.IsDir() {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
268 name += "/"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
269 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
270 fmt.Fprintf(w, "<a href=\"%s\">%s</a>\n", path.Join(urlPath, name), name)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
271 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
272 fmt.Fprintf(w, "</pre><hr><i>d2o webserver</i></body></html>")
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
273 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
274
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
275 // --- Reverse proxy ----------------------------------------------------------
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
276
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
277 func serveReverseProxy(w http.ResponseWriter, r *http.Request, target string) {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
278 if !strings.HasPrefix(target, "http://") && !strings.HasPrefix(target, "https://") {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
279 target = "http://" + target
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
280 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
281 u, err := url.Parse(target)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
282 if err != nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
283 http.Error(w, "bad gateway config", http.StatusInternalServerError)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
284 return
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
285 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
286 proxy := httputil.NewSingleHostReverseProxy(u)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
287 proxy.ErrorHandler = func(w http.ResponseWriter, r *http.Request, err error) {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
288 log.Printf("d2o: rprx error: %v", err)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
289 http.Error(w, "bad gateway", http.StatusBadGateway)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
290 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
291 proxy.ServeHTTP(w, r)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
292 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
293
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
294 // --- FastCGI ----------------------------------------------------------------
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
295
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
296 func serveFCGI(w http.ResponseWriter, r *http.Request, addr, docRoot string) error {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
297 network, address := parseFCGIAddr(addr)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
298 conn, err := net.Dial(network, address)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
299 if err != nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
300 return fmt.Errorf("connect %s: %w", addr, err)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
301 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
302 defer conn.Close()
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
303
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
304 scriptPath := r.URL.Path
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
305 if docRoot != "" {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
306 scriptPath = filepath.Join(docRoot, filepath.FromSlash(r.URL.Path))
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
307 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
308
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
309 params := map[string]string{
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
310 "REQUEST_METHOD": r.Method,
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
311 "SCRIPT_FILENAME": scriptPath,
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
312 "SCRIPT_NAME": r.URL.Path,
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
313 "REQUEST_URI": r.URL.RequestURI(),
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
314 "QUERY_STRING": r.URL.RawQuery,
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
315 "SERVER_PROTOCOL": r.Proto,
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
316 "SERVER_NAME": stripPort(r.Host),
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
317 "DOCUMENT_ROOT": docRoot,
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
318 "GATEWAY_INTERFACE": "CGI/1.1",
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
319 "SERVER_SOFTWARE": "d2o/1.0",
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
320 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
321 if r.TLS != nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
322 params["HTTPS"] = "on"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
323 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
324 for k, vs := range r.Header {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
325 key := "HTTP_" + strings.ToUpper(strings.ReplaceAll(k, "-", "_"))
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
326 params[key] = strings.Join(vs, ", ")
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
327 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
328 if ct := r.Header.Get("Content-Type"); ct != "" {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
329 params["CONTENT_TYPE"] = ct
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
330 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
331 if r.ContentLength >= 0 {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
332 params["CONTENT_LENGTH"] = strconv.FormatInt(r.ContentLength, 10)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
333 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
334
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
335 return fcgi.Do(w, r, conn, params)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
336 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
337
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
338 func parseFCGIAddr(addr string) (network, address string) {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
339 if strings.HasPrefix(addr, "unix:") {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
340 return "unix", strings.TrimPrefix(addr, "unix:")
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
341 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
342 return "tcp", addr
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
343 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
344
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
345 // --- Helpers ----------------------------------------------------------------
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
346
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
347 func stripPort(host string) string {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
348 if h, _, err := net.SplitHostPort(host); err == nil {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
349 return h
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
350 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
351 return host
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
352 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
353
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
354 func safeArg(args []string, i int) string {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
355 if i < len(args) {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
356 return args[i]
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
357 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
358 return ""
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
359 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
360
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
361 func matchGlob(pattern, s string) bool {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
362 if pattern == "*" {
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
363 return true
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
364 }
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
365 regPat := "^" + strings.ReplaceAll(regexp.QuoteMeta(pattern), regexp.QuoteMeta("*"), ".*") + "$"
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
366 matched, err := regexp.MatchString(regPat, s)
48bdab3eec8a Initial
Atarwn Gard <a@qwa.su>
parents:
diff changeset
367 return err == nil && matched
2
d19133be91ba ndex and smarter parser
Atarwn Gard <a@qwa.su>
parents: 1
diff changeset
368 }