$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;