#!/usr/bin/perl # # bin/worker/change-poster-id # # Worker that updates the poster of content in the database. # # Authors: # Mark Smith # # Copyright (c) 2012 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::ChangePosterId; schwartz_decl( $_ ) foreach ( DW::Worker::ChangePosterId->schwartz_capabilities ); schwartz_work(); # Never returns.