[gruntmaster-page.git] / gruntmaster-paged

#!/usr/bin/perl -w
use v5.14;

use Gruntmaster::Data qw/SUBSCRIBE WAIT_FOR_MESSAGES/;
use Gruntmaster::Page;

SUBSCRIBE 'genpage', \&Gruntmaster::Page::generate;
WAIT_FOR_MESSAGES 86400 while 1;

1;
__END__
Commit	Line	Data
22642746 MG	1	#!/usr/bin/perl -w
	2	use v5.14;
	3
	4	use Gruntmaster::Data qw/SUBSCRIBE WAIT_FOR_MESSAGES/;
70aec811	5	use Gruntmaster::Page;
22642746	6
70aec811	7	SUBSCRIBE 'genpage', \&Gruntmaster::Page::generate;
22642746 MG	8	WAIT_FOR_MESSAGES 86400 while 1;
	9
	10	1;
	11	__END__