gruntmaster-paged

   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__