r43346 - in /branches/upstream/libnet-rendezvous-publish-backend-avahi-perl: ./ current/ current/lib/ current/lib/Net/ current/lib/Net/Rendezvous/ current/lib/Net/Rendezvous/Publish/ current/lib/Net/Rendezvous/Publish/Backend/
christine at users.alioth.debian.org
christine at users.alioth.debian.org
Tue Sep 1 00:30:15 UTC 2009
Author: christine
Date: Tue Sep 1 00:30:08 2009
New Revision: 43346
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43346
Log:
[svn-inject] Installing original source of libnet-rendezvous-publish-backend-avahi-perl
Added:
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Build.PL
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Changes
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/MANIFEST
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/META.yml
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Makefile.PL
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/README
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/SIGNATURE
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/lib/
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/lib/Net/
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/lib/Net/Rendezvous/
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/lib/Net/Rendezvous/Publish/
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/lib/Net/Rendezvous/Publish/Backend/
branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/lib/Net/Rendezvous/Publish/Backend/Avahi.pm
Added: branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Build.PL?rev=43346&op=file
==============================================================================
--- branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Build.PL (added)
+++ branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Build.PL Tue Sep 1 00:30:08 2009
@@ -1,0 +1,15 @@
+# vi: ts=4 sw=4
+
+use strict;
+use warnings;
+
+use Module::Build;
+
+Module::Build->new(module_name => 'Net::Rendezvous::Publish::Backend::Avahi',
+ license => 'perl',
+ requires => {'perl' => 5,
+ 'Net::Rendezvous::Publish' => 0,
+ 'Net::DBus' => '0.33.2'},
+ create_makefile_pl => 'traditional',
+ create_readme => 1,
+ sign => 1)->create_build_script;
Added: branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Changes?rev=43346&op=file
==============================================================================
--- branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Changes (added)
+++ branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Changes Tue Sep 1 00:30:08 2009
@@ -1,0 +1,17 @@
+0.03 Sat Jun 10 21:52:36 PDT 2006
+
+ - Add to documentation.
+ - Add step function.
+
+0.02 Wed Jun 7 12:07:20 PDT 2006
+
+ - Return EntryGroup objects from publish, Free EntryGroup objects in
+ pbulish_stop.
+
+ - Successfully convert txt string to DBus aay, thanks Daniel Berrange.
+
+ - Clean up documentation.
+
+0.01 Wed Jun 7 01:20:32 PDT 2006
+
+ - Initial release.
Added: branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/MANIFEST?rev=43346&op=file
==============================================================================
--- branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/MANIFEST (added)
+++ branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/MANIFEST Tue Sep 1 00:30:08 2009
@@ -1,0 +1,8 @@
+Build.PL
+Changes
+lib/Net/Rendezvous/Publish/Backend/Avahi.pm
+Makefile.PL
+MANIFEST This list of files
+META.yml
+README
+SIGNATURE Added here by Module::Build
Added: branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/META.yml?rev=43346&op=file
==============================================================================
--- branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/META.yml (added)
+++ branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/META.yml Tue Sep 1 00:30:08 2009
@@ -1,0 +1,18 @@
+---
+name: Net-Rendezvous-Publish-Backend-Avahi
+version: 0.03
+author:
+ - 'Jack Bates <ms419 at freezone.co.uk>'
+abstract: |-
+ Publish zeroconf data with the Avahi
+ library.
+license: perl
+requires:
+ Net::DBus: 0.33.2
+ Net::Rendezvous::Publish: 0
+ perl: 5
+provides:
+ Net::Rendezvous::Publish::Backend::Avahi:
+ file: lib/Net/Rendezvous/Publish/Backend/Avahi.pm
+ version: 0.03
+generated_by: Module::Build version 0.26
Added: branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Makefile.PL?rev=43346&op=file
==============================================================================
--- branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Makefile.PL (added)
+++ branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/Makefile.PL Tue Sep 1 00:30:08 2009
@@ -1,0 +1,14 @@
+# Note: this file was auto-generated by Module::Build::Compat version 0.03
+use ExtUtils::MakeMaker;
+WriteMakefile
+(
+ 'PL_FILES' => {},
+ 'INSTALLDIRS' => 'site',
+ 'NAME' => 'Net::Rendezvous::Publish::Backend::Avahi',
+ 'VERSION_FROM' => 'lib/Net/Rendezvous/Publish/Backend/Avahi.pm',
+ 'PREREQ_PM' => {
+ 'Net::Rendezvous::Publish' => 0,
+ 'Net::DBus' => '0.33.2'
+ }
+ )
+;
Added: branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/README?rev=43346&op=file
==============================================================================
--- branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/README (added)
+++ branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/README Tue Sep 1 00:30:08 2009
@@ -1,0 +1,28 @@
+NAME
+ Net::Rendezvous::Publish::Backend::Avahi - Publish zeroconf data with
+ the Avahi library.
+
+DESCRIPTION
+ This module publishes zeroconf data with the Avahi library.
+
+ It's a backend for the Net::Rendezvous::Publish module.
+
+PREREQUISITES
+ Net::DBus
+
+ Net::Rendezvous::Publish
+
+AUTHOR
+ Jack Bates <ms419 at freezone.co.uk>
+
+COPYRIGHT
+ Copyright 2006, Jack Bates. All rights reserved.
+
+ This program is free software. You can redistribute it and/or modify it
+ under the same terms as Perl itself.
+
+SEE ALSO
+ Net::Rendezvous::Publish - The module this module supports.
+
+ Avahi
+
Added: branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/SIGNATURE?rev=43346&op=file
==============================================================================
--- branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/SIGNATURE (added)
+++ branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/SIGNATURE Tue Sep 1 00:30:08 2009
@@ -1,0 +1,31 @@
+This file contains message digests of all files listed in MANIFEST,
+signed via the Module::Signature module, version 0.55.
+
+To verify the content in this distribution, first make sure you have
+Module::Signature installed, then type:
+
+ % cpansign -v
+
+It will check each file's integrity, as well as the signature's
+validity. If "==> Signature verified OK! <==" is not displayed,
+the distribution may already have been compromised, and you should
+not run its Makefile.PL or Build.PL.
+
+-----BEGIN PGP SIGNED MESSAGE-----
+Hash: SHA1
+
+SHA1 300c4d62c1732ad760c1c4d4d76dd8289cc99c0c Build.PL
+SHA1 38522030fc483c0851bbdf0799d23ece83635af9 Changes
+SHA1 e2ec7963beb7308c35b4a332c709b95d0044b0f3 MANIFEST
+SHA1 35704352031b097aead62dc5e5a5f0772af0bb06 META.yml
+SHA1 00e0321da83b5705ddea92ac8ce8ffcf77ff8416 Makefile.PL
+SHA1 5ea5ef3539ab7879a2b3fadccca67e425c9a93a6 README
+SHA1 6c0b40fa4791620fb4ad2534f4298be8522c7334 lib/Net/Rendezvous/Publish/Backend/Avahi.pm
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v1.4.6 (GNU/Linux)
+
+iGUEARECACUFAkY+tW0eGGhrcDovL2NnaS5zZnUuY2E6ODAvfmpkYmF0ZXMvAAoJ
+EDQq9j8F5ZSEbQ8An2ABpg8Ca3+bU1WHsmAhFxT9IUQxAJ94fm3D+v3FQZ+Z4oFU
+6R9G3cxBJQ==
+=ls1y
+-----END PGP SIGNATURE-----
Added: branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/lib/Net/Rendezvous/Publish/Backend/Avahi.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/lib/Net/Rendezvous/Publish/Backend/Avahi.pm?rev=43346&op=file
==============================================================================
--- branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/lib/Net/Rendezvous/Publish/Backend/Avahi.pm (added)
+++ branches/upstream/libnet-rendezvous-publish-backend-avahi-perl/current/lib/Net/Rendezvous/Publish/Backend/Avahi.pm Tue Sep 1 00:30:08 2009
@@ -1,0 +1,93 @@
+package Net::Rendezvous::Publish::Backend::Avahi;
+
+# vi: ts=4 sw=4
+
+use strict;
+use warnings;
+
+use Net::DBus;
+
+our $VERSION = 0.03;
+
+sub new {
+ my $class = shift;
+ my $self = {@_};
+ bless $self, $class;
+
+ my $bus = Net::DBus->system;
+ $self->{service} = $bus->get_service('org.freedesktop.Avahi');
+ $self->{server} = $self->{service}->get_object(
+ '/', 'org.freedesktop.Avahi.Server');
+
+ return $self;
+}
+
+sub publish {
+ my $self = shift;
+ my %args = @_;
+
+ my $group = $self->{service}->get_object(
+ $self->{server}->EntryGroupNew, 'org.freedesktop.Avahi.EntryGroup');
+ $group->AddService(Net::DBus::dbus_int32(-1), Net::DBus::dbus_int32(-1),
+ Net::DBus::dbus_uint32(0), $args{name}, $args{type},
+ $args{domain}, $args{host}, Net::DBus::dbus_uint16($args{port}),
+
+ # AddService argument signature is aay. Split first into key/value
+ # pairs at character \x01, then map characters to bytes and add DBus
+ # type.
+ [map {
+ [map {
+ Net::DBus::dbus_byte(ord($_))
+ } (split //, $_)]
+ } (split /\x01/, $args{txt})]);
+ $group->Commit;
+
+ return $group;
+}
+
+sub publish_stop {
+ my $self = shift;
+ my ($group) = @_;
+
+ $group->Free;
+}
+
+sub step {
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::Rendezvous::Publish::Backend::Avahi - Publish zeroconf data with the Avahi
+library.
+
+=head1 DESCRIPTION
+
+This module publishes zeroconf data with the Avahi library.
+
+It's a backend for the Net::Rendezvous::Publish module.
+
+=head1 PREREQUISITES
+
+Net::DBus
+
+Net::Rendezvous::Publish
+
+=head1 AUTHOR
+
+Jack Bates <ms419 at freezone.co.uk>
+
+=head1 COPYRIGHT
+
+Copyright 2006, Jack Bates. All rights reserved.
+
+This program is free software. You can redistribute it and/or modify it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+Net::Rendezvous::Publish - The module this module supports.
+
+L<Avahi|http://avahi.org/>
More information about the Pkg-perl-cvs-commits
mailing list