BZ::Client::Bugzilla - Provides information about the Bugzilla server.

BZ-Client documentation Contained in the BZ-Client distribution.

Index

Code Index:

NAME

Top

  BZ::Client::Bugzilla - Provides information about the Bugzilla server.

This class provides methods for accessing information about the Bugzilla servers installation.

SYNOPSIS

Top

  my $client = BZ::Client->new("url" => $url,
                               "user" => $user,
                               "password" => $password);
  my $extensions = BZ::Client::Bugzilla->extensions($client);
  my $time = BZ::Client::Bugzilla->time($client);
  my $version = BZ::Client::Bugzilla->version($client);

CLASS METHODS

Top

This section lists the class methods, which are available in this module.

extensions

  my $extensions = BZ::Client::Bugzilla->extensions($client);

Returns a hash ref with information about the Bugzilla servers extensions.

time

  my $time = BZ::Client::Bugzilla->time($client);

Returns a hash ref with information about the Bugzilla servers local time.

timezone

  my $timezone = BZ::Client::Bugzilla->timezone($client);

Returns the Bugzilla servers timezone as a numeric value. This method is deprecated: Use time instead.

version

  my $version = BZ::Client::Bugzilla->version($client);

Returns the Bugzilla servers version.

SEE ALSO

Top

  L<BZ::Client>, L<BZ::Client::API>
BZ-Client documentation Contained in the BZ-Client distribution. 
#
# BZ::Client::Bugzilla - Provides access to the Bugzilla::Webservices::Bugzilla API
#

use strict;
use warnings "all";

package BZ::Client::Bugzilla;

use BZ::Client::API();

our $VERSION = 1.0;
our @ISA = qw(BZ::Client::API);

sub extensions($$) {
    my($class, $client) = @_;
    my $params = {};
    return $class->api_call($client, "Bugzilla.extensions", $params);
}

sub time($$) {
    my($class, $client) = @_;
    my $params = {};
    $client->log("debug", "BZ::Client::Bugzilla::time: Asking");
    my $time = $class->api_call($client, "Bugzilla.time", $params);
    $client->log("debug", "BZ::Client::Bugzilla::time: Got $time");
    return $time;
}

sub timezone($$) {
    my($class, $client) = @_;
    my $params = {};
    $client->log("debug", "BZ::Client::Bugzilla::timezone: Asking");
    my $timezone = $class->api_call($client, "Bugzilla.timezone", $params);
    $client->log("debug", "BZ::Client::Bugzilla::time: Got $timezone");
    return $timezone;
}

sub version($$) {
    my($class, $client) = @_;
    my $params = {};
    $client->log("debug", "BZ::Client::Bugzilla::version: Asking");
    my $version = $class->api_call($client, "Bugzilla.version", $params);
    $client->log("debug", "BZ::Client::Bugzilla::time: Got $version");
    return $version;
}


1;