]>
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__ |