#!/usr/bin/perl

use strict;
use warnings;
use Gtk2::Notify -init, 'ServerInfo';

my ($name, $vendor, $version, $spec_version)
    = Gtk2::Notify->get_server_info;

print <<"EOI";
Name:         $name
Vendor:       $vendor
Version:      $version
Spec Version: $spec_version
Capabilities:
EOI

my @caps = Gtk2::Notify->get_server_caps;

if (!scalar @caps) {
    print "Failed to receive server caps.\n";
    exit 1;
}

for my $cap (@caps) {
    print "    $cap\n";
}