]>
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; |
e57ca30a | 8 | SUBSCRIBE 'gensrc', \&Gruntmaster::Page::gensrc; |
eafc7f54 | 9 | SUBSCRIBE 'genarticle', \&Gruntmaster::Page::generate; |
22642746 MG |
10 | WAIT_FOR_MESSAGES 86400 while 1; |
11 | ||
12 | 1; | |
13 | __END__ |