#! perl # mandatory

# resource handling

cf::register_async_exticmd resource => sub {
   my ($ns, $reply, @resnames) = @_;

   cf::async {
      my $guard = cf::lock_acquire "ext::resource";

      $ns->send_face ($_ = cf::face::find "res/$_")
         for @resnames;

      $ns->flush_fx;
      $reply->(@resnames);
   };
};