diff options
| -rw-r--r-- | scripts/perl/logurlsql.pl | 72 | ||||
| -rw-r--r-- | scripts/ruby/rbox.rb | 29 |
2 files changed, 101 insertions, 0 deletions
diff --git a/scripts/perl/logurlsql.pl b/scripts/perl/logurlsql.pl new file mode 100644 index 000000000..c52820867 --- /dev/null +++ b/scripts/perl/logurlsql.pl @@ -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();
+}
diff --git a/scripts/ruby/rbox.rb b/scripts/ruby/rbox.rb new file mode 100644 index 000000000..f879304aa --- /dev/null +++ b/scripts/ruby/rbox.rb @@ -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 |