Unverified Commit 090e897a authored by Gábor's avatar Gábor 💬

Initial commit.

parents
-----BEGIN CERTIFICATE-----
MIIDETCCAfkCFA10wmbpCreZNiCMa5nlvitIjBTAMA0GCSqGSIb3DQEBCwUAMEUx
CzAJBgNVBAYTAkFVMRMwEQYDVQQIDApTb21lLVN0YXRlMSEwHwYDVQQKDBhJbnRl
cm5ldCBXaWRnaXRzIFB0eSBMdGQwHhcNMTkxMjAxMjEzOTAwWhcNMjAxMTMwMjEz
OTAwWjBFMQswCQYDVQQGEwJBVTETMBEGA1UECAwKU29tZS1TdGF0ZTEhMB8GA1UE
CgwYSW50ZXJuZXQgV2lkZ2l0cyBQdHkgTHRkMIIBIjANBgkqhkiG9w0BAQEFAAOC
AQ8AMIIBCgKCAQEAqcgQgCA94Tj6q4RQnixljyO6QqMvH8lNv5PjmQRooSKVZ6k2
LfggcoWIEJPRYfDRlT+KzNIEnN2nY2sdg6vF0vxcoabV+CbYzC+FcQjYLc+lzN3+
Y3rl3GgkkaIBfumb9T5zg4nI6R+txa6D9hWOHBWFt2d39K5GBkFnNvOpUIQnv0rg
Ens8UjoIz8kLU8q3YJ6QXm9GPz3MSAZN8VPd8c0JUzY0F+KK9urKav9WEIyfgacl
ps/F2ElKKF5Dbx9lg7X/3zah9zz6kMfDlTtzO6e0UVu0GvVGKbfNkWXbLbROchX4
Syp3lMd97+fzzMplmf+wJrNW5BapGgVp25muuQIDAQABMA0GCSqGSIb3DQEBCwUA
A4IBAQA+o2TqKQ6W90CnJr7h6adoAkTSrqL+fVv/w832gaH2e3dmyV/649Fsdo/q
w6yM3OBUXFj/dbsPQ8zFTQfkdf8HwliX+2OdsB9HVc38R60EmVA1CQk+BP1xDr9S
Ptkr30Nl2rCRxwOXNUL+QY4H8FRlwcrZTFYlatG4eeXZsDrpiPTxbSPlO/KsXVLj
TROv0Wo6COoRGwEUFgV97O5aWHuljrsfhrg9GE/iCrX7yco2oskQQi2PThlYduE7
N28FXiFJcIxxDEItBAQviCsbIU08AM2ufA0d35cyW1/ohR2EC+vPRje/LyZCe6mP
te+NxazUIaOiVQcXk3xp2EjBryP5
-----END CERTIFICATE-----
-----BEGIN CERTIFICATE REQUEST-----
MIICijCCAXICAQAwRTELMAkGA1UEBhMCQVUxEzARBgNVBAgMClNvbWUtU3RhdGUx
ITAfBgNVBAoMGEludGVybmV0IFdpZGdpdHMgUHR5IEx0ZDCCASIwDQYJKoZIhvcN
AQEBBQADggEPADCCAQoCggEBAKnIEIAgPeE4+quEUJ4sZY8jukKjLx/JTb+T45kE
aKEilWepNi34IHKFiBCT0WHw0ZU/iszSBJzdp2NrHYOrxdL8XKGm1fgm2MwvhXEI
2C3Ppczd/mN65dxoJJGiAX7pm/U+c4OJyOkfrcWug/YVjhwVhbdnd/SuRgZBZzbz
qVCEJ79K4BJ7PFI6CM/JC1PKt2CekF5vRj89zEgGTfFT3fHNCVM2NBfiivbqymr/
VhCMn4GnJabPxdhJSiheQ28fZYO1/982ofc8+pDHw5U7czuntFFbtBr1Rim3zZFl
2y20TnIV+Esqd5THfe/n88zKZZn/sCazVuQWqRoFaduZrrkCAwEAAaAAMA0GCSqG
SIb3DQEBCwUAA4IBAQBtpepibEveV6gUwiWw+fKLa1sCkJGHtgKxqDWVKOZsMbS2
dhCS0/xOgKf2uKoA/bvmwCBGi0l13aMt5y/83iIREa9+gt299SdqCxpbEmLzT7eV
cZpMUGa5yqGuVZ468xsGxThW8d7UgcnkP8qWZcf2n7wtEIPOcUHnMyEMCUbZKsnY
si/UJrt2AewAQN/l/riTYpyNy7ALDOqnvdOE8NF6yxWe/okW4jngna+iwsMh28j3
rEDlJIafZKCpqfIq6gEkdB5tm8aNHtTj5X+MCadILRha9ztmCI7EXpmQNQvZ/Hvu
ddly9qp62UtoA1syW4CM1GSDZlfYiW/v5yKQ9TK1
-----END CERTIFICATE REQUEST-----
-----BEGIN RSA PRIVATE KEY-----
MIIEowIBAAKCAQEAqcgQgCA94Tj6q4RQnixljyO6QqMvH8lNv5PjmQRooSKVZ6k2
LfggcoWIEJPRYfDRlT+KzNIEnN2nY2sdg6vF0vxcoabV+CbYzC+FcQjYLc+lzN3+
Y3rl3GgkkaIBfumb9T5zg4nI6R+txa6D9hWOHBWFt2d39K5GBkFnNvOpUIQnv0rg
Ens8UjoIz8kLU8q3YJ6QXm9GPz3MSAZN8VPd8c0JUzY0F+KK9urKav9WEIyfgacl
ps/F2ElKKF5Dbx9lg7X/3zah9zz6kMfDlTtzO6e0UVu0GvVGKbfNkWXbLbROchX4
Syp3lMd97+fzzMplmf+wJrNW5BapGgVp25muuQIDAQABAoIBAGEEzDkLM5EiCEw+
vfrFD/vtxKATs/gMBnu1PNfR5yA9LPchgK5gHdqTZ59heMLo5DrPJrfIQ46IMwDi
0ujNHaxlPWG6fobhW/3CIhTnovD6uZoKOTYLopKCiHMYCpbFU7Oezk+aSs68pYZT
JWFYC+8MdW7Kl4eglq84bIzATD6Pd/OuRMfVIlIJQRfvzPOR0fUUxvrgZB/xTg6q
Is/1RlrFhKKe0fa9OqpJ8093TT4LYLDDHvHn9ELkZRVsG0x1bTpF+ObmLxdZIR3p
MxMw4/QcaKG2EbgJcX7t3hWqGgvKhl7WBiVEYuYqb8YtJBI+JH6eWtgBcQlEbJkm
VSs/vyECgYEA1j0WoiKVM6k7vDQWqVxSviDHZLw0eagmRYMify2ptgWc+YKeOpGZ
BIIACNdVdV6xPAbEPENyPHw2vAvQC3gVFxkBq5mMmzAkI+vDbhzlbWkHJgeCaV8P
fDU84OE0t1xPOhLVebDx57q5x8ObROPKvaP0iWGeaJNsqQZmhd3lJY0CgYEAyuB7
TbahBMv31qtNugCOEfKeVlwVz439k+vdvbcZk7j5lawRJErOyTfeiVmDpa3Y07V7
5gEWifuWeOF/+0loDeqbetxpvivXXLbpLOdj7r0CjGomYEeV772bXDlbgpOG8WQT
RqZKD3VW9tlZEWeACmsiepL1uay7Z7XCT7nOVN0CgYBTRUFD2c9GWjQGrfRU9baP
gewegmyfELV3dUX2SshZIItoC9X2i9r+/oyG4zOrQBgBbdveVJTVX65invDJVG5W
IPkeOruFIkwZziyS4xZl1Vna9TZCQJmjPIoiGkbEMlP1DZb+CsGrwU8ujyANwcBu
v4hv0YqhuROWCw/UXnAPjQKBgQC2aWy0jVbt5y9qNxBmA4W6IXm4kIeT3Ul5LQRt
RiqbJiBTMSkghpqzVaajvHagC1X/1RgX0DahzjKXcboPCQukJ6OwrmntcaHsXRH/
K/YwfIXEFtV2kCcCLmt4WqIrH9afSKoERhQlHg4ZWYe6HGOF+po/t891KRg/wa96
28fniQKBgB2hqPJ7W9oXFOQgeRFvaFB9QTRORC/o9ai4YWOjwLwx/xDO+D0WEq8U
qKwipfVsyHkfxffm0oI/mCxIk26w8VEG3zV9yCkSlb4teDPXDUTxEnZ1Ocj0jYOn
CN+whS4wb1wrbvUarD56WR0dR3BTpTk4wPuvr3Lw1WVvzpL1LjwK
-----END RSA PRIVATE KEY-----
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
-----BEGIN RSA PRIVATE KEY-----
Proc-Type: 4,ENCRYPTED
DEK-Info: DES-EDE3-CBC,77AE5D2AE13C5F38
H2JFKtKbr1L3mjwk22kvdZ8MjGt6bWRvgduYPGcIKMJV/E/2Xxa8AhAKAXwqnxLA
XUUDl7mhZ6OTRu7wfodghG1qikRlIEHFQYTjpPEPFozn88Iv/HZL5YeMpRrQMDGe
FJp89cayQgPIPdJy2V6Flg3ucrOhzgpGi4UgPd9iYZ22nRr3FBAvOuchwAq+Y9ue
HnbhVt0DB/bVFFx7mp1ylO9CdjYtdm7huOPJbzPDtUPv89A/lttldPgQwqu1zCvT
huxqj9axn+2gxSdKkytIBUNTefewjq9EFIOqctcy/GO/UwI/zoqsETwCvoBazh7D
slGexbyZSY75DKuaGCFqIY+diu22dy0nrPda3Kc+XqGlwMRfNoY3Hz4IYtwMA7pu
XpRK/M1MyUdO8zkQvmJ+MHurhYrNMLLjnZoCsHtd1IILNqdqORzHMZBUGAh7Sh3H
AaA7/D7qSwyapa7lcxbkd8bHeVWLyM//tnON26n2FXkP79xg7tQHOitS8/jZdG+4
rtXb96w4cWq8F2T4zMjym/pmy2k/gnRR2B+a6Ryqds4TnZ3gRRgxonjhpZ5FlmPU
Jo0wpcIusgcrbz/zE6OoI9tghNEQSrjcxSQKfgbNI3zoOsSGJoiw580CnglM1ngZ
AgZeLOX+Z1ZCc8nx7uWNOcWnVEM2HQP6NS/p3RuHfdsqnnPb10opmcXnOm4whj4y
ayqYu/5URNFmSp33cxdHBA25RjYH4mnDjKK6/g+p0m0xrdAuaH+5EI3ENujKg2om
eooUlVJeLd/VwC3HI3f5x/veO6d/gsFE/PNewdy6j/qHc9346RI3vfVYZMiDF6X5
QV08pMQDIx6waC8TCQZ/KNErabPdY0d+9d/Vi5KAd1/U+2SZ9A83QwdVkpkFT4lv
HdrJlbm6w5zjokcr4DCSenTj4iCvFCqy89bI4St8ebor/cHuDXVWiPO5PLP6DVGE
pEpYHfzCLGJaL5wMnpsRKll/5ihvLB/6OwVT1UwS5yk8zADuNdX45AZtagDRfyWB
3l1qbALkEpFE123yZc8WqDQ1VYBcTWCefqaiqbM5GMTjErLqbB0L2tNtaU2aUA/4
t/ATSjtGVgGBDyPxctU6HfhziIF9sGaWh+uf8tFnTL9UGcog4Dv6yCNkYEfghY6G
UyKnB1qjaizpRtdSLqumGrYuujUGHmKs4KNeGVH0FAECmKejZxnibVw9dGCffWFJ
gmX60GeZAxuLcyXRrBp7EAVX9kXH2ZjyqotUlIkjValbCP/QoauJvptFYSw93IuR
BvAw6ZMIptTuDi9i5SteQNZ/rs5e+7HDhmgDFjCX3q2FgrHGZ0oNnLtB4bRYpfJj
FDKKE2UqEcxdD+4rYxvm096UXVRLYtn42FQ7Jpu04p2UiQtrs4mMuZHAEeVFUT1t
OkpLl4+N7hJ0mUzzzi6j3OG0ijAxuYxIzDMRk92zz/p5IPPKvkU33aJz/A0KVuUq
Hosrw+HU2wwvAGmTtOcdJe56HI5/t/SjanNguM5wgvcD0dvQ45HRdybKIQ2VzYGX
LJonHp2j/Y6UjrlVTYkfTpXoKopJNx1cdDKQ8NHg/JpeJAMo7qgUQA==
-----END RSA PRIVATE KEY-----
(use-modules (guix packages)
(guix download)
(gnu packages web))
(define nginx-1.17.4
(package
(inherit nginx)
(version "1.17.4")
(source (origin
(method url-fetch)
(uri (string-append "https://nginx.org/download/nginx-"
version ".tar.gz"))
(sha256
(base32
"0mg521bxh8pysmy20x599m252ici9w97kk7qy7s0wrv6bqv4p1b2"))))))
nginx-1.17.4
(use-modules (guix packages)
(guix download))
(define nginx-1.17.4
(package
(inherit nginx)
(version "1.17.4")
(source (origin
(method url-fetch)
(uri (string-append "https://nginx.org/download/nginx-"
version ".tar.gz"))
(sha256
(base32
"0mg521bxh8pysmy20x599m252ici9w97kk7qy7s0wrv6bqv4p1b2"))))))
nginx-1.17.4
(use-modules (guix packages)
(guix download)
(gnu packages web))
(define nginx-1.17.5
(package
(inherit nginx)
(version "1.17.5")
(source (origin
(method url-fetch)
(uri (string-append "https://nginx.org/download/nginx-"
version ".tar.gz"))
(sha256
(base32
;"0mg521bxh8pysmy20x599m252ici9w97kk7qy7s0wrv6bqv4p1b2"))))))
"1hqhziic4csci8xs4q8vbzpmj2qjkhmmx68zza7h5bvmbbhkbvk3"))))))
nginx-1.17.5
(use-modules (guix packages)
(guix download)
(gnu packages web))
(define nginx-1.17.5
(package
(inherit nginx)
(version "1.17.5")
(source (origin
(method url-fetch)
(uri (string-append "https://nginx.org/download/nginx-"
version ".tar.gz"))
(sha256
(base32
"0mg521bxh8pysmy20x599m252ici9w97kk7qy7s0wrv6bqv4p1b2"))))))
; "1hqhziic4ci8xs4q8vbzpmj2qjkhmmx68zza7h5bvmbbhkbvk3"
nginx-1.17.5
(use-modules (guix packages)
(guix hg-download)
(guix utils)
(gnu packages web))
(define nginx-bad
(package
(inherit nginx)
(version "1.17.4")
(source (origin
(method hg-fetch)
(uri (hg-reference
(url "https://hg.nginx.org/nginx")
(changeset "9d2ad2fb4423")))
(sha256
(base32
"0sss962nnn8yaagwvn7j2m0vmzw1xq643rakcy1hd50aczn62pgp"))))
(arguments
(substitute-keyword-arguments (package-arguments nginx)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'symlink-configure
(lambda _
(symlink "auto/configure" "configure")
#t))))))))
nginx-bad
(use-modules (guix packages)
(guix hg-download)
(guix utils)
(gnu packages web))
(define nginx-bad
(package
(inherit nginx)
(version "1.17.4")
(source (origin
(method hg-fetch)
(uri (hg-reference
(url "https://hg.nginx.org/nginx")
(changeset "9d2ad2fb4423")))
(sha256
(base32
"0sss962nnn8yaagwvn7j2m0vmzw1xq643rakcy1hd50aczn62pgp"))))
(arguments
(substitute-keyword-arguments (package-arguments nginx)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'symlink-confgiure
(lambda _
(symlink "auto/configure" "configure")
#t))))))))
nginx-bad
(use-modules (guix packages)
(guix hg-download)
(guix utils)
(gnu packages web))
(define nginx-good
(package
(inherit nginx)
(version "1.17.4")
(source (origin
(method hg-fetch)
(uri (hg-reference
(url "https://hg.nginx.org/nginx")
(changeset "efd71d49bde0")))
(sha256
(base32
"1fk8dwxnjw6ijmaifqbs0c6adxf4bnfgg4alr2mp6fk7salj228z"))))
(arguments
(substitute-keyword-arguments (package-arguments nginx)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'symlink-confgiure
(lambda _
(symlink "auto/configure" "configure")
#t))))))))
nginx-good
(use-modules (guix packages)
(guix hg-download)
(guix utils)
(gnu packages web))
(define nginx-good
(package
(inherit nginx)
(version "1.17.4")
(source (origin
(method hg-fetch)
(uri (hg-reference
(url "https://hg.nginx.org/nginx")
(changeset "efd71d49bde0")))
(sha256
(base32
"0sss962nnn8yaagwvn7j2m0vmzw1xq643rakcy1hd50aczn62pg1"))))
(arguments
(substitute-keyword-arguments (package-arguments nginx)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'symlink-confgiure
(lambda _
(symlink "auto/configure" "configure")
#t))))))))
nginx-good
user nginx nginx;
pid /var/run/nginx/pid;
error_log /var/log/nginx/error.log debug;
http {
client_body_temp_path /var/run/nginx/client_body_temp;
proxy_temp_path /var/run/nginx/proxy_temp;
fastcgi_temp_path /var/run/nginx/fastcgi_temp;
uwsgi_temp_path /var/run/nginx/uwsgi_temp;
scgi_temp_path /var/run/nginx/scgi_temp;
access_log /var/log/nginx/access.log;
include /gnu/store/6q44kjf59rgkvn0ip8m0454ybszhjpy0-nginx-1.17.6/share/nginx/conf/mime.types;
server {
listen 443 ssl;
server_name _ ;
ssl_certificate /data/gabriel/projects/fix-nginx-tls/current.crt;
ssl_certificate_key /data/gabriel/projects/fix-nginx-tls/current.key;
root /srv/http;
index index.html ;
server_tokens off;
client_header_timeout 50s;
location ~ \.narinfo$ {
proxy_pass http://localhost:3000;
client_body_buffer_size 128k;
keepalive_requests 100;
proxy_connect_timeout 2s;
proxy_read_timeout 2s;
proxy_send_timeout 2s;
proxy_pass_header Cache-Control;
proxy_ignore_client_abort on;
proxy_hide_header Set-Cookie;
proxy_ignore_headers Set-Cookie;
}
}
}
events {}
user nginx nginx;
pid /var/run/nginx/pid;
error_log /var/log/nginx/error.log debug;
http {
client_body_temp_path /var/run/nginx/client_body_temp;
proxy_temp_path /var/run/nginx/proxy_temp;
fastcgi_temp_path /var/run/nginx/fastcgi_temp;
uwsgi_temp_path /var/run/nginx/uwsgi_temp;
scgi_temp_path /var/run/nginx/scgi_temp;
access_log /var/log/nginx/access.log;
include /gnu/store/6q44kjf59rgkvn0ip8m0454ybszhjpy0-nginx-1.17.6/share/nginx/conf/mime.types;
server {
listen 443 ssl;
server_name _ ;
ssl_certificate /data/gabriel/projects/fix-nginx-tls/current.crt;
ssl_certificate_key /data/gabriel/projects/fix-nginx-tls/current.key;
root /srv/http;
index index.html ;
server_tokens off;
client_header_timeout 5s;
location ~ \.narinfo$ {
proxy_pass http://localhost:3000;
client_body_buffer_size 128k;
keepalive_requests 100;
proxy_connect_timeout 2s;
proxy_read_timeout 2s;
proxy_send_timeout 2s;
proxy_pass_header Cache-Control;
proxy_ignore_client_abort on;
proxy_hide_header Set-Cookie;
proxy_ignore_headers Set-Cookie;
}
}
}
events {}
(use-modules (guix scripts substitute)
(srfi srfi-1)
(srfi srfi-26)
(web uri)
(web request)
(web response)
(rnrs io ports))
(define http-mulitple-get
(@@ (guix scripts substitute) http-multiple-get))
(define %base-url "https://localhost")
(define %request-count 500)
(http-mulitple-get (string->uri %base-url)
(lambda (request response port result)
(let ((len (or (response-content-length response)
0)))
(pk 'resp (length result)
(uri-path (request-uri request)))
(get-bytevector-n port len)
(cons result result)))
'()
(unfold (cut >= <> %request-count)
(lambda (n)
(build-request
(string->uri
(string-append
%base-url
"/"
(string-pad (number->string n) 32 #\a)
".narinfo"))
#:method 'GET
#:headers '((User-Agent . "GNU Guile"))))
1+
0)
#:verify-certificate? #f)
(use-modules (guix scripts substitute)
(srfi srfi-1)
(srfi srfi-26)
(web uri)
(web request)
(web response)
(rnrs io ports))
(define http-mulitple-get
(@@ (guix scripts substitute) http-multiple-get))
(define %base-url "https://localhost")
(define %request-count 200)
(http-mulitple-get (string->uri %base-url)
(lambda (request response port result)
(let ((len (or (response-content-length response)
0)))
(pk 'resp (length result)
(uri-path (request-uri request)))
(get-bytevector-n port len)
(cons result result)))
'()
(unfold (cut >= <> %request-count)
(lambda (n)
(build-request
(string->uri
(string-append
%base-url
"/"
(string-pad (number->string n) 32 #\a)
".narinfo"))
#:method 'GET
#:headers '((User-Agent . "GNU Guile"))))
1+
0)
#:verify-certificate? #f)
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment