Differences

This shows you the differences between two versions of the page.

--- matrix_irc_script [2008/07/09 11:03] – sva
+++ matrix_irc_script [2008/10/21 10:47] – schneider
@@ Line 1: / Line 1: @@
+//Achtung: Ist jetzt im Haskell-Bot von fpletz implementiert.//
 <code>
 #!/usr/bin/perl
@@ Line 40: / Line 41: @@
 </code>
+<code>
+#!/usr/bin/perl
+use Socket;
+my %opt = ( "hostname" => "matrix", "hostport" => 2323, "filename" => "/home/kiu/.xchat2/xchatlogs/rettungskapsel-#ccc.log" );
+my $fh;
+if ( ! open($fh,$opt{"filename"}) ) {
+        die("open failed with $!\n");
+};
+socket(my $sh,PF_INET,SOCK_DGRAM,getprotobyname('udp'));
+print "IRCBot started\n";
+seek($fh,0,2);
+while (1) {
+        my $record = <$fh>;
+        if ($record =~ m/MATRIX/) {
+                $record =~ s/[\'\"\*\^\|\`|\_]//g;
+                $record =~ s/(.*)\t//;
+                $record =~ s/\((.*)\) has//;
+                $record =~ s/MATRIX//;
+                $record =~ s/ä/ae/;
+                $record =~ s/ü/ue/;
+                $record =~ s/ö/oe/;
+                $record =~ s/Ä/Ae/;
+                $record =~ s/Ü/Ue/;
+                $record =~ s/Ö/Oe/;
+                $record =~ s/ß/ss/;
+                print "$record";
+                send($sh,$record,0,sockaddr_in($opt{"hostport"},inet_aton($opt{"hostname"})));
+        };
+};
+close($fh);
+</code>
-{{tag>projects}}
+{{tag>projects home}}