]>
Commit | Line | Data |
---|---|---|
22642746 MG |
1 | #!/usr/bin/perl -w |
2 | use v5.14; | |
3 | ||
4 | use Gruntmaster::Data qw/SUBSCRIBE WAIT_FOR_MESSAGES/; | |
5 | use Gruntmaster::Page qw/_generate/; | |
6 | ||
7 | SUBSCRIBE 'genpage', \&_generate; | |
8 | WAIT_FOR_MESSAGES 86400 while 1; | |
9 | ||
10 | 1; | |
11 | __END__ |