Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdenetwork@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 171 insertions, 0 deletions

diff --git a/ksirc/filters.pl b/ksirc/filters.pl
new file mode 100644
index 00000000..f7359714
--- /dev/null
+++ b/ksirc/filters.pl
@@ -0,0 +1,171 @@
+#
+# Structure format is:
+# $var[filter_number]{field}
+#
+# Defined fields: (* is required)
+#    SEARCH(*): search filter
+#    FROM(*): intput to subtitution regex
+#    TO(*): resultant to substitution regex
+#    DESC: description of filter rule
+#
+
+$#KSIRC_FILTER = 0;
+
+print "*** Loading filter parser...\n";
+
+$ksirc_dump = 0;
+
+sub hook_ksircfilter {
+    my($i) = 0;
+    for(; $i <= $#KSIRC_FILTER; $i++){
+        eval{
+            if($_[0] =~ m/$KSIRC_FILTER[$i]{'SEARCH'}/){
+                $_[0] =~ s/$KSIRC_FILTER[$i]{'FROM'}/$KSIRC_FILTER[$i]{'TO'}/eeg;
+            }
+        };
+        if ( $@ ){
+            (my $error = $@ ) =~ s/before HERE.*//;
+             my $desc = $KSIRC_FILTER[$i]{'DESC'};
+             splice(@KSIRC_FILTER, $i--, 1);
+             &tell("*\cbE\cb* Filter $desc disabled due to error: $error");
+        }
+    }
+}
+
+print "*** Filter Parser Loaded\n";
+
+addhook("print", "ksircfilter");
+
+sub cmd_ksircprintrule {
+  my($i) = 0;
+  for(; $i <= $#KSIRC_FILTER; $i++){
+    print STDOUT "*** Rule $i " . $KSIRC_FILTER[$i]{DESC} . ": if ". $KSIRC_FILTER[$i]{SEARCH} . " then ". $KSIRC_FILTER[$i]{FROM} . " -> " . $KSIRC_FILTER[$i]{TO} . "\n";
+  }
+}
+
+addcmd("ksircprintrule");
+&docommand("^alias prule ksircprintrule");
+
+# 
+# Addrule command takes 4 or arguments seperated by " key==value !!! key2==value2 ||| etc" 
+# 1. Name of rule
+# 2. Pattern to search for
+# 3. Substitution to take
+# 4. Sub to make 
+
+sub cmd_ksircappendrule {
+  my($rule, %PARSED);
+  foreach $rule (split(/ !!! /, $args)){
+    my($key,$value) = split(/==/, $rule);
+    $PARSED{$key} = $value;
+  }
+  if($PARSED{'DESC'} && $PARSED{'SEARCH'} && $PARSED{'FROM'} && $PARSED{'TO'}){
+    my($i) = $#KSIRC_FILTER + 1;
+    my($key, $value);
+    while(($key, $value) = each %PARSED){
+      $KSIRC_FILTER[$i]{$key} = $value;
+    }
+#    &tell("*** Added rule: " . $KSIRC_FILTER[$i]{'DESC'} . "\n");
+  }
+  else{
+    print "*E* Parse Error in Rule, format is: name !!! search !!! from !!! to\n";
+  }
+}
+
+addcmd("ksircappendrule");
+&docommand("^alias arule ksircappendrule");
+
+sub cmd_ksircclearrule {
+  @KSIRC_FILTER = ();
+#  &tell("*** ALL FILTER RULES ERASED - DEFAULTS ADDED\n");
+}
+
+&addcmd("ksircclearrule");
+&docommand("^alias crule ksircclearrule");
+&docommand("^crule");
+
+sub cmd_ksircdelrule {
+  if($args =~ /^\d+$/){
+    splice(@KSIRC_FILTER, $args, 1);
+    print STDOUT "*** Deleted rule: $args\n";
+  }
+  else {
+    print STDOUT "*E* Syntax is ksircdelrule <rule number>\n";
+  }
+}
+
+&addcmd("ksircdelrule");
+&docommand("^alias drule ksircdelrule");
+
+sub hook_pong_lag {
+    if($_[0] =~ /.*:LAG ([0-9.]+)/){
+        my($_l) = $1;
+        my($_t) = kgettimeofday();
+        $_t -= $_l;
+        #print "*** Diff: $_t\n";
+        print "~!lag~*L* " . $_t . "\n";
+    }
+}
+
+&addhook("pong", "pong_lag");
+
+sub cmd_lag {
+  my($_t) = kgettimeofday();
+  #  &docommand("^ctcp $nick LAG $_t");
+  &docommand("^quote PING :LAG $_t");
+  my $c;
+  foreach $c (@channels){
+    if($WHO_IGNORE{uc("$c")} != 1){
+      &docommand("^extnames $c");
+    }
+  }
+}
+
+
+eval {
+require 'sys/syscall.ph';
+};
+
+if(! defined(&SYS_gettimeofday)){
+  if(open(SYSCALL, "/usr/include/sys/syscall.h")){
+    my(@line) = grep(/define\s+SYS_gettimeofday/, <SYSCALL>);
+    close SYSCALL;
+    print "*E* Strange syscall.h, SYS_gettimeofday defined more than once!\n" if $#line > 1;
+    my($line) = "@line";
+    if($line =~ /SYS_gettimeofday\s+(\d+)/){
+      eval "sub SYS_gettimeofday () {$1;}";
+      print "*** Set time of day to: $1\n";
+    }
+  }
+
+  if(! defined(&SYS_gettimeofday)){
+    eval 'sub SYS_gettimeofday () {78;}';
+    print "*E* Unable to find SYS_gettimeofday, using LINUX default!\n";
+  }
+}
+
+
+sub kgettimeofday {
+  local($failed) = 0;
+  local($TIMEVAL_T) = "LL";
+  local($start) = pack($TIMEVAL_T, ());
+  eval{
+    (syscall( &SYS_gettimeofday, $start, 0) != -1) or $failed = 1;
+  };
+  if(!$failed){
+    my(@start) = unpack($TIMEVAL_T, $start);
+    $start[1] /= 1000000;
+    return $start[0] + $start[1];
+  }
+  else {
+    return time();
+  }
+}
+
+&addcmd("lag");
+
+sub hook_ksirc_notify_connected {
+  &print('~!all~`#ssfe#R reconnected');
+}
+
+&addhook("376", "ksirc_notify_connected");   # join on the "end of MOTD"