r42500 - in /trunk/libanyevent-irc-perl: ./ debian/ lib/AnyEvent/ lib/AnyEvent/IRC/ samples/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Aug 22 19:43:28 UTC 2009
Author: jawnsy-guest
Date: Sat Aug 22 19:43:22 2009
New Revision: 42500
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42500
Log:
New upstream release, note that it now WAITS for libcommon-sense-perl :(
Modified:
trunk/libanyevent-irc-perl/Changes
trunk/libanyevent-irc-perl/META.yml
trunk/libanyevent-irc-perl/Makefile.PL
trunk/libanyevent-irc-perl/README
trunk/libanyevent-irc-perl/debian/changelog
trunk/libanyevent-irc-perl/lib/AnyEvent/IRC.pm
trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Client.pm
trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Connection.pm
trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Util.pm
trunk/libanyevent-irc-perl/samples/anyeventirc
trunk/libanyevent-irc-perl/samples/anyeventirccl
trunk/libanyevent-irc-perl/samples/dcc
trunk/libanyevent-irc-perl/samples/debug_console
trunk/libanyevent-irc-perl/samples/notify
trunk/libanyevent-irc-perl/samples/version_dump
trunk/libanyevent-irc-perl/t/01_util.t
Modified: trunk/libanyevent-irc-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/Changes?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/Changes (original)
+++ trunk/libanyevent-irc-perl/Changes Sat Aug 22 19:43:22 2009
@@ -1,4 +1,8 @@
Revision history for AnyEvent::IRC
+
+0.81 Mon Aug 10 09:43:29 CEST 2009
+ - fixed some sample scripts.
+ - added 'common::sense' to all the scripts and module files.
0.8 Fri Jun 26 15:29:06 CEST 2009
- added enable_ssl to AnyEvent::IRC::Connection to enable
Modified: trunk/libanyevent-irc-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/META.yml?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/META.yml (original)
+++ trunk/libanyevent-irc-perl/META.yml Sat Aug 22 19:43:22 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: AnyEvent-IRC
-version: 0.8
+version: 0.81
abstract: An event system independend IRC protocol module
author:
- Robin Redeker <elmex at ta-sa.org>
@@ -10,6 +10,7 @@
ExtUtils::MakeMaker: 0
requires:
AnyEvent: 0
+ common::sense: 0
Object::Event: 0.6
Test::More: 0
no_index:
Modified: trunk/libanyevent-irc-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/Makefile.PL?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/Makefile.PL (original)
+++ trunk/libanyevent-irc-perl/Makefile.PL Sat Aug 22 19:43:22 2009
@@ -13,6 +13,7 @@
'Test::More' => 0,
'AnyEvent' => 0,
'Object::Event' => '0.6',
+ 'common::sense' => 0,
},
dist => {
COMPRESS => 'gzip -9f',
Modified: trunk/libanyevent-irc-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/README?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/README (original)
+++ trunk/libanyevent-irc-perl/README Sat Aug 22 19:43:22 2009
@@ -2,7 +2,7 @@
AnyEvent::IRC - An event system independend IRC protocol module
VERSION
- Version 0.8
+ Version 0.81
SYNOPSIS
Using the simplistic AnyEvent::IRC::Connection:
@@ -109,8 +109,9 @@
AnyEvent
- RFC 1459 - Internet Relay Chat: Client Protocol RFC 2812 - Internet
- Relay Chat: Client Protocol
+ RFC 1459 - Internet Relay Chat: Client Protocol
+
+ RFC 2812 - Internet Relay Chat: Client Protocol
BUGS
Please report any bugs or feature requests to "bug-net-irc3 at
Modified: trunk/libanyevent-irc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/debian/changelog?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/debian/changelog (original)
+++ trunk/libanyevent-irc-perl/debian/changelog Sat Aug 22 19:43:22 2009
@@ -1,5 +1,7 @@
-libanyevent-irc-perl (0.8-1) UNRELEASED; urgency=low
+libanyevent-irc-perl (0.81-1) UNRELEASED; urgency=low
+
+ WAITS FOR common::sense
* Initial Release (Closes: #536861)
- -- Maximilian Gass <mxey at cloudconnected.org> Tue, 14 Jul 2009 10:35:51 +0200
+ -- Jonathan Yu <frequency at cpan.org> Sat, 22 Aug 2009 11:44:00 -0400
Modified: trunk/libanyevent-irc-perl/lib/AnyEvent/IRC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/lib/AnyEvent/IRC.pm?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/lib/AnyEvent/IRC.pm (original)
+++ trunk/libanyevent-irc-perl/lib/AnyEvent/IRC.pm Sat Aug 22 19:43:22 2009
@@ -1,9 +1,6 @@
package AnyEvent::IRC;
-use strict;
+use common::sense;
use AnyEvent;
-use IO::Socket::INET;
-
-our $ConnectionClass = 'AnyEvent::IRC::Connection';
=head1 NAME
@@ -11,11 +8,11 @@
=head1 VERSION
-Version 0.8
+Version 0.81
=cut
-our $VERSION = '0.8';
+our $VERSION = '0.81';
=head1 SYNOPSIS
@@ -127,6 +124,7 @@
L<AnyEvent>
RFC 1459 - Internet Relay Chat: Client Protocol
+
RFC 2812 - Internet Relay Chat: Client Protocol
=head1 BUGS
Modified: trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Client.pm?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Client.pm (original)
+++ trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Client.pm Sat Aug 22 19:43:22 2009
@@ -1,6 +1,5 @@
package AnyEvent::IRC::Client;
-use strict;
-no warnings;
+use common::sense;
use AnyEvent::Socket;
use AnyEvent::Handle;
Modified: trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Connection.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Connection.pm?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Connection.pm (original)
+++ trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Connection.pm Sat Aug 22 19:43:22 2009
@@ -1,6 +1,5 @@
package AnyEvent::IRC::Connection;
-use strict;
-no warnings;
+use common::sense;
use AnyEvent;
use POSIX;
use AnyEvent::Socket;
Modified: trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Util.pm?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Util.pm (original)
+++ trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Util.pm Sat Aug 22 19:43:22 2009
@@ -1,6 +1,5 @@
package AnyEvent::IRC::Util;
-use strict;
-no warnings;
+use common::sense;
use Exporter;
our @ISA = qw/Exporter/;
our @EXPORT_OK =
Modified: trunk/libanyevent-irc-perl/samples/anyeventirc
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/samples/anyeventirc?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/samples/anyeventirc (original)
+++ trunk/libanyevent-irc-perl/samples/anyeventirc Sat Aug 22 19:43:22 2009
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-use strict;
+use common::sense;
use AnyEvent::Impl::Perl;
use AnyEvent;
use AnyEvent::IRC::Connection;
@@ -17,8 +17,13 @@
});
# display all irc messages for debugging
-$con->reg_cb ('irc_*' => sub { warn "DEBUG: " . join ('|', %{$_[1]}) . "\n"; });
-$con->reg_cb ('sent' => sub { shift; warn "DEBUG SENT: " . join ('|', @_) . "\n"; });
+$con->reg_cb ('irc_*' => sub {
+ my @p = @{delete $_[1]->{params} || []};
+ warn "DEBUG: " . join ('|', %{$_[1]}, @p) . "\n";
+});
+$con->reg_cb ('sent' => sub {
+ shift; warn "DEBUG SENT: " . join ('|', @_) . "\n";
+});
# we register now a callback on our self defined event
$con->reg_cb (welcome => sub {
@@ -26,16 +31,18 @@
$con->send_msg ("PRIVMSG", "elmex", "Hi!!!");
});
+# Disconnect after 10 seconds:
my $t;
$t = AnyEvent->timer (after => 10, cb => sub {
$con->disconnect ("Timeout exceeded");
undef $t;
});
-# lets
+# lets register connect and disconnect handlers.
$con->reg_cb (
connect => sub {
my ($con, $err) = @_;
+
if (defined $err) {
warn "Connect ERROR! => $err\n";
$c->broadcast;
Modified: trunk/libanyevent-irc-perl/samples/anyeventirccl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/samples/anyeventirccl?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/samples/anyeventirccl (original)
+++ trunk/libanyevent-irc-perl/samples/anyeventirccl Sat Aug 22 19:43:22 2009
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-use strict;
+use common::sense;
use AnyEvent::IRC::Client;
my $c = AnyEvent->condvar;
Modified: trunk/libanyevent-irc-perl/samples/dcc
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/samples/dcc?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/samples/dcc (original)
+++ trunk/libanyevent-irc-perl/samples/dcc Sat Aug 22 19:43:22 2009
@@ -1,5 +1,7 @@
#!/usr/bin/env perl
-use strict;
+# Just a small sample script on how DCC is used.
+#
+use common::sense;
use AnyEvent;
use AnyEvent::IRC::Client;
Modified: trunk/libanyevent-irc-perl/samples/debug_console
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/samples/debug_console?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/samples/debug_console (original)
+++ trunk/libanyevent-irc-perl/samples/debug_console Sat Aug 22 19:43:22 2009
@@ -1,4 +1,10 @@
#!/usr/bin/env perl
+# This is a simple script that connects stdin/stdout with a client
+# connection to an irc server. the command line arguments are:
+#
+# $ ./debug_console <nick> <server> <port>
+#
+use common::sense;
use IO::Handle;
use AnyEvent;
use AnyEvent::IRC::Client;
@@ -27,13 +33,15 @@
debug_recv => sub {
my ($con, $msg) = @_;
$stdout->push_write (
- "< " . mk_msg ($msg->{prefix}, $msg->{command}, @{$msg->{params}})
+ "< "
+ . mk_msg ($msg->{prefix}, $msg->{command}, @{$msg->{params}})
+ . "\n"
);
},
debug_send => sub {
my ($con, @msg) = @_;
$stdout->push_write (
- "> " . mk_msg (undef, @msg)
+ "> " . mk_msg (undef, @msg) . "\n"
);
},
registered => sub {
Modified: trunk/libanyevent-irc-perl/samples/notify
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/samples/notify?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/samples/notify (original)
+++ trunk/libanyevent-irc-perl/samples/notify Sat Aug 22 19:43:22 2009
@@ -1,4 +1,5 @@
#!/usr/bin/env perl
+use common::sense;
use AnyEvent;
use AnyEvent::IRC::Client;
@@ -12,7 +13,7 @@
if (defined $err) {
warn "Couldn't connect: $err\n";
- $c->broadcast;
+ $c->send;
} else {
print "Connected!\n";
}
@@ -34,10 +35,10 @@
},
disconnect => sub {
print "I'm out ($_[1])!\n";
- $c->broadcast
+ $c->send
},
);
$con->connect ("localhost", 6667);
-$c->wait;
+$c->recv;
Modified: trunk/libanyevent-irc-perl/samples/version_dump
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/samples/version_dump?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/samples/version_dump (original)
+++ trunk/libanyevent-irc-perl/samples/version_dump Sat Aug 22 19:43:22 2009
@@ -1,5 +1,10 @@
#!/usr/bin/env perl
-use IO::Handle;
+# Dumps the version of the irc server and exits.
+#
+# Command line:
+# $ ./version_dump <host> <port>
+#
+use common::sense;
use AnyEvent;
use AnyEvent::IRC::Client;
use AnyEvent::IRC::Util qw/mk_msg parse_irc_msg encode_ctcp/;
Modified: trunk/libanyevent-irc-perl/t/01_util.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/t/01_util.t?rev=42500&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/t/01_util.t (original)
+++ trunk/libanyevent-irc-perl/t/01_util.t Sat Aug 22 19:43:22 2009
@@ -1,5 +1,5 @@
#!perl
-use strict;
+use common::sense;
use Test::More;
use AnyEvent::IRC::Util
qw/parse_irc_msg mk_msg split_prefix rfc_code_to_name
More information about the Pkg-perl-cvs-commits
mailing list