reverted to old long-poll system but with 8 second fixed era length
{$poll p/{i/@uvH t/(list @uvH)}}
{$spur p/spur}
{$subs p/?($put $delt) q/{dock $json wire path}}
- ::{$view p/ixor q/{$~ u/@ud}}
- {$view p/ixor q/{$~ u/@ud} r/(unit @dr)}
+ {$view p/ixor q/{$~ u/@ud}}
+ ::{$view p/ixor q/{$~ u/@ud} r/(unit @dr)}
==
::
++ perk-auth :: parsed auth
(turn dep |=({a/@tas $~} (slav %uv a)))
::
$of
- :^ %view
- ?> ?=({@ $~} but)
- i.but
- ?> ?=({{$poll @} *} quy) :: XX eventsource
+ :+ %view ?>(?=({@ $~} but) i.but)
+ ?> ?=({{$poll @} $~} quy)
+:: :^ %view
+:: ?> ?=({@ $~} but)
+:: i.but
+:: ?> ?=({{$poll @} *} quy) :: XX eventsource
[~ (rash q.i.quy dem)]
- ?: ?=({{$t @} $~} +.quy)
- =/ s (rash q.i.t.quy dem)
- `(yule [0 0 0 s ~])
- ~
+:: ?: ?=({{$t @} $~} +.quy)
+:: =/ s (rash q.i.t.quy dem)
+:: `(yule [0 0 0 s ~])
+:: ~
::
$to
=+ ^- dir/{p/ship q/term r/mark}
::
$view
~| lost-ixor+p.hem
- [%| ((teba poll:(ire-ix p.hem)) u.q.hem r.hem)]
+:: [%| ((teba poll:(ire-ix p.hem)) u.q.hem r.hem)]
+ [%| ((teba poll:(ire-ix p.hem)) u.q.hem)]
==
::
++ process-auth
::
++ pop-duct =^(ned med ~(get to med) abet(hen ned))
++ poll
- |= [a/@u t=(unit @dr)]
- ^+ ..ix
+ |= a/@u ^+ ..ix
+:: |= [a/@u t=(unit @dr)]
+:: ^+ ..ix
=< abet
=. ..poll refresh
?: =(a p.eve)
=. ..poll poll-rest
- =. era
- ?~ t (add ~s30 now)
- (add u.t now)
+ =. era (add ~s8 now)
+:: ?~ t (add ~s30 now)
+:: (add u.t now)
=. lyv (~(put by lyv) hen [%poll ire])
pass-wait(ude [~ hen &])
?: (gth a p.eve) ~|(seq-high+cur=p.eve !!)
