&ignoreCheck(1); # mandatory
&seenFlushOld(1);
&ircCheck(1); # mandatory
- &miscCheck(1); # mandatory
+ &miscCheck(2); # mandatory
&shmFlush(1); # mandatory
&slashdotLoop(2);
&freshmeatLoop(2);
return unless (scalar @chans);
&Forker("slashdot", sub {
- my @data = &Slashdot::slashdotAnnounce();
+ my $line = &Slashdot::slashdotAnnounce();
+ return unless (defined $line);
foreach (@chans) {
next unless (&::validChan($_));
&::status("sending slashdot update to $_.");
- my $c = $_;
- foreach (@data) {
- ¬ice($c, "Slashdot: $_");
- }
+ ¬ice($_, "Slashdot: $line");
}
} );
}
}
close OUT;
- my $line = "Slashdot: News for nerds, stuff that matters -- ".
+ return "Slashdot: News for nerds, stuff that matters -- ".
join(" \002::\002 ", @new);
-
- my @chans = split(/[\s\t]+/, lc $::param{'slashdotAnnounce'});
- @chans = keys(%::channels) unless (scalar @chans);
- foreach (@chans) {
- next unless (&::validChan($_));
-
- &::status("sending slashdot update to $_.");
- &::notice($_, $line);
- }
- sleep 1; # just in case?
}
1;