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, 65 insertions, 0 deletions

diff --git a/ksirc/test/tester.pl b/ksirc/test/tester.pl
new file mode 100644
index 00000000..2815a3a1
--- /dev/null
+++ b/ksirc/test/tester.pl
@@ -0,0 +1,65 @@
+sub rndchr {
+  my $string = "";
+  for(my $i = 0; $i < 8; $i++){
+    $string .= chr(int(rand(26)) + 97); # More or less the alpahbet
+  }
+  return $string;
+}
+
+srand(time());
+
+&timer(1, "&next_one", 1);
+
+$state = 0;
+$max_win = 5;
+$win_open = 0;
+%wins = {};
+$repeat = 1000;
+$count = 0;
+
+
+sub next_one {
+  #
+  # State 0 is open window
+  #
+  if($state == 0){
+    $winnum = int(rand($max_win));
+    $winname = "#" . rndchr();
+    $wins{$winname} = 1;
+    print("~$winname~*>* You have joined channel $winname\n");
+    &docommand("/join $winname");
+    $state = 1;
+    $win_open ++;
+  }
+  #
+  # State 1 is print stuff to channel
+  #
+  elsif($state == 1){
+    while(($winname, $value) = each(%wins)){
+      &msg("$winname", rndchr());
+      &notice("$winname", rndchr());
+    }
+    $state = 2;
+  }
+  #
+  # State 2 is close window
+  #
+  elsif($state == 2){
+    if($win_open > $max_win){
+      $times = int(rand($win_open-1));
+      for($i = 0; $i<= $times; $i++){
+	($winname, $value) = each(%wins);
+      }
+      print("~#test~ <boren> leaving $winname\n");
+      delete($wins{$winname});
+      print("~!all~*<* You have left channel $winname\n");
+      &docommand("/part $winname");
+      $win_open --;
+    }
+    $state = 0;
+  }
+
+  if($count++ < $repeat){
+    &timer(5, "&next_one", 1);
+  }
+}
\ No newline at end of file