Added logurlsql.pl and rbox.rb scripts

2026-06-12 14:14:48 +02:00 · 2007-02-23 16:17:15 +00:00
parent f5731322da
commit 3fb1affd95
2 changed files with 101 additions and 0 deletions
@@ -0,0 +1,72 @@
+# perl
+# Logs URLs to a p5-DBI-MySQL database.
+# This script is BSD licensed.
+# Hacked together by Karlis "Hagabard" Loen in Feb 2007
+# hagabard AT gmail DOT com
+# Table format: (ircurls is default table name in script)
+#+-----------+---------------+------+-----+---------+-------+
+#| Field     | Type          | Null | Key | Default | Extra |
+#+-----------+---------------+------+-----+---------+-------+
+#| timestamp | timestamp(14) | YES  |     | NULL    |       |
+#| hostmask  | text(255)     | YES  |     | NULL    |       |
+#| target    | text(255)     | YES  |     | NULL    |       |
+#| url       | text(255)     | YES  |     | NULL    |       |
+#+-----------+---------------+------+-----+---------+-------+
+# In the future I hope to get around to adding stuff like:
+#+-----------+---------------+------+-----+---------+-------+
+#| httptitle | text(255)     | YES  |     | NULL    |       |
+#| httpdinfo | text(255)     | YES  |     | NULL    |       |
+#| tinyurl   | text(255)     | YES  |     | NULL    |       |
+#+-----------+---------------+------+-----+---------+-------+
+# Test other DBI types, maybe /setp perl.logurlsql.dbtype="Pg" works?
+
+# Tested with p5-DBI-Mysql, others untested
+use DBI;
+
+weechat::register("logurlsql", "0.2", "", "WeeChat p5-DBI script to log URLs to a SQL Database.");
+
+weechat::add_message_handler("*", "cmd_logurl");
+
+# Setup Database connection, now with /setp for your configuration pleasure
+weechat::set_plugin_config("dbtype", "mysql") if (weechat::get_plugin_config("dbtype") eq "");
+weechat::set_plugin_config("dbhost", "localhost") if (weechat::get_plugin_config("dbhost") eq "");
+weechat::set_plugin_config("dbname", "weechat") if (weechat::get_plugin_config("dbname") eq "");
+weechat::set_plugin_config("dbtable", "ircurls") if (weechat::get_plugin_config("dbtable") eq "");
+weechat::set_plugin_config("dbuser", "irc") if (weechat::get_plugin_config("dbuser") eq "");
+weechat::set_plugin_config("dbpass", "forever") if (weechat::get_plugin_config("dbpass") eq "");
+
+# Regexps
+sub URL_SCHEME_REGEX()                  { '(http|ftp|https|news|irc)' }
+sub URL_GUESS_REGEX()                   { '(www|ftp)' }
+sub URL_BASE_REGEX()                    { '[a-z0-9_\-+\\/:?%.&!~;,=\#<]' }
+
+# This sub borrowed from the BSD licensed urlplot.pl irssi script by bwolf.
+sub scan_url {
+        my $rawtext = shift;
+        return $1 if $rawtext =~ m|(@{[ URL_SCHEME_REGEX ]}://@{[ URL_BASE_REGEX ]}+)|io;
+        # The URL misses a scheme, try to be smart
+        if ($rawtext =~ m|@{[ URL_GUESS_REGEX ]}\.@{[ URL_BASE_REGEX ]}+|io) {
+                my $preserve = $&;
+                return "http://$preserve" if $1 =~ /^www/;
+                return "ftp://$preserve"  if $1 =~ /^ftp/;
+        }
+        return undef;
+}
+
+sub cmd_logurl {
+        ($null, $target, $data) = split ":",$_[1],3;
+        ($hostmask, $null, $target) = split " ", $target;
+        if (defined($url = scan_url($data))) {
+                #weechat::print("hostmask=$hostmask, target=$target, url=$url");
+                db_insert($hostmask, $target, $url);
+        }
+        return weechat::PLUGIN_RC_OK;
+}
+
+sub db_insert {
+        my ($hostmask, $target, $url)=@_;
+        my $dbh = DBI->connect( "DBI:". weechat::get_plugin_config(dbtype) .":".  weechat::get_plugin_config(dbname) .":". weechat::get_plugin_config(dbhost), weechat::get_plugin_config(dbuser), weechat::get_plugin_config(dbpass));
+        my $sql="insert into ". weechat::get_plugin_config(dbtable) ." (timestamp, hostmask, target, url) values (NOW()".",". $dbh->quote($hostmask) ."," . $dbh->quote($target) ."," . $dbh->quote($url) .")";
+        my $sth = $dbh->do($sql);
+        $dbh->disconnect();
+}
@@ -0,0 +1,29 @@
+# Publié sous license GNU GPL v2
+# Metallines <metallines@gmail.com>
+
+def weechat_init
+       	Weechat.register("rbox", "0.1", "", "Affiche ce que rhythmbox joue.")
+	Weechat.add_command_handler("rbox", "rbox")
+	return Weechat::PLUGIN_RC_OK
+end
+
+def rbox(server, args)
+	# Si un proocessus qui contient "rhythmbox" est en cours
+	if `ps -C rhythmbox` =~ /rhythmbox/
+		# On récupère les informations du morceau joué
+		artiste = `rhythmbox-client --print-playing-format %ta`.chomp
+		titre = `rhythmbox-client --print-playing-format %tt`.chomp
+		album = `rhythmbox-client --print-playing-format %at`.chomp
+		# On définit les couleurs pour l'affichage dans le salon
+		couleur_artiste = "C05"
+		couleur_titre = "C10"
+		couleur_album = "C03"
+		couleur_entre = "C14"
+		# On execute la commande dans le salon
+		Weechat.command("/me écoute" + " %" + couleur_titre + titre + " %" + couleur_entre + "par" + " %" + couleur_artiste + artiste + " %" + couleur_entre + "de l'album" + " %" + couleur_album + album)
+	# Sinon on prévient l'utilisateur que Rhythbox ne tourne pas
+	else 
+		Weechat.print("Rhythmbox n'est pas lancé.")
+	end
+	return Weechat::PLUGIN_RC_OK
+end