Bläddra i källkod

David Leadbeater wrote:
> One little niggle with the irssi logging, if either show_nickmode_empty
> or show_nickmode are changed from the defaults it breaks.
> The following change to the regexp in
> modules/Pisg/Parser/Format/irssi.pm seems to fix it...

Morten Brix Pedersen 25 år sedan
förälder
incheckning
21b5b1c92f
3 ändrade filer med 5 tillägg och 1 borttagningar
  1. 2 0
      docs/CREDITS
  2. 2 0
      docs/Changelog
  3. 1 1
      modules/Pisg/Parser/Format/irssi.pm

+ 2 - 0
docs/CREDITS

@@ -66,6 +66,8 @@ And all the other contributors:
      modularize pisg into packages/objects.
      modularize pisg into packages/objects.
  * Patrick Aussems aka Zyk <zyk@bugfactory.org>
  * Patrick Aussems aka Zyk <zyk@bugfactory.org>
    | New options: show_mrn, show_mru, show_muw, show_randquote
    | New options: show_mrn, show_mru, show_muw, show_randquote
+ * David Leadbeater
+   | Flexibility to irssi logfiles.
 
 
 I probably forgot a lot of people here, _PLEASE_ notify me if I left you
 I probably forgot a lot of people here, _PLEASE_ notify me if I left you
 out.. because I have a bad habit of forgetting to maintain this list :)
 out.. because I have a bad habit of forgetting to maintain this list :)

+ 2 - 0
docs/Changelog

@@ -5,6 +5,8 @@ pisg (0.25)
      - show_mru, disable/enable most referenced urls
      - show_mru, disable/enable most referenced urls
      - show_muw, disable/enable most used words
      - show_muw, disable/enable most used words
      - show_randquote, disable/enable the showing of the random quotes
      - show_randquote, disable/enable the showing of the random quotes
+   * More flexibility to irssi logfile format, will now work with more irssi
+     logfile configurations. (David Leadbeater)
 
 
 pisg (0.24) - Mon, Sep 24th 2001
 pisg (0.24) - Mon, Sep 24th 2001
    * Logdirs not working, fixed.
    * Logdirs not working, fixed.

+ 1 - 1
modules/Pisg/Parser/Format/irssi.pm

@@ -10,7 +10,7 @@ sub new
     my $type = shift;
     my $type = shift;
     my $self = {
     my $self = {
         debug => $_[0],
         debug => $_[0],
-        normalline => '^(\d+):\d+ <.([^>]+)> (.*)',
+        normalline => '^(\d+):\d+ <[@+ ]?([^>]+)> (.*)',
         actionline => '^(\d+):\d+  \* (\S+) (.*)',
         actionline => '^(\d+):\d+  \* (\S+) (.*)',
         thirdline  => '^(\d+):(\d+) -\!- (\S+) (\S+) (\S+) (\S+) (\S+)(.*)',
         thirdline  => '^(\d+):(\d+) -\!- (\S+) (\S+) (\S+) (\S+) (\S+)(.*)',
     };
     };