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