Просмотр исходного кода

Work for &channel, +channel and !channel. Patch from Hanno Hecker

sbingner 24 лет назад
Родитель
Сommit
e7531140e7
1 измененных файлов с 4 добавлено и 4 удалено
  1. 4 4
      modules/Pisg/Parser/Format/pircbot.pm

+ 4 - 4
modules/Pisg/Parser/Format/pircbot.pm

@@ -12,12 +12,12 @@ sub new
 
 
     my $self = {
     my $self = {
         cfg => $args{cfg},
         cfg => $args{cfg},
-        normalline => '^(\d+)\s:([^!]+)![^@]+@\S+\sPRIVMSG\s(#\S+)\s:([^' . $ctcpchr . '].*)$'
+        normalline => '^(\d+)\s:([^!]+)![^@]+@\S+\sPRIVMSG\s([#&+!]\S+)\s:([^' . $ctcpchr . '].*)$'
                       . '|' .
                       . '|' .
-                      '^(\d+)\s(>>>)PRIVMSG\s(#\S+)\s:([^' . $ctcpchr . '].*)$',
-        actionline => '^(\d+)\s:([^!]+)!([^@]+)@(\S+)\sPRIVMSG\s(#\S+)\s:' . $ctcpchr . 'ACTION (.+)' . $ctcpchr . '\s*$'
+                      '^(\d+)\s(>>>)PRIVMSG\s([#&+!]\S+)\s:([^' . $ctcpchr . '].*)$',
+        actionline => '^(\d+)\s:([^!]+)!([^@]+)@(\S+)\sPRIVMSG\s([#&+!]\S+)\s:' . $ctcpchr . 'ACTION (.+)' . $ctcpchr . '\s*$'
                       . '|' . 
                       . '|' . 
-                      '^(\d+)\s(>>>)PRIVMSG\s(#\S+)\s:' . $ctcpchr . 'ACTION (.+)' . $ctcpchr . '\s*$',
+                      '^(\d+)\s(>>>)PRIVMSG\s([#&+!]\S+)\s:' . $ctcpchr . 'ACTION (.+)' . $ctcpchr . '\s*$',
 	thirdline  => '^(\d+)\s:([^!]+)![^@]+@\S+\s(.+)$'
 	thirdline  => '^(\d+)\s:([^!]+)![^@]+@\S+\s(.+)$'
                       . '|' .
                       . '|' .
                       '^(\d+)\s(>>>)([^P].+)$',
                       '^(\d+)\s(>>>)([^P].+)$',