[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;
SUBSCRIBE 'gensrc', \&Gruntmaster::Page::gensrc;
SUBSCRIBE 'genarticle', \&Gruntmaster::Page::generate;
WAIT_FOR_MESSAGES 86400 while 1;

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