{"body":"sub MAIN {\n    react {\n        whenever %configuration<geotrack-filepath>.IO.watch -> $event {\n            harvest($event.path) if $event.event ~~ FileChanged;\n        }\n    }\n}\n\nsub harvest($path) {\n    my @wireless-clients = from-xml(slurp($path)).root.elements(:TAG('wireless-client'), :RECURSE);\n    parse(@wireless-clients, $path);\n    expunge($path);\n}\n\nsub parse(@wireles-clients, $path) {\n    my Int $count;\n    say \"Parsing $path.\";\n    for @wireles-clients {\n        say $count++;\n        #my %client-data = client =>\n    }\n}\n\nsub reap() {}\n\nsub expunge($path) {\n    say \"Complete, removing $path.\";\n    unlink($path);\n}","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/7vdKxR3r","modified":1570634709,"id":"7vdKxR3r","size":630,"lines":29,"own_paste":false,"theme":"","date":1570634709}