[haver-commits] r925 - trunk/perl/client/lib/Haver

[haver]

Author: dylan
Date: 2005-11-16 20:58:55 -0500 (Wed, 16 Nov 2005)
New Revision: 925

Modified:
   trunk/perl/client/lib/Haver/Client.pm
Log:
Added safety for colon-messages.


Modified: trunk/perl/client/lib/Haver/Client.pm
===================================================================
--- trunk/perl/client/lib/Haver/Client.pm       2005-11-17 01:29:44 UTC (rev 
924)
+++ trunk/perl/client/lib/Haver/Client.pm       2005-11-17 01:58:55 UTC (rev 
925)
@@ -58,14 +58,21 @@
 ### SETUP
 
 sub states {
+       local *name = sub {
+               my $s = shift;
+               $s =~ s/\W/_/g;
+               $s;
+       };
        local *prefix = sub {
-               my $prefix = shift;
-               map { ($_ => $prefix . $_) } @_;
+               my $a = shift;
+               my $b = shift;
+               map { ( ($a . $_) => name($b . $_)) } @_;
        };
        
-       
+
+       use Data::Dumper;
        return {
-               prefix('on_', qw(
+               prefix('', 'on_', qw(
                                _start _default _stop
                                connect  connect_fail 
                                connect_ok disconnect
@@ -78,14 +85,14 @@
                                force_down dns_response
                                do_connect
                        )),
-               map { ("msg_$_", "msg_$_") } qw(
+               prefix('msg_', 'msg_', qw(
                        HAVER HELLO
                        JOIN PART
                        IN FROM
                        PING BYE
                        FAIL
                        AUTH:TYPES AUTH:BASIC
-               )
+               ))
        };
 }