Pike-devel May 2021

pike-devel@lists.lysator.liu.se

4 participants
5 discussions

Pike Meet-up 2018-Q1
by Henrik Grubbstr�m (Lysator) ＠ Pike (-) developers forum 20 Oct '21

20 Oct '21

Hi. At Pike Conference 2017 it was decided that we ought to hold a more informal meeting in Linköping ~ once every quarter. As the three month mark from the conference is coming up soon, it seems time to announce the first such meeting for 2018: Pike Meet-up 2018-Q1 Date: 2018-02-03 (Sat) Time: 10:00 - afternoon/evening Place: Roxen IS AB S:t Larsgatan 22A Linköping Welcome! /grubba

2 13

hapcanmonitor in Pike
by Stephen R. van den Berg 24 May '21

24 May '21

It's still work in progress, but in case anyone is looking for something to run devices off and is programmed in Pike. I bought some equipment from www.hapcan.com and then programmed a hapcanmonitor daemon. The system is successfully running my house. A quick rundown on the source: - hapcanmonitor + hapcanmonitor.pike (40 KB), the full hapcan core communication driver. + www/x/wildcard.pike (7 KB), the REST/JSON api to the core communication driver. - spike (55 KB), the webserver daemon. hapcanmonitor source: git://devel2.cuci.nl/hapcanmonitor SPike daemon source: git://devel2.cuci.nl/spike -- Stephen.

1 0

HTTP server regression
by Martin Nilsson (Coppermist) ＠ Pike (-) developers forum 10 May '21

10 May '21

Looks like the Protocols.HTTP.Server is broken, though I don't know how recently as it was a while ago I installed the previous Pike 8.1. It's never the first request that fails, so I'm suspecting something like keep-alive, though it could be inside the SSL state (tickets?) things are messed up. The problem appears to be writes after finished() has been called. As I said the code used to work in 8.1 and works in 8.0. Anyone got any obvious idea? Indexing the NULL value with "output_to". /usr/local/pike/8.1.13/lib/modules/Protocols.pmod/HTTP.pmod/Server.pmod/Request.pike:929: Protocols.HTTP.Server.Request("GET" "/test.html")->send_write() /usr/local/pike/8.1.13/lib/modules/SSL.pmod/File.pike:1315: SSL.File(Stdio.File("socket", "85.228.101.175 55103", 777 /* fd=14 */), SSL.ServerConnection(ready))->internal_poll() -:1: Pike.Backend(0)->`()(3600.0)

2 9

Generic async DNS calls with multiple results
by Stephen R. van den Berg 09 May '21

09 May '21

I'm writing a generic HTTP server and will probably be writing a full-fledged SMTP server as well (queueing messages in a database, automatic DKIM signage, full MX-DNS support with retries and automatic fallback/backoff for recipient servers that don't allow many recipients or many connections or many messages per second). For the HTTP server I need multiple IP addresses per domainquery (I need to bind to all interfaces), and for the SMTP server I need to query multiple TXT records (SPF validation) and need to get back preference-sorted MX records, of which I then need multiple IP addresses again to try and connect to all IP addresses. For the both servers I need to know the difference between a (possibly temporary) failure of the query and a definitive result that says the record does not exist. For this purpose I created a small generic dnsquery() function (see below). Is it something worth including in the Protocols.DNS module, or is it better left outside? The problem was/is, none of the existing convenience functions seems to allow me to do this. Protocols.DNS.async_client dnsclient = Protocols.DNS.async_client(); private void dnscb(string domain, mapping res, function(array, array:void) cb, array restargs) { array an = res->an; switch (res->rcode) { case Protocols.DNS.SERVFAIL: case Protocols.DNS.NOTIMP: case Protocols.DNS.REFUSED: case Protocols.DNS.YXDOMAIN: case Protocols.DNS.YXRRSET: case Protocols.DNS.NXRRSET: case Protocols.DNS.NOTZONE: if (!sizeof(an)) { cb(0, restargs); return; } } sort(an->preference, an); cb(an->aaaa + an->a + an->mx + an->txt - ({ 0 }), restargs); } private mapping dnstypetonum = ([ "A": Protocols.DNS.T_A, "MX": Protocols.DNS.T_MX, "TXT": Protocols.DNS.T_TXT, "AAAA": Protocols.DNS.T_AAAA, ]); private void collect2aaaa(array|zero results, array restargs) { array|zero prevresults = restargs[1]; if (results) { if (prevresults) results -= prevresults; else prevresults = ({}); prevresults += results; } if (--restargs[0]) restargs[1] = prevresults; else restargs[2](prevresults, restargs[3..]); } //! Asynchronous DNS query with multiple results and a distinction //! between failure and empty results. //! //! @param type //! DNS query type (case sensitive). Currently supported: A, MX, TXT, AAAA. //! Querying for AAAA gives both IPv4 and IPv6 results. //! //! @param domain //! The domain name we are querying. //! //! @param result_cb //! The callback function that receives the result of the DNS query. //! It is called as follows: //! @expr{void result_cb(array(string)|zero results,array restargs);@} //! If the request fails it will return @expr{zero@} for @expr{results@}. //! @expr{restargs@} is passed unaltered to the callback function. //! //! @note //! There is a notable difference between @expr{results@} equal //! to @expr{zero@} (= request failed and can be retried) and //! @expr{({})@} (= request definitively answered the record //! does not exist; retries are pointless). void dnsquery(string type, string domain, function(array(string)|zero, array:void) result_cb, array restargs) { int itype = dnstypetonum[type]; if (!itype) { result_cb(0, restargs); return; } if (type == "AAAA") { restargs = ({ 2, 0, result_cb }) + restargs; dnsclient->do_query(domain, Protocols.DNS.C_IN, dnstypetonum["A"], dnscb, collect2aaaa, restargs); result_cb = collect2aaaa; } dnsclient->do_query(domain, Protocols.DNS.C_IN, itype, dnscb, result_cb, restargs); } -- Stephen.

1 0

Replacing a single function/method in an existing live class?
by Stephen R. van den Berg 02 May '21

02 May '21

Say I have this: class A { int k; void B() { write("foo %d\n", k); } void C() { k = 3; write("bar\n"); } } int main() { A a = A(); a->C(); // Displays: bar a->B(); // Displays: foo 3 // At this point I want to replace the function B // in the running/compiled instance of A in a. // I.e. I want to call compile() or similar // on the following code: // void B() { write("FOO %d\n", k); } // such that I can subsequently run: a->B(); // Should display: FOO 3 return 0; } Any way this can be accomplished? An alternate way would be to compile the whole class of A again, but then run method B() in it with a custom this argument pointing to the old instance in a. Is that possible? I know javascript can do this, but it seems like Pike does not allow/support it. -- Stephen.

3 7

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

Pike-devel May 2021