zcbot fix.

docs/Changelog

@@ -4,6 +4,8 @@ pisg (x.xx)
      normal line is available for that nick
    * Added support for formatting of "for example" lines to standard format
    * Added retarded support for retarded logformat used for mIRC6.x
+   * A bug in the zcbot format where the first character would be truncated
+     has been fixed (thanks, Guillaume Leclanche)
 
 pisg (0.41) - Sun Aug, 11th 2002
    * Fix a bug in the winbot logfile format where lines containing the channel

modules/Pisg/Parser/Format/zcbot.pm

@@ -10,7 +10,7 @@ sub new
     my ($type, %args) = @_;
     my $self = {
         cfg => $args{cfg},
-        normalline => '^[^ ]+ (\d+):[^ ]+ :([^!]+)[^ ]+ PRIVMSG (\#[^ ]+) :[^\001](.*)',
+        normalline => '^[^ ]+ (\d+):[^ ]+ :([^!]+)[^ ]+ PRIVMSG (\#[^ ]+) :([^\001].*)',
         actionline => '^[^ ]+ (\d+):[^ ]+ :([^!]+)[^ ]+ PRIVMSG (\#[^ ]+) :\001ACTION (.*)',
         thirdline  => '^[^ ]+ (\d+):(\d+):\d+ :([^!]+)[^ ]+ ([A-Z]+) (.*)',
     };