'Identifier' => 'weather', 'Help' => 'weather',
'Cmdstats' => 'weather', 'Forker' => 1) );
&addCmdHook("extra", 'bzflist', ('CODEREF' => 'BZFlag::list',
- 'Identifier' => 'bzflag', 'Cmdstats' => 'BZFlag',
+ 'Identifier' => 'BZFlag', 'Cmdstats' => 'BZFlag',
'Forker' => 1) );
&addCmdHook("extra", 'bzflist17', ('CODEREF' => 'BZFlag::list17',
- 'Identifier' => 'bzflag', 'Cmdstats' => 'BZFlag',
+ 'Identifier' => 'BZFlag', 'Cmdstats' => 'BZFlag',
'Forker' => 1) );
&addCmdHook("extra", 'bzfquery', ('CODEREF' => 'BZFlag::query',
- 'Identifier' => 'bzflag', 'Cmdstats' => 'BZFlag',
- 'Forker' => 1, 'Help' => 'bzflag') );
+ 'Identifier' => 'BZFlag', 'Cmdstats' => 'BZFlag',
+ 'Forker' => 1) );
&addCmdHook("extra", 'zfi', ('CODEREF' => 'zfi::query',
'Identifier' => 'zfi', 'Cmdstats' => 'zfi',
'Forker' => 1) );
$no_BZFlag++ if ($@);
}
-sub BZFlag::BZFlag {
+sub BZFlag {
my ($message) = @_;
my ($retval);
if ($no_BZFlag) {
&::performStrictReply($retval);
}
-sub BZFlag::list {
+sub list {
my ($response);
my $ua = new LWP::UserAgent;
$ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam("httpProxy"));
return;
}
-sub BZFlag::list17 {
+sub list17 {
my ($response);
my $ua = new LWP::UserAgent;
$ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam("httpProxy"));
return;
}
-sub BZFlag::querytext {
+sub querytext {
my ($servernameport) = @_;
my ($servername,$port) = split(":",$servernameport);
if ($no_BZFlag) {
return $response;
}
-sub BZFlag::query {
+sub query {
my ($servernameport) = @_;
&::performStrictReply(&querytext($servernameport));
return;
%myModules = (
"babelfish" => "babel.pl",
"botmail" => "botmail.pl",
- "bzflag" => "BZFlag.pl",
+ "BZFlag" => "BZFlag.pl",
"countdown" => "Countdown.pl",
"debian" => "Debian.pl",
"debianExtra" => "DebianExtra.pl",