#3906 adminmail task broken

[shane]

This deals with the Slash::Stats plugin, however, there's no Category for that, so I'm putting it in admin since it involves what admins do with slash sites.

This change to the code:

http://slashcode.cvs.sourceforge.net/slashcode/slash/plugins/Stats/adminmail.pl?r1=1.213&r2=1.214

broke adminmail for any site that doesn't have all of the following plugins installed: Subscribe, Tags, FireHose.

Adminmail can no longer finish, therefore the emails are never sent. The initial error in slashd logs looks like this:

Can't call method "getTagnameidFromNameIfExists" on an undefined value at /Library/Perl/5.8.6/Slash/Stats.pm line 2045.

This patch fixes it:

Index: adminmail.pl

RCS file: /cvsroot/slash/plugins/Stats/adminmail.pl,v
retrieving revision 1.3
diff -r1.3 adminmail.pl
847,849c847,850
< my $subscribe = getObject('Slash::Subscribe');
< my $firehose = getObject('Slash::FireHose');
< my $tags = getObject('Slash::Tags');
---
> my ($subscribe, $firehose,$tags);
> $subscribe = getObject('Slash::Subscribe') if $constants->{plugin}{Subscribe};
> $firehose = getObject('Slash::FireHose') if $constants->{plugin}{FireHose};
> $tags = getObject('Slash::Tags') if $constants->{plugin}{Tags};