&addCmdHook("extra", 'slashdot', ('CODEREF' => 'Slashdot::Slashdot',
'Identifier' => 'slashdot', 'Forker' => 1,
'Cmdstats' => 'Slashdot') );
-&addCmdHook("extra", 'plug', ('CODEREF' => 'Plug::Plug',
- 'Identifier' => 'plug', 'Forker' => 1,
+&addCmdHook("extra", 'Plug', ('CODEREF' => 'Plug::Plug',
+ 'Identifier' => 'Plug', 'Forker' => 1,
'Cmdstats' => 'Plug') );
&addCmdHook("extra", 'uptime', ('CODEREF' => 'uptime', 'Identifier' => 'uptime',
'Cmdstats' => 'Uptime') );
sub slashdotLoop {
if (@_) {
- &ScheduleThis(60, "slashdotLoop");
+ &ScheduleThis(60, 'slashdotLoop');
return if ($_[0] eq "2");
}
- my @chans = &ChanConfList("slashdotAnnounce");
+ my @chans = &ChanConfList('slashdotAnnounce');
return unless (scalar @chans);
- &Forker("slashdot", sub {
+ &Forker('slashdot', sub {
my $line = &Slashdot::slashdotAnnounce();
return unless (defined $line);
sub plugLoop {
if (@_) {
- &ScheduleThis(60, "plugLoop");
+ &ScheduleThis(60, 'plugLoop');
return if ($_[0] eq "2");
}
- my @chans = &ChanConfList("plugAnnounce");
+ my @chans = &ChanConfList('plugAnnounce');
return unless (scalar @chans);
- &Forker("plug", sub {
+ &Forker('Plug', sub {
my $line = &Plug::plugAnnounce();
return unless (defined $line);