server/ext/resource.ext

#! 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);
   };
};

Revision:	1.3
Committed:	Fri Nov 9 20:37:57 2012 UTC (11 years, 6 months ago) by root
Branch:	MAIN
CVS Tags:	rel-3_1, HEAD
Changes since 1.2:	+9 -6 lines
Log Message:	* empty log message *
#	Content
1	#! perl # mandatory
2
3	# resource handling
4
5	cf::register_async_exticmd resource => sub {
6	my ($ns, $reply, @resnames) = @_;
7
8	cf::async {
9	my $guard = cf::lock_acquire "ext::resource";
10
11	$ns->send_face ($_ = cf::face::find "res/$_")
12	for @resnames;
13
14	$ns->flush_fx;
15	$reply->(@resnames);
16	};
17	};
18