#!/usr/bin/perl # # bin/worker/distribute-invites # # TheSchwartz worker for invite code distribution. # # Authors: # Pau Amma # # Copyright (c) 2009 by Dreamwidth Studios, LLC. # # This program is free software; you may redistribute it and/or modify it under # the same terms as Perl itself. For a copy of the license, please reference # 'perldoc perlartistic' or 'perldoc perlgpl'. use strict; BEGIN { require "$ENV{LJHOME}/cgi-bin/ljlib.pl"; } use LJ::Worker::TheSchwartz; use DW::Worker::DistributeInvites; schwartz_decl( $_ ) foreach (DW::Worker::DistributeInvites->schwartz_capabilities); schwartz_work(); # Never returns.