-sub randomFreshmeat {
- my $interval = &getChanConfDefault("randomFreshmeatInterval", 60);
-
- if (@_) {
- &ScheduleThis($interval, "randomFreshmeat");
- return if ($_[0] eq "2"); # defer.
- }
-
- my @chans = &ChanConfList("randomFreshmeat");
- return unless (scalar @chans);
-
- &Forker("freshmeat", sub {
- my $retval = &Freshmeat::randPackage();
-
- foreach (@chans) {
- next unless (&validChan($_));
-
- &status("sending random Freshmeat to $_.");
- &say($_, $line);
- }
- } );
-}
-