/usr/share/perl5/AnyEvent/XMPP/Namespaces.pm is in libanyevent-xmpp-perl 0.55-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 | package AnyEvent::XMPP::Namespaces;
no warnings;
use strict;
require Exporter;
our @EXPORT_OK = qw/xmpp_ns set_xmpp_ns_alias xmpp_ns_maybe/;
our @ISA = qw/Exporter/;
our %NAMESPACES = (
client => 'jabber:client',
component => 'jabber:component:accept',
stream => 'http://etherx.jabber.org/streams',
streams => 'urn:ietf:params:xml:ns:xmpp-streams',
stanzas => 'urn:ietf:params:xml:ns:xmpp-stanzas',
sasl => 'urn:ietf:params:xml:ns:xmpp-sasl',
bind => 'urn:ietf:params:xml:ns:xmpp-bind',
tls => 'urn:ietf:params:xml:ns:xmpp-tls',
roster => 'jabber:iq:roster',
register => 'jabber:iq:register',
version => 'jabber:iq:version',
auth => 'jabber:iq:auth',
session => 'urn:ietf:params:xml:ns:xmpp-session',
xml => 'http://www.w3.org/XML/1998/namespace',
disco_info => 'http://jabber.org/protocol/disco#info',
disco_items => 'http://jabber.org/protocol/disco#items',
register_f => 'http://jabber.org/features/iq-register',
iqauth => 'http://jabber.org/features/iq-auth',
data_form => 'jabber:x:data',
iq_oob => 'jabber:iq:oob',
x_oob => 'jabber:x:oob',
muc => 'http://jabber.org/protocol/muc',
muc_user => 'http://jabber.org/protocol/muc#user',
muc_owner => 'http://jabber.org/protocol/muc#owner',
search => 'jabber:iq:search',
x_delay => 'jabber:x:delay',
delay => 'urn:xmpp:delay',
ping => 'urn:xmpp:ping',
vcard => 'vcard-temp',
vcard_upd => 'vcard-temp:x:update',
pubsub => 'http://jabber.org/protocol/pubsub',
pubsub_own => 'http://jabber.org/protocol/pubsub#owner',
pubsub_ev => 'http://jabber.org/protocol/pubsub#event',
);
=head1 NAME
AnyEvent::XMPP::Namespaces - XMPP namespace collection and aliasing class
=head1 SYNOPSIS
use AnyEvent::XMPP::Namespaces qw/xmpp_ns set_xmpp_ns_alias/;
set_xmpp_ns_alias (stanzas => 'urn:ietf:params:xml:ns:xmpp-stanzas');
=head1 DESCRIPTION
This module represents a simple namespaces aliasing mechanism to ease handling
of namespaces when traversing AnyEvent::XMPP::Node objects and writing XML
with AnyEvent::XMPP::Writer.
=head1 XMPP NAMESPACES
There are already some aliases defined for the XMPP XML namespaces
which make handling of namepsaces a bit easier:
stream => http://etherx.jabber.org/streams
xml => http://www.w3.org/XML/1998/namespace
streams => urn:ietf:params:xml:ns:xmpp-streams
session => urn:ietf:params:xml:ns:xmpp-session
stanzas => urn:ietf:params:xml:ns:xmpp-stanzas
sasl => urn:ietf:params:xml:ns:xmpp-sasl
bind => urn:ietf:params:xml:ns:xmpp-bind
tls => urn:ietf:params:xml:ns:xmpp-tls
client => jabber:client
roster => jabber:iq:roster
version => jabber:iq:version
auth => jabber:iq:auth
iq_oob => jabber:iq:oob
x_oob => jabber:x:oob
disco_info => http://jabber.org/protocol/disco#info
disco_items => http://jabber.org/protocol/disco#items
register => http://jabber.org/features/iq-register
iqauth => http://jabber.org/features/iq-auth
data_form => jabber:x:data
ping => urn:xmpp:ping
vcard => vcard-temp
pubsub => http://jabber.org/protocol/pubsub
pubsub_own => http://jabber.org/protocol/pubsub#owner
pubsub_ev => http://jabber.org/protocol/pubsub#event
=head1 FUNCTIONS
=over 4
=item B<xmpp_ns ($alias)>
Returns am uri for the registered C<$alias> or undef if none exists.
=cut
sub xmpp_ns { return $NAMESPACES{$_[0]} }
=item B<xmpp_ns_maybe ($alias_or_namespace_uri)>
This method tries to find whether there is a alias C<$alias_or_namespace_uri>
registered and if not it returns C<$alias_or_namespace_uri>.
=cut
sub xmpp_ns_maybe {
my ($alias) = @_;
return unless defined $alias;
my $n = xmpp_ns ($alias);
$n ? $n : $alias
}
=item B<set_xmpp_ns_alias ($alias, $namespace_uri)>
Sets an C<$alias> for the C<$namespace_uri>.
=cut
sub set_xmpp_ns_alias { $NAMESPACES{$_[0]} = $_[1] }
=back
=head1 AUTHOR
Robin Redeker, C<< <elmex at ta-sa.org> >>, JID: C<< <elmex at jabber.org> >>
=head1 COPYRIGHT & LICENSE
Copyright 2007, 2008 Robin Redeker, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
1; # End of AnyEvent::XMPP
|