r1167 - in packages/libnetxap-perl/trunk: . Net debian examples
Jaldhar H. Vyas
jaldhar@costa.debian.org
Wed, 15 Jun 2005 13:37:14 +0000
Author: jaldhar
Date: 2005-06-15 13:37:13 +0000 (Wed, 15 Jun 2005)
New Revision: 1167
Added:
packages/libnetxap-perl/trunk/debian/
packages/libnetxap-perl/trunk/debian/changelog
packages/libnetxap-perl/trunk/debian/compat
packages/libnetxap-perl/trunk/debian/control
packages/libnetxap-perl/trunk/debian/copyright
packages/libnetxap-perl/trunk/debian/examples
packages/libnetxap-perl/trunk/debian/rules
Modified:
packages/libnetxap-perl/trunk/Net/IMAP.pm
packages/libnetxap-perl/trunk/Net/xAP.pm
packages/libnetxap-perl/trunk/examples/imap.pl
packages/libnetxap-perl/trunk/examples/imap2.pl
Log:
Load libnetxap-perl-0.02 into packages/libnetxap-perl/trunk.
Modified: packages/libnetxap-perl/trunk/Net/IMAP.pm
===================================================================
--- packages/libnetxap-perl/trunk/Net/IMAP.pm 2005-06-15 13:36:09 UTC (rev 1166)
+++ packages/libnetxap-perl/trunk/Net/IMAP.pm 2005-06-15 13:37:13 UTC (rev 1167)
@@ -1,4 +1,3 @@
-#!/usr/local/bin/perl
#
# Copyright (c) 1997-1999 Kevin Johnson <kjj@pobox.com>.
#
@@ -233,6 +232,12 @@
return undef;
}
+ unless ($self->has_capability("IMAP4rev1")){
+ carp "server does not support IMAP4rev1";
+ $self->close_connection or carp "error closing connection: $!";
+ return undef;
+ }
+
return $self;
}
@@ -263,14 +268,6 @@
} elsif (($list->[0] ne '*') || ($list->[1] !~ /^ok$/i)) {
return undef;
}
- my $supports_imap4rev1 = 0;
- for my $item (@{$list}) {
- $supports_imap4rev1++ if ($item =~ /^imap4rev1$/i);
- }
- unless ($supports_imap4rev1) {
- $self->close_connection;
- return undef;
- }
$self->{Banner} = $list;
@@ -2394,14 +2391,21 @@
$self->{Parent} = $parent;
my $fields = Net::xAP->parse_fields($str);
- for my $n (0 .. 2) {
- my $field = $fields->[$n];
- for my $item (@{$field}) {
- $item->[1] = '' if (lc($item->[1]) eq 'nil');
- $self->{Namespaces}{$namespace_types[$n]}{$item->[0]} = $item->[1];
+ if (lc($fields->[1]) eq 'nil')
+ {
+ for my $n (0 .. 2) {
+ $self->{Namespaces}{$namespace_types[$n]}{$fields->[0]} = '';
}
}
-
+ else
+ {
+ for my $n (0 .. 2) {
+ my $field = $fields->[$n];
+ for my $item (@{$field}) {
+ $self->{Namespaces}{$namespace_types[$n]}{$item->[0]} = $item->[1];
+ }
+ }
+ }
return $self;
}
@@ -2808,7 +2812,7 @@
=head1 Multipart
-This is a container for C<BodyStructure objects that are multipart entities.
+This is a container for C<BodyStructure> objects that are multipart entities.
=head2 parts
@@ -2903,12 +2907,12 @@
=head2 envelope
-If the MIME content type is C<message/rfc822, returns a
+If the MIME content type is C<message/rfc822>, returns a
C<Net::IMAP::Envelope> object, otherwise returns undef.
=head2 bodystructure
-If the MIME content type is C<message/rfc822, returns a
+If the MIME content type is C<message/rfc822>, returns a
C<Net::IMAP::BodyStructure> object, otherwise returns undef.
=head2 md5
Modified: packages/libnetxap-perl/trunk/Net/xAP.pm
===================================================================
--- packages/libnetxap-perl/trunk/Net/xAP.pm 2005-06-15 13:36:09 UTC (rev 1166)
+++ packages/libnetxap-perl/trunk/Net/xAP.pm 2005-06-15 13:37:13 UTC (rev 1167)
@@ -1,4 +1,3 @@
-#!/usr/local/bin/perl
#
# Copyright (c) 1997-1999 Kevin Johnson <kjj@pobox.com>.
#
Added: packages/libnetxap-perl/trunk/debian/changelog
===================================================================
--- packages/libnetxap-perl/trunk/debian/changelog 2005-06-15 13:36:09 UTC (rev 1166)
+++ packages/libnetxap-perl/trunk/debian/changelog 2005-06-15 13:37:13 UTC (rev 1167)
@@ -0,0 +1,27 @@
+libnetxap-perl (0.02-4) unstable; urgency=low
+
+ * Package now maintained by the Debian Perl group.
+
+ -- Jaldhar H. Vyas <jaldhar@debian.org> Wed, 15 Jun 2005 09:32:11 -0400
+
+libnetxap-perl (0.02-3) unstable; urgency=low
+
+ * Fixed mishandling of IMAP banner (Closes: #256836)
+ * I think I fixed the issue with the namespace function returning NIL.
+ Further testing would be helpful. (Closes: #256837)
+
+ -- Jaldhar H. Vyas <jaldhar@debian.org> Wed, 7 Jul 2004 22:13:09 -0400
+
+libnetxap-perl (0.02-2) unstable; urgency=low
+
+ * Added missing dependency on libdigest-hmac-perl. Removed incorrect
+ dependency on libmd4-perl (Closes: #221017)
+
+ -- Jaldhar H. Vyas <jaldhar@debian.org> Sun, 16 Nov 2003 08:30:42 -0500
+
+libnetxap-perl (0.02-1) unstable; urgency=low
+
+ * Initial Release (Closes #204112.)
+
+ -- Jaldhar H. Vyas <jaldhar@debian.org> Mon, 4 Aug 2003 13:28:16 -0400
+
Added: packages/libnetxap-perl/trunk/debian/compat
===================================================================
--- packages/libnetxap-perl/trunk/debian/compat 2005-06-15 13:36:09 UTC (rev 1166)
+++ packages/libnetxap-perl/trunk/debian/compat 2005-06-15 13:37:13 UTC (rev 1167)
@@ -0,0 +1 @@
+4
Added: packages/libnetxap-perl/trunk/debian/control
===================================================================
--- packages/libnetxap-perl/trunk/debian/control 2005-06-15 13:36:09 UTC (rev 1166)
+++ packages/libnetxap-perl/trunk/debian/control 2005-06-15 13:37:13 UTC (rev 1167)
@@ -0,0 +1,14 @@
+Source: libnetxap-perl
+Section: perl
+Priority: optional
+Build-Depends-Indep: debhelper (>= 4), perl (>= 5.8.0-7)
+Maintainer: Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org>
+Uploaders: Jaldhar H. Vyas <jaldhar@debian.org>
+Standards-Version: 3.6.1
+
+Package: libnet-imap-perl
+Architecture: all
+Depends: ${perl:Depends}, ${misc:Depends}, libdigest-hmac-perl, libmime-base64-perl
+Description: A client interface to IMAP (Internet Message Access Protocol)
+ Net::IMAP provides a perl interface to the client portion of IMAP
+ (Internet Message Access Protocol).
Added: packages/libnetxap-perl/trunk/debian/copyright
===================================================================
--- packages/libnetxap-perl/trunk/debian/copyright 2005-06-15 13:36:09 UTC (rev 1166)
+++ packages/libnetxap-perl/trunk/debian/copyright 2005-06-15 13:37:13 UTC (rev 1167)
@@ -0,0 +1,17 @@
+This is the debian package for the Net::IMAP module.
+It was created by Jaldhar H. Vyas <jaldhar@debian.org> using dh-make-perl.
+
+The upstream author is:
+
+Kevin Johnson <kjj@pobox.com>.
+
+
+Copyright (c) 1997-1999 Kevin Johnson <kjj@pobox.com>.
+
+All rights reserved. This program is free software; you can
+redistribute it and/or modify it under the same terms as Perl itself.
+
+Perl is distributed under your choice of the GNU General Public License or
+the Artistic License. On Debian GNU/Linux systems, the complete text of the
+GNU General Public License can be found in `/usr/share/common-licenses/GPL'
+and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
Added: packages/libnetxap-perl/trunk/debian/examples
===================================================================
--- packages/libnetxap-perl/trunk/debian/examples 2005-06-15 13:36:09 UTC (rev 1166)
+++ packages/libnetxap-perl/trunk/debian/examples 2005-06-15 13:37:13 UTC (rev 1167)
@@ -0,0 +1,3 @@
+examples/imap.pl
+examples/imap2.pl
+
Added: packages/libnetxap-perl/trunk/debian/rules
===================================================================
--- packages/libnetxap-perl/trunk/debian/rules 2005-06-15 13:36:09 UTC (rev 1166)
+++ packages/libnetxap-perl/trunk/debian/rules 2005-06-15 13:37:13 UTC (rev 1167)
@@ -0,0 +1,80 @@
+#!/usr/bin/make -f
+#-*- makefile -*-
+# Made with the aid of dh_make, by Craig Small
+# Sample debian/rules that uses debhelper. GNU copyright 1997 by Joey Hess.
+# Some lines taken from debmake, by Christoph Lameter.
+
+# Uncomment this to turn on verbose mode.
+#export DH_VERBOSE=1
+
+PACKAGE=$(shell dh_listpackages)
+
+ifndef PERL
+PERL = /usr/bin/perl
+endif
+
+ifndef DESTDIR
+DESTDIR=..
+endif
+TMP =`pwd`/debian/$(PACKAGE)
+
+build: build-stamp
+build-stamp:
+ dh_testdir
+
+
+ # Add here commands to compile the package.
+ $(PERL) Makefile.PL INSTALLDIRS=vendor
+ $(MAKE) OPTIMIZE="-O2 -g -Wall"
+
+ touch build-stamp
+
+clean:
+ dh_testdir
+ dh_testroot
+ rm -f build-stamp
+
+ # Add here commands to clean up after the build process.
+ -$(MAKE) realclean
+
+ dh_clean
+
+install:
+ dh_testdir
+ dh_testroot
+ dh_clean -k
+ dh_installdirs
+
+ # Add here commands to install the package into debian/tmp.
+ #$(MAKE) install DESTDIR=`pwd`/debian/tmp
+ $(MAKE) install PREFIX=$(TMP)/usr
+
+
+# Build architecture-dependent files here.
+binary-arch: build install
+# We have nothing to do by default.
+
+# Build architecture-independent files here.
+binary-indep: build install
+ dh_testdir
+ dh_testroot
+ dh_installdocs BUGS TODO ANNOUNCE NEWS README
+ dh_installexamples
+ dh_installman
+ dh_installchangelogs
+ dh_link
+ dh_strip
+ dh_compress
+ dh_fixperms
+ dh_installdeb
+ dh_perl
+ dh_shlibdeps
+ dh_gencontrol
+ dh_md5sums
+ dh_builddeb --destdir=$(DESTDIR)
+
+source diff:
+ @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary
Property changes on: packages/libnetxap-perl/trunk/debian/rules
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libnetxap-perl/trunk/examples/imap.pl
___________________________________________________________________
Name: svn:executable
-
+ *
Property changes on: packages/libnetxap-perl/trunk/examples/imap2.pl
___________________________________________________________________
Name: svn:executable
-
+ *